/[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 198 by dpavlin, Tue Aug 11 12:39:05 2009 UTC revision 288 by dpavlin, Tue Aug 25 17:09:52 2009 UTC
# Line 8  our $ip      = '172.16.10.1'; Line 8  our $ip      = '172.16.10.1';
8  our $netmask = '255.255.255.0';  our $netmask = '255.255.255.0';
9  our $bcast   = '172.16.10.255';  our $bcast   = '172.16.10.255';
10    
11  if ( my $dev = $ENV{DEV} ) {  sub setup_from_dev {
12          my $ifconfig = `ifconfig $dev`;          my $dev = shift || return;
13            my $ifconfig = `/sbin/ifconfig $dev`;
14          ( $ip, $bcast, $netmask ) = ( $1, $2, $3 ) if $ifconfig =~ m{inet addr:(\S+)\s+Bcast:(\S+)\s+Mask:(\S+)}s;          ( $ip, $bcast, $netmask ) = ( $1, $2, $3 ) if $ifconfig =~ m{inet addr:(\S+)\s+Bcast:(\S+)\s+Mask:(\S+)}s;
15          warn "DEV $dev $ip $bcast $netmask";          warn "DEV $dev $ip $bcast $netmask";
16  }  }
17    
18    setup_from_dev( $ENV{DEV} || 'virtual' );
19    
20  our ( $ip_from, $ip_to ) = ( 10, 100 );  our ( $ip_from, $ip_to ) = ( 10, 100 );
21    
22  our $domain_name = 'pxelator.lan';  our $domain_name = 'pxelator.lan';
# Line 24  our $conf = "$base_dir/conf/$ip"; Line 27  our $conf = "$base_dir/conf/$ip";
27  mkdir $conf unless -e $conf;  mkdir $conf unless -e $conf;
28    
29  use Module::Refresh qw//;  use Module::Refresh qw//;
30  sub refresh { Module::Refresh->refresh };  sub refresh {
31            Module::Refresh->refresh;
32            my $from = (caller(1))[3];
33            $from =~ s{^(\w+)::.+$}{$1};
34            my $eval = '$' . $from . '::debug = server::debug();';
35            warn "refresh $eval\n";
36            eval $eval;
37            warn $@ if $@;
38    };
39    
40  mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );  mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );
41    
# Line 43  sub shared { Line 53  sub shared {
53          return $value;          return $value;
54  }  }
55    
56    sub conf_default { shared($_[0]) || $_[1] }
57    
58  sub debug { shared('debug', @_) || 0 }  sub debug { shared('debug', @_) || 0 }
59    
60  warn "loaded";  warn "loaded";
Legend:
Removed from v.198  
changed lines
  Added in v.288
  ViewVC Help
Powered by ViewVC 1.1.26