/[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 66 by dpavlin, Thu Jul 30 14:16:59 2009 UTC revision 67 by dpavlin, Thu Jul 30 21:31:30 2009 UTC
# Line 1  Line 1 
1  package server;  package server;
2    
3    use warnings;
4    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    
# Line 7  our ( $ip_from, $ip_to ) = ( 10, 100 ); Line 11  our ( $ip_from, $ip_to ) = ( 10, 100 );
11    
12  our $base_dir = '/home/dpavlin/llin/pxelator';  our $base_dir = '/home/dpavlin/llin/pxelator';
13    
14    our $debug = 0;
15    sub debug {
16            my $new = shift;
17            my $path ="$base_dir/conf/debug";
18            if ( defined $new ) {
19                    write_file $path, $debug = $new;
20            } else {
21                    $debug = read_file $path if -e $path;
22            }
23            return $debug;
24    }
25    
26  warn "loaded";  warn "loaded";

Legend:
Removed from v.66  
changed lines
  Added in v.67

  ViewVC Help
Powered by ViewVC 1.1.26