#!/usr/bin/perl
# edits
# 03-06-2009 dcc; created.
# disable print buffering.
$| = 1;
#`echo "entering vhosts/from-door-to-door.com/secure-cgi-bin/admin.pl" >> /tmp/admin.debug`;
require ("/var/www/vhosts/from-door-to-door.com/secure-cgi-bin/includes/define_initial_parameters.pl");
$network_type = $ENV{'HTTP_X_NETWORK_TYPE'};
if ($ENV{'REQUEST_URI'}) {
$command_line_args = (split (/\?/, $ENV{'REQUEST_URI'}))[1];
foreach $command_line_arg (split (/\+/, $command_line_args)) {
($command_line_arg_type, $command_line_arg_data) = split (/\:/, $command_line_arg);
$$command_line_arg_type = $command_line_arg_data;
}
} else {
$command_line_args = $#ARGV + 1;
foreach $command_line_arg (0 .. $#ARGV) {
($command_line_arg_type, $command_line_arg_data) = split (/\:/, $ARGV[$command_line_arg]);
$$command_line_arg_type = $command_line_arg_data;
}
}
if (! $save_as_spreadsheet) {
$save_as_spreadsheet = "no";
}
if (! $module) {
$module = "main_menu";
}
print "Content-type: text/html\n\n";
print "\n";
if ($module eq "main_menu") {
print "
From Door to Door Main Menu \n";
} else {
print "From Door to Door $module_titles{$module} \n";
}
print "\n";
print " \n";
print "\n";
print "\n";
if (! $ih) {
$ih = "yes";
}
if ($ih eq "yes") {
print "\n";
chop ($date = `date '+%A %B %e, %Y'`);
print " Welcome ${user_full_name} $date
\n";
}
#`echo "module: $module" >> /tmp/admin.debug`;
#`echo "user_id: $user_id" >> /tmp/admin.debug`;
if ($module eq "main_menu") {
#print "\n";
`echo "parent_dir: $parent_dir" >> /tmp/admin.debug`;
if ($user_id eq "hradmin") {
if ($utility_option) {
$default_utility_option_clause = "
$utility_options{$utility_option}";
} else {
$default_utility_option_clause = " Choose Utility";
}
print "\n";
} else {
print "\n";
}
print " \n";
} elsif ($module eq "customer_inquiries") {
require ("$parent_dir/secure-cgi-bin/modules/customer_inquiries.pl");
} elsif ($module eq "update_customer_inquiries") {
require ("$parent_dir/secure-cgi-bin/modules/update_customer_inquiries.pl");
} elsif ($module eq "update_customers_form") {
require ("$parent_dir/secure-cgi-bin/modules/update_customers_form.pl");
} elsif ($module eq "update_customers") {
require ("$parent_dir/secure-cgi-bin/modules/update_customers.pl");
} elsif ($module eq "update_customer_events_form") {
require ("$parent_dir/secure-cgi-bin/modules/update_customer_events_form.pl");
} elsif ($module eq "update_customer_events") {
require ("$parent_dir/secure-cgi-bin/modules/update_customer_events.pl");
} elsif ($module eq "manage_invoice") {
require ("$parent_dir/secure-cgi-bin/modules/manage_invoice.pl");
} elsif ($module eq "create_new_invoice") {
require ("$parent_dir/secure-cgi-bin/modules/create_new_invoice.pl");
} elsif ($module eq "update_invoice") {
require ("$parent_dir/secure-cgi-bin/modules/update_invoice.pl");
} elsif ($module eq "utilities") {
require ("$parent_dir/secure-cgi-bin/modules/utilities.pl");
}
print "\n";