Parent Directory | Revision Log | Patch
revision 246 by dpavlin, Mon Aug 17 15:31:53 2009 UTC | revision 286 by dpavlin, Tue Aug 25 15:00:20 2009 UTC | |
---|---|---|
# | Line 92 sub next_ip($) { | Line 92 sub next_ip($) { |
92 | sub save_ip_mac { | sub save_ip_mac { |
93 | my ($ip,$mac) = @_; | my ($ip,$mac) = @_; |
94 | ||
95 | mkdir ip_path($ip) unless -e $ip; | mkdir ip_path($ip) unless -e ip_path($ip); |
96 | ||
97 | my $mac_path = mac_path($mac); | my $mac_path = mac_path($mac); |
98 | unlink $mac_path if -e $mac_path; # XXX audit? | unlink $mac_path if -l $mac_path; # XXX audit? |
99 | symlink ip_path($ip), $mac_path; | symlink ip_path($ip), $mac_path; |
100 | write_file ip_path($ip,'mac'), $mac; | write_file ip_path($ip,'mac'), $mac; |
101 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |