git.rot13.org Git - pxelator/blob - lib/PXElator/server.pm

   1 package server;
   2
   3 use warnings;
   4 use strict;
   5 use File::Slurp;
   6
   7 our $ip      = '172.16.10.1';
   8 our $netmask = '255.255.255.0';
   9
  10 our ( $ip_from, $ip_to ) = ( 10, 100 );
  11
  12 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";