Avoid referencing nonexistent AgencyId vars
authorJeff Godin <jgodin@tadl.org>
Tue, 30 Jul 2013 17:00:08 +0000 (13:00 -0400)
committerJeff Godin <jgodin@tadl.org>
Tue, 30 Jul 2013 17:00:08 +0000 (13:00 -0400)
In fail() and do_user_lookup_error_stanza(), we were attempting to
call staff_log() with values for FromAgencyId and ToAgencyId using
variables which did not exist.

Also, in fail() we were attempting to use those same variables in
the creation of an XML NCIP response.

The above issues would result in "Use of uninitialized value"
warnings, as well preventing use of "use strict".

This commit removes the references to the nonexistent variables,
resulting in the same log and xml output.

A future commit may provide a means for these functions to log the
FromAgencyId and ToAgencyId.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
iNCIPit.cgi

index 21fc865..b54980d 100644 (file)
@@ -903,13 +903,15 @@ sub fail {
 
 ITEMREQ
 
-    staff_log( $taidValue, $faidValue,
+    # XXX: we should log FromAgencyId and ToAgencyId values here, but they are not available to the code at this point
+    staff_log( '', '',
         ( ( caller(0) )[3] . " -> " . $error_msg ) );
     die;
 }
 
 sub do_lookup_user_error_stanza {
 
+    # XXX: we should include FromAgencyId and ToAgencyId values, but they are not available to the code at this point
     my $error = shift;
     my $hd    = <<LOOKUPPROB;
 Content-type: text/xml
@@ -921,14 +923,14 @@ Content-type: text/xml
         <ResponseHeader>
             <FromAgencyId>
                 <UniqueAgencyId>
-                    <Scheme>$taidScheme</Scheme>
-                    <Value>$taidValue</Value>
+                    <Scheme></Scheme>
+                    <Value></Value>
                 </UniqueAgencyId>
             </FromAgencyId>
             <ToAgencyId>
                 <UniqueAgencyId>
-                    <Scheme>$faidScheme</Scheme>
-                    <Value>$faidValue</Value>
+                    <Scheme></Scheme>
+                    <Value></Value>
                 </UniqueAgencyId>
             </ToAgencyId>
         </ResponseHeader>
@@ -949,7 +951,8 @@ Content-type: text/xml
 LOOKUPPROB
 
     logit( $hd, ( caller(0) )[3] );
-    staff_log( $taidValue, $faidValue, ( ( caller(0) )[3] . " -> " . $error ) );
+    # XXX: we should log FromAgencyId and ToAgencyId values here, but they are not available to the code at this point
+    staff_log( '', '', ( ( caller(0) )[3] . " -> " . $error ) );
     die;
 }