summaryrefslogtreecommitdiffstats
path: root/krebs/5pkgs/simple/irc-announce/default.nix
blob: dea30a056cb2d7b976617c176c0a19fa28a21f14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
{ pkgs, lib, ... }:

with lib;

pkgs.writeDashBin "irc-announce" ''
  set -euf

  export PATH=${makeSearchPath "bin" (with pkgs; [
    coreutils
    gawk
    gnused
    netcat
    nettools
  ])}

  IRC_SERVER=$1
  IRC_PORT=$2
  IRC_NICK=$3_$$
  IRC_CHANNEL=$4
  message=$5

  export IRC_CHANNEL # for privmsg_cat

  # echo2 and cat2 are used output to both, stdout and stderr
  # This is used to see what we send to the irc server. (debug output)
  echo2() { echo "$*"; echo "$*" >&2; }
  cat2() { (read x ; echo "$x" ; echo "$x" >&2) }

  # privmsg_cat transforms stdin to a privmsg
  privmsg_cat() { awk '{ print "PRIVMSG "ENVIRON["IRC_CHANNEL"]" :"$0 }'; }

  # ircin is used to feed the output of netcat back to the "irc client"
  # so we can implement expect-like behavior with sed^_^
  # XXX mkselfdestructingtmpfifo would be nice instead of this cruft
  tmpdir=$(mktemp --tmpdir -d irc-announce_XXXXXXXX)
  cd "$tmpdir"
  mkfifo ircin
  trap "
    rm ircin
    cd '$OLDPWD'
    rmdir '$tmpdir'
    trap - EXIT INT QUIT
  " EXIT INT QUIT

  {
    echo2 "USER $LOGNAME 0 * :$LOGNAME@$(hostname)"
    echo2 "NICK $IRC_NICK"

    # wait for MODE message
    sed -n '/^:[^ ]* MODE /q'

    echo2 "JOIN $IRC_CHANNEL"

    printf '%s' "$message" \
      | privmsg_cat \
      | cat2

    echo2 "PART $IRC_CHANNEL"

    # wait for PART confirmation
    sed -n '/:'"$IRC_NICK"'![^ ]* PART /q'

    echo2 'QUIT :Gone to have lunch'
  } < ircin \
    | nc "$IRC_SERVER" "$IRC_PORT" | tee -a ircin
''