Changes between Version 5 and Version 6 of API/Query

Timestamp:

Jun 18, 2022, 2:32:49 PM (23 months ago)

Author:

mirek@…

Comment:

--

API/Query

@@ -45 +45 @@
 use strict;
 use warnings;
-use REST::Client;
+
 use JSON;
+use LWP::UserAgent;
 use MIME::Base64;
+use Net::SSLeay;
 
-my $url      = "...";
-my $username = "...";
-my $password = "...";
+use constant URL  => '...';
+use constant USER => '...';
+use constant PASS => '...';
 
-my $rest = new REST::Client({ host => $url });
+my $ua = LWP::UserAgent->new();
 
-$rest->addHeader( "Content-type", "application/json");
-$rest->addHeader( "Authorization" => join(" ", "Basic", MIME::Base64::encode( join(":", $username, $password))));
+$ua->default_header( "Content-type" => "application/json");
+$ua->default_header( "Authorization" => join(" ", "Basic", MIME::Base64::encode( join(":", USER, PASS))));
 
 my $results;
@@ -62 +64 @@
 my $limit  = 100;
 
-my $j = new JSON;
+my $j = JSON->new();
 
 do {
-  my $r = $rest->GET( "/rest/query", { offset => $offset, limit => $limit });
-  my $response = $j->decode( $r->responseContent());
 
-  if( $results = $response->{"results"}) {
-    $offset += scalar @$results;
-    foreach my $item (@$results) {
-      printf "%s: %s[#%s]\n", $offset, $item->{"pn"}, $item->{"id"};
-    }
-  }
+        my $uri = URI->new( join('/', URL, 'rest/subscribers'));
+        $uri->query_form( offset => $offset, limit => $limit);
 
-} while (scalar @$results == $limit);
+        my $r = $ua->get($uri);
+
+        die sprintf("request failed (%s)\n", $r->code) unless $r->code == 200;
+
+        if( my $response = $j->decode( $r->decoded_content())) {
+
+                if( $results = $response->{"results"}) {
+
+                        foreach my $item (@$results) {
+                                printf "%s: %s[#%s]\n", $offset, $item->{"pn"}, $item->{"id"};
+                        }
+
+                        $offset += scalar @$results;
+
+                }
+
+        }
+
+} while (scalar @$results);
 }}}