--- loncom/auth/lonauth.pm	2001/08/16 02:03:15	1.23
+++ loncom/auth/lonauth.pm	2001/10/05 05:21:56	1.25
@@ -8,6 +8,7 @@
 # 07/24 Scott Harrison
 # 07/28,08/03 Gerd Kortemeyer
 # 8/15 Scott Harrison
+# 8/20 Gerd Kortemeyer
 
 package Apache::lonauth;
 
@@ -258,7 +259,7 @@ sub handler {
 
     my $keybin=pack("H16",$key);
 
-    my $cipher=new DES $keybin;
+    my $cipher=new Crypt::DES $keybin;
 
     my $upass=$cipher->decrypt(
        unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));
@@ -281,7 +282,7 @@ sub handler {
     }
 
     if (($firsturl eq '') || ($firsturl eq '/adm/logout')) {
-	$firsturl='/res/adm/pages/index.html';
+	$firsturl='/adm/roles';
     }
 
     success($r,$FORM{'uname'},$FORM{'udom'},$authhost,$firsturl);