diff options
| author |   Andrew Gaffney <agaffney@gentoo.org> | 2008-01-01 01:20:06 +0000 |
|---|---|---|
| committer | Andrew Gaffney <agaffney@gentoo.org> | 2008-01-01 01:20:06 +0000 |
| commit | b0df877e023bb73236543528914b84112b98b209 (patch) | |
| tree | 245deeda637e8addb028a3aae45dce8babdc3372 | |
| parent | switch config location to /etc/scire/ (diff) | |
| download | scire-b0df877e023bb73236543528914b84112b98b209.tar.gz scire-b0df877e023bb73236543528914b84112b98b209.tar.bz2 scire-b0df877e023bb73236543528914b84112b98b209.zip | |
chomp the line read from client_key
svn path=/branches/new-fu/; revision=303
| -rwxr-xr-x | client/scireclient.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/client/scireclient.pl b/client/scireclient.pl index b93c79a..1da3dcd 100755 --- a/client/scireclient.pl +++ b/client/scireclient.pl @@ -182,10 +182,9 @@ sub register_client { sub identify_client { open(FILE, $conf{key_file}) or die("Couldn't open client_key $conf{key_file}: $!"); - my $digest = join("", <FILE>); + my $digest = <FILE>; + chomp $digest; close(FILE); - - #my $digest = "124567890"; my ($status, $message) = parse_response(send_command("IDENTIFY", $digest)); unless (defined $status && $status eq "OK") { print "Could not identify to server: $message\n"; |