From: cebka@lenovo-laptop <cebka@lenovo-laptop>
Date: Mon, 15 Mar 2010 18:12:39 +0000 (+0300)
Subject: * Fix variable name in Client.pm
X-Git-Tag: 0.3.0~60
X-Git-Url: https://source.dussan.org/?a=commitdiff_plain;h=32b812257da7a72c08a1cc4ebb91b2fec129902a;p=rspamd.git

* Fix variable name in Client.pm
---

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index 49413ea59..ee07e446b 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -966,7 +966,7 @@ sub _do_control_command {
         if ($self->_auth ($remote)) {
             my $len = length ($msg);
             syswrite $remote, "learn $self->{statfile} $len -w $self->{weight}" . $EOL;
-            syswrite $remote, $input . $EOL;
+            syswrite $remote, $msg . $EOL;
 			unless ($self->_get_io_readiness($remote, 0)) {
 				$res{error} = "Timeout while reading data from socket";
 				$res{error_code} = 501;
@@ -1002,10 +1002,10 @@ sub _do_control_command {
 			return \%res;
 		}
         
-		my $len = length ($input);
+		my $len = length ($msg);
 		$res{error} = "Sending $len bytes...\n";
 		syswrite $remote, "weights $self->{'statfile'} $len" . $EOL;
-		syswrite $remote, $input . $EOL;
+		syswrite $remote, $msg . $EOL;
 		unless ($self->_get_io_readiness($remote, 0)) {
 			$res{error} = "Timeout while reading data from socket";
 			$res{error_code} = 501;
@@ -1040,9 +1040,9 @@ sub _do_control_command {
     }
     elsif ($self->{'command'} =~ /(fuzzy_add|fuzzy_del)/i) {
         if ($self->_auth ($remote)) {
-            my $len = length ($input);
+            my $len = length ($msg);
             syswrite $remote, $self->{'command'} . " $len $self->{'weight'}" . $EOL;
-            syswrite $remote, $input . $EOL;
+            syswrite $remote, $msg . $EOL;
 			unless ($self->_get_io_readiness($remote, 0)) {
 				$res{error} = "Timeout while reading data from socket";
 				$res{error_code} = 501;