Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv27995/lib/SandWeb
Modified Files:
Auth.pm Log.pm
Log Message:
* Added some debug messages in Auth, and modified logging format a bit
to always put \n's
Index: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -U2 -r1.14 -r1.15
--- Auth.pm 2002/01/28 01:09:26 1.14
+++ Auth.pm 2002/01/31 23:32:33 1.15
@@ -42,5 +42,5 @@
$self->_set_user_info_username($username);
$self->_set_user_info_password($password);
- $log->standard("$username logged on.\n");
+ $log->standard("$username logged on.");
return 1;
}
@@ -93,5 +93,5 @@
my $log = $self->_logobj();
unless ($self->get_userinfo('username')) {
- $log->error("set_cookie called when user_info not set (no login)\n");
+ $log->error("set_cookie called when user_info not set (no login)");
return 0;
}
@@ -116,5 +116,6 @@
unless ($self->_write_cookiedata($cookie_value)) {
- $log->error("Unable to write cookiedata\n");
+ $log->error("Unable to write cookiedata");
+ $log->debug("Unable to write cookiedata");
return 0;
}
Index: Log.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Log.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- Log.pm 2001/12/20 20:29:41 1.6
+++ Log.pm 2002/01/31 23:32:33 1.7
@@ -23,5 +23,5 @@
my ($self, $msg) = @_;
if ($self->_get_log_toggle()) {
- $self->_write_to_log("LOG: $msg");
+ $self->_write_to_log("LOG: $msg\n");
}
return 1;
@@ -46,5 +46,5 @@
my ($self, $msg) = @_;
if ($self->_get_log_toggle()) {
- $self->_write_to_log("ERROR: $msg");
+ $self->_write_to_log("ERROR: $msg\n");
}
return 1;
|
