[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm

[albertel]

albertel		Tue Jun 27 10:09:46 2006 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  - migration wants to add in some env vars
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.79 loncom/auth/lonauth.pm:1.80
--- loncom/auth/lonauth.pm:1.79	Fri Jun  2 17:23:49 2006
+++ loncom/auth/lonauth.pm	Tue Jun 27 10:09:46 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.79 2006/06/02 21:23:49 albertel Exp $
+# $Id: lonauth.pm,v 1.80 2006/06/27 14:09:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,7 +46,7 @@
 # ------------------------------------------------------------ Successful login
 
 sub success {
-    my ($r, $username, $domain, $authhost,$lowerurl) = @_;
+    my ($r, $username, $domain, $authhost, $lowerurl, $extra_env) = @_;
     my $lonids=$r->dir_config('lonIDsDir');
 
     my $public=($username eq 'public' && $domain eq 'public');
@@ -187,6 +187,9 @@
 	while (my ($key,$value) = each(%{$userroles})) {
 	    print $idf (&escape($key).'='.&escape($value)."\n");
 	}
+	while (my ($key,$value) = each(%{$extra_env})) {
+	    print $idf (&escape($key).'='.&escape($value)."\n");
+	}
 	close($idf);
     }
     $env{'request.role'}='cm';