#!/usr/bin/perl
#this script compiles the results of the annotations into an imagemap display
use JSON::XS;
$ARGV[0]=~s/\/$//; #remove trailing slash if present
$SHOW = $ARGV[0]; $SHOW=~s/^.*\///; $SHOW=~s/\/.*?//; #remove preceeding and trailing slashes
#get the show's thumbnail dimensions...
$thumbHeight = `curl -s https://storage.googleapis.com/data.gdeltproject.org/gdeltv3/iatv/visualexplorer/$SHOW.frameinfo.json | jq -r '.thumbHeight'` + 0;
$thumbWidth = `curl -s https://storage.googleapis.com/data.gdeltproject.org/gdeltv3/iatv/visualexplorer/$SHOW.frameinfo.json | jq -r '.thumbWidth'` + 0;
if ($thumbHeight < 50 || $thumbWidth < 50) { print "FATAL: Unable to read FrameInfo details for broadcast... Exiting...\n"; exit; };
opendir(DIR, $ARGV[0]);
while(readdir(DIR)) {
$buf = ''; open(FILE, "$ARGV[0]/$_"); read(FILE, $buf, (-s FILE)); close(FILE);
undef($ref); eval { $ref = decode_json($buf); }; if (!defined($ref)) { next; };
$frame = 0; ($frame) = $_=~/\-(\d\d\d\d\d\d)\.jpg/; $frame+=0;
$RESULTS{$frame-1} = "Frame $frame- " . $ref->{'predictions'}[0] . '
- '. $ref->{'predictions'}[1] . '
- '. $ref->{'predictions'}[2] . '
';
if ($buf=~/violate our policies.*? (Error Codes:.*?)"/) { $RESULTS{$frame-1} = "Frame $frame
The response is blocked, as it may violate our policies. $1"; print "VIOLATION: Frame $frame ($1)\n"; };
if ($frame > $MAXFRAME) { $MAXFRAME = $frame; };
}
closedir(DIR);
open(OUT, ">./$SHOW.captioned.html"); binmode(OUT, ":utf8");
print OUT " $SHOW Annotations ![](\"https://storage.googleapis.com/data.gdeltproject.org/gdeltv3/iatv/visualexplorer/${SHOW}.jpg\")
";
#interactive popup code...
print OUT "\n";
print OUT "
";
print OUT "";
close(OUT);