public_gopher/script.pl

   1 #!/usr/bin/perl
   2
   3 if ($ENV{"QUERY_STRING"}) {
   4         # Request
   5         $cookie = $ENV{"QUERY_STRING"};
   6         $data_size = $ENV{"CONTENT_SIZE"} || 1024;
   7         $data_read = 0;
   8
   9         $data_read = read(STDIN, $data, $data_size);
  10
  11         $target = 's'.$ENV{"GOPHER_SELECTOR"}."\t"."gadl"."\t\t\r\n";
  12         $buffer = "";
  13
  14         @lines = split /\n/, $data;
  15
  16         foreach $line (@lines) {
  17
  18                 ($key, $val) = split /:/, $line;
  19                 $key =~ s/\s//;
  20                 $val =~ s/^\s*//;
  21
  22                 $key =~ tr/A-Z/a-z/;
  23
  24                 $buffer .= " FORM [$key] = $val \n";
  25         }
  26
  27         $buffer .= "Thank you for your submission! \r\n";
  28         #$buffer .= $data;
  29
  30         $mimetype = 'text/plain';
  31 } else {
  32         # Form
  33         $cookie = rand();
  34
  35         $target = 's'.$ENV{"GOPHER_SELECTOR"}."\t".$cookie."\t\t\r\n";
  36         $buffer = "";
  37
  38         $buffer .= $target;
  39         $buffer .= "Username: \nPassword: \nE-Mail: \n";
  40
  41         $mimetype = 'application/x-interactive';
  42 }
  43
  44 $size = length $buffer;
  45 print $size."\t".$mimetype."\r\n";
  46 print $buffer;
  47