package GigDate;
  
use base 'CGI::Application';
use strict;
use warnings;

	
my $infile = "gigdates.txt";
my %gigdates;
my @unsorteddates;
my @sorteddatesmonth;
my @sorteddates;
my %fonts;
my $count = 0;

open(INFILEHANDLE, $infile) or die "Couldn't open $infile for reading:  $! \n";

# read input file,  skipping blank lines, dropping date=>place pairs in a hash and dates in an array for sorting

while(<INFILEHANDLE>){
        next if /^(\s)*$/;
        my $date = $_;
        my $place = $_;
	my $font = $_;
	$font =~ s/^.+.\|//;
        $date =~ s/\/*\@.+//;
        $place =~ s/^.+.\@ //;
	$place =~ s/\|.+//;
        chomp($date);
        chomp($place);
	chomp($font);
        $unsorteddates[$count] = $date;
        $gigdates{$date} = $place;
	$fonts{$date} = $font;
        $count++;
}
# Transform dates Schwartzianly
@sorteddatesmonth =
    map { $_->[0] }
    sort {
    $a->[2] <=> $b->[2]
    }
    map { [ $_, split /\// ] } 
    @unsorteddates;
 @sorteddates =  map { $_->[0] }
 sort { $a->[1] <=> $b->[1] }
 map { [ $_, split /\// ] }  @sorteddatesmonth;

# Get todays date
my ($day, $month, $today, $thismonth, $thisday, $showtoday);
my @upcomingdates;
my @pastdates;

($thisday, $thismonth) = (localtime)[3,4];
$thismonth++;

# Based on the current date,  index the upcoming shows and past show dates
foreach(@sorteddates){
	        my ($month, $day) = split(/\//, $_);
	      if (($month == $thismonth) && ($day == $thisday)) {
	                $showtoday = $_;
	        }
        	elsif($month >= $thismonth && $day >= $thisday) {
                	push(@upcomingdates, $_);
	        }
	        elsif($month > $thismonth && $day <= $thisday) {
                	push(@upcomingdates, $_);
	        }
	        elsif($month <= $thismonth && $day < $thisday) {
                	push(@pastdates, $_);
                }
	        elsif($month < $thismonth && $day >= $thisday) {
                	push(@pastdates, $_);
	        }
																}
												
	unshift(@upcomingdates, $showtoday);
     close(INFILEHANDLE);


sub setup {
            my $self = shift;
            $self->start_mode('mode1');
            $self->mode_param('rm');
            $self->run_modes(
                         'mode1' => 'upcomingshows',
                         'mode2' => 'previousshows',
                          );
         }
     
sub upcomingshows {
my $upcomingshow;
my $output;


foreach $upcomingshow (@upcomingdates) {
	        if (exists $gigdates{$upcomingshow}) {
	                $output .= "$upcomingshow @ $gigdates{$upcomingshow} <br><br> \n";
	        }
	$output = "<div align=\"center\"><font size=5 face=\"$fonts{$upcomingshow}\" color=\"3333FF\">".$output."</font></div>";
	}
	return $output;
}											

sub previousshows {
my $previousshow;
my $output;

foreach $previousshow (@pastdates) {
	        if (exists $gigdates{$previousshow}) {
			                $output .= "$previousshow @ $gigdates{$previousshow} <br><br> \n";
			        }
		$output = "<div align=\"center\"><font size=5 face=\"$fonts{$previousshow}\" color=\"3333FF\">".$output."</font></div>";
	}
		return $output;		
}
	
1;



##</code><code>##

#!/usr/bin/perl -w

use strict;

use GigDate;
my $webapp = GigDate->new();
$webapp->run();
#print STDERR $webapp->dump();  #debug

##</code><code>##

#!/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/ } <IN>;
	close(IN);
	open(OUT,">".$outfile) || die $!;
	print OUT @contents;
	close(OUT);
}


print <<END_HTML;

<html>
<head>
	<title>Gig Dates Admin</title>
	<META http-equiv="Content-Script-Type" content="text/javascript">

	</head>

	<body>


	<table align="left" border="0" cellspacing="2" cellpadding="2" width="40%" height="40%">


	<tr>
		<th>Previous Shows:</th>   <td><iframe src="../gigsapp.pl?rm=mode2" name="previous"></iframe></td>
			
		</tr>
		</table>
		<table align="top" border="0" cellspacing="2" cellpadding="2" width="40%" height="40%">


		<tr>
			<th>Upcoming Shows:</th>   <td><iframe src="../gigsapp.pl?rm=mode1" name="upcoming"></iframe></td>
				 
			</tr>
			</table>
			<br><br>

			<form name="add" action="gigdatesadmin.pl" method="POST">
			<input type="hidden" name="type" value="add">
			<div align="left">
			<font face="Verdana" color="CC3333" size="3"><b>ADD A SHOW: </b></font> <br><br>

			Date:    Month:<input type="text" name="month" maxlength="2" size="2" value=""/> / Day:<input type="text" name="day" maxlength="2" size="2" value="" /><br>
			Place: <input type="text" name="place" maxlength="256" value=""/><br>
			Time:  <input type="text" name="time" maxlength="20" value=""/><br>
			Extra Info: <input type="text" name="extra" maxlength="256" value=""/><br>
			Select a font: <select name="font">
				<option value="Impact">Impact</option>
				<option value="Verdana">Verdana</option>
				<option value="Arial">Arial</option>
				<option value="Tahoma">Tahoma</option>
				</select>
			<INPUT TYPE="BUTTON" VALUE="Add Show" onClick="document.add.submit()">
			</div>
			</form>

			<form name="remove" action="gigdatesadmin.pl" method="POST">
			<input type="hidden" name="type" value="remove">
			<div align="top">
			<br><br><br>
			<font face="Verdana" color="CC3333" size="3"><b>REMOVE A SHOW: </b></font> <br><br>

			Date:    Month:<input type="text" name="month" maxlength="2" size="2" value=""/> / Day:<input type="text" name="day" maxlength="2" size="2" value=""/><br>
			<INPUT TYPE="BUTTON" VALUE="Remove Show" onClick="document.remove.submit()">
			</div>


			</form>

			</body>
			</html>

END_HTML