lib/PXElator/client.pm

package client;

use warnings;
use strict;
use autodie;

use server;
use File::Slurp;

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;
        } else {
                $value = read_file $path if -e $path;
        }
        return $value;
}

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
10			sub conf {
11			my $ip = shift;
12			my $name = shift;
13			my ( $default, $value );
14			if ( $#_ == 0 ) {
15			$value = shift;
16			} elsif ( $#_ == 1 && $_[0] eq 'default' ) {
17			$default = $_[1]
18			}
19
20			my $path ="$server::conf/ip/$ip";
21			mkdir $path unless -d $path;
22			$path .= '/' . $name;
23
24			if ( defined $value ) {
25			write_file $path, $value;
26			warn "update $path = $value";
27			} elsif ( ! -e $path && defined $default ) {
28			write_file $path, $default;
29			warn "default $path = $default";
30			$value = $default;
31			} else {
32			$value = read_file $path if -e $path;
33			}
34			return $value;
35			}
36
37			1;