/[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 179 by dpavlin, Sun Aug 9 16:37:46 2009 UTC revision 270 by dpavlin, Wed Aug 19 18:10:37 2009 UTC
# Line 21  our $domain_name = 'pxelator.lan'; Line 21  our $domain_name = 'pxelator.lan';
21  our $base_dir = '/srv/pxelator';  our $base_dir = '/srv/pxelator';
22    
23  our $conf = "$base_dir/conf/$ip";  our $conf = "$base_dir/conf/$ip";
24    mkdir $conf unless -e $conf;
25    
26  use Module::Refresh qw//;  use Module::Refresh qw//;
27  sub refresh { Module::Refresh->refresh };  sub refresh {
28            Module::Refresh->refresh;
29            my $from = (caller(1))[3];
30            $from =~ s{^(\w+)::.+$}{$1};
31            my $eval = '$' . $from . '::debug = server::debug();';
32            warn "refresh $eval\n";
33            eval $eval;
34            warn $@ if $@;
35    };
36    
37  mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );  mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );
38    
# Line 42  sub shared { Line 50  sub shared {
50          return $value;          return $value;
51  }  }
52    
53    sub conf_default { shared($_[0]) || $_[1] }
54    
55  sub debug { shared('debug', @_) || 0 }  sub debug { shared('debug', @_) || 0 }
56    
57  warn "loaded";  warn "loaded";
Legend:
Removed from v.179  
changed lines
  Added in v.270
  ViewVC Help
Powered by ViewVC 1.1.26