Add video search. - annna - Annna the nice friendly bot.
 (HTM) git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
       ---
 (DIR) commit a7332eca163bb6338851912e77c7ca07356755a1
 (DIR) parent 387b4a7807cbb388e7eeb528f7e48e1680a87838
 (HTM) Author: Annna Robert-Houdin <annna@bitreich.org>
       Date:   Wed, 17 Apr 2024 16:30:52 +0200
       
       Add video search.
       
       Thanks eidolon for the recommendation!
       
       Diffstat:
         M annna-message-common                |      15 +++++++++++++++
         A idiotbox-roulette                   |      20 ++++++++++++++++++++
       
       2 files changed, 35 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git a/annna-message-common b/annna-message-common
       @@ -320,6 +320,21 @@ case "${text}" in
                        annna-say -s "${server}" -c "${channel}" "${user}, your type is ${usertype}"
                }
                ;;
       +"${ircuser}, please give me a video about "*)
       +        word="$(printf "%s\n" "${text}" | cut -c 38-)"
       +        case "$word" in
       +        *\?)
       +                word="$(printf "%s\n" "${word}" | cut -c -"$((${#word} - 1))")"
       +                ;;
       +        esac
       +        videoresult="$(idiotbox-roulette "${word}")"
       +        if [ -n "${videoresult}" ];
       +        then
       +                annna-say -s "${server}" -c "${channel}" "${user}, ${videoresult}"
       +        else
       +                annna-say -s "${server}" -c "${channel}" "${user}, sorry, nothing founds."
       +        fi
       +        ;;
        "${ircuser}, what is "*)
                word="$(printf "%s\n" "${text}" | cut -c 16-)"
                case "$word" in
 (DIR) diff --git a/idiotbox-roulette b/idiotbox-roulette
       @@ -0,0 +1,20 @@
       +#!/bin/sh
       +# idiotbox roulette
       +# by: eidolon
       +# Thanks!
       +
       +[ -z "$1" ] && exit 1
       +
       +printf '/idiotbox.cgi\t%s\r\n' "$1" |
       +  nc codemadness.org 70 |
       +  awk -v seed="$RANDOM" '
       +    BEGIN { FS="\t"; srand(seed) }
       +
       +    /^h/ && !/^hAtom/ { out[i++] = $1" "$2 }
       +
       +    END {
       +      p = out[int(rand()*length(out))]
       +      p = substr(p, 2)
       +      print p
       +    }
       +  ' | sed 's,URL:,url: ,'