Return to loncreateuser.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.22, 2001/12/19 17:17:46 | version 1.23, 2002/01/06 01:29:52 |
---|---|
Line 63 my $authformint; | Line 63 my $authformint; |
my $authformfsys; | my $authformfsys; |
my $authformloc; | my $authformloc; |
sub BEGIN { | BEGIN { |
$ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; | $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; |
my $krbdefdom=$1; | my $krbdefdom=$1; |
$krbdefdom=~tr/a-z/A-Z/; | $krbdefdom=~tr/a-z/A-Z/; |