home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / glimpsehttp / cgi-bin / article < prev    next >
Encoding:
Text File  |  1995-05-16  |  835 b   |  36 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $HTTPD_HOME="/usr1/paul/httpd";
  4. $HTTPD_NEWSHOME="/usr1/paul/news";
  5. $ENV{'PATH_INFO'} = "$HTTPD_NEWSHOME/groups/$ENV{'PATH_INFO'}";
  6.  
  7. open(INPUT,"$HTTPD_HOME/wwwlib/getfile |");
  8.  
  9. $body = 0;
  10. while (<INPUT>) {
  11.     if (/^$/ && !$body && $.>3) {
  12.         $body = 1;
  13.         print "<PRE>\n";
  14.     }
  15.     if (4.../^$/) {
  16.         print "</PRE>\n" if $. == 4;
  17.         print if s/^Subject: (.*)/<TITLE>$1<\/TITLE><H1>$1<\/H1>/ ||
  18.         s/^From: (.*)/<ADDRESS>$1<\/ADDRESS>/ ||
  19.         s/^Date: (.*)/<ADDRESS>$1<\/ADDRESS>/ ||
  20.         s/^Organization: (.*)/<ADDRESS>$1<\/ADDRESS>/ ||
  21.             s/^References: (.*)/<dl><dt><B>References:<\/B><dd>$1<\/dl>/;
  22.         if (/^Newsgroups: /) {
  23.             split(/[ ,]+/);
  24.             print "<dl><dt><B>",shift(@_),"<\/B><dd>\n";
  25.             foreach $group (@_) {
  26.                 print "<A HREF=\"news:$group\">$group</A>\n";
  27.             }
  28.             print "</dl>\n";
  29.         }
  30.     } else {
  31.         print;
  32.     }
  33. }
  34.  
  35. 1;
  36.