/[pxelator]/lib/PXElator/server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 75 by dpavlin, Fri Jul 31 13:22:45 2009 UTC revision 160 by dpavlin, Thu Aug 6 18:09:17 2009 UTC
# Line 3  package server; Line 3  package server;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6    
7  our $ip      = '172.16.10.1';  our $ip      = '172.16.10.1';
8  our $netmask = '255.255.255.0';  our $netmask = '255.255.255.0';
9    our $bcast   = '172.16.10.255';
10    
11  our ( $ip_from, $ip_to ) = ( 10, 100 );  our ( $ip_from, $ip_to ) = ( 10, 100 );
12    
13  our $base_dir = '/home/dpavlin/llin/pxelator';  our $domain_name = 'pxelator.lan';
14    
15    our $base_dir = '/srv/pxelator';
16    
17    our $conf = "$base_dir/conf/$ip";
18    
19    use Module::Refresh qw//;
20    sub refresh { Module::Refresh->refresh };
21    
 use config;  
22    
23  our $debug;  mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );
24  sub debug { $debug = config::shared('debug', @_) || 0 }  
25    use File::Slurp;
26    sub shared {
27            my ($name, $value) = @_;
28    
29            my $path ="$conf/$name";
30            if ( defined $value ) {
31                    write_file $path, $value;
32                    warn "update $path = $value";
33            } else {
34                    $value = read_file $path if -e $path;
35            }
36            return $value;
37    }
38    
39    sub debug { shared('debug', @_) || 0 }
40    
41  warn "loaded";  warn "loaded";
42    
43    1;
Legend:
Removed from v.75  
changed lines
  Added in v.160
  ViewVC Help
Powered by ViewVC 1.1.26