From 96e84e799867264addecc41ed7d38d9d7b703c51 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Thu, 26 Aug 2021 11:16:54 +0200
Subject: angel.sh -> angel.pl

---
 angel.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 angel.pl

(limited to 'angel.pl')

diff --git a/angel.pl b/angel.pl
new file mode 100755
index 0000000..6ab24ac
--- /dev/null
+++ b/angel.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use JSON;
+
+my $ENDPOINT = "https://www.googleapis.com/youtube/v3";
+my $YT_API_KEY = $ENV{'YT_API_KEY'} or die "YT_API_KEY not defined";
+
+sub decode_json_utf8 {
+    my $json = join "", @_;
+    utf8::encode($json);
+    return decode_json($json);
+}
+
+sub api_search {
+    return (decode_json_utf8 `curl -s '$ENDPOINT/search?channelId=UCGUc7rf0fbEzrGb7kkmu6zw&part=snippet&q=Informativo&maxResults=1&key=$YT_API_KEY'`)->{items};
+}
+
+my $today = `date '+%Y-%m-%dT'`;
+chomp $today;
+
+my ($video) = @{api_search()};
+
+if ($video->{snippet}{publishTime} =~ /^$today/) {
+    print "$video->{snippet}{title}\nhttps://www.youtube.com/watch?v=$video->{id}{videoId}\n";
+}
-- 
cgit v1.2.3