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