Parent Directory | Revision Log | Patch
revision 512 by dpavlin, Wed Jul 21 17:50:32 2010 UTC | revision 515 by dpavlin, Wed Jul 21 18:33:37 2010 UTC | |
---|---|---|
# | Line 99 sub start { | Line 99 sub start { |
99 | ||
100 | sub nr_from_mac { | sub nr_from_mac { |
101 | my $mac = shift; | my $mac = shift; |
102 | $mac =~ s<^.+:([0-9a-f]{2})$><hex($1)>e; | my $nr = (split(/:/,$mac,6))[-1]; |
103 | $mac; | $nr = hex($nr); |
104 | return $nr; | |
105 | } | } |
106 | ||
107 | sub next_nr { | sub next_nr { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |