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";