GetLauncher($lname);
if(!$config) {
print "
Unable to find launcher $lname
";
}
?>
| Zone Name |
State |
Port |
Start Count |
Actions |
ListZones();
for my $zone (sort @zones) {
my $z = $config->GetZoneDetails($zone);
if(!$z) {
$zone->{name} = "ERROR: no launcher";
} elsif($z->{error}) {
$zone->{name} = "ERROR: $z->{error}";
}
print "\n";
print "\t| $z->{name} | ";
if($z->{up}) {
print "UP | ";
} else {
print "DOWN | ";
}
if($z->{port} == 0) {
print "Dynamic | ";
} else {
print "$z->{port} | ";
}
print "$z->{starts} | ";
print "";
if($config->IsConnected()) {
print "Restart - ";
if($z->{up}) {
print "Stop";
} else {
print "Start";
}
if($z->{name} !~ /dynamic/) {
print " - ";
}
}
if($z->{name} !~ /dynamic/) {
print "Remove";
}
print " | \n";
print "
\n";
}
?>