/[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

Annotation of /lib/MDAP/DHCP.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 58 - (hide annotations)
Fri Nov 16 19:12:08 2007 UTC (16 years, 4 months ago) by dpavlin
File size: 413 byte(s)
 r78@brr:  dpavlin | 2007-11-16 20:12:03 +0100
 cleanup messages and plugins

1 dpavlin 52 package MDAP::DHCP;
2    
3     use strict;
4     use warnings;
5    
6     use Module::Pluggable;
7 dpavlin 58 use MDAP;
8 dpavlin 52
9     sub check {
10     my ( $self, $h ) = @_;
11    
12     my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
13     my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?";
14    
15 dpavlin 53 if ( $dhcp =~ m/(\d+) server/ ) {
16 dpavlin 52 return if $1 == 0;
17    
18     return 'dhcp server config state disabled';
19     } else {
20 dpavlin 58 once "OK ",__PACKAGE__," $serial $dhcp";
21 dpavlin 52 return;
22     }
23     }
24    
25     1;

  ViewVC Help
Powered by ViewVC 1.1.26