lib/App/Ping903/Command/ipdel.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package App::Ping903::Command::ipdel;
use strict;
use warnings;
use parent 'App::Ping903::Command';
use App::Ping903::Command ':exit_codes';

sub run {
    my $self = shift;
    $self->SUPER::run;
    $self->usage_error("required parameters missing") unless @ARGV == 1;
    my $ip = shift @ARGV;    
    unless ($self->agent->ipdel($ip)) {
	$self->abend(EX_FAIL, $self->agent->error_message);
    }
}
1;