home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 May / Chip_1999-05_cd.bin / zkuste / MSIE5 / ieak5cd.exe / RCDATA / CABINET / reconfg1.pl < prev    next >
Perl Script  |  1999-02-24  |  3KB  |  97 lines
  1. #!/usr/bin/perl
  2. # Written by Edward C Kubaitis
  3.  
  4.  
  5. # The host URL of the Signup Files
  6. $hostURL="http://myserver";
  7.  
  8. # Parse the CGI input
  9. &parse_input;
  10.  
  11. # Start HTML output
  12. &startHTML;
  13.  
  14. # Display the HTML head
  15. &headHTML;
  16.  
  17. # Display the HTML body
  18. &bodyHTML;
  19.  
  20. # End HTML output
  21. &endHTML;
  22.  
  23. # Exit the CGI
  24. &quit;
  25.  
  26. ##########################################################
  27. sub startHTML {
  28.     print "Content-type: text/html\n\n";print "<HTML>\n";
  29. }
  30. ##########################################################
  31. sub endHTML {
  32.     print "</html>\n";
  33. }
  34. ##########################################################
  35. sub quit {
  36.     exit(0);
  37. }
  38. ##########################################################
  39. sub parse_input {
  40.     @pairs = split(/&/, $ENV{'QUERY_STRING'});
  41.  
  42.     foreach $pair (@pairs) {
  43.        ($name, $value) = split(/=/, $pair);
  44.        # Un-Webify plus signs and %-encoding
  45.        $value =~ tr/+/ /;
  46.           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  47.           $value =~ s/<!--(.|\n)*-->//g;
  48.           if ($allow_html != 1) {
  49.           $value =~ s/<([^>]|\n)*>//g;
  50.           }
  51.  
  52.          if ($value eq ""){$value=" ";}
  53.        $FORM{$name} = $value;
  54.  
  55.     }
  56. }
  57. ##########################################################
  58. sub bodyHTML {
  59.  
  60. print "<BODY bgColor=THREEDFACE color=WINDOWTEXT>\n";
  61. print "<FONT style=\"font: 8pt ' ms sans serif' black\">\n";
  62.  
  63. print "<FORM NAME=PAGEID ACTION=PAGE1 STYLE=background:transparent></FORM>\n";
  64. print "<FORM NAME=BACK ACTION=\"\" STYLE=background:transparent></FORM>\n";
  65. print "<FORM NAME=PAGETYPE ACTION=\"\" STYLE=background:transparent></FORM>\n";
  66. print "<FORM NAME=NEXT ACTION=$hostURL/reconfg2.pl STYLE=background:transparent>\n";
  67. print "<B>Re-Establishing Your Internet Services Internet Account</B><BR>\n";
  68. print "<P><TABLE style=\"font: 8pt ' ms sans serif' black\" cellpadding=5>\n";
  69. print "<TR><TD COLSPAN=2>Please enter the e-mail name you wish to use.</TD></TR>\n";
  70. print "<TR><TD>E-Mail Name </TD><TD><INPUT NAME=\"EMAILNAME\" TYPE=\"TEXT\" SIZE=\"25\" VALUE=\"$FORM{'EMAILNAME'}\"></TD></TR>\n";
  71. print "<TR><TD COLSPAN=2>Please enter the e-mail password you wish to use.\n";
  72. print "<TR><TD>E-Mail Password </TD><TD><INPUT NAME=\"EMAILPASSWORD\" TYPE=\"TEXT\" SIZE=\"25\" VALUE=\"$FORM{'EMAILPASSWORD'}\"></TD></TR>\n";
  73. print "<INPUT NAME=\"EMAILNAME\" TYPE=\"TEXT\" SIZE=\"25\" VALUE=\"$FORM{'EMAILNAME'}\">\n";
  74. print "<INPUT NAME=\"EMAILPASSWORD\" TYPE=\"TEXT\" SIZE=\"25\" VALUE=\"$FORM{'EMAILPASSWORD'}\"></TD></TR></TABLE>\n";
  75. print "</FORM>\n";
  76. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  77. $m="";$s="";$md="";$mn="";$mon++;
  78. if ($min < 10){$m="0";}
  79. if ($sec < 10){$s="0";}
  80. if ($mday < 10){$md="0";}
  81. if ($mon < 10){$mn="0";}
  82. $THETIME="$hour".$m."$min".$s."$sec";
  83. $THEDATE="19$year".$mn."$mon".$md."$mday";
  84. print "</BODY>\n";
  85.  
  86. }
  87. ##########################################################
  88. sub headHTML {
  89.  
  90.  
  91. print "<HEAD>\n";
  92. print "<TITLE>IEAK Sample Reconfiguration Signup Page 1</TITLE>\n";
  93. print "</HEAD>\n";
  94.  
  95.  
  96. }
  97. ##########################################################