X-Git-Url: http://git.refcnt.org/?p=distdns.git;a=blobdiff_plain;f=server.cgi;h=1adcf0933b6ee9d71425fcd7cf503292e7a7de2a;hp=43bf0bd302489dc30ffac9de781f7f3bd7e53837;hb=HEAD;hpb=3f79b3088e5eaa6185822f26c21a3b5e8548e60e

diff --git a/server.cgi b/server.cgi
index 43bf0bd..1adcf09 100755
--- 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";