#! /usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use strict;
use diagnostics -verbose;
use warnings;
use CGI;
use CGI qw(:standard escapeHTML);
use CGI qw/:standard/;
use lib qw(/usr/local/apache/lib/perl);
use vars qw($dataupdatemessage $dataupdatefilemessage );
local ($CGI::DISABLE_UPLOADS, $CGI::POST_MAX);
$CGI::DISABLE_UPLOADS = 0; # enable uploads Disable uploads
$CGI::POST_MAX = 32 * 1024; # limit posts to 32K max<------NEED TO LOOK AT THIS LIMIT
use lib qw(/home/jalamior/www/httpsdocs/cgi-bin/lib/perl);
#use lib qw(/srv/www/cgi-bin/lib/perl);
use manageusers qw($LoggedOn_user_id);
#Error Handling
BEGIN {
require 5.004;
use CGI::Carp qw(fatalsToBrowser carpout);
my $logfile = '/home/jalamior/public_html/httpsdocs/cgi-bin/logs/errorLog/errorFile.log';
# open LOG, ">>$logfile" or die "Couldn't append to $logfile: $!\n";
# carpout(\*LOG);
};
warn("Entered update_tables.cgi");
warn("update_tables.cgi before open connection");
#------------------------------------------------------------------------------------------------
my $htmlMemberDownloadHeader='Member Data Download Form';
my $htmlMemberDataFeedbackHeader='Member Data Update Feedback Form';
my $htmlTenantListingFormHeader='Tenant Listing Form';
my $htmlheader2 = '';
my $htmlheader3 = '';
my $dbh = manageusers::OpenConnection();
warn("update_tables.cgi after open connection");
# Dispatch to proper action based on user selection
my $count = 0;
my $query = new CGI;
my $cgiURL = CGI::url();
my $action = lc ($query->param('action'));
my $userid_1 = 0;
###############################################################
$userid_1 = $manageusers::LoggedOn_user_id; <---------------------------------
#$userid_1 = 110;