/[mdap]/lib/MDAP/DHCP.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/MDAP/DHCP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 57 by dpavlin, Fri Nov 16 17:45:21 2007 UTC revision 58 by dpavlin, Fri Nov 16 19:12:08 2007 UTC
# Line 4  use strict; Line 4  use strict;
4  use warnings;  use warnings;
5    
6  use Module::Pluggable;  use Module::Pluggable;
7  use Data::Dump qw/dump/;  use MDAP;
   
 my $debug = 0;  
 my $verbose = 1;  
8    
9  sub check {  sub check {
10          my ( $self, $h ) = @_;          my ( $self, $h ) = @_;
         warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;  
11    
12          my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";          my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
13          my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?";          my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?";
# Line 19  sub check { Line 15  sub check {
15          if ( $dhcp =~ m/(\d+) server/ ) {          if ( $dhcp =~ m/(\d+) server/ ) {
16                  return if $1 == 0;                  return if $1 == 0;
17    
                 warn "## remove DHCP $dhcp $serial ",  
                         $h->{'_VARIANT_FRIENDLY_NAME'}, " ",  
                         $h->{'_BOARD_NAME'}, " ",  
                         $h->{'_BUILD'},  
                         "\n" if $verbose;  
   
18                  return 'dhcp server config state disabled';                  return 'dhcp server config state disabled';
19          } else {          } else {
20                  warn "OK ",__PACKAGE__," $serial $dhcp\n" if $verbose;                  once "OK ",__PACKAGE__," $serial $dhcp";
21                  return;                  return;
22          }          }
23  }  }
Legend:
Removed from v.57  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26