Remove trailing whitespace

This commit is contained in:
j883376
2013-05-06 13:07:41 -04:00
parent 7a93966158
commit ffcff4aea1
548 changed files with 16397 additions and 16398 deletions
@@ -4,14 +4,14 @@
my $bug_count = @bugs;
my $total_bug_count = $EQW->CountBugs();
print "{";
print "\"total_bug_count\" : $total_bug_count,";
print "\"total_bug_count\" : $total_bug_count,";
print "\"bug_count\" : $bug_count,";
print "\"bugs\" : ";
print "[";
my $i = 0;
for my $bugkey (@bugs) {
my $bug = $EQW->GetBugDetails($bugkey);
my $bug_val = $bug->{bug};
$bug_val =~ s/\\/\\\\/g;
$bug_val =~ s/\//\\\//g;
@@ -32,7 +32,7 @@
print "\"x\" : \"$bug->{x}\",";
print "\"y\" : \"$bug->{y}\",";
print "\"z\" : \"$bug->{z}\"";
print "}";
if($i != $bug_count - 1) {
print ",";
@@ -4,7 +4,7 @@
print "\"message_count\" : $message_count,";
print "\"messages\" : ";
print "[";
for(my $i = 0; $i < $message_count; $i++)
for(my $i = 0; $i < $message_count; $i++)
{
print "{";
my $msg = $EQW->GetConsoleMessage($i);
@@ -19,7 +19,7 @@
$message =~ s/\x0C/\\b/g;
$message =~ s/[\x00-\x1F]/\./g;
$message =~ s/[\x7F-\xFF]/\./g;
print "\"message\" : \"$message\"";
print "}";
if($i != $message_count - 1) {
@@ -2,7 +2,7 @@
$launcher_name = $request->get("launcher", "none");
if($launcher_name eq "none") {
@launchers = sort $EQW->ListLaunchers();
@launchers = sort $EQW->ListLaunchers();
my $launcher_count = @launchers;
print "{";
print "\"launcher_count\" : $launcher_count,";
@@ -22,14 +22,14 @@
}
print "\"connected\" : ". $conn;
print "}";
if($i != $launcher_count - 1) {
print ",";
}
$i++;
}
print "]";
print "]";
print "}";
} else {
my $l = $EQW->GetLauncher($lname);
@@ -56,13 +56,13 @@
print "\"starts\" : $z->{starts},";
print "\"port\" : $z->{port}";
print "}";
if($i != $zone_count - 1) {
print ", ";
}
$i++;
}
print "]";
print "}";
}
@@ -7,11 +7,11 @@
print "\"player_count\" : $player_count,";
print "\"players\" : ";
print "[";
my $i = 0;
for my $player (@players) {
my $pd = $EQW->GetPlayerDetails($player);
print "{";
print "\"character\" : \"$pd->{character}\",";
print "\"account\" : \"$pd->{account}\",";
@@ -29,13 +29,13 @@
print "\"status\" : \"$pd->{status}\",";
print "\"client_version\" : \"$pd->{client_version}\"";
print "}";
if($i != $player_count - 1) {
print ",";
}
$i++;
}
print "]";
print "}";
@@ -1,4 +1,4 @@
<?
<?
print "{";
if($EQW->LSConnected()) {
print "\"connected\" : \"1\",";
@@ -19,9 +19,9 @@ for(my $i = 0; $i < $zone_count; $i++) {
print "\"long_name\" : \"$zone->{long_name}\",";
print "\"port\" : $zone->{port},";
print "\"player_count\" : $zone->{player_count},";
print "\"instance_id\" : $zone->{instance_id}";
print "\"instance_id\" : $zone->{instance_id}";
print "}";
if($i != $zone_count - 1) {
print ",";
}