#!/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 "
From Door to DoorDoor Restoration and Refinishing Specialists
19 Oak Grove Way, Slidell, LA 70458		Phone 985.643.8355
Cell 985.710.0700
\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 = "
\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";