loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.888, 2007/06/13 01:43:54	version 1.889, 2007/06/13 02:21:54
Line 7601 sub machine_ids {	Line 7601 sub machine_ids {
$hostname \|\|= &hostname($perlvar{'lonHostID'});	$hostname \|\|= &hostname($perlvar{'lonHostID'});
my @ids;	my @ids;
my %name_to_host = &all_names();	my %name_to_host = &all_names();
return @{ $name_to_host{$hostname} };	if (ref($name_to_host{$hostname}) eq 'ARRAY') {
	return @{ $name_to_host{$hostname} };
	}
	return;
}	}

sub additional_machine_domains {	sub additional_machine_domains {
Line 7714 sub correct_line_ends {	Line 7717 sub correct_line_ends {

sub goodbye {	sub goodbye {
&logthis("Starting Shut down");	&logthis("Starting Shut down");
&logthis("test");
#not converted to using infrastruture and probably shouldn't be	#not converted to using infrastruture and probably shouldn't be
&logthis(sprintf("%-20s is %s",'%badServerCache',length(&nfreeze(\%badServerCache))));	&logthis(sprintf("%-20s is %s",'%badServerCache',length(&nfreeze(\%badServerCache))));
#converted	#converted