loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.55, 2005/01/20 16:27:40	version 1.56, 2005/02/09 20:41:29
Line 633 sub main () {	Line 633 sub main () {
my (%hostname,%hostdom,%hostrole,%spareid);	my (%hostname,%hostdom,%hostrole,%spareid);
while (my $configline=<$config>) {	while (my $configline=<$config>) {
next if ($configline =~ /^(\#\|\s*\$)/);	next if ($configline =~ /^(\#\|\s*\$)/);
my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);	my ($id,$domain,$role,$name)=split(/:/,$configline);
if ($id && $domain && $role && $name && $ip) {	if ($id && $domain && $role && $name) {
	$name=~s/\s//g;
$hostname{$id}=$name;	$hostname{$id}=$name;
$hostdom{$id}=$domain;	$hostdom{$id}=$domain;
$hostrole{$id}=$role;	$hostrole{$id}=$role;