#!/usr/bin/perl # this is the file for displaying the events to users. # it should be publicly accessible $data_file='d:\64.224.42.246\cgi-bin\eventData.pl'; # open event data file open (DAT,"$data_file") || die "Cannot Open $data_file: $!\n"; @raw_data=; close(DAT); print "Content-type: text/html\n\n"; # print out the HTML up to where the perl script begins pulling data from database print < Danny's Upcoming Events
Go back to Home
ENDTOPHTML # BEGIN PULLING EVENTS FROM DATA FILE %hash_table= (); # create hash table of events $i = 0; foreach $event (@raw_data) { chop($event); ($key,$event_date,$event_title,$description)=split(/\|/,$event); while ( exists $hash_table{$key} ) { $key = $key + 1; } $hash_table{ $key } = $event; $i++; } # sort events in order by date $i=0; foreach $event (sort {$hash_table{$a}<=>$hash_table{$b} } keys %hash_table) { $sorted[$i] = $hash_table{$event}; $i++; } # display events foreach $event (@sorted) { if($event =~ /^\s*$/) {next;}; #Blow off blank lines ($datekey,$event_date,$event_title,$description)=split(/\|/,$event); print ""; } # Finished displaying events. The rest of the HTML goes here print <
Upcoming Events

$event_date    $event_title
$description
ENDBOTTOMHTML