home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / sngsimp2.zip / UPsimpsonRead.pl < prev   
Perl Script  |  1996-12-21  |  3KB  |  77 lines
  1. #!/usr/bin/perl
  2.  
  3. sub read
  4. {
  5.  
  6.     print "Content-type: text/html\n\n";
  7.  
  8.     print "<HTML>";
  9.     print "<HEAD>";
  10.     print "<TITLE>Update Simpson Yourself!</TITLE>";
  11.     print "</HEAD>";
  12.     print "<BODY TEXT=\"#400040\" BGCOLOR=\"#FFFF80\" LINK=\"#0000FF\" VLINK=\"#008000\" ALINK=\"#FF0080\">";
  13.     print "<H1 ALIGN=CENTER><FONT COLOR=\"#FF0028\"><FONT SIZE=+2>Create Your Own M-C-M Simpson Messages HERE!</FONT></FONT></H1>";
  14.     print "<CENTER><P><BR><FORM Method=\"POST\" Action=\"http://host1207.homecom.com/cgi-local/UPsimpsonIn.pl\"></P></CENTER>\n";
  15.  
  16.     print "<CENTER><TABLE BORDER=1 CELLSPACING=3><TR ALIGN=CENTER VALIGN=TOP BGCOLOR=\"#0000FF\">\n";
  17.  
  18.     print "<TD><H2 ALIGN=CENTER><B>MSG #</B></H2></TD>";
  19.     print "<TD><H2 ALIGN=CENTER><B>HEADER</B></H2></TD>";
  20.     print "<TD><H2 ALIGN=CENTER><B>SUB HEADER</B></H2></TD>\n";
  21.     print "<TD><H2 ALIGN=CENTER><B>LINK TO</B></H2><CENTER><P ALIGN=CENTER><B>(Optional)</B></P></CENTER></TD></TR>\n";
  22.  
  23.     print "<TR><TD><B><FONT SIZE=+0>e.g.</FONT></B></TD>";
  24.     print "<TD><B><FONT SIZE=-1>M-C-M Simpson</FONT></B></TD>";
  25.     print "<TD><B><FONT SIZE=-1>Is At Your Service</FONT></B></TD>";
  26.     print "<TD><B><FONT SIZE=-1>http://www.sngchicago.com</FONT></B></TD></TR>\n";
  27.  
  28.  
  29.     open(TalInputFile1,"/usr/www/host1207/simple/play/simpson/UPsimpsonIn.txt") || die "Can't open UPsimpsonIn.txt !\n $!\n $@\n";
  30.     $linecount = 0;
  31.  
  32.     while (<TalInputFile1>) {
  33.  
  34. ### Just like "break" in C
  35.       last if ($linecount > 22);
  36.       $linecount++;
  37.  
  38.       chop;
  39.       ($shortname, $longname, $jumpto) = split(/;/);
  40.  
  41.       print "<TR><TD>",$linecount,"</TD>";
  42.       print "<TD><INPUT SIZE=10 NAME=\"Short",$linecount,"\" VALUE=\"",$shortname,"\"></TD>";
  43.       print "<TD><INPUT SIZE=40 NAME=\"Long",$linecount,"\" VALUE=\"",$longname,"\"></TD>";
  44.       print "<TD><INPUT SIZE=20 NAME=\"Jump",$linecount,"\" VALUE=\"",$jumpto,"\"></TD></TR>\n";
  45.  
  46.     }
  47.  
  48.     close TalInputFile1;
  49.  
  50.  
  51.     print "</TABLE></CENTER>";
  52.  
  53.     print "<CENTER><P><INPUT TYPE=\"Submit\" VALUE=\"Update it !\"></P>";
  54.     print "</CENTER><CENTER><P></FORM></P></CENTER>";
  55.     print "<CENTER><P><HR WIDTH=\"100%\"></P></CENTER>";
  56.  
  57.     print "<CENTER><P><B><I>Copyright (c) 1995, 1996, SNG marketing, Inc. All rights reserved.</I></B></P></CENTER>";
  58.  
  59.     print "<CENTER><P><B><I>";
  60.     print "<A HREF=\"http://www.sngchicago.com/products/simple/\">";
  61.     print "M-C-M and the M-C-M Simple Family</A>";
  62.     print " are trademarks of";
  63.     print "<A HREF=\"http://www.sngchicago.com/company\">";
  64.     print " SNG marketing, Inc.</A></I></B></P></CENTER>";
  65.  
  66.     print "</BODY></HTML>";
  67.  
  68.     exit;
  69.  
  70. ###        print TalOutputFile1 $FORM{'Short1'},";",$FORM{'Long1'},";",$FORM{'Jump1'},";\n";
  71.  
  72. }
  73.  
  74. #Main
  75. &read;
  76.  
  77.