[Sandweb-commit] CVS: sandweb/lib/SandWeb Auth.pm,1.13,1.14

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv30022/lib/SandWeb

Modified Files:
	Auth.pm 
Log Message:
* changed generic 'sandweb' cookie, to 'sandweb_auth' and throught the
CGI it is reffered to (and passed to functions as) ck_auth. ($ck_auth).

This will seperate out ck_* to be able to use cookies for different
things, like:
  ck_curr_menu (sandweb_curr_menu)
  ck_prev_menu (sandweb_prev_menu)


Index: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -U2 -r1.13 -r1.14
--- Auth.pm	2001/10/06 08:17:12	1.13
+++ Auth.pm	2002/01/28 01:09:26	1.14
@@ -40,8 +40,8 @@
 
     if ($verified) {
-        $self->_set_user_info_username($username);
-	$self->_set_user_info_password($password);
-	$log->standard("$username logged on.\n");
-	return 1;
+		$self->_set_user_info_username($username);
+		$self->_set_user_info_password($password);
+		$log->standard("$username logged on.\n");
+		return 1;
     }
 
@@ -89,9 +89,9 @@
 }
 
-sub set_cookie {
+sub set_auth_cookie {
     my $self = shift;
     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)\n");
         return 0;
     }
@@ -105,5 +105,5 @@
     
     return ( 
-        -name    => "sandweb",
+        -name    => "sandweb_auth",
         -value   => $random,
     );
@@ -125,5 +125,5 @@
 
 sub _search_cookiedata {
-    # returns username that matches cookie value
+    # returns username that matches auth cookie value
     my $self = shift;
     my $cookie_value = shift;