freifunk.cgi: Catch JSON parsing errors and move on

diff --git a/html/cgi-bin/freifunk.cgi b/html/cgi-bin/freifunk.cgi
index a9b9d6ae3298e59d5bafe2e05edb1c96520915aa..1ee22d802db9e297b02181455c4f819e00f1e641 100755 (executable)
--- a/html/cgi-bin/freifunk.cgi
+++ b/html/cgi-bin/freifunk.cgi
@@ -355,7 +355,12 @@ sub LoadNetwork() {
        my $file = shift;
 
        if (-e $file) {
-               return JSON::Parse::json_file_to_perl($file);
+               my $ret = eval {
+                       return JSON::Parse::json_file_to_perl($file);
+               } or do {
+                       return undef;
+               };
+               return $ret;
        }
 
        return undef;