aboutsummaryrefslogtreecommitdiff
path: root/examples/ipadd
diff options
context:
space:
mode:
Diffstat (limited to 'examples/ipadd')
-rwxr-xr-xexamples/ipadd4
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/ipadd b/examples/ipadd
index d6195da..f001950 100755
--- a/examples/ipadd
+++ b/examples/ipadd
@@ -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;
@@ -82,7 +82,7 @@ GetOptions(
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->put("$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.