#!/usr/bin/perl

############################################
##                                        ##
##         WebCal (Config Script)         ##
##           by Darryl Burgdorf           ##
##       (e-mail burgdorf@awsd.com)       ##
##                                        ##
##             version:  2.0.1            ##
##         last modified: 07/04/19        ##
##           copyright (c) 2000           ##
##                                        ##
##    latest version is available from    ##
##   http://www.norgie.net/tools/webcal/  ##
##                                        ##
############################################

$cgiurl = "webcal.pl";
$addcgiurl = "webcal.add.pl";
$deletecgiurl = "webcal.delete.pl";

@datafiles = (
  );

%editfiles = (
  "File 1","data.edit1.txt",
  );
  
$DataDirPath = "data";
$DataDirURL = "data";

$DataDir_header = "";
$DataDir_footer = "";

$header_file = "/usr/foo/webcal/header.txt";
$footer_file = "/usr/foo/webcal/footer.txt";

$CalendarTitle = "Webcal 2.0.1";

#$DisplayCounter = 1;
$DisplayPhases = 1;

$DefaultType = "Table";
$SmallTableText = 1;
$PreviousLastOnly = 0;
$AllowUserChoice = 1;

$AllowHTML = 1;
$AllowMultiDate = 1;

$HourOffset = 0;

$MonSunWeek = 1;

# NOTHING BELOW THIS LINE NEEDS TO BE ALTERED!

$version = "2.0.1";

@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+($HourOffset*3600)))[3,4,5];
$month = $month+1;
$year += 1900;

unless ($INPUT{'Month'}) {
	$INPUT{'Month'} = $month;
}
unless ($INPUT{'Year'}) {
	$INPUT{'Year'} = $year;
}
unless ($INPUT{'Type'}) {
	$INPUT{'Type'} = $DefaultType; 
	$DefaultUsed = 1;
}

1;
