[Sandweb-commit] CVS: sandweb/lib/SandWeb Auth.pm,1.14,1.15 Log.pm,1.6,1.7

[Nick J. <nje...@us...>]

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;