#!/util/bin/perl require "/home/unix/web/cgi-bin/cgi-lib.pl"; require "/home/unix/web/cgi-bin/muse-lib.pl"; print &PrintHeader; $database = "pr/pr.db"; $foot = "foot.html"; print "WNY Web: Press Releases"; print ""; print "

Press Releases

\n"; if ($ARGV[0] !~ /./) { print ""; print "Wondering what's up with the Web in Western New York? The WNYWeb PR section is your source for the latest local Internet news! ISP's and businesses, please send releases to: muse\@wnyweb.com


"; if (-r $database) { open (DB, $database); @dblines = ; close DB; } else { die ("Sorry, can't open database.\n"); } chop (@dblines); print "

\n"; foreach $t (sort sort_criteria @dblines) { @els = split(/\t/,$t); @timelist = localtime($els[0]); $date = $timelist[4]+1 . "/" . $timelist[3] . "/" . $timelist[5]; print "
$els[3]

\n"; } print "

"; print "

"; print "

WNYWeb reserves the right to refuse inappropriate press releases. If we need to edit your release before placing online, we will contact you.
\n"; } else { print "
"; open (FILE,"pr/$ARGV[0]"); @flines = ; close (FILE); print @flines; } open (FOOT,$foot); @feet = ; close (FOOT); print @feet; sub sort_criteria { @splita = split(/\t/,$a); @splitb = split(/\t/,$b); if ($splita[0] > $splitb[0]) { $retval = -1; } else { $retval = 1; } return $retval; }