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;
|
