add debugging to agent.cgi, make sure warnings are turned off when parsing templates...

diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index 9b07ee1..2d948e7 100644 (file)
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -3,7 +3,7 @@
 #some false laziness w/selfservice.cgi
 
 use strict;
 #some false laziness w/selfservice.cgi
 
 use strict;

-use vars qw($cgi $session_id $form_max $template_dir);
+use vars qw($DEBUG $me $cgi $session_id $form_max $template_dir);

 use subs qw(do_template);
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 use subs qw(do_template);
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);


@@ -15,19 +15,28 @@ use FS::SelfService qw( agent_login agent_info
                         customer_info order_pkg
                       );
 
                         customer_info order_pkg
                       );
 

+$DEBUG = 0;
+$me = 'agent.cgi:';
+

 $template_dir = '.';
 
 $form_max = 255;
 
 $template_dir = '.';
 
 $form_max = 255;
 

+warn "$me starting\n" if $DEBUG;
+
+warn "$me initializing CGI\n" if $DEBUG;

 $cgi = new CGI;
 
 unless ( defined $cgi->param('session') ) {
 $cgi = new CGI;
 
 unless ( defined $cgi->param('session') ) {

+  warn "$me no session defined, sending login page\n" if $DEBUG;

   do_template('agent_login',{});
   exit;
 }
 
 if ( $cgi->param('session') eq 'login' ) {
 
   do_template('agent_login',{});
   exit;
 }
 
 if ( $cgi->param('session') eq 'login' ) {
 

+  warn "$me processing login\n" if $DEBUG;
+

   $cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i
     or die "illegal username";
   my $username = $1;
   $cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i
     or die "illegal username";
   my $username = $1;


@@ -54,12 +63,13 @@ if ( $cgi->param('session') eq 'login' ) {
 
 $session_id = $cgi->param('session');
 
 
 $session_id = $cgi->param('session');
 

+warn "$me checking action\n" if $DEBUG;

 $cgi->param('action') =~
    /^(agent_main|signup|process_signup|list_customers|view_customer|process_order_pkg)$/
   or die "unknown action ". $cgi->param('action');
 my $action = $1;
 
 $cgi->param('action') =~
    /^(agent_main|signup|process_signup|list_customers|view_customer|process_order_pkg)$/
   or die "unknown action ". $cgi->param('action');
 my $action = $1;
 

-warn "running $action\n";
+warn "$me running $action\n" if $DEBUG;

 my $result = eval "&$action();";
 die $@ if $@;
 
 my $result = eval "&$action();";
 die $@ if $@;
 


@@ -68,11 +78,12 @@ if ( $result->{error} eq "Can't resume session" ) { #ick
   exit;
 }
 
   exit;
 }
 

-warn "processing template $action\n";
+warn "$me processing template $action\n" if $DEBUG;

 do_template($action, {
   'session_id' => $session_id,
   %{$result}
 });
 do_template($action, {
   'session_id' => $session_id,
   %{$result}
 });

+warn "$me done processing template $action\n" if $DEBUG;

 
 #-- 
 
 
 #-- 
 


@@ -254,6 +265,7 @@ sub do_template {
                                      UNTAINT => 1,                    )
     or die $Text::Template::ERROR;
 
                                      UNTAINT => 1,                    )
     or die $Text::Template::ERROR;
 

+  local $^W = 0;

   print $cgi->header( '-expires' => 'now' ),
         $template->fill_in( PACKAGE => 'FS::SelfService::_agentcgi',
                             HASH    => $fill_in
   print $cgi->header( '-expires' => 'now' ),
         $template->fill_in( PACKAGE => 'FS::SelfService::_agentcgi',
                             HASH    => $fill_in