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";
- my $session = do { local $/; <$fh> };
- chomp $session;
+ chomp(my $session = <$fh>);
close($fh);
die "Session ID mismatch\n" unless $params{session} eq $session;
}
}
push @$data, { map { $_ => $params{$_} } qw(netz pc name ip) };
+ $data->[-1]->{time} = time;
seek($fh, 0, 0) or die "Cannot seek to start of $json_file: $!\n";
truncate($fh, 0) or die "Cannot truncate $json_file: $!\n";