@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 Name | Port | Players | Log File | Actions | ||
|---|---|---|---|---|---|---|
| $zone->{launched_name}: Idle | "; } else { print "\t$zone->{launched_name}: $zone->{long_name} ($zone->{short_name}) | "; } } else { print "$zone->{long_name} ($zone->{short_name}) | "; } print "$zone->{port} | "; print "Players | "; print "View Log | "; print ""; print "Restart - "; print "Kill"; print " | \n"; print "