/[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 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC revision 148 by dpavlin, Wed Aug 5 13:25:19 2009 UTC
# Line 3  package server; Line 3  package server;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
 use Module::Refresh;  
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  use config;  our $base_dir = '/srv/pxelator';
15    
16  our $debug;  use Module::Refresh qw//;
17  sub debug { $debug = config::shared('debug', @_) || 0 }  sub refresh { Module::Refresh->refresh };
18    
19  my $timestamp_interval = 3;  use File::Slurp;
20  my $stderr_tell = 0;  sub shared {
21            my ($name, $value) = @_;
22  $SIG{ALRM} = sub {  
23      if ( tell(STDERR) != $stderr_tell ) {          my $path ="$base_dir/conf/$server::ip/$name";
24          warn "\nTIMESTAMP: " . localtime() . "\n\n";          if ( defined $value ) {
25          $stderr_tell = tell(STDERR);                  write_file $path, $value;
26                  Module::Refresh->refresh;          } else {
27      }                  $value = read_file $path if -e $path;
28      alarm $timestamp_interval;          }
29  };          return $value;
30  alarm $timestamp_interval;  }
31    
32    sub debug { shared('debug', @_) || 0 }
33    
34  warn "loaded";  warn "loaded";
35    
36    1;
Legend:
Removed from v.118  
changed lines
  Added in v.148
  ViewVC Help
Powered by ViewVC 1.1.26