Mention all copyright years

[distdns.git] / server.cgi

diff --git a/server.cgi b/server.cgi
index 43bf0bd302489dc30ffac9de781f7f3bd7e53837..1adcf0933b6ee9d71425fcd7cf503292e7a7de2a 100755 (executable)
--- a/server.cgi
+++ b/server.cgi
@@ -88,8 +88,7 @@ if ($params{init}) {
 }
 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;
@@ -134,6 +133,7 @@ if (exists $access{$params{name}} && grep /^$params{pc}$/i, @{$access{$params{na
             }
         }
         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";