#!/usr/local/bin/perl require "/afs/cern.ch/project/cndoc/wwwasd/cgi-bin/asd.pl"; print "Content-type: text/html\n\n"; $report = $ENV{'PATH_INFO'}; $report =~ tr/\///; if ($report eq '') { &list_news } else { &print_news } print "
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
"; print ""; print "Release Notes"; print "Known bugs"; print "FAQs"; print "Contributions"; print "Tutorial"; print "Reference manual"; print "Down load"; print "Miscellaneous
$pawwm"; 1; sub list_news { print <<"EOM"; PAW Release Notes

PAW Release Notes

Below is a list of all features added to different PAW versions. Select the version you are interested in.

Or search for a keyword: \n
EOM # # print the version number of all files residing in the news directory # (file name is paw.news1100 -> Version in 1.10/0) opendir (DIR, $pawnewspath); local(@filenames) = readdir(DIR); closedir(DIR); $icol = 1; print "
\n"; print ""; @filenames=reverse(sort(@filenames)); for (@filenames) { next if $_ eq '.'; next if $_ eq '..'; next if $_ eq ''; $version = substr ($_,8,length($_)-8); open (NEWSFILE, "$pawnewspath/$_") || print "Could not open $_\n"; $first_time = 0; $newsfile = $_; while () { last if $first_time eq 1; $first_time = 1; if ( $icol == 1) { print "\n"; } if ( $icol == 2) { print "\n"; } if ( $icol == 3) { print "\n"; } print ""; printf ("\n", substr ($version, 0, 1), substr ($version, 1, 2), substr ($version, 3, length($version)-3)); printf ("\n", substr ($_,0,length($_)-5)); printf ("\n", substr ($_,length($_)-5,length($_))); print ""; $icol = $icol + 1; if ( $icol == 4) { $icol = 1; } } } print "
Version number Date
%s.%s/%s%s %s
\n"; } # # Print a single news file # sub print_news { open (BUGFILE, "$pawnewspath$report") || print "Could not open $pawnewspath/$report\n"; while () { print $_; } }