aboutsummaryrefslogtreecommitdiff
path: root/examples/ipdel
diff options
context:
space:
mode:
Diffstat (limited to 'examples/ipdel')
-rwxr-xr-xexamples/ipdel4
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/ipdel b/examples/ipdel
index 8eed7eb..fa4cb8f 100755
--- a/examples/ipdel
+++ b/examples/ipdel
@@ -57,7 +57,7 @@ L<DBI>.
use strict;
use warnings;
-use LWP::Ping903;
+use LWP::UserAgent;
use JSON;
use Getopt::Long qw(:config gnu_getopt no_ignore_case);
use Pod::Usage;
@@ -83,7 +83,7 @@ my $ip = shift @ARGV or die "not enough arguments";
die "too many arguments; try `$0 --help' for more info\n" if @ARGV;
-my $ua = new LWP::Ping903;
+my $ua = new LWP::UserAgent;
my $response = $ua->delete("$baseurl/config/ip-list/$ip");
unless ($response->is_success) {
print $response->status_line,"\n";

Return to:

Send suggestions and report system problems to the System administrator.