mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-10-30 19:02:27 +00:00
48f4ef86ea
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6276 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
54 lines
1003 B
Perl
Executable File
54 lines
1003 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2010 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#
|
|
#####################################################
|
|
#
|
|
# This script will calculate the IPv6 link local address
|
|
# from the mac address
|
|
# the mac address can be something like
|
|
# 00215ea68cd9 or 00:21:5e:a6:8c:d9
|
|
# example mac2linklocal 00215ea68cd9
|
|
#
|
|
#####################################################
|
|
|
|
BEGIN
|
|
{
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
}
|
|
|
|
use lib "$::XCATROOT/lib/perl";
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Getopt::Long;
|
|
use xCAT::NetworkUtils;
|
|
|
|
if (
|
|
!GetOptions("h|help" => \$::HELP,
|
|
"m=s" => \$::MACADDR,)
|
|
)
|
|
{
|
|
&usage;
|
|
exit 1;
|
|
}
|
|
|
|
if ($::HELP)
|
|
{
|
|
&usage;
|
|
exit 0;
|
|
}
|
|
|
|
if ($::MACADDR)
|
|
{
|
|
my $linklocal = xCAT::NetworkUtils->linklocaladdr($::MACADDR);
|
|
print "$linklocal";
|
|
}
|
|
|
|
sub usage
|
|
{
|
|
print "Mac to IPv6 link local address utility.\n";
|
|
print "Usage:\n";
|
|
print "\t mac2linklocal -m <mac_address>\n";
|
|
return;
|
|
}
|