/[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 148 by dpavlin, Wed Aug 5 13:25:19 2009 UTC revision 153 by dpavlin, Wed Aug 5 23:22:17 2009 UTC
# Line 16  our $base_dir = '/srv/pxelator'; Line 16  our $base_dir = '/srv/pxelator';
16  use Module::Refresh qw//;  use Module::Refresh qw//;
17  sub refresh { Module::Refresh->refresh };  sub refresh { Module::Refresh->refresh };
18    
19    mkdir $_ foreach grep { ! -e $_ } map { "$base_dir/conf/$server::ip/$_" } ( 'ip', 'mac', 'hostname', 'deploy' );
20    
21  use File::Slurp;  use File::Slurp;
22  sub shared {  sub shared {
23          my ($name, $value) = @_;          my ($name, $value) = @_;
# Line 23  sub shared { Line 25  sub shared {
25          my $path ="$base_dir/conf/$server::ip/$name";          my $path ="$base_dir/conf/$server::ip/$name";
26          if ( defined $value ) {          if ( defined $value ) {
27                  write_file $path, $value;                  write_file $path, $value;
28                    warn "update $path = $value";
29          } else {          } else {
30                  $value = read_file $path if -e $path;                  $value = read_file $path if -e $path;
31          }          }
Legend:
Removed from v.148  
changed lines
  Added in v.153
  ViewVC Help
Powered by ViewVC 1.1.26