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 |