|
version 1.12, 2005/08/25 19:43:40
|
version 1.13, 2006/06/02 21:36:21
|
|
Line 30 $|=1;
|
Line 30 $|=1;
|
| use strict; |
use strict; |
| use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
| use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
| |
use LONCAPA; |
| use HTTP::Headers; |
use HTTP::Headers; |
| use IO::File; |
use IO::File; |
| |
|
|
Line 101 sub main {
|
Line 101 sub main {
|
| while (my $line=<$fh>) { |
while (my $line=<$fh>) { |
| chomp($line); |
chomp($line); |
| my ($name,$value)=split(/\=/,$line); |
my ($name,$value)=split(/\=/,$line); |
| |
$name = &unescape($name); |
| |
$value = &unescape($value); |
| $userinfo{$name}=$value; |
$userinfo{$name}=$value; |
| } |
} |
| $fh->close(); |
$fh->close(); |
![[BACK]](/icons/back.gif){kind=icon}
Return to userstatus.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi