Parent Directory | Revision Log | Patch
revision 52 by dpavlin, Fri Nov 16 17:45:21 2007 UTC | revision 53 by dpavlin, Fri Nov 16 17:45:21 2007 UTC | |
---|---|---|
# | Line 16 sub check { | Line 16 sub check { |
16 | my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?"; | my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?"; |
17 | my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?"; | my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?"; |
18 | ||
19 | if ( $dhcp =~ m/\d+ server/ ) { | if ( $dhcp =~ m/(\d+) server/ ) { |
20 | return if $1 == 0; | return if $1 == 0; |
21 | ||
22 | warn "## remove DHCP $dhcp $serial ", | warn "## remove DHCP $dhcp $serial ", |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |