#!/usr/local/bin/perl $nkf = '/usr/local/bin/nkf -j'; #$buffer = <>; # METHOD="POST" の場合。 $buffer = $ENV{'QUERY_STRING'}; # METHOD="GET" の場合。 @pairs = split(/\&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } open( OUT, "|$nkf"); select( OUT ); &print_header( $FORM{'m'} ); $picture = "/members/pictures/$FORM{'name'}.gif"; print ""; &gf($FORM{'name'}); print "