Accessing NetWorker via a REST API does indeed strike me as interesting. Even more so if I can do it using my favourite language, Perl.<\/p>\n
This is by no means meant to be a programming tutorial, nor am I claiming to be the first to experiment with it. If you want to check out an in-development use of the REST API, check out Karsten Bott’s PowerShell work to date over at the NetWorker Community Page<\/a>. This post covers just the process of bootstrapping myself to the point I have working code \u2013 the real fun and work comes next!<\/p>\n For this to work, you’ll need a suitably recent Perl 5.x implementation. I’m practicing on my Mac laptop, running Perl 5.18.2.<\/p>\n You’ll also need the following modules:<\/p>\n And of course, you’ll need a NetWorker server running NetWorker 9, SP1.<\/p>\n I’m getting old an crotchety when it comes to resolving dependencies. When I was younger I used to manually download each CPAN module I needed, try to compile, strike dependency requirements, recurse down those<\/em> modules and keep going until I’d either solved all the dependencies or threw the computer out the window and became a monk.<\/p>\n So to get the above modules I invoked the cpan install<\/em> function on my Mac as follows:<\/p>\n There was a little bit of an exception thrown in the REST::Client installation about packages that could be used for testing, but overall the CPAN based installer worked well and saved me a lot of headaches.<\/p>\n The code itself is extremely simple \u2013 as I mentioned this is a proof of concept, not intended to be an interface as such. It’s from here I’ll start as I play around in greater detail. My goal for the code was as follows:<\/p>\n The actual code therefore is:<\/p>\n If you’re copying and pasting the code, about the only thing you should need to change is the hostname in the line starting $client->setHost<\/strong>.<\/p>\n It’s not particularly secure in the password prompt as Perl will automatically echo the password as you’re entering it. There are ways of disabling this echo, but they require the Term::Readkey library and that may not be readily available on all systems. So just keep this in mind…<\/p>\n Here’s the starting output for the code:<\/p>\n And so on…<\/em><\/p>\n The script isn’t pretty at the moment, but I wanted to get it out there as an example. As I hack around with it and get more functionality, I’ll provide updates.<\/p>\n Hopefully however you can see that it’s pretty straight-forward overall to access the REST API!<\/p>\n Overview As I mentioned in the previous article, NetWorker 9 SP1 has introduced a REST API. I’ve never previously got around to…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[6,16,20],"tags":[1249,1318,1317],"class_list":["post-5940","post","type-post","status-publish","format-standard","hentry","category-basics","category-networker","category-scripting","tag-networker","tag-perl","tag-rest-api"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t![\"REST](\"https:\/\/nsrd.info\/blog\/wp-content\/uploads\/2016\/07\/bigStock-API.jpg\")
<\/a><\/p>\nWhat you’ll need<\/h3>\n
\n
Getting started<\/h3>\n
pmdg@ganymede$ cpan install MIME::Base64<\/strong>\npmdg@ganymede$ cpan install REST::Client<\/strong>\npmdg@ganymede$ cpan install Data::Dumper<\/strong>\npmdg@ganymede$ cpan install JSON<\/strong><\/pre>\n
The code<\/h3>\n
\n
pmdg@ganymede$ cat tester.pl<\/strong>\n\n#!\/usr\/bin\/perl -w\n\nuse strict;\nuse MIME::Base64();\nuse REST::Client;\nuse Data::Dumper;\nuse JSON;\n\nmy $username = \"\";\nmy $password = \"\";\n\nprint \"Username: \";\n$username = <>;\nchomp $username;\n\nprint \"Password: \";\n$password = <>;\nchomp $password;\n\nmy $encoded = MIME::Base64::encode($username . \":\" . $password);\n$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;\nmy $client = REST::Client->new();\nmy $headers = { Accept => 'application\/json', Authorization => 'Basic ' . $encoded};\n$client->setHost('https:\/\/orilla.turbamentis.int:9090');\n$client->GET('\/nwrestapi\/v1\/global\/clients',$headers);\nmy $response = from_json($client->responseContent);\nprint Dumper($response);\n\n<\/pre>\nNotes on the Code<\/h3>\n
The Results<\/h3>\n
pmdg@ganymede$ .\/tester.pl<\/strong>\nUsername: administrator<\/strong>\nPassword: MySuperSecretPassword<\/strong>\n$VAR1 = {\n 'clients' => [\n {\n 'ndmpMultiStreamsEnabled' => bless( do{\\(my $o = 0)}, 'JSON::PP::Boolean' ),\n 'ndmpVendorInformation' => [],\n 'protectionGroups' => [],\n 'resourceId' => {\n 'sequence' => 79,\n 'id' => '198.0.72.12.0.0.0.0.132.105.45.87.192.168.100.4'\n },\n 'links' => [\n {\n 'rel' => 'item',\n 'href' => 'https:\/\/orilla.turbamentis.int:9090\/nwrestapi\/v1\/global\/clients\/198.0.72.12.0.0.0.0.132.105.45.87.192.168.100.4'\n }\n ],\n 'parallelSaveStreamsPerSaveSet' => $VAR1->{'clients'}[0]{'ndmpMultiStreamsEnabled'},\n 'hostname' => 'archon.turbamentis.int',\n\n<\/pre>\nIn Summary<\/h3>\n
References<\/h3>\n
\n