#!/usr/bin/perl use strict; use warnings; use CGI; $|++; my $query = new CGI; print $query->header(); my $month = $query->param("month"); my $day = $query->param("day"); my $place = $query->param("place"); my $time = $query->param("time"); my $extra = $query->param("extra"); my $type = $query->param("type"); my $font = $query->param("font"); my $date = "$month\/$day" if ($month && $day); if($type == "add"){ my $outfile = "../gigdates.txt"; open (OUTFILEHANDLE, ">> $outfile") or die print "Couldn't open $outfile: $! \n"; my $newshow = "$date @ $place - $time - $extra | $font\n" if ($month && $day && $place); print OUTFILEHANDLE $newshow if ($newshow); close(OUTFILEHANDLE); } if(($type == "remove") && $date && !($place)){ # May need this in the future: #use Tie::File; #my @aFileLines; #my $sFileIn = "../gigdates.txt"; #tie (@aFileLines, 'Tie::File', $sFileIn) or die "$!"; #@aFileLines = grep{$_!~/Q$date/g;}@aFileLines; #untie @aFileLines or die "$!"; my $infile = "../gigdates.txt"; my $outfile = "../gigdates.txt"; open(IN,$infile) || die $!; my @contents = grep { !/$date/ } ; close(IN); open(OUT,">".$outfile) || die $!; print OUT @contents; close(OUT); } print < Gig Dates Admin
Previous Shows:
Upcoming Shows:


ADD A SHOW:

Date: Month: / Day:
Place:
Time:
Extra Info:
Select a font:



REMOVE A SHOW:

Date: Month: / Day:
END_HTML