Sync last changes

utils/dns_parse.pl

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $BASE_URL="tower2.thezengarden.net";
+my $AAP_INVENTORY=14;
+my $CONTENT_TYPE="Content-type: application/json";
+
+my $TOWER_TOKEN="Authorization: Bearer YtLStVtkMGKxnWinslNiqDgYwZqKfM";
+
+my $csv = $ARGV[0];
+
+open (CSV, "< $csv") or die "unable to read $csv: $0\n";
+
+while (my $line = <CSV>)
+{
+  chomp $line;
+  $line =~ s/\r//g;
+
+  my @host = split(/,/, $line);
+
+  next if $host[1] =~ /Not/;
+
+  my $json_args = "{\"name\": \"$host[1]\", \"description\": \"$host[0]\"}";
+  print "$json_args\n";
+  
+  my $add_host_post = `curl -s -k -H \"$TOWER_TOKEN\" -H \"$CONTENT_TYPE\" -X POST -d '$json_args' \"https://$BASE_URL/api/v2/inventories/$AAP_INVENTORY/hosts/\"`;
+  print "$add_host_post\n";
+}
+