diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2017-04-11 13:29:51 +0200 |
|---|---|---|
| committer | Joachim Tingvold <joachim@tingvold.com> | 2017-04-11 13:29:51 +0200 |
| commit | b3d110878958a85302c39275aded0c88b0bc4dc6 (patch) | |
| tree | 3663264ad190811368f1a5bff1958a7430601542 /tools/generate-rowdns.pl | |
| parent | fe63ef82267c7eee7a237ba708f5163509a025fa (diff) | |
Update to use with Gondul.
Diffstat (limited to 'tools/generate-rowdns.pl')
| -rwxr-xr-x | tools/generate-rowdns.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/generate-rowdns.pl b/tools/generate-rowdns.pl index a7b9aef..c04697c 100755 --- a/tools/generate-rowdns.pl +++ b/tools/generate-rowdns.pl @@ -30,13 +30,13 @@ sub get_url{ $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; # just to be sure :-D my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $url); - $req->authorization_basic($nms::config::nmsapi_user, $nms::config::nmsapi_pass); + $req->authorization_basic($nms::config::gondul_user, $nms::config::gondul_pass); return $ua->request($req)->content(); } my $json_obj = new JSON; -my $json_content = get_url($nms::config::nmsapi_url . "/api/read/switches-management"); +my $json_content = get_url($nms::config::gondul_url . "/api/read/switches-management"); if($json_content){ my $json = $json_obj->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($json_content); |