diff options
author | Steven Schubiger <stsc@refcnt.org> | 2013-09-03 22:46:21 +0200 |
---|---|---|
committer | Steven Schubiger <stsc@refcnt.org> | 2013-09-03 22:46:21 +0200 |
commit | 577cd6cddb2b1d6bfa21d682308fde6493d9dab6 (patch) | |
tree | 250200ca8f10ef53d45cf6fad3faf27819e67054 /server.cgi | |
parent | 16d993ce5bfa2fe1cf6000aa757bd6cca7e7e750 (diff) | |
download | distdns-577cd6cddb2b1d6bfa21d682308fde6493d9dab6.tar.gz distdns-577cd6cddb2b1d6bfa21d682308fde6493d9dab6.tar.bz2 |
Indicate client/server for error messages
Diffstat (limited to 'server.cgi')
-rwxr-xr-x | server.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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); |