Commit d68df680 authored by Peter Pentchev's avatar Peter Pentchev

Remove two unused functions.

parent ed21d4e2
......@@ -14,6 +14,7 @@ Change log for ethstats, the network traffic statistics utility
- update the Perl source style a bit:
- use strict mode and the warnings pragma
- reflow to a tab indent
- remove the unused tquad() and toquad() functions
1.0 (unknown)
- released into the public domain by Drew Strieb
......
......@@ -191,19 +191,3 @@ sub convert {
$tkbout += $kbout{$dev};
}
}
sub tquad {
my $n = shift;
my $a = ($n & 0xff000000) >> 24;
my $b = ($n & 0x00ff0000) >> 16;
my $c = ($n & 0x0000ff00) >> 8;
my $d = $n & 0x000000ff;
return "$a.$b.$c.$d";
}
sub toquad {
my $h = shift;
$h =~ /(\S\S)(\S\S)(\S\S)(\S\S)/;
my ($a, $b, $c, $d) = ($1, $2, $3, $4);
return sprintf("%d.%d.%d.%d", "0x$a", "0x$b", "0x$c", "0x$d");
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment