From 690e8f4e4522b69b5963689bc96e9ac9507a0100 Mon Sep 17 00:00:00 2001
From: Darkelarious <darkelarious@333networks.com>
Date: Sun, 17 Oct 2021 19:22:40 +0200
Subject: additional Json API support

---
 lib/MasterWebInterface/Handler/Json/JsonServerList.pm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'lib/MasterWebInterface/Handler')

diff --git a/lib/MasterWebInterface/Handler/Json/JsonServerList.pm b/lib/MasterWebInterface/Handler/Json/JsonServerList.pm
index ecd6c36..7781d94 100755
--- a/lib/MasterWebInterface/Handler/Json/JsonServerList.pm
+++ b/lib/MasterWebInterface/Handler/Json/JsonServerList.pm
@@ -16,10 +16,8 @@ TUWF::register(
 ################################################################################
 sub serverlist_json 
 {
-    my($self, $gamename, $char) = @_;
+    my($self, $gamename) = @_;
     $gamename = "all" unless $gamename;
-    
-    # TODO DEPRECATE $char
 
     # sorting, page
     my $f = $self->formValidate(
@@ -59,6 +57,12 @@ sub serverlist_json
             default => '',  
             maxlength => 90 
         },
+        {
+            get => 'a', 
+            required => 0, 
+            default => '', 
+            maxlength => 200 
+        },
     );
     return $self->resNotFound if $f->{_err};
     
@@ -71,7 +75,11 @@ sub serverlist_json
         page     => $f->{p},
         results  => $f->{r},
         updated  => $self->{window_time},
-        gametype => $f->{g}, # TODO: implement in DB query
+        gametype => $f->{g},
+        
+        # parse extra request parameters like version, populated, etc
+        ($f->{a} =~ m/popserv/ig) ? (popserv => 1) : (),
+        ($f->{a} =~ m/utdemo/ig)  ? (utdemo  => 1) : (),
     );
     
     # get total number of players
-- 
cgit v1.2.3