summaryrefslogtreecommitdiffstats
path: root/server.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'server.cgi')
-rwxr-xr-xserver.cgi14
1 files changed, 7 insertions, 7 deletions
diff --git a/server.cgi b/server.cgi
index 77e979b..e581a87 100755
--- a/server.cgi
+++ b/server.cgi
@@ -28,7 +28,7 @@ use File::Spec::Functions qw(catfile rel2abs);
use FindBin qw($Bin);
use JSON qw(decode_json encode_json);
-my $VERSION = '0.05';
+my $VERSION = '0.06';
my $conf_file = catfile($Bin, 'server.conf');
@@ -51,6 +51,12 @@ if ($params{debug}) {
};
}
+my @missing_params = grep { not defined $params{$_} && length $params{$_} } @params;
+if (@missing_params) {
+ my $missing_params = join ', ', map "'$_'", @missing_params;
+ die "Incomplete query: param(s) $missing_params missing or not defined\n";
+}
+
my $config = Config::Tiny->new;
$config = Config::Tiny->read($conf_file);
@@ -85,12 +91,6 @@ else {
die "Session ID mismatch\n" unless $params{session} eq $session;
}
-my @missing_params = grep { not defined $params{$_} && length $params{$_} } @params;
-if (@missing_params) {
- my $missing_params = join ', ', map "'$_'", @missing_params;
- die "Incomplete query: param(s) $missing_params missing or not defined\n";
-}
-
my %access;
my $access_file = "$params{netz}.conf";