diff options
| author | Florent Villard <warly@mandriva.com> | 2003-08-22 19:59:48 +0000 |
|---|---|---|
| committer | Florent Villard <warly@mandriva.com> | 2003-08-22 19:59:48 +0000 |
| commit | 150bc87396011253a541ca0ad32250e926ab0ecc (patch) | |
| tree | 1b90808250fc42a37248dfeb726b55f8203e8ba2 /dhcp_wizard/scripts/Dhcpconf.pm | |
| parent | 817bcd2c3a985552620cece5905d5b5982ae14c4 (diff) | |
| download | drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.gz drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.bz2 drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.xz drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.zip | |
switch to perl only
Diffstat (limited to 'dhcp_wizard/scripts/Dhcpconf.pm')
| -rw-r--r-- | dhcp_wizard/scripts/Dhcpconf.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dhcp_wizard/scripts/Dhcpconf.pm b/dhcp_wizard/scripts/Dhcpconf.pm index ea06660e..e75cd855 100644 --- a/dhcp_wizard/scripts/Dhcpconf.pm +++ b/dhcp_wizard/scripts/Dhcpconf.pm @@ -48,8 +48,8 @@ sub compute_range2 { sub check { # FIXME : see check_range.sh - my $r1_trunc = "$1.$2.$3" if $ENV{wiz_ip_range1} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; - my $r2_trunc = "$1.$2.$3" if $ENV{wiz_ip_range2} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; + my $r1_trunc = "$1.$2.$3" if $o->{var}{ip1} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; + my $r2_trunc = "$1.$2.$3" if $o->{var}{ip2} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $d1 = "$4" if $ENV{wiz_ip_range1} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $d2 = "$4" if $ENV{wiz_ip_range2} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $s_trunc = "$1.$2.$3" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; |