44 |
return $value; |
return $value; |
45 |
} |
} |
46 |
|
|
|
sub mac { |
|
|
my $ip = shift; |
|
|
my $mac = client::conf( $ip, 'mac' ) || return ''; |
|
|
format::mac( $ip, @_ ); |
|
|
} |
|
|
|
|
47 |
sub next_ip($) { |
sub next_ip($) { |
48 |
my $mac = shift; |
my $mac = shift; |
49 |
|
|
64 |
|
|
65 |
mkdir ip_path($ip); |
mkdir ip_path($ip); |
66 |
|
|
67 |
symlink ip_path($ip), mac_path($mac); |
my $mac_path = mac_path($mac); |
68 |
|
unlink $mac_path if -e $mac_path; # XXX audit? |
69 |
|
symlink ip_path($ip), $mac_path; |
70 |
write_file ip_path($ip,'mac'), $mac; |
write_file ip_path($ip,'mac'), $mac; |
71 |
|
|
72 |
return $ip; |
return $ip; |