/[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 156 by dpavlin, Thu Aug 6 15:15:53 2009 UTC revision 198 by dpavlin, Tue Aug 11 12:39:05 2009 UTC
# Line 6  use strict; Line 6  use strict;
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    our $bcast   = '172.16.10.255';
10    
11    if ( my $dev = $ENV{DEV} ) {
12            my $ifconfig = `ifconfig $dev`;
13            ( $ip, $bcast, $netmask ) = ( $1, $2, $3 ) if $ifconfig =~ m{inet addr:(\S+)\s+Bcast:(\S+)\s+Mask:(\S+)}s;
14            warn "DEV $dev $ip $bcast $netmask";
15    }
16    
17  our ( $ip_from, $ip_to ) = ( 10, 100 );  our ( $ip_from, $ip_to ) = ( 10, 100 );
18    
# Line 14  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 { Module::Refresh->refresh };
Legend:
Removed from v.156  
changed lines
  Added in v.198
  ViewVC Help
Powered by ViewVC 1.1.26