#!/usr/bin/perl
##############################################################################
# Weekly Holiday Home Booking Calendar       Version 2.50                    #
# Copyright 2001 John Plaxton                john@availcheck.com             #
# First Created June 2001                    Last Modified 15 November 2003  #
# Scripts Archive at:                        http://www.availcheck.com       #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 2001 John H K Plaxton  All Rights Reserved.                      #
#                                                                            #
# Availcheck Weekly Availability Calendar may NOT be used or modified or     #
# changed by anyone without my expressed permission. The coding should       #
# remain intact and unchanged.                                               #
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off my program. This coding has taken hundreds of man hours.    #
#                                                                            #
##############################################################################
use CGI qw(:standard);use CGI::Carp qw(fatalsToBrowser);$q = new CGI;use Time::localtime;use Time::Local;print $q->header;
require "/home/gar10848/public_html/calendars/cal1/config.pl";
require "/home/gar10848/public_html/calendars/cal1/codebank.pl";
$Bin = &getpath;
@fields = $q->param(); 
foreach $field (@fields) {
	${$field}  = $q->param($field);
	${$field} =~ s/[\|]//g; # removes pipes 
	#print"$field - ${$field}<br>";
	}
my $headerdata = &get_header_details();
my ($contactname,$propname,$userid,$pword,$propaddr,$proptel,$propemail,$headertext,$curr,$currphrase,$lastupdated,$showhist,$showpricecol,$pcounter,$showavail) = split(/\|/, $headerdata);
$mainbakfile="bak".$htable;
$subbakfile="bak".$datatable;
$ret_menu_text = "<form name='menureturn' action='menu.cgi' method='post'><input type='hidden' name='u' value='$u'><input type='hidden' name='p' value='$p'><input type='hidden' name='view' value='$view'><a href='Javascript:document.menureturn.submit();'><b>Return to menu</b></a></form>";

if ($lost == 1){&print_lost_screen('bgcolor=palegreen',2,$propname);}	
elsif ($lost == 2){if (($u eq $userid)||($u eq $propemail)){&send_pwemail(&get_header_details());&print_pwrd_screen('bgcolor=palegreen',3,$propname);}else{&print_pwrd_screen('bgcolor=red',4,$propname);}}	
elsif (($u eq '')||($p eq '')){&print_pwrd_screen('bgcolor=lightblue',0,$propname);}
elsif (($u ne $userid)||($p ne $pword)) {&print_pwrd_screen('bgcolor=red',1,$propname);}

else {
 if ($action eq 'update_cal'){&print_dates_viewer($headerdata);}
  elsif ($action eq "autoupdatecal"){&autoupdatecal;&savelastupdate($headerdata);$message="Calendar Auto Updated.";&print_message($message);}
  elsif ($action eq 'edit'){&print_modify_screen($headerdata, $aut)}
  elsif ($action eq 'Save Updates'){&edit_records; &savelastupdate($headerdata);&print_dates_viewer($headerdata);}
  elsif ($action eq 'update_head'){&print_modify_page($headerdata);}
  elsif($action =~ /Save Settings/i){&edit_record;$message="Calendar Details Updated";&print_message($message);} 
  elsif ($action eq 'rep1'){&print_report1($headerdata);}
  elsif ($action eq 'rep2'){&print_report2($headerdata);}
  elsif ($action eq 'add_opt'){&addscreen;}
  elsif ($action eq 'Add Time'){&addtime;$message="Time Added to Calendar";&print_message($message);}
  elsif ($action eq 'del_opt'){&delete_form}
  elsif ($action eq 'Delete All Historic Data'){&del_hist_data;$message="Historic Data Removed from Database";&print_message($message);}
  elsif ($action eq 'Delete Weeks from Calendar'){&del_end_data;$message="Data Removed from Database";&print_message($message);}
  elsif ($action eq 'backup'){&backupscreen;}
  elsif ($action eq 'Backup Calendar Data'){&backup_file($mainbakfile,$htable);&backup_file($subbakfile,$datatable);$message="Data Backed Up";&print_message($message);}
  elsif ($action =~ /Restore/){&restore_file($mainbakfile,$htable);&restore_file($subbakfile,$datatable);$message="Old Data Restored";&print_message($message);}
  elsif ($view ne 'on'){&print_dates_viewer($headerdata);}
  else {&print_menu;}
}

sub print_menu {
my @menuicons = ($ancilldir."thumbnailcalendar.gif",$ancilldir."thumbnailbrochures.gif",$ancilldir."thumbnailstats.gif",$ancilldir."addcalendar.gif",$ancilldir."deletecalendar.gif",$ancilldir."thumbnailbackup.gif",$ancilldir."maincal.jpg",$ancilldir."help.gif");
print"
 <HTML><HEAD><TITLE>$propname Calendar Admin Page</TITLE></HEAD>
<SCRIPT>
function showLpopup(ULR){aWindow=window.open(ULR,\"thewindow\",\"width=540, height=550, scrollbars=1\");}
</SCRIPT>
<BODY $textcol $formcol>
     <CENTER><h2>$propname Calendar Admin Page</h2></CENTER>
     <hr width='550'>
<table width='385' border='0' cellspacing='1' cellpadding='1' align='center'>
    <tr valign='top'>
      <td width='25%'>
      <div align='center'>
        <form method='post' action='menu.cgi' name='update_cal'>
          <input type='hidden' name='view' value='$view'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='update_cal'>
          <a href='javascript:document.update_cal.submit()'><img src='$menuicons[0]' width='40' height='40' border='0'><br>
          <font face='Arial, Helvetica, sans-serif' size='2'><b>Update Calendar</b></font>
          </a>
        </form>
        <p>&nbsp; </p>
        </div>
      </td>
      <td width='25%'>
        <div align='center'>
        <form method='post' action='menu.cgi' name='update_head'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='view' value='$view'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='update_head'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.update_head.submit()><b><img src='$menuicons[1]' width='40' height='40' border='0'><br>
          Update Your Details</b></a></font>
        </form>

      </div>
      </td>
      <td width='25%'>
       <div align='center'>
      <form method='post' action='menu.cgi' name='rep1'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='rep1'>
          <input type='hidden' name='view' value='$view'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.rep1.submit()><b><img src='$menuicons[2]' width='40' height='40' border='0'><br>
          Available Dates Report</b></a></font>
        </form>

      </div>
      </td>
      <td width='25%'>
       <div align='center'>
      <form method='post' action='menu.cgi' name='rep2'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='rep2'>
          <input type='hidden' name='view' value='$view'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.rep2.submit()><b><img src='$menuicons[2]' width='40' height='40' border='0'><br>
          Bookings Summary Report</b></a></font>
        </form>

      </div>
      </td>
    </tr>
    <tr valign='top'>
      <td width='25%'>
       <div align='center'>
      </b></a></font>
        <form method='post' action='menu.cgi' name='add_opt'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='add_opt'>
          <input type='hidden' name='view' value='$view'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.add_opt.submit()><b><img src='$menuicons[3]' width='40' height='40' border='0'><br>
          Add Options</b></a></font>
        </form>
     </div>
      </td>
      <td width='25%'>
        <div align='center'>
        <form method='post' action='menu.cgi' name='del_opt'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='del_opt'>
          <input type='hidden' name='view' value='$view'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.del_opt.submit()><b><img src='$menuicons[4]' width='40' height='40' border='0'><br>
          Delete Options</b></a></font>
        </form>
      </div>
      </td>
      <td width='25%'>
        <div align='center'>
        <form method='post' action='menu.cgi' name='backup'>
          <input type='hidden' name='u' value='$userid'>
          <input type='hidden' name='p' value='$pword'>
          <input type='hidden' name='action' value='backup'>
          <input type='hidden' name='view' value='$view'>
          <font face='Arial, Helvetica, sans-serif' size='2'><a href=javascript:document.backup.submit()><b><img src='$menuicons[5]' width='40' height='40' border='0'><br>
          Data Backup / Restore</b></a></font>
        </form>
      </div>
      </td>
      <td width='25%'>
        <div align='center'>
        <font face='Arial, Helvetica, sans-serif' size='2'><a href='index.cgi'><b><img src='$menuicons[6]' width='40' height='40' border='0'><br>
          To Main Calendar</b></a></font>
      </td>
    </tr>
    <tr>
    <td colspan='2' align='left'><font size='1'><a href=http://www.availcheck.com target=_blank>© 2000-2003 Availcheck $VERSION</font></td>
    <td colspan='2' align='right'><a href=javascript:showLpopup('http://www.availcheck.com/help/hr_weekly_admin.htm');><img src='$menuicons[7]' alt='View Help' border='0'><br><font size='1'>Help</font></a></td>
    </tr>
    </table><br>
    <table align='center' border=1 cellpadding='1' cellspacing='1'>
    <tr><td><p align=center><b>$endaddtext</B></td></tr></Table></body></HTML>
";
}