pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-16 18:52:22 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

svn -> git Migration

Browse Source
This commit is contained in:
KimLS
2013-02-16 16:14:39 -08:00
parent 88c9715fb0
commit da7347f76f
1174 changed files with 445622 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
utils/defaults/updated_templates/data/zone_data.html
+33
View File
@@ -0,0 +1,33 @@
<?
@zones = $EQW->ListBootedZones();
@zones = sort @zones;
$zone_count = @zones;
print "{";
print "\"zone_count\" : $zone_count,";
print "\"zones\" : ";
print "[";
for(my $i = 0; $i < $zone_count; $i++) {
my $zone = $EQW->GetZoneDetails($zones[$i]);
print "{";
print "\"type\" : \"$zone->{type}\",";
print "\"zone_id\" : $zone->{zone_id},";
print "\"launch_name\" : \"$zone->{launch_name}\",";
print "\"short_name\" : \"$zone->{short_name}\",";
print "\"long_name\" : \"$zone->{long_name}\",";
print "\"port\" : $zone->{port},";
print "\"player_count\" : $zone->{player_count},";
print "\"instance_id\" : $zone->{instance_id}";
print "}";
if($i != $zone_count - 1) {
print ",";
}
}
print "]";
print "}";
?>