git.rot13.org Git - pxelator/blob - lib/PXElator/client.pm

   1 package client;
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use server;
   8 use File::Slurp;
   9 use Net::Ping;
  10
  11 sub conf {
  12         my $ip  = shift;
  13         my $name = shift;
  14         my ( $default, $value );
  15         if ( $#_ == 0 ) {
  16                 $value = shift;
  17         } elsif ( $#_ == 1 && $_[0] eq 'default' ) {
  18                 $default = $_[1]
  19         }
  20
  21         my $path ="$server::conf/ip/$ip";
  22         mkdir $path unless -d $path;
  23         $path .= '/' . $name;
  24
  25         if ( defined $value ) {
  26                 write_file $path, $value;
  27                 warn "update $path = $value";
  28         } elsif ( ! -e $path && defined $default ) {
  29                 write_file $path, $default;
  30                 warn "default $path = $default";
  31                 $value = $default;
  32         } elsif ( -e $path ) {
  33                 if ( -l $path ) {
  34                         $value = readlink $path;
  35                         $value =~ s{.*/([^/]+)$}{$1};
  36                 } else {
  37                         $value = read_file $path;
  38                 }
  39         }
  40         return $value;
  41 }
  42
  43 sub mac {
  44         my $ip = shift;
  45         my $mac = client::conf( $ip, 'mac' );
  46         return '' unless $mac;
  47         $mac =~ s{(..)}{$1:}g;
  48         $mac =~ s{:$}{};
  49         $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd};
  50         return uc($mac);
  51 }
  52
  53 sub next_ip {
  54
  55         my $p = Net::Ping->new;
  56
  57         my $prefix = $server::ip;
  58         $prefix =~ s{\.\d+$}{.};
  59         my $addr = $server::ip_from || die;
  60         my $ip = $prefix . $addr;
  61
  62         while ( -e "$server::conf/ip/$ip" || $p->ping( $ip, 0.7 ) ) {
  63                 $ip = $prefix . $addr++;
  64                 die "all addresses allocated!" if $addr == $server::ip_to;
  65                 warn "skip $ip\n";
  66         }
  67
  68         warn "next_ip $ip\n";
  69         return $ip;
  70
  71 }
  72
  73 1;