put back msg totals for mrtg and background mrtg

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b64318ff19c01d68f6d5312403493d056a81c1bf..ba0e6b8eadf520d92f78ecde2219ae49bc903a1d 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -289,7 +289,7 @@ sub _send_stuff
                }
                if (defined $sock) {
                        $sock->write($data);
-                       $total_out = $lth;
+                       $total_out += $lth;
                } else {
                        dbg("_send_stuff $call ending data ignored: $data");
                }
@@ -378,6 +378,8 @@ sub _rcv {                     # Complement to _send
     my $sock = $conn->{sock};
     return unless defined($sock);
 
+       $total_in += length $msg;
+
        my @lines;
        if (isdbg('raw')) {
                my $call = $conn->{call} || 'none';