Return servers in JSON instead of custom format

abeverley · abeverley · commit e14ebfcda594 · 2025-01-03T21:06:53.000Z
diff --git a/lib/Brass/API.pm b/lib/Brass/API.pm
@@ -261,18 +261,18 @@ get 'api/server/' => sub {
 
         my @types = $rs->all;
 
+        my %return;
         foreach my $type (@types)
         {
             next unless $type->server_servertypes->count;
             $output .= $type->name.":";
-            my @servers;
+            $return{$type->name} ||= [];
             foreach my $server ($type->server_servertypes)
             {
-                push @servers, $server->server->name;
+                push @{$return{$type->name}}, $server->server->name;
             }
-            $output .= join ',', @servers;
-            $output .= "\n";
         }
+        $output = encode_json(\%return);
     }
     elsif ($action eq 'domain')
     {

Original file line number	Diff line number	Diff line change
`@@ -261,18 +261,18 @@ get 'api/server/' => sub {`
`261`	`261`
`262`	`262`	`my @types = $rs->all;`
`263`	`263`
	`264`	`+ my %return;`
`264`	`265`	`foreach my $type (@types)`
`265`	`266`	`{`
`266`	`267`	`next unless $type->server_servertypes->count;`
`267`	`268`	`$output .= $type->name.":";`
`268`		`- my @servers;`
	`269`	`+ $return{$type->name} \|\|= [];`
`269`	`270`	`foreach my $server ($type->server_servertypes)`
`270`	`271`	`{`
`271`		`- push @servers, $server->server->name;`
	`272`	`+ push @{$return{$type->name}}, $server->server->name;`
`272`	`273`	`}`
`273`		`- $output .= join ',', @servers;`
`274`		`- $output .= "\n";`
`275`	`274`	`}`
	`275`	`+ $output = encode_json(\%return);`
`276`	`276`	`}`
`277`	`277`	`elsif ($action eq 'domain')`
`278`	`278`	`{`