Changeset 12578 for lang/perl/tiarra

Timestamp:

05/28/08 01:13:30 (5 years ago)

Author:

hio

Message:

debug時に認証情報を標準出力に出すように.

Files:

• lang/perl/tiarra/trunk/module/System/WebClient.pm (modified) (3 diffs)

lang/perl/tiarra/trunk/module/System/WebClient.pm

@@ -577 +577 @@
   if( !_verify_value($param->[1], $user) )
   {
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] user $param->[1] does not match with '$user' (user)");
     return;
   }
   if( !_verify_value($param->[2], $pass) )
   {
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[2] does not match with '$pass' (pass)");
     return;
   }
@@ -613 +615 @@
     return 1;
   }
+  $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[1] does not match with '$uid' (uid), '$sn' (sn)");
   return;
 }
@@ -627 +630 @@
   if( !_verify_value($param->[1], $subno) )
   {
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[1] does not match with '$subno' (subno)");
     return;
   }