loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.466, 2004/01/29 00:53:03	version 1.467, 2004/01/30 14:42:00
Line 4491 sub current_machine_domains {	Line 4491 sub current_machine_domains {
my $hostname=$hostname{$perlvar{'lonHostID'}};	my $hostname=$hostname{$perlvar{'lonHostID'}};
my @domains;	my @domains;
while( my($id, $name) = each(%hostname)) {	while( my($id, $name) = each(%hostname)) {
&logthis("-$id-$name-$hostname-");	# &logthis("-$id-$name-$hostname-");
if ($hostname eq $name) {	if ($hostname eq $name) {
push(@domains,$hostdom{$id});	push(@domains,$hostdom{$id});
}	}
Line 4503 sub current_machine_ids {	Line 4503 sub current_machine_ids {
my $hostname=$hostname{$perlvar{'lonHostID'}};	my $hostname=$hostname{$perlvar{'lonHostID'}};
my @ids;	my @ids;
while( my($id, $name) = each(%hostname)) {	while( my($id, $name) = each(%hostname)) {
&logthis("-$id-$name-$hostname-");	# &logthis("-$id-$name-$hostname-");
if ($hostname eq $name) {	if ($hostname eq $name) {
push(@ids,$id);	push(@ids,$id);
}	}