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

".($#zones+1)." zones running."; ?>

Zone Name | Port | Instance Id | Players | Actions
--- | --- | --- | --- | ---
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"; } ?>