87 lines
2.3 KiB
Perl
87 lines
2.3 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use autodie;
|
||
|
|
use Config::Tiny;
|
||
|
|
use HTTP::Tiny;
|
||
|
|
use JSON::PP;
|
||
|
|
use Text::CSV;
|
||
|
|
use File::Temp;
|
||
|
|
use MIME::Lite;
|
||
|
|
|
||
|
|
my $CONFIG_FILE = "/home/mischa/netskope/netskope.cnf";
|
||
|
|
my $config = Config::Tiny->read($CONFIG_FILE, 'utf8');
|
||
|
|
my $NTSKP_TENANT = $config->{netskope}{NTSKP_TENANT};
|
||
|
|
my $NTSKP_TOKEN = $config->{netskope}{NTSKP_TOKEN};
|
||
|
|
my $NTSKP_REPORTID = $config->{netskope}{NTSKP_REPORTID};
|
||
|
|
|
||
|
|
my $uri = "$NTSKP_TENANT/api/v1/reports?token=$NTSKP_TOKEN&op=reportInfo&id=$NTSKP_REPORTID";
|
||
|
|
my $response = HTTP::Tiny->new->get($uri);
|
||
|
|
my $json = JSON::PP->new->utf8->decode($response->{'content'});
|
||
|
|
my $data = $json->{'data'}->{'latestScheduledRunInfo'}->{'widgets'};
|
||
|
|
my %files;
|
||
|
|
|
||
|
|
for my $widget (@{$data}) {
|
||
|
|
my $tmp_file = File::Temp->new(UNLINK => 0, TEMPLATE => 'tempXXXXX', DIR => '/tmp');
|
||
|
|
$files{$tmp_file} = $widget->{'name'};
|
||
|
|
$uri = "$NTSKP_TENANT/api/v1/reports?token=$NTSKP_TOKEN&op=widgetData&id=$widget->{'id'}";
|
||
|
|
$response = HTTP::Tiny->new->get($uri);
|
||
|
|
open my $fh_out, ">", $tmp_file;
|
||
|
|
print $fh_out $response->{'content'};
|
||
|
|
close $fh_out;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $out_email = "azblocklist.csv";
|
||
|
|
my $out_zscaler = "zscaler.txt";
|
||
|
|
open my $fh_email, ">", $out_email;
|
||
|
|
open my $fh_zscaler, ">", $out_zscaler;
|
||
|
|
|
||
|
|
for my $item (keys %files) {
|
||
|
|
my $count = 0;
|
||
|
|
my $csv = Text::CSV->new({binary => 1, auto_diag => 1});
|
||
|
|
open my $fh, "<", $item;
|
||
|
|
my $header = $csv->getline($fh);
|
||
|
|
|
||
|
|
print "$files{$item}\n";
|
||
|
|
print $fh_email "$files{$item}\n";
|
||
|
|
|
||
|
|
while (my $row = $csv->getline($fh)) {
|
||
|
|
last if ($count == 30);
|
||
|
|
if ($row->[1] =~ m/,/) {
|
||
|
|
my @domains = split "," , $row->[1];
|
||
|
|
for my $domain (@domains) {
|
||
|
|
print "$domain,";
|
||
|
|
print $fh_email "$domain,";
|
||
|
|
print $fh_zscaler "$domain\n";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
print "$row->[1],";
|
||
|
|
print $fh_email "$row->[1],";
|
||
|
|
print $fh_zscaler "$row->[1]\n";
|
||
|
|
}
|
||
|
|
$count++;
|
||
|
|
}
|
||
|
|
print "\n";
|
||
|
|
print $fh_email "\n";
|
||
|
|
close $fh;
|
||
|
|
unlink $item;
|
||
|
|
}
|
||
|
|
close $fh_email;
|
||
|
|
close $fh_zscaler;
|
||
|
|
|
||
|
|
my $msg = MIME::Lite->new(
|
||
|
|
From => 'mischa@high5.nl',
|
||
|
|
To => 'mischa@netskope.com',
|
||
|
|
Cc => 'mischa@high5.nl',
|
||
|
|
Subject => 'AztraZeneca Netskope Blocklist',
|
||
|
|
Type => 'TEXT',
|
||
|
|
Data => "Domains pushed to Zscaler for blocking\n\n"
|
||
|
|
);
|
||
|
|
$msg->attach(
|
||
|
|
Type => 'text/csv',
|
||
|
|
Path => $out_email,
|
||
|
|
Filename => $out_email
|
||
|
|
);
|
||
|
|
$msg->send('smtp','mail.high5.nl', Debug=>0);
|
||
|
|
unlink $out_email;
|