Parent Directory | Revision Log | Patch
revision 156 by dpavlin, Thu Aug 6 15:15:53 2009 UTC | revision 179 by dpavlin, Sun Aug 9 16:37:46 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |