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');
};
}
+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);
my $section = 'path';
-die "Section $section missing in $conf_file\n" unless exists $config->{$section};
+die "Section '$section' missing in $conf_file\n" unless exists $config->{$section};
my @options = qw(json_file session_file);
@options{@options} = @{$config->{$section}}{@options};
foreach my $option (@options) {
- die "Option $option not set in $conf_file\n" unless defined $options{$option} && length $options{$option};
+ die "Option '$option' not set in $conf_file\n" unless defined $options{$option} && length $options{$option};
}
my ($json_file, $session_file) = map rel2abs($options{$_}, $Bin), @options;
open(my $fh, '>', $session_file) or die "Cannot open $session_file for writing: $!\n";
print {$fh} "$params{session}\n";
close($fh);
+
+ print $query->header('application/json');
+ print encode_json({ entries => [], error => undef });
+ exit;
}
else {
open(my $fh, '<', $session_file) or die "Cannot open $session_file for reading: $!\nPerhaps try running --init\n";
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";