Web-Totalフリーランスかきしちが
無駄にWebサイト運営を考えるサイト

#デコードするためのプログラム
sub decode {

    # プラウザからのデータ取込み
    if ($ENV{'REQUEST_METHOD'} eq "POST") {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }
    else {
        $buffer = $ENV{'QUERY_STRING'};
    }

    # プラウザからのデータ変換
    @pairs = split(/&/,$buffer);
    foreach $pair (@pairs) {
        #１行毎に$name,$valueを取り出す
        ($name, $value) = split(/=/, $pair);
        # 変換演算子　tr　+　を　スペースに置き換え
        $value =~ tr/+/ /;
        # 変換演算子　s/// 単語の構成文字にマッチ
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        # " を " に変換
        $value =~ s/"/"/g;
        #\n を "" に変換
        $value =~ s/\n//g;

        # 日本語に変換(デコード処理部分)
        &jcode'convert(*value,'sjis');
        &jcode'convert(*name,'sjis');
        $FORM{$name} = $value;
        if ($name eq 'url') {
            $FORM{$name} =~ s/http:\/\///g;
        }
    }
}

#リピート部分プログラム
sub output {
    print <<"EOT";
投稿者：$name<BR>
EOT

    #メールの入力の有無
    if ($email eq '') {
        print "E-mail：未記入<BR>\n";
    }
    else {
        print "[<A href=\"mailto:$email\">E-mail</A>]<BR>\n";
    }

    #URLの入力の有無
    if ($url eq '') {
        print "Homepage：未記入<BR>\n";
    }
    else {
        print "[<A href=\"http://$url\" target=\"_blank\">Homepage</A>]<BR>\n";
    }

    print <<"EOT";
投稿内容<BR>
$msr
<HR>
EOT
}