whine less

Signed-off-by: Jason Boyer <boyer.jason@gmail.com>

diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
index 140aee1..068a93b 100644 (file)
--- a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
+++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
@@ -150,18 +150,18 @@ sub connect {
     # Since this is supposed to be base64 encoded we're supposed to send a = rather than an empty string
     $repl='=' if $repl eq '';
 
-$logger->error("sending " . $repl);
+$logger->warn("sending " . $repl);
     $self->send(sprintf(JABBER_SASL_PLAIN, $repl));
 
     $repl = $self->wait(10) || "NOTHING";
-$logger->error("received " . $repl);
+$logger->warn("received " . $repl);
 
     while ($conn->need_step) {
         $tosend = $conn->client_step($repl);
-$logger->error("sending " . $tosend);
+$logger->warn("sending " . $tosend);
         $self->send($tosend);
         $repl = $self->wait(10);
-$logger->error("received " . $repl);
+$logger->warn("received " . $repl);
     }
 
     # Ejabberd sends a new <?xml... header with new stream responses, and Expat doesn't like that mid-stream.
@@ -215,7 +215,7 @@ sub tcp_connected {
 sub send {
     my($self, $xml) = @_;
         
-$logger->error("sending " . $xml);
+$logger->warn("sending " . $xml);
     local $SIG{'PIPE'} = sub {
         $logger->error("Disconnected from Jabber server, exiting immediately");
         exit(99);
@@ -294,7 +294,7 @@ sub wait {
     my $first_read = 1;
 
     while($nbytes = sysread($socket, $buf, $read_size)) {
-$logger->error("read: " . $buf) if $buf;
+$logger->warn("read: " . $buf) if $buf;
         $self->{parser}->parse_more($buf) if $buf;
         if($nbytes < $read_size or $self->peek_msg) {
             set_block($socket) if $nonblock;
@@ -352,7 +352,7 @@ sub start_element {
     my($parser, $name, %attrs) = @_;
     my $self = $parser->{_parent_};
 
-$logger->error("name " . $name . " attrs " . Dumper(\%attrs));
+$logger->warn("name " . $name . " attrs " . Dumper(\%attrs));
     if($name eq 'message') {
 
         my $msg = $self->{message};