#!/usr/bin/perl
############################################
## ##
## WebCal (Config Script) ##
## by Darryl Burgdorf ##
## (e-mail burgdorf@awsd.com) ##
## ##
## version: 1.11 ##
## last modified: 1/30/98 ##
## copyright (c) 1998 ##
## ##
## latest version is available from ##
## http://awsd.com/scripts/ ##
## ##
############################################
$cgiurl = "http://www.humboldt.net/~veterans/Calender/index.cgi";
$addcgiurl = "http://www.humboldt.net/~veterans/CPanel/Calender/webcal.add.cgi";
$deletecgiurl = "http://www.humboldt.net/~veterans/CPanel/Calender/webcal.delete.cgi";
$datafile = "/mnt/hdb1/casa/veterans/www/Calender/webcal.data";
$DataDirPath = "/mnt/hdb1/casa/veterans/www/Calender/data";
$DataDirURL = "http://www.humboldt.net/~veterans/Calender/data";
$bodyspec = "BGCOLOR=\"#ffffff\" TEXT=\"#000000\"";
$header_file = "/mnt/hdb1/casa/veterans/www/Calender/header.txt";
$footer_file = "/mnt/hdb1/casa/veterans/www/Calender/footer.txt";
$DefaultType = "Table";
$SmallTableText = 1;
$PreviousLastOnly = 0;
$AllowUserChoice = 1;
$AllowHTML = 0;
$AllowMultiDate = 1;
$bgcolor_normal = "ffffff";
$bgcolor_header = "6666ff";
$bgcolor_special = "ccccff";
$textcolor_normal = "000000";
$textcolor_header = "000000";
$textcolor_today = "ff0000";
$textcolor_special = "0000ff";
$MonSunWeek = 0;
# NOTHING BELOW THIS LINE NEEDS TO BE ALTERED!
$version = "1.11";
@months =
(January,February,March,April,May,June,
July,August,September,October,November,December);
@shortmonths =
(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
if ($MonSunWeek) {
@days =
(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday);
@shortdays =
(Mon,Tue,Wed,Thu,Fri,Sat,Sun);
}
else {
@days =
(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
@shortdays =
(Sun,Mon,Tue,Wed,Thu,Fri,Sat);
}
$time = time;
($mday,$month,$year) = (localtime($time))[3,4,5];
$month = $month+1;
$year = $year+1900;
unless ($INPUT{'Month'}) {
$INPUT{'Month'} = $month;
}
unless ($INPUT{'Year'}) {
$INPUT{'Year'} = $year;
}
unless ($INPUT{'Type'}) {
$INPUT{'Type'} = $DefaultType;
$DefaultUsed = 1;
}
print "Content-type: text/html\n\n";
sub Header {
($title) = @_;
print "Garberville Veterans Calender: $title\n";
print "\n";
if ($header_file) {
open (HEADER,"$header_file");
@header = ;
close (HEADER);
foreach $line (@header) {
if ($line =~ //i) {
&insertadvert($1);
}
else {
print "$line";
}
}
}
}
sub Footer {
unless ($PreviousLastOnly) {
print "
\n";
print "\n";
}
if (($INPUT{'Type'} eq "Small Table")
&& $SmallTableText && !($DefaultUsed)) {
print "\n";
}
print "
";
print "";
print "Webad Design
Teaching and Web Support
\n";
print "
";
print "Maintained with ";
print "";
print "WebCal $version.
\n";
if ($footer_file) {
open (FOOTER,"$footer_file");
@footer =