aa

 6 

 6  CGI  2   DevMan 

 1 
      html   counter     counter
     counter  1   visitor.dat  unix  777  
        0   unix 

$ cat >visitor.dat

 0  Ctrl+C  visitor.dat  0   777 

$ chmod 777 visitor.dat

 CGI   CGI  visitor.dat   

    open( COUNT , "visitor.dat");
    $count=<COUNT>;
    close(COUNT);

 visitor.dat  $count   
  1 

$count++;

       >  

    open( COUNT , ">visitor.dat");
    print COUNT "$count";
    close( COUNT );

   

 2 
  email  submit  email  email.dat   email 
 html  email 

<form target='detail' method=POST action='mail/keepmail.cgi'>

recieve news and update, enter email and Submit!

<input type=text size=15 name='email'
value='[email protected]'>

<br>

<input type=submit value='submit'>

    </form>

     action  keepmail.cgi   Post   email.dat   email.dat  777  
       $FORM{'email'}

    read(STDIN , $buffer , $ENV{'CONTENT_LENGTH'} );
    @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($I))/eg;
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($I))/eg;
         $FORM{$name} = $value;
    }

 $FORM{'email'}    Error 

    if ($FORM{'email'} eq "") {
         print "<h2>No email enter!!<p>Please try again</h2>";
         print "<form><input type=button value='<-- go back'
                onClick='history.back();'></form>";
         die;
    }

 $FORM{'email'}  

    print "<h2>Thank you for your email</h2>";
    print "<b>email : $FORM{'email'}</b><p>";
    print "<form><input type=button value='<-- go back'
           onClick='history.back();'></form>";

 email.dat 

    open(EMAILFILE , ">>email.dat");
    print EMAILFILE "$FORM{'email'}\n";
    close(EMAILFILE);

 2      ftp  DevMan  ftp  ftp://203.155.93.40/pub/devman/cgi  ....