投稿者： 　2000/08/14 (月) 15:08:11　 ▼　 ◇　 [mirai]
#! /usr/bin/perl5

        require './jcode.pl';
        #perlDUKE Ver0.2 Method=post Version
        #Minibbs 全対応
        #第四世代型超高速掲示板撃破用超弩級万能連続書き込みスクリプト
        ################　初期設定  ##############
        #　なまえ ##
        $title = "PerlDUKE alice";
        #  ＣＧＩのなまえ
        $cgi = "alice.cgi";
        #
        #　背景色
        $htmlbody = "<body background=\"../img/bg2.gif\" bgcolor=\"\#FFFFFF\" link=\"\#800000\" vlink=\"\#800080\" alink=\"\#800080\">\n";
        #

        #########################################################################
        print "Content-type: text/html\n\n";

          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) = split( /=/ , $pair );
            $value =~ tr/+/ /;
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            &jcode'convert( *value , 'sjis' );

            $FORM{$name} = $value;
          } # end of foreach

        $action = $FORM{'ope'};
        if ( $action eq "" ){
         &displaydata;

        }elsif ( $action ne "" ){
          Rist;
        }else{
          $errmsg = "不正なアクセスです";
          &error;
        }
        exit;