#!/usr/bin/perl ################################################################################# # Custom built report archive script # # Designed and coded by L-s-L for Brum2600.net v0.1 ################################################################################ use CGI; $q=CGI::new(); $month=$q->param("month"); $year=$q->param("year"); #####checking########### if ($month=~/Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec/ && $year=~/11|10|09|08|07|06|05|04|03|02|01/){ &happy; } elsif ($month eq "latest"){ &happy } else{ &error("fuckyou"); } sub happy{ if ($month eq "latest"){ open (IN, "latest.lsl"); @in=(); close(IN); $date=@in[0]; chomp($date); } else{ $date="$month$year"; } #$file="$date"; open (REP, "../reports/$date") || &filenotfound; @rep=(); close(REP); foreach $elem (@rep){ if($elem eq "\n"){ $elem="$elem

"; } else{ $elem="$elem
"; } for($elem){s/€/"/g; }; push @rep2,$elem; } ############################IMG Processing################ opendir(IMG,"../Photos/$date"); # ||die &error; @imglist=readdir(IMG); #shift (@imglist); #shift (@imglist); foreach $img (@imglist){ if ($img =~ /JPG|jpg|gif|GIF/){ $imstr=qq{}; push @dispimg,$imstr; } #new } ######################################################### print "Content-type:text/html\n\n"; print <<"END"; Brum 2600 Report for $date

$date Meeting Report.
@rep2

Images.

@dispimg

END exit; }#end of happy sub error{ print "Content-type:text/html\n\n"; print <<"END"; Brum 2600 Report for $date
Stop!!
Something has gone wrong. Please report cause of error to webmaster. $date
END exit; } sub filenotfound{ print "Content-type:text/html\n\n"; print <<"END"; Brum 2600 Report for $date
No Such File!
File not found. Report may not exist. Out of cheese error!
END exit; }