lib/PXElator/client.pm

package client;

use warnings;
use strict;
use autodie;

use server;
use File::Slurp;
use Net::Ping;

sub conf {
        my $ip  = shift;
        my $name = shift;
        my ( $default, $value );
        if ( $#_ == 0 ) {
                $value = shift;
        } elsif ( $#_ == 1 && $_[0] eq 'default' ) {
                $default = $_[1]
        }

        my $path ="$server::conf/ip/$ip";
        mkdir $path unless -d $path;
        $path .= '/' . $name;

        if ( defined $value ) {
                write_file $path, $value;
                warn "update $path = $value";
        } elsif ( ! -e $path && defined $default ) {
                write_file $path, $default;
                warn "default $path = $default";
                $value = $default;
        } elsif ( -e $path ) {
                if ( -l $path ) {
                        $value = readlink $path;
                        $value =~ s{.*/([^/]+)$}{$1};
                } else {
                        $value = read_file $path;
                }
        }
        return $value;
}

sub mac {
        my ( $ip, $op ) = @_;
        $op ||= 'html';
        my $mac = client::conf( $ip, 'mac' );
        return '' unless $mac;
        $mac =~ s{(..)}{$1:}g;
        $mac =~ s{:$}{};
        $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean';
        return uc($mac);
}

sub next_ip {

        my $p = Net::Ping->new;

        my $prefix = $server::ip;
        $prefix =~ s{\.\d+$}{.};
        my $addr = $server::ip_from || die;
        my $ip = $prefix . $addr;

        while ( -e "$server::conf/ip/$ip" || $p->ping( $ip, 0.7 ) ) {
                $ip = $prefix . $addr++;
                die "all addresses allocated!" if $addr == $server::ip_to;
                warn "skip $ip\n";
        }

        warn "next_ip $ip\n";
        return $ip;

}

1;
1	dpavlin	156	package client;
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use server;
8			use File::Slurp;
9	dpavlin	168	use Net::Ping;
10	dpavlin	156
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	dpavlin	164	} elsif ( -e $path ) {
33			if ( -l $path ) {
34			$value = readlink $path;
35			$value =~ s{.*/([^/]+)$}{$1};
36			} else {
37			$value = read_file $path;
38			}
39	dpavlin	156	}
40			return $value;
41			}
42
43	dpavlin	165	sub mac {
44	dpavlin	190	my ( $ip, $op ) = @_;
45			$op \|\|= 'html';
46	dpavlin	165	my $mac = client::conf( $ip, 'mac' );
47	dpavlin	188	return '' unless $mac;
48	dpavlin	165	$mac =~ s{(..)}{$1:}g;
49			$mac =~ s{:$}{};
50	dpavlin	190	$mac = qq\|<tt>$mac</tt>\| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean';
51	dpavlin	165	return uc($mac);
52			}
53
54	dpavlin	168	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	dpavlin	156	1;