Indicate client/server for error messages

[distdns.git] / server.cgi

diff --git a/server.cgi b/server.cgi
index bdd9ac729bdc84bd4c3c013f28b5d3b055ac261a..67b522efb7ebd8c8ae7aeed18ce433409ab04a53 100755 (executable)
--- a/server.cgi
+++ b/server.cgi
@@ -70,14 +70,14 @@ foreach my $option (@options) {
 my ($json_file, $session_file) = map rel2abs($options{$_}, $Bin), @options;
 
 if ($params{init}) {
-    die "Delete server-side $session_file first\n" if -e $session_file;
+    die "Delete $session_file first\n" if -e $session_file;
 
-    open(my $fh, '>', $session_file) or die "Cannot open server-side $session_file for writing: $!\n";
+    open(my $fh, '>', $session_file) or die "Cannot open $session_file for writing: $!\n";
     print {$fh} "$params{session}\n";
     close($fh);
 }
 else {
-    open(my $fh, '<', $session_file) or die "Cannot open server-side $session_file for reading: $!\nPerhaps try running --init\n";
+    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;
     close($fh);