loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.459.2.1, 2004/01/15 19:43:07
+version 1.459.2.2.2.1, 2004/01/27 22:59:39
  Line 4429  sub filelocation {
      $location=$file;
    } else {
      $file=~s/^$perlvar{'lonDocRoot'}//;
-     $file=~s:^/*res::;
+     $file=~s:^/res/:/:;
      if ( !( $file =~ m:^/:) ) {
        $location = $dir. '/'.$file;
      } else {
  Line 4453  sub hreflocation {
      }
  }
+ sub current_machine_domains {
+     my $hostname=$hostname{$perlvar{'lonHostID'}};
+     my @domains;
+     while( my($id, $name) = each(%hostname)) {
+ 	&logthis("-$id-$name-$hostname-");
+ 	if ($hostname eq $name) {
+ 	    push(@domains,$hostdom{$id});
+ 	}
+     }
+     return @domains;
+ }
+ sub current_machine_ids {
+     my $hostname=$hostname{$perlvar{'lonHostID'}};
+     my @ids;
+     while( my($id, $name) = each(%hostname)) {
+ 	&logthis("-$id-$name-$hostname-");
+ 	if ($hostname eq $name) {
+ 	    push(@ids,$id);
+ 	}
+     }
+     return @ids;
+ }
  # ------------------------------------------------------------- Declutters URLs
  sub declutter {