diff options
| author | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-15 21:12:39 +0300 |
|---|---|---|
| committer | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-15 21:12:39 +0300 |
| commit | 32b812257da7a72c08a1cc4ebb91b2fec129902a (patch) | |
| tree | cf184dee4c494915d8ba5b951146019e7859208f /perl | |
| parent | dc5ec7dd650e94dac64ad07e9a169e7771f2f961 (diff) | |
| download | rspamd-32b812257da7a72c08a1cc4ebb91b2fec129902a.tar.gz rspamd-32b812257da7a72c08a1cc4ebb91b2fec129902a.zip | |
* Fix variable name in Client.pm
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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; |