Anonymous

sub net {

    if($dev =~ /^ppp/i) {
       $devtype=`cat /proc/pci | grep 'Communication controller:' | cut -d" " -f7-`;
    } else {
       $devtype=`cat /proc/pci | grep "IRQ \`/sbin/ifconfig $dev | grep Interrupt | cut -d":" -f2 | cut -d" " -f1\`" -B1 | grep Ethernet | cut -d":" -f2- | cut -d" " -f2-`;
    };
    chop($devtype);
    if ($devtype =~ /^$/) {
        $devtype="Unknown";
    };

    $packin1 = `cat /proc/net/dev | grep $dev | cut -d ":" -f 2 | awk '{printf \$1}'`;
    sleep(1);
    $packin2 = `cat /proc/net/dev | grep $dev | cut -d ":" -f 2 | awk '{printf \$1}'`;
    $packin = ($packin2-$packin1)/1024;

#    Uncomment if you want to use MBps when speed is over 1024KBps
#    if($packin > 1024) { $packin = sprintf("%.02f",$packin / 1024)."Mbps"; } else { $packin = sprintf("%.02f", $packin)."KBps"; }

#   Comment out next line if you use the if/else statement above
    $packin = sprintf("%.02f",$packin)."KBps";

    $packout1 = `cat /proc/net/dev | grep $dev | cut -d ":" -f 2 | awk '{print \$9}'`;
    sleep(1);
    $packout2 = `cat /proc/net/dev | grep $dev | cut -d ":" -f 2 | awk '{print \$9}'`;
    $packout = ($packout2-$packout1)/1024;

#    Uncomment if you want to use MBps when speed is over 1024KBps
#    if($packout > 1024) { $packout = sprintf("%.02f",$packout / 1024)."Mbps"; } else { $packout = sprintf("%.02f", $packout)."KBps"; }

#   Comment out next line if you use the if/else statement above
    $packout = sprintf("%.02f",$packout)."KBps";

    IRC::command("(Network):[Device:17.6/1.5mbit, In:$packin, Out:$packout]");
return 1;
}