scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 19:28:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Utils: adds mac_add and uses it in lf_associate_ap

Browse Source
This commit is contained in:
Jed Reynolds
2020-04-28 23:07:16 -07:00
parent 4f13a36b38
commit 845bbf6ba9
2 changed files with 42 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
LANforge/Utils.pm
View File

@@ -3,6 +3,7 @@ use strict;
use warnings;
use Carp;
use Net::Telnet;
use bigint;
$| = 1;
#$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
#$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
@@ -1158,6 +1159,23 @@ sub expand_unit_str {
return int($num) * $multiplier;
}
sub mac_add {
my ($first_mac, $second_dec) = @_;
$first_mac =~ s/[:]//g if ($first_mac =~ /[:]/);
$first_mac = "0x".$first_mac if ($first_mac !~ /^0x/);
my $newdec = (0+$second_dec) + hex($first_mac);
my $newhex = sprintf("%x", $newdec);
my $rv = "";
for (my $i = length($newhex); $i > 0; $i-=2) {
$rv = substr($newhex, $i-2, 2).":$rv";
}
return substr($newhex, 0, -1);
}
####
1;
__END__