@zones = $EQW->ListBootedZones();
# @zones = (
# { type => "dynamic", short_name => "arena", long_name => "Arena", port => 8001 },
# { type => "static", short_name => "freportw", long_name => "West Freeport", port => 8002 },
# { type => "static", short_name => "freportn", long_name => "North Freeport", port => 8003 }
# );
?>
Zone List
print "You have
".($#zones+1)." zones running.";
?>
| Zone Name |
Port |
Instance Id |
Players |
Actions |
for my $zonekey (sort @zones) {
my $zone = $EQW->GetZoneDetails($zonekey);
if(!$zone) {
$zone->{long_name} = "ERROR: no zone";
} elsif($zone->{error}) {
$zone->{long_name} = "ERROR: $zone->{error}";
}
print "\n";
if($zone->{type} eq "dynamic") {
if($zone->{zone_id} == 0) {
print "\t| $zone->{launch_name}: Idle | ";
} else {
print "\t$zone->{launch_name}: $zone->{long_name} ($zone->{short_name}) | ";
}
} else {
print "$zone->{long_name} ($zone->{short_name}) | ";
}
print "$zone->{port} | ";
print "$zone->{instance_id} | ";
print "Players | ";
print "";
print "Kill";
print " | \n";
print "
\n";
}
?>