aboutsummaryrefslogtreecommitdiff
path: root/examples/ipadd
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2020-03-06 14:38:59 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2020-03-06 14:38:59 +0200
commit417659b757afc85fc437f3da462c09a4b86c1282 (patch)
tree5430de4b239bbcd71247407f44e3279d5390f2e1 /examples/ipadd
parent9358876eb9b42408cef571052c6e997aa77f0c77 (diff)
downloadping903-417659b757afc85fc437f3da462c09a4b86c1282.tar.gz
ping903-417659b757afc85fc437f3da462c09a4b86c1282.tar.bz2
Version 0.5v0.5
* NEWS: Update. * configure.ac: Raise version number. * examples/lib/LWP/Ping903.pm: Remove. * examples/README: Mention Mangemanche. Remove references to lib/LWP/Ping903.pm * examples/dbload: Revert to LWP::UserAgent * examples/inspect: Likewise. * examples/ipadd: Likewise. * examples/ipdel: Likewise.
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.