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, $op ) = @_;
  45         $op ||= 'html';
  46         my $mac = client::conf( $ip, 'mac' );
  47         return '' unless $mac;
  48         $mac =~ s{(..)}{$1:}g;
  49         $mac =~ s{:$}{};
  50         $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean';
  51         return uc($mac);
  52 }
  53
  54 sub next_ip {
  55
  56         my $p = Net::Ping->new;
  57
  58         my $prefix = $server::ip;
  59         $prefix =~ s{\.\d+$}{.};
  60         my $addr = $server::ip_from || die;
  61         my $ip = $prefix . $addr;
  62
  63         while ( -e "$server::conf/ip/$ip" || $p->ping( $ip, 0.7 ) ) {
  64                 $ip = $prefix . $addr++;
  65                 die "all addresses allocated!" if $addr == $server::ip_to;
  66                 warn "skip $ip\n";
  67         }
  68
  69         warn "next_ip $ip\n";
  70         return $ip;
  71
  72 }
  73
  74 1;