/[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 74 by dpavlin, Fri Jul 31 13:16:11 2009 UTC
# Line 2  package server; Line 2  package server;
2    
3  use warnings;  use warnings;
4  use strict;  use strict;
 use File::Slurp;  
5    
6  our $ip      = '172.16.10.1';  our $ip      = '172.16.10.1';
7  our $netmask = '255.255.255.0';  our $netmask = '255.255.255.0';
# Line 11  our ( $ip_from, $ip_to ) = ( 10, 100 ); Line 10  our ( $ip_from, $ip_to ) = ( 10, 100 );
10    
11  our $base_dir = '/home/dpavlin/llin/pxelator';  our $base_dir = '/home/dpavlin/llin/pxelator';
12    
13    use config;
14    
15  our $debug = 0;  our $debug = 0;
16  sub debug {  sub debug { $debug = config::shared('debug', @_) }
         my $new = shift;  
         my $path ="$base_dir/conf/debug";  
         if ( defined $new ) {  
                 write_file $path, $debug = $new;  
         } else {  
                 $debug = read_file $path if -e $path;  
         }  
         return $debug;  
 }  
17    
18  warn "loaded";  warn "loaded";
Legend:
Removed from v.67  
changed lines
  Added in v.74
  ViewVC Help
Powered by ViewVC 1.1.26