#!/local/bin/perl5 #This script was written by Gary Montgomery, May 1996 for CIS 199 Unix #at the University of Oregon. This script maybe used or modified freely #with the stipulation that you leave this message at the top of this file #and apend your name and the date you modified it after this message. If #If you make any cool modifications I'd love to see them. Send them to #gmontgom@cs.uoregon.edu require "cgi-lib.pl"; $infile = ".ann"; #File to be parsed to browser #We are going to open a file that contains the class announcements. We are #going to send to the browser the opening html tags. Then we will print the #file .ann to the browser. Finally we will print the closing html tags to #the browser. #Try to open .ann open(INFILE,"$infile") || die print "couldn't open $infile :!\n"; # tell netscape this is html print "Content-type: text/html\n\n"; #begin printing the html openening tags. print < CIS 210 Announcements Fall 96

The CIS 210 Daily Messenger

How to Stay Informed

  1. Please check this page regularly for all announcements.
  2. The newsgroup uo.classes.cis.200 is not an official forum for announcements and other course business since many students cannot access it reliably.
HEADER #Now print the contents of .ann to the browser while() {print;} #Close the file .ann now. close(INFILE); #begin printing the html closing tags. print < TAIL #end the scrypt.