diff options
Diffstat (limited to 'examples/ipadd')
-rwxr-xr-x | examples/ipadd | 4 |
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"; |