From 5cbb9aeb7249c51e7a6f4075695e0ca1ec9e0296 Mon Sep 17 00:00:00 2001
From: lassulus <lassulus@lassul.us>
Date: Wed, 18 May 2022 16:57:57 +0200
Subject: l: move radio to subfolder

---
 lass/2configs/radio/news.nix | 120 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 lass/2configs/radio/news.nix

(limited to 'lass/2configs/radio/news.nix')

diff --git a/lass/2configs/radio/news.nix b/lass/2configs/radio/news.nix
new file mode 100644
index 00000000..4f88197c
--- /dev/null
+++ b/lass/2configs/radio/news.nix
@@ -0,0 +1,120 @@
+{ config, lib, pkgs, ... }:
+let
+  weather_report = pkgs.writers.writeDashBin "weather_report" ''
+    set -efu
+    export PATH="${lib.makeBinPath [
+      pkgs.iproute2
+      pkgs.coreutils
+      pkgs.jq
+      pkgs.curl
+      pkgs.gnugrep
+      pkgs.gnused
+    ]}"
+    ss -Hno state established 'sport = :8000' |
+      grep '^tcp' | sed 's/.*\[.*\].*\[\(::ffff:\)\{0,1\}\(.*\)\].*/\2/' |
+      sed '/127.0.0.1/d;/:/d' |
+      while read -r ip; do
+        curl -sSL "https://wttr.in/@$ip?format=j1"
+      done | jq -rs 'unique_by(.nearest_area[0].areaName[0].value) |
+        map((.nearest_area[0] |
+          "Weather report for \(.areaName[0].value), \(.country[0].value).")
+          + (.current_condition[0] |
+            " Currently it is \(.weatherDesc[0].value) outside with a temperature of \(.temp_C) degrees."
+          )
+        ) | unique | .[]'
+      '
+  '';
+  send_to_radio = pkgs.writers.writeDashBin "send_to_radio" ''
+    ${pkgs.vorbisTools}/bin/oggenc - |
+      ${pkgs.libshout}/bin/shout --format ogg --host localhost --port 1338 --mount /live
+  '';
+
+  gc_news = pkgs.writers.writeDashBin "gc_news" ''
+    set -xefu
+    ${pkgs.coreutils}/bin/cat $HOME/news | ${pkgs.jq}/bin/jq -cs 'map(select((.to|fromdateiso8601) > now)) | .[]' > $HOME/bla-news.tmp
+    ${pkgs.coreutils}/bin/mv $HOME/bla-news.tmp $HOME/news
+  '';
+
+  get_current_news = pkgs.writers.writeDashBin "get_current_news" ''
+    set -xefu
+    ${pkgs.coreutils}/bin/cat $HOME/news | ${pkgs.jq}/bin/jq -rs 'map(select(((.to | fromdateiso8601) > now) and (.from|fromdateiso8601) < now) | .text) | .[]'
+  '';
+
+  newsshow = pkgs.writers.writeDashBin "newsshow" /* sh */ ''
+    cat << EOF
+    hello crabpeople!
+    $(${pkgs.ddate}/bin/ddate +'Today is %{%A, the %e of %B%}, %Y. %N%nCelebrate %H')
+    It is $(date --utc +%H) o clock UTC.
+    todays news:
+    $(get_current_news)
+    $(gc_news)
+    $(weather_report)
+    EOF
+  '';
+in
+{
+  systemd.services.newsshow = {
+    path = [
+      newsshow
+      send_to_radio
+      gc_news
+      get_current_news
+      weather_report
+      pkgs.curl
+      pkgs.retry
+    ];
+    script = ''
+      set -efu
+      retry -t 5 -d 10 -- newsshow |
+        retry -t 5 -d 10 -- curl -fSsG http://tts.r/api/tts --data-urlencode 'text@-' |
+        retry -t 5 -d 10 -- send_to_radio
+    '';
+    startAt = "*:00:00";
+    serviceConfig = {
+      User = "radio-news";
+    };
+  };
+
+  krebs.iptables.tables.filter.INPUT.rules = [
+    { predicate = "-p tcp --dport 7999"; target = "ACCEPT"; }
+  ];
+
+  krebs.htgen.news = {
+    port = 7999;
+    user = {
+      name = "radio-news";
+    };
+    script = ''. ${pkgs.writers.writeDash "htgen-news" ''
+      set -xefu
+      case "''${Method:-GET} $Request_URI" in
+        "GET /")
+          printf 'HTTP/1.1 200 OK\r\n'
+          printf 'Access-Control-Allow-Origin: *\r\n';
+          printf 'Access-Control-Allow-Methods: GET, POST, OPTIONS\r\n';
+          printf 'Connection: close\r\n'
+          printf '\r\n'
+          cat "$HOME"/news | jq -sc .
+          exit
+        ;;
+        "POST /")
+          payload=$(head -c "$req_content_length")
+          echo "$payload" | jq 'has("from") and has("to") and has("text")' >&2
+          echo "$payload" | jq -c '{ from: (.from | fromdate | todate), to: (.to | fromdate | todate), text: .text }' >> "$HOME"/news
+          printf 'HTTP/1.1 200 OK\r\n'
+          printf 'Access-Control-Allow-Origin: *\r\n';
+          printf 'Access-Control-Allow-Methods: GET, POST, OPTIONS\r\n';
+          printf 'Connection: close\r\n'
+          printf '\r\n'
+          exit
+        ;;
+      esac
+    ''}'';
+  };
+
+  ## debug
+  # environment.systemPackages = [
+  #   weather_report
+  #   send_to_radio
+  #   newsshow
+  # ];
+}
-- 
cgit v1.2.3