|
version 1.243, 2002/06/24 19:41:41
|
version 1.261, 2002/08/05 21:02:07
|
|
Line 80 use vars
|
Line 80 use vars
|
| qw(%perlvar %hostname %homecache %badServerCache %hostip %spareid %hostdom |
qw(%perlvar %hostname %homecache %badServerCache %hostip %spareid %hostdom |
| %libserv %pr %prp %metacache %packagetab |
%libserv %pr %prp %metacache %packagetab |
| %courselogs %accesshash $processmarker $dumpcount |
%courselogs %accesshash $processmarker $dumpcount |
| %coursedombuf %coursehombuf %courseresdatacache); |
%coursedombuf %coursehombuf %courseresdatacache %domaindescription); |
| use IO::Socket; |
use IO::Socket; |
| use GDBM_File; |
use GDBM_File; |
| use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
|
Line 708 sub ssi {
|
Line 708 sub ssi {
|
| return $response->content; |
return $response->content; |
| } |
} |
| |
|
| |
# ------- Add a token to a remote URI's query string to vouch for access rights |
| |
|
| |
sub tokenwrapper { |
| |
my $uri=shift; |
| |
$uri=~s/^http\:\/\/([^\/]+)//; |
| |
$uri=~s/^\///; |
| |
$ENV{'user.environment'}=~/\/([^\/]+)\.id/; |
| |
my $token=$1; |
| |
if ($uri=~/^uploaded\/([^\/]+)\/([^\/]+)\/([^\/]+)(\?\.*)*$/) { |
| |
&appenv('userfile.'.$1.'/'.$2.'/'.$3 => $ENV{'request.course.id'}); |
| |
return 'http://'.$hostname{ &homeserver($2,$1)}.'/'.$uri. |
| |
(($uri=~/\?/)?'&':'?').'token='.$token; |
| |
} else { |
| |
return '/adm/notfound.html'; |
| |
} |
| |
} |
| |
|
| |
# --------------- Take an uploaded file and put it into the userfiles directory |
| |
# input: name of form element, coursedoc=1 means this is for the course |
| |
# output: url of file in userspace |
| |
|
| |
sub userfileupload { |
| |
my ($formname,$coursedoc)=@_; |
| |
my $fname=$ENV{'form.'.$formname.'.filename'}; |
| |
$fname=~s/\\/\//g; |
| |
$fname=~s/^.*\/([^\/]+)$/$1/; |
| |
unless ($fname) { return 'error: no uploaded file'; } |
| |
chop($ENV{'form.'.$formname}); |
| |
# Create the directory if not present |
| |
my $docuname=''; |
| |
my $docudom=''; |
| |
my $docuhome=''; |
| |
if ($coursedoc) { |
| |
$docuname=$ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
| |
$docudom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; |
| |
$docuhome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'}; |
| |
} else { |
| |
$docuname=$ENV{'user.name'}; |
| |
$docudom=$ENV{'user.domain'}; |
| |
$docuhome=$ENV{'user.home'}; |
| |
} |
| |
my $path=$docudom.'/'.$docuname.'/'; |
| |
my $filepath=$perlvar{'lonDocRoot'}; |
| |
my @parts=split(/\//,$filepath.'/userfiles/'.$path); |
| |
my $count; |
| |
for ($count=4;$count<=$#parts;$count++) { |
| |
$filepath.="/$parts[$count]"; |
| |
if ((-e $filepath)!=1) { |
| |
mkdir($filepath,0777); |
| |
} |
| |
} |
| |
# Save the file |
| |
{ |
| |
my $fh=Apache::File->new('>'.$filepath.'/'.$fname); |
| |
print $fh $ENV{'form.'.$formname}; |
| |
} |
| |
# Notify homeserver to grep it |
| |
# |
| |
# FIXME - this still needs to happen |
| |
# |
| |
# Return the URL to it |
| |
return '/uploaded/'.$path.$fname; |
| |
} |
| |
|
| # ------------------------------------------------------------------------- Log |
# ------------------------------------------------------------------------- Log |
| |
|
| sub log { |
sub log { |
|
Line 1033 sub tmpreset {
|
Line 1097 sub tmpreset {
|
| my %hash; |
my %hash; |
| if (tie(%hash,'GDBM_File', |
if (tie(%hash,'GDBM_File', |
| $path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
$path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
| &GDBM_WRCREAT,0640)) { |
&GDBM_WRCREAT(),0640)) { |
| foreach my $key (keys %hash) { |
foreach my $key (keys %hash) { |
| if ($key=~ /:$symb/) { |
if ($key=~ /:$symb/) { |
| delete($hash{$key}); |
delete($hash{$key}); |
|
Line 1069 sub tmpstore {
|
Line 1133 sub tmpstore {
|
| my $path=$perlvar{'lonDaemons'}.'/tmp'; |
my $path=$perlvar{'lonDaemons'}.'/tmp'; |
| if (tie(%hash,'GDBM_File', |
if (tie(%hash,'GDBM_File', |
| $path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
$path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
| &GDBM_WRCREAT,0640)) { |
&GDBM_WRCREAT(),0640)) { |
| $hash{"version:$symb"}++; |
$hash{"version:$symb"}++; |
| my $version=$hash{"version:$symb"}; |
my $version=$hash{"version:$symb"}; |
| my $allkeys=''; |
my $allkeys=''; |
|
Line 1113 sub tmprestore {
|
Line 1177 sub tmprestore {
|
| my $path=$perlvar{'lonDaemons'}.'/tmp'; |
my $path=$perlvar{'lonDaemons'}.'/tmp'; |
| if (tie(%hash,'GDBM_File', |
if (tie(%hash,'GDBM_File', |
| $path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
$path.'/tmpstore_'.$stuname.'_'.$domain.'_'.$namespace.'.db', |
| &GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
| my $version=$hash{"version:$symb"}; |
my $version=$hash{"version:$symb"}; |
| $returnhash{'version'}=$version; |
$returnhash{'version'}=$version; |
| my $scope; |
my $scope; |
|
Line 1737 sub allowed {
|
Line 1801 sub allowed {
|
| } |
} |
| } |
} |
| |
|
| # Restricted by state? |
# Restricted by state or randomout? |
| |
|
| if ($thisallowed=~/X/) { |
if ($thisallowed=~/X/) { |
| |
if ($ENV{'acc.randomout'}) { |
| |
my $symb=&symbread($uri,1); |
| |
if (($symb) && ($ENV{'acc.randomout'}=~/\&$symb\&/)) { |
| |
return ''; |
| |
} |
| |
} |
| if (&condval($statecond)) { |
if (&condval($statecond)) { |
| return '2'; |
return '2'; |
| } else { |
} else { |
|
Line 1812 sub definerole {
|
Line 1882 sub definerole {
|
| # ---------------- Make a metadata query against the network of library servers |
# ---------------- Make a metadata query against the network of library servers |
| |
|
| sub metadata_query { |
sub metadata_query { |
| my ($query,$custom,$customshow)=@_; |
my ($query,$custom,$customshow,$server_array)=@_; |
| my %rhash; |
my %rhash; |
| for my $server (keys %libserv) { |
my @server_list = (defined($server_array) ? @$server_array |
| |
: keys(%libserv) ); |
| |
for my $server (@server_list) { |
| unless ($custom or $customshow) { |
unless ($custom or $customshow) { |
| my $reply=&reply("querysend:".&escape($query),$server); |
my $reply=&reply("querysend:".&escape($query),$server); |
| $rhash{$server}=$reply; |
$rhash{$server}=$reply; |
|
Line 2158 sub revokecustomrole {
|
Line 2230 sub revokecustomrole {
|
| # ------------------------------------------------------------ Directory lister |
# ------------------------------------------------------------ Directory lister |
| |
|
| sub dirlist { |
sub dirlist { |
| my $uri=shift; |
my ($uri,$userdomain,$username,$alternateDirectoryRoot)=@_; |
| |
|
| $uri=~s/^\///; |
$uri=~s/^\///; |
| $uri=~s/\/$//; |
$uri=~s/\/$//; |
| my ($res,$udom,$uname,@rest)=split(/\//,$uri); |
my ($udom, $uname); |
| if ($udom) { |
(undef,$udom,$uname)=split(/\//,$uri); |
| if ($uname) { |
if(defined($userdomain)) { |
| my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/'.$uri, |
$udom = $userdomain; |
| homeserver($uname,$udom)); |
} |
| return split(/:/,$listing); |
if(defined($username)) { |
| } else { |
$uname = $username; |
| my $tryserver; |
} |
| my %allusers=(); |
|
| foreach $tryserver (keys %libserv) { |
my $dirRoot = $perlvar{'lonDocRoot'}; |
| if ($hostdom{$tryserver} eq $udom) { |
if(defined($alternateDirectoryRoot)) { |
| my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/res/'.$udom, |
$dirRoot = $alternateDirectoryRoot; |
| $tryserver); |
$dirRoot =~ s/\/$//; |
| if (($listing ne 'no_such_dir') && ($listing ne 'empty') |
} |
| && ($listing ne 'con_lost')) { |
|
| foreach (split(/:/,$listing)) { |
if($udom) { |
| my ($entry,@stat)=split(/&/,$_); |
if($uname) { |
| $allusers{$entry}=1; |
my $listing=reply('ls:'.$dirRoot.'/'.$uri, |
| |
homeserver($uname,$udom)); |
| |
return split(/:/,$listing); |
| |
} elsif(!defined($alternateDirectoryRoot)) { |
| |
my $tryserver; |
| |
my %allusers=(); |
| |
foreach $tryserver (keys %libserv) { |
| |
if($hostdom{$tryserver} eq $udom) { |
| |
my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/res/'. |
| |
$udom, $tryserver); |
| |
if (($listing ne 'no_such_dir') && ($listing ne 'empty') |
| |
&& ($listing ne 'con_lost')) { |
| |
foreach (split(/:/,$listing)) { |
| |
my ($entry,@stat)=split(/&/,$_); |
| |
$allusers{$entry}=1; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| } |
my $alluserstr=''; |
| } |
foreach (sort keys %allusers) { |
| my $alluserstr=''; |
$alluserstr.=$_.'&user:'; |
| foreach (sort keys %allusers) { |
} |
| $alluserstr.=$_.'&user:'; |
$alluserstr=~s/:$//; |
| } |
return split(/:/,$alluserstr); |
| $alluserstr=~s/:$//; |
} else { |
| return split(/:/,$alluserstr); |
my @emptyResults = (); |
| } |
push(@emptyResults, 'missing user name'); |
| } else { |
return split(':',@emptyResults); |
| my $tryserver; |
} |
| my %alldom=(); |
} elsif(!defined($alternateDirectoryRoot)) { |
| foreach $tryserver (keys %libserv) { |
my $tryserver; |
| $alldom{$hostdom{$tryserver}}=1; |
my %alldom=(); |
| } |
foreach $tryserver (keys %libserv) { |
| my $alldomstr=''; |
$alldom{$hostdom{$tryserver}}=1; |
| foreach (sort keys %alldom) { |
} |
| $alldomstr.=$perlvar{'lonDocRoot'}.'/res/'.$_.'&domain:'; |
my $alldomstr=''; |
| } |
foreach (sort keys %alldom) { |
| $alldomstr=~s/:$//; |
$alldomstr.=$perlvar{'lonDocRoot'}.'/res/'.$_.'&domain:'; |
| return split(/:/,$alldomstr); |
} |
| } |
$alldomstr=~s/:$//; |
| |
return split(/:/,$alldomstr); |
| |
} else { |
| |
my @emptyResults = (); |
| |
push(@emptyResults, 'missing domain'); |
| |
return split(':',@emptyResults); |
| |
} |
| } |
} |
| |
|
| # -------------------------------------------------------- Value of a Condition |
# -------------------------------------------------------- Value of a Condition |
|
Line 2263 sub courseresdata {
|
Line 2358 sub courseresdata {
|
| my ($coursenum,$coursedomain,@which)=@_; |
my ($coursenum,$coursedomain,@which)=@_; |
| my $coursehom=&homeserver($coursenum,$coursedomain); |
my $coursehom=&homeserver($coursenum,$coursedomain); |
| my $hashid=$coursenum.':'.$coursedomain; |
my $hashid=$coursenum.':'.$coursedomain; |
| unless (defined($courseresdatacache{$hashid.'.time'})) { |
my $dodump=0; |
| unless (time-$courseresdatacache{$hashid.'.time'}<300) { |
if (!defined($courseresdatacache{$hashid.'.time'})) { |
| my $coursehom=&homeserver($coursenum,$coursedomain); |
$dodump=1; |
| if ($coursehom) { |
} else { |
| my $dumpreply=&reply('dump:'.$coursedomain.':'.$coursenum. |
if (time-$courseresdatacache{$hashid.'.time'}>300) { $dodump=1; } |
| ':resourcedata:.',$coursehom); |
|
| unless ($dumpreply=~/^error\:/) { |
|
| $courseresdatacache{$hashid.'.time'}=time; |
|
| $courseresdatacache{$hashid}=$dumpreply; |
|
| } |
|
| } |
|
| } |
|
| } |
} |
| my @pairs=split(/\&/,$courseresdatacache{$hashid}); |
if ($dodump) { |
| my %returnhash=(); |
my %dumpreply=&dump('resourcedata',$coursedomain,$coursenum); |
| foreach (@pairs) { |
my ($tmp) = keys(%dumpreply); |
| my ($key,$value)=split(/=/,$_); |
if ($tmp !~ /^(con_lost|error|no_such_host)/i) { |
| $returnhash{unescape($key)}=unescape($value); |
$courseresdatacache{$hashid.'.time'}=time; |
| } |
$courseresdatacache{$hashid}=\%dumpreply; |
| my $item; |
} |
| foreach $item (@which) { |
} |
| if ($returnhash{$item}) { return $returnhash{$item}; } |
foreach my $item (@which) { |
| } |
if ($courseresdatacache{$hashid}->{$item}) { |
| return ''; |
return $courseresdatacache{$hashid}->{$item}; |
| |
} |
| |
} |
| |
return ''; |
| } |
} |
| |
|
| # --------------------------------------------------------- Value of a Variable |
# --------------------------------------------------------- Value of a Variable |
|
Line 2391 sub EXT {
|
Line 2482 sub EXT {
|
| my $section; |
my $section; |
| if (($ENV{'user.name'} eq $uname) && |
if (($ENV{'user.name'} eq $uname) && |
| ($ENV{'user.domain'} eq $udom)) { |
($ENV{'user.domain'} eq $udom)) { |
| $section={'request.course.sec'}; |
$section=$ENV{'request.course.sec'}; |
| } else { |
} else { |
| $section=&usection($udom,$uname,$courseid); |
$section=&usection($udom,$uname,$courseid); |
| } |
} |
|
Line 2440 sub EXT {
|
Line 2531 sub EXT {
|
| my $thisparm=''; |
my $thisparm=''; |
| if (tie(%parmhash,'GDBM_File', |
if (tie(%parmhash,'GDBM_File', |
| $ENV{'request.course.fn'}.'_parms.db', |
$ENV{'request.course.fn'}.'_parms.db', |
| &GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
| $thisparm=$parmhash{$symbparm}; |
$thisparm=$parmhash{$symbparm}; |
| untie(%parmhash); |
untie(%parmhash); |
| } |
} |
|
Line 2612 sub metadata {
|
Line 2703 sub metadata {
|
| # the next is the end of "start tag" |
# the next is the end of "start tag" |
| } |
} |
| } |
} |
| |
&metadata_generate_part0(\%metathesekeys,\%metacache,$uri); |
| $metacache{$uri.':keys'}=join(',',keys %metathesekeys); |
$metacache{$uri.':keys'}=join(',',keys %metathesekeys); |
| $metacache{$uri.':cachedtimestamp'}=time; |
$metacache{$uri.':cachedtimestamp'}=time; |
| # this is the end of "was not already recently cached |
# this is the end of "was not already recently cached |
|
Line 2619 sub metadata {
|
Line 2711 sub metadata {
|
| return $metacache{$uri.':'.$what}; |
return $metacache{$uri.':'.$what}; |
| } |
} |
| |
|
| |
sub metadata_generate_part0 { |
| |
my ($metadata,$metacache,$uri) = @_; |
| |
my %allnames; |
| |
foreach my $metakey (sort keys %$metadata) { |
| |
if ($metakey=~/^parameter\_(.*)/) { |
| |
my $part=$$metacache{$uri.':'.$metakey.'.part'}; |
| |
my $name=$$metacache{$uri.':'.$metakey.'.name'}; |
| |
if (! exists($$metadata{'parameter_0_'.$name})) { |
| |
$allnames{$name}=$part; |
| |
} |
| |
} |
| |
} |
| |
foreach my $name (keys(%allnames)) { |
| |
$$metadata{"parameter_0_$name"}=1; |
| |
my $key="$uri:parameter_0_$name"; |
| |
$$metacache{"$key.part"}='0'; |
| |
$$metacache{"$key.name"}=$name; |
| |
$$metacache{"$key.type"}=$$metacache{$uri.':parameter_'. |
| |
$allnames{$name}.'_'.$name. |
| |
'.type'}; |
| |
my $olddis=$$metacache{$uri.':parameter_'.$allnames{$name}.'_'.$name. |
| |
'.display'}; |
| |
my $expr='\\[Part: '.$allnames{$name}.'\\]'; |
| |
$olddis=~s/$expr/\[Part: 0\]/; |
| |
$$metacache{"$key.display"}=$olddis; |
| |
} |
| |
} |
| |
|
| # ------------------------------------------------- Update symbolic store links |
# ------------------------------------------------- Update symbolic store links |
| |
|
| sub symblist { |
sub symblist { |
|
Line 2627 sub symblist {
|
Line 2747 sub symblist {
|
| my %hash; |
my %hash; |
| if (($ENV{'request.course.fn'}) && (%newhash)) { |
if (($ENV{'request.course.fn'}) && (%newhash)) { |
| if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
| &GDBM_WRCREAT,0640)) { |
&GDBM_WRCREAT(),0640)) { |
| foreach (keys %newhash) { |
foreach (keys %newhash) { |
| $hash{declutter($_)}=$mapname.'___'.$newhash{$_}; |
$hash{declutter($_)}=$mapname.'___'.$newhash{$_}; |
| } |
} |
|
Line 2655 sub symbverify {
|
Line 2775 sub symbverify {
|
| my %bighash; |
my %bighash; |
| my $okay=0; |
my $okay=0; |
| if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
| &GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
| my $ids=$bighash{'ids_/res/'.$thisfn}; |
my $ids=$bighash{'ids_/res/'.$thisfn}; |
| unless ($ids) { |
unless ($ids) { |
| $ids=$bighash{'ids_/'.$thisfn}; |
$ids=$bighash{'ids_/'.$thisfn}; |
|
Line 2693 sub symbclean {
|
Line 2813 sub symbclean {
|
| # ------------------------------------------------------ Return symb list entry |
# ------------------------------------------------------ Return symb list entry |
| |
|
| sub symbread { |
sub symbread { |
| my $thisfn=shift; |
my ($thisfn,$donotrecurse)=@_; |
| # no filename provided? try from environment |
# no filename provided? try from environment |
| unless ($thisfn) { |
unless ($thisfn) { |
| if ($ENV{'request.symb'}) { return &symbclean($ENV{'request.symb'}); } |
if ($ENV{'request.symb'}) { return &symbclean($ENV{'request.symb'}); } |
|
Line 2709 sub symbread {
|
Line 2829 sub symbread {
|
| my $syval=''; |
my $syval=''; |
| if (($ENV{'request.course.fn'}) && ($thisfn)) { |
if (($ENV{'request.course.fn'}) && ($thisfn)) { |
| if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
| &GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
| $syval=$hash{$thisfn}; |
$syval=$hash{$thisfn}; |
| untie(%hash); |
untie(%hash); |
| } |
} |
|
Line 2725 sub symbread {
|
Line 2845 sub symbread {
|
| } else { |
} else { |
| # ------------------------------------------------------- Was not in symb table |
# ------------------------------------------------------- Was not in symb table |
| if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
| &GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
| # ---------------------------------------------- Get ID(s) for current resource |
# ---------------------------------------------- Get ID(s) for current resource |
| my $ids=$bighash{'ids_/res/'.$thisfn}; |
my $ids=$bighash{'ids_/res/'.$thisfn}; |
| unless ($ids) { |
unless ($ids) { |
|
Line 2742 sub symbread {
|
Line 2862 sub symbread {
|
| # ----------------------------------------------- There is only one possibility |
# ----------------------------------------------- There is only one possibility |
| my ($mapid,$resid)=split(/\./,$ids); |
my ($mapid,$resid)=split(/\./,$ids); |
| $syval=declutter($bighash{'map_id_'.$mapid}).'___'.$resid; |
$syval=declutter($bighash{'map_id_'.$mapid}).'___'.$resid; |
| } else { |
} elsif (!$donotrecurse) { |
| # ------------------------------------------ There is more than one possibility |
# ------------------------------------------ There is more than one possibility |
| my $realpossible=0; |
my $realpossible=0; |
| foreach (@possibilities) { |
foreach (@possibilities) { |
|
Line 2757 sub symbread {
|
Line 2877 sub symbread {
|
| } |
} |
| } |
} |
| if ($realpossible!=1) { $syval=''; } |
if ($realpossible!=1) { $syval=''; } |
| |
} else { |
| |
$syval=''; |
| } |
} |
| } |
} |
| untie(%bighash) |
untie(%bighash) |
|
Line 2825 sub ireceipt {
|
Line 2947 sub ireceipt {
|
| } |
} |
| |
|
| sub receipt { |
sub receipt { |
| return &ireceipt($ENV{'user.name'},$ENV{'user.domain'}, |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
| $ENV{'request.course.id'},&symbread()); |
return &ireceipt($name,$domain,$courseid,$symb); |
| } |
} |
| |
|
| # ------------------------------------------------------------ Serves up a file |
# ------------------------------------------------------------ Serves up a file |
| # returns either the contents of the file or a -1 |
# returns either the contents of the file or a -1 |
| sub getfile { |
sub getfile { |
|
Line 2941 BEGIN {
|
Line 3063 BEGIN {
|
| |
|
| while (my $configline=<$config>) { |
while (my $configline=<$config>) { |
| chomp($configline); |
chomp($configline); |
| my ($id,$domain,$role,$name,$ip)=split(/:/,$configline); |
my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline); |
| $hostname{$id}=$name; |
if ($id && $domain && $role && $name && $ip) { |
| $hostdom{$id}=$domain; |
$hostname{$id}=$name; |
| $hostip{$id}=$ip; |
$hostdom{$id}=$domain; |
| if ($role eq 'library') { $libserv{$id}=$name; } |
$hostip{$id}=$ip; |
| |
if ($domdescr) { $domaindescription{$domain}=$domdescr; } |
| |
if ($role eq 'library') { $libserv{$id}=$name; } |
| |
} else { |
| |
if ($configline) { |
| |
&logthis("Skipping hosts.tab line -$configline-"); |
| |
} |
| |
} |
| } |
} |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl