version 1.9, 2003/04/09 00:52:37
|
version 1.10, 2003/04/12 02:45:31
|
Line 79 sub read_hosts {
|
Line 79 sub read_hosts {
|
|
|
open(CONFIG,'<'.$Filename) or die("Can't read $Filename"); |
open(CONFIG,'<'.$Filename) or die("Can't read $Filename"); |
while (my $line = <CONFIG>) { |
while (my $line = <CONFIG>) { |
my @items = split(/:/, $line); |
if (!($line =~ /^\s*\#/)) { |
if (scalar @items == $RequiredCount) { # Have only all required items: |
my @items = split(/:/, $line); |
$items[$RequiredCount] = $DefaultMaxCon; |
if(scalar @items >= $RequiredCount) { |
} |
if (scalar @items == $RequiredCount) { # Only required items: |
if(scalar @items == $RequiredCount + 1) { # Have up through maxcon. |
$items[$RequiredCount] = $DefaultMaxCon; |
$items[$RequiredCount+1] = $DefaultIdle; |
} |
} |
if(scalar @items == $RequiredCount + 1) { # up through maxcon. |
if(scalar @items == $RequiredCount + 2) { # Have up through idle. |
$items[$RequiredCount+1] = $DefaultIdle; |
$items[$RequiredCount+2] = $DefaultMinCon; |
} |
} |
if(scalar @items == $RequiredCount + 2) { # up through idle. |
{ |
$items[$RequiredCount+2] = $DefaultMinCon; |
my @list = @items; # probably not needed but I'm unsure of |
} |
# about the scope of item so... |
{ |
$HostsTab{@list[0]} = \@list; |
my @list = @items; # probably not needed but I'm unsure of |
|
# about the scope of item so... |
|
$HostsTab{@list[0]} = \@list; |
|
} |
|
} |
} |
} |
} |
} |
close(CONFIG); |
close(CONFIG); |