/[pxelator]/lib/PXElator/client.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/client.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 190 by dpavlin, Mon Aug 10 00:07:38 2009 UTC revision 200 by dpavlin, Tue Aug 11 15:55:26 2009 UTC
# Line 8  use server; Line 8  use server;
8  use File::Slurp;  use File::Slurp;
9  use Net::Ping;  use Net::Ping;
10    
11    sub mac_path { $server::conf . '/mac/' . $_[0] }
12    sub  ip_path { $server::conf . '/ip/'  . join('/', @_) }
13    
14  sub conf {  sub conf {
15          my $ip  = shift;          my $ip  = shift;
16          my $name = shift;          my $name = shift;
# Line 18  sub conf { Line 21  sub conf {
21                  $default = $_[1]                  $default = $_[1]
22          }          }
23    
24          my $path ="$server::conf/ip/$ip";          my $path = ip_path $ip;
25          mkdir $path unless -d $path;          mkdir $path unless -d $path;
26          $path .= '/' . $name;          $path .= '/' . $name;
27    
# Line 51  sub mac { Line 54  sub mac {
54          return uc($mac);          return uc($mac);
55  }  }
56    
57  sub next_ip {  sub next_ip($) {
58            my $mac = shift;
59    
60          my $p = Net::Ping->new;          my $p = Net::Ping->new;
61    
# Line 60  sub next_ip { Line 64  sub next_ip {
64          my $addr = $server::ip_from || die;          my $addr = $server::ip_from || die;
65          my $ip = $prefix . $addr;          my $ip = $prefix . $addr;
66    
67          while ( -e "$server::conf/ip/$ip" || $p->ping( $ip, 0.7 ) ) {          while ( -e ip_path($ip) || $p->ping( $ip, 0.7 ) ) {
68                  $ip = $prefix . $addr++;                  $ip = $prefix . $addr++;
69                  die "all addresses allocated!" if $addr == $server::ip_to;                  die "all addresses allocated!" if $addr == $server::ip_to;
70                  warn "skip $ip\n";                  warn "skip $ip\n";
71          }          }
72    
73          warn "next_ip $ip\n";          warn "next_ip $ip\n";
74    
75            mkdir ip_path($ip);
76    
77            symlink ip_path($ip), mac_path($mac);
78            write_file ip_path($ip,'mac'), $mac;
79    
80            return $ip;
81    
82    }
83    
84    sub ip_from_mac($) {
85            my $mac = shift;
86    
87            $mac = lc $mac;
88            $mac =~ s{:}{}g;
89    
90            my $mac_path = mac_path $mac;
91            return unless -e $mac_path;
92    
93            my $ip;
94    
95            if ( -f $mac_path ) {
96                    $ip = read_file $mac_path;
97                    unlink $mac_path;
98                    symlink ip_path($ip), $mac_path;
99                    warn "I: upgrade to mac symlink $mac_path\n";
100            } elsif ( -l $mac_path ) {
101                    $ip = readlink $mac_path;
102                    $ip =~ s{^.+/([^/]+)$}{$1};
103            } else {
104                    die "$mac_path not file or symlink";
105            }
106    
107          return $ip;          return $ip;
108    }
109    
110    sub mac_from_ip($) {
111            my $ip = shift;
112            return read_file ip_path($ip, 'mac');
113    }
114    
115    sub change_ip($$) {
116            my ($old, $new) = @_;
117            my $mac = mac_from_ip($old);
118            rename ip_path($old), ip_path($new);
119            unlink mac_path($mac);
120            symlink ip_path($new), mac_path($mac);
121  }  }
122    
123  1;  1;
Legend:
Removed from v.190  
changed lines
  Added in v.200
  ViewVC Help
Powered by ViewVC 1.1.26