# Suite 330, Boston, MA 02111-1307 USA
use CGI;
-use C4::Database;
+use C4::Context;
my $query=new CGI;
print S "$_:$userid:$lasttime\n";
}
-my $dbh=C4Connect;
+my $dbh = C4::Context->dbh;
# Check that this is the ip that created the session before deleting it
# Should redirect to intranet home page after logging out
-print $query->redirect("mainpage.pl");
-
+print $query->redirect("userpage.pl");
exit;
-if ($sessionID) {
- print "Logged out of $sessionID<br>\n";
- print "<a href=shelves.pl>Login</a>";
-} else {
- print "Not logged in.<br>\n";
- print "<a href=shelves.pl>Login</a>";
-}
-