[Koha-cvs] CVS: koha logout.pl,1.1,1.2 shelves.pl,1.6,1.7

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv32237a

Modified Files:
        logout.pl shelves.pl 
Log Message:
Minor changes to authentication routines.


Index: logout.pl
===================================================================
RCS file: /cvsroot/koha/koha/logout.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** logout.pl   4 Jul 2002 21:09:43 -0000       1.1
--- logout.pl   5 Jul 2002 05:03:36 -0000       1.2
***************
*** 42,46 ****
  $sth->execute($sessionID);
  open L, ">>/tmp/sessionlog";
! print L "$userid from $ip logged out at ".localtime(time())." (manual log 
out).\n";
  close L;
  
--- 42,47 ----
  $sth->execute($sessionID);
  open L, ">>/tmp/sessionlog";
! my $time=localtime(time());
! printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid, 
$ip, $time;
  close L;
  
***************
*** 49,53 ****
                          -expires => '+1y');
  
! print $query->redirect("shelves.pl");
  
  exit;
--- 50,56 ----
                          -expires => '+1y');
  
! # Should redirect to intranet home page after logging out
! 
! print $query->redirect("mainpage.pl");
  
  exit;

Index: shelves.pl
===================================================================
RCS file: /cvsroot/koha/koha/shelves.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** shelves.pl  4 Jul 2002 21:09:43 -0000       1.6
--- shelves.pl  5 Jul 2002 05:03:37 -0000       1.7
***************
*** 27,31 ****
  
  
! print "Logged in as: $loggedinuser<br><a href=logout.pl>Log Out</a><br>\n";
  
  
--- 27,31 ----
  
  
! print "<p align=left>Logged in as: $loggedinuser [<a 
href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
  
  
***************
*** 170,176 ****
  #
  # $Log$
! # Revision 1.6  2002/07/04 21:09:43  tonnesen
! # Additions to authentication scheme.  Logs to /tmp/sessionlog.  Will move 
this
! # to a db table.
  #
  # Revision 1.5  2002/07/04 19:42:48  tonnesen
--- 170,175 ----
  #
  # $Log$
! # Revision 1.7  2002/07/05 05:03:37  tonnesen
! # Minor changes to authentication routines.
  #
  # Revision 1.5  2002/07/04 19:42:48  tonnesen