![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to uutraf CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / contrib|
Return to uutraf CVS log | Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / contrib |
1.1 ! root 1: #!/usr/local/bin/perl ! 2: # uutraf.pl -- UUCP Traffic Analyzer ! 3: # SCCS Status : @(#)@ uutraf 1.7 ! 4: # Author : Johan Vromans ! 5: # Created On : *** ! 6: # Last Modified By: Johan Vromans ! 7: # Last Modified On: Wed Feb 26 08:52:56 1992 ! 8: # Update Count : 4 ! 9: # Status : OK ! 10: # Requires: : Perl V4 or later ! 11: ! 12: # Reads UUCP syslog, and generates a report from it. ! 13: # ! 14: # Created by Johan Vromans <[email protected]> ! 15: # Loosely based on an idea by Greg Hackney ([email protected]) ! 16: ! 17: # Usage: uutraf [-taylor|-hdb|-bnu|-bsd] [syslog] ! 18: ! 19: # Logfile formats: ! 20: # ! 21: # BSD: ! 22: # ! 23: # jv mhres (2/23-5:18) (698818735) received 135 b 2 secs ! 24: # root mhres (2/23-5:19) (698818742) sent 2365 b 3 secs, Pk: 38, Rxmt: 0 ! 25: # ! 26: # HDB: ! 27: # ! 28: # uunet!uucp M (12/10-09:04:22) (C,16390,1) [ttyXX] <- 2371 / 5.000 secs, \ ! 29: # 474 bytes/sec ! 30: # ! 31: # Taylor: ! 32: # ! 33: # jv mhres (1992-02-24 20:49:04.06) sent 16234 bytes in 148.780 seconds \ ! 34: # (109 bytes/sec) ! 35: # jv mhres (1992-02-24 21:04:05.76) received 449 bytes in 6.550 seconds \ ! 36: # (68 bytes/sec) ! 37: ! 38: $uucp_type = "gnu"; ! 39: ! 40: %hosts = (); # hosts seen ! 41: %bytes_in = (); # of bytes received from host ! 42: %bytes_out = (); # of bytes sent to host ! 43: %secs_in = (); # of seconds connect for recving ! 44: %secs_out = (); # of seconds connect for sending ! 45: %files_in = (); # of input requests ! 46: %files_out = (); # of output requests ! 47: ! 48: # read info, break the lines and tally ! 49: ! 50: if ( $ARGV[0] =~ /^-/ ) { ! 51: ($uucp_type = substr (shift (@ARGV), 1)) =~ tr/A-Z/a-z/; ! 52: } ! 53: ! 54: if ( $uucp_type eq "taylor" || $uucp_type eq "gnu" ) { ! 55: @ARGV = ("/usr/spool/uucp/Stats") unless $#ARGV >= 0; ! 56: $pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/ .]+)\\) " . ! 57: "(sent|received) (\\d+) bytes in (\\d+)\\.(\\d+) seconds"; ! 58: $uucp_type = 0; ! 59: $recv = "received"; ! 60: } ! 61: elsif ( $uucp_type eq "hdb" || $uucp_type eq "bnu" ) { ! 62: @ARGV = ("/usr/spool/uucp/.Admin/xferstats") unless $#ARGV >= 0; ! 63: $pat = "^([^!]+)![^(]+\\(([-0-9:\\/]+)\\).+([<>])-? " . ! 64: "(\\d+) \\/ (\\d+)\\.(\\d+) secs"; ! 65: $uucp_type = 1; ! 66: $recv = "<"; ! 67: } ! 68: elsif ( $uucp_type eq "bsd" || $uucp_type eq "v7" ) { ! 69: @ARGV = ("/usr/spool/uucp/SYSLOG") unless $#ARGV >= 0; ! 70: $pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/]+)\\) \\([^)]+\\) " . ! 71: "(sent|received) (\\d+) b (\\d+) secs"; ! 72: $uucp_type = 2; ! 73: $recv = "received"; ! 74: } ! 75: else { ! 76: die ("Unknown UUCP type: $uucp_type\n"); ! 77: } ! 78: ! 79: $garbage = 0; ! 80: ! 81: while ( <> ) { ! 82: unless ( /$pat/o ) { ! 83: print STDERR "Possible garbage: $_"; ! 84: if ( $garbage++ > 10 ) { ! 85: die ("Too much garbage; wrong UUCP type?\n"); ! 86: } ! 87: next; ! 88: } ! 89: ! 90: # gather timestamps ! 91: $last_date = $2; ! 92: $first_date = $last_date unless defined $first_date; ! 93: ! 94: # initialize new hosts ! 95: unless ( defined $hosts{$1} ) { ! 96: $hosts{$1} = $files_in{$1} = $files_out{$1} = ! 97: $bytes_in{$1} = $bytes_out{$1} = ! 98: $secs_in{$1} = $secs_out{$1} = 0; ! 99: } ! 100: ! 101: # Taylor and HDB have milliseconds, BSD has not. ! 102: $secs = ($uucp_type == 2) ? ($5 + ($5 == 0 ? 0.5 : 0)) : ($5 + $6/1000); ! 103: ! 104: # tally ! 105: if ( $3 eq $recv ) { # recv ! 106: $bytes_in{$1} += $4; ! 107: $files_in{$1}++; ! 108: $secs_in{$1} += $secs; ! 109: } ! 110: else { # xmit ! 111: $bytes_out{$1} += $4; ! 112: $files_out{$1}++; ! 113: $secs_out{$1} += $secs; ! 114: } ! 115: $garbage = 0; ! 116: } ! 117: ! 118: @hosts = keys (%hosts); ! 119: die ("No info found, stopped\n") if $#hosts < 0; ! 120: ! 121: ################ report section ################ ! 122: ! 123: $thishost = &gethostname(); ! 124: $thishost = (defined $thishost) ? "on node $thishost" : "report"; ! 125: ! 126: if ( $uucp_type eq 0 ) { # Taylor UUCP ! 127: substr ($first_date, 16) = ""; ! 128: substr ($last_date, 16) = ""; ! 129: } ! 130: ! 131: format std_head = ! 132: @||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ! 133: "UUCP traffic $thishost from $first_date to $last_date" ! 134: ! 135: Remote -----------K-Bytes----------- ----Hours---- --Avg CPS-- --Files-- ! 136: Host Recv Sent Total Recv Sent Recv Sent Recv Sent ! 137: . ! 138: format std_out = ! 139: @<<<<<<< @>>>>>>>> @>>>>>>>> @>>>>>>>> @>>>>> @>>>>> @>>>> @>>>> @>>> @>>> ! 140: $Zhost, $Zi_bytes, $Zo_bytes, $Zt_bytes, $Zi_hrs, $Zo_hrs, $Zi_acps, $Zo_acps, $Zi_count, $Zo_count ! 141: . ! 142: ! 143: $^ = "std_head"; ! 144: $~ = "std_out"; ! 145: ! 146: &print_dashes (); ! 147: ! 148: reset "T"; # reset totals ! 149: ! 150: foreach $host (@hosts) { ! 151: &print_line ($host, $bytes_in{$host}, $bytes_out{$host}, ! 152: $secs_in{$host}, $secs_out{$host}, ! 153: $files_in{$host}, $files_out{$host}); ! 154: ! 155: } ! 156: ! 157: &print_dashes (); ! 158: &print_line ("Total", $Ti_bytes, $To_bytes, ! 159: $Ti_secs, $To_secs, $Ti_count, $To_count); ! 160: ! 161: ################ that's it ################ ! 162: ! 163: sub print_line { ! 164: reset "Z"; # reset print fields ! 165: local ($Zhost, ! 166: $Zi_bytes, $Zo_bytes, ! 167: $Zi_secs, $Zo_secs, ! 168: $Zi_count, $Zo_count) = @_; ! 169: $Ti_bytes += $Zi_bytes; ! 170: $To_bytes += $Zo_bytes; ! 171: $Zt_bytes = $Zi_bytes + $Zo_bytes; ! 172: $Tt_bytes += $Zt_bytes; ! 173: $Zi_acps = ($Zi_secs > 0) ? sprintf ("%.0f", $Zi_bytes/$Zi_secs) : "0"; ! 174: $Zo_acps = ($Zo_secs > 0) ? sprintf ("%.0f", $Zo_bytes/$Zo_secs) : "0"; ! 175: $Zi_bytes = sprintf ("%.1f", $Zi_bytes/1000); ! 176: $Zo_bytes = sprintf ("%.1f", $Zo_bytes/1000); ! 177: $Zt_bytes = sprintf ("%.1f", $Zt_bytes/1000); ! 178: $Zi_hrs = sprintf ("%.1f", $Zi_secs/3600); ! 179: $Zo_hrs = sprintf ("%.1f", $Zo_secs/3600); ! 180: $Ti_secs += $Zi_secs; ! 181: $To_secs += $Zo_secs; ! 182: $Ti_count += $Zi_count; ! 183: $To_count += $Zo_count; ! 184: write; ! 185: } ! 186: ! 187: sub print_dashes { ! 188: $Zhost = $Zi_bytes = $Zo_bytes = $Zt_bytes = ! 189: $Zi_hrs = $Zo_hrs = $Zi_acps = $Zo_acps = $Zi_count = $Zo_count = ! 190: "------------"; ! 191: write; ! 192: # easy, isn't it? ! 193: } ! 194: ! 195: ################ missing ################ ! 196: ! 197: sub gethostname { ! 198: $ENV{"SHELL"} = "/bin/sh"; ! 199: $try = `uuname -l 2>/dev/null`; ! 200: chop $try; ! 201: return $+ if $try =~ /^[-.\w]+$/; ! 202: return undef; ! 203: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.