lib/PXElator/config.pm

package config;

use warnings;
use strict;

use server;
use File::Slurp;

sub shared {
        my ($name, $value) = @_;

        my $path ="$server::base_dir/conf/$server::ip/$name";
        if ( defined $value ) {
                write_file $path, $value;
        } else {
                $value = read_file $path if -e $path;
        }
        return $value;
}

sub for_ip {
        my $ip = shift;
        $tftp::dir = "$server::base_dir/tftp/live-helper/tftpboot";
        $dhcpd::file = "pxelinux.0";
}

1;
1	dpavlin	74	package config;
2
3			use warnings;
4			use strict;
5
6			use server;
7			use File::Slurp;
8
9			sub shared {
10			my ($name, $value) = @_;
11
12			my $path ="$server::base_dir/conf/$server::ip/$name";
13			if ( defined $value ) {
14			write_file $path, $value;
15			} else {
16			$value = read_file $path if -e $path;
17			}
18			return $value;
19			}
20
21	dpavlin	110	sub for_ip {
22			my $ip = shift;
23			$tftp::dir = "$server::base_dir/tftp/live-helper/tftpboot";
24			$dhcpd::file = "pxelinux.0";
25			}
26
27	dpavlin	74	1;