--- ConnorCalendar/calendar.pl 2017/06/15 01:52:15 1.12
+++ ConnorCalendar/calendar.pl 2018/10/30 13:53:00 1.13
@@ -8,7 +8,7 @@
|
| Nicholas DeClario
| March 2009
-| $Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $
+| $Id: calendar.pl,v 1.13 2018/10/30 13:53:00 nick Exp $
|
+------------------------------------------------------------------------------
=end comment
@@ -26,7 +26,7 @@ use Calendar::Simple;
use Date::Pcalendar::Year qw( :all );
use Date::Pcalendar::Profiles qw( $Profiles );
-my $VERSION = '$Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $';
+my $VERSION = '$Id: calendar.pl,v 1.13 2018/10/30 13:53:00 nick Exp $';
my $DEBUG = "";
my $URL = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi";
my %post_in = ( );
@@ -115,13 +115,13 @@ for( my $month = 1; $month <= 12; $month
$row++;
}
print "";
-print "Holidays I have Connor are in Red\n";
+print "
Holidays Connor visits are in Red\n";
print "Today is Blue\n";
-print "Weekends and special days I have Connor are in Green\n
";
+print "Weekends and special days Connor visits are in Green\n
";
print "List of Special/Holidays " .
- "I have Connor:
";
+ "Connor Visits:
";
print map { $_ . " \n" } sort @list;
print " |
\n";
print "