irc-announce: use ircaids
This commit is contained in:
parent
72d5a050e1
commit
1b65517b44
@ -1,18 +1,8 @@
|
|||||||
{ pkgs, lib, ... }:
|
{ pkgs, lib, ... }:
|
||||||
|
|
||||||
with lib;
|
|
||||||
|
|
||||||
pkgs.writeDashBin "irc-announce" ''
|
pkgs.writeDashBin "irc-announce" ''
|
||||||
set -euf
|
set -euf
|
||||||
|
|
||||||
export PATH=${makeSearchPath "bin" (with pkgs; [
|
|
||||||
coreutils
|
|
||||||
gawk
|
|
||||||
gnused
|
|
||||||
netcat
|
|
||||||
nettools
|
|
||||||
])}
|
|
||||||
|
|
||||||
IRC_SERVER=$1
|
IRC_SERVER=$1
|
||||||
IRC_PORT=$2
|
IRC_PORT=$2
|
||||||
IRC_NICK=$3_$$
|
IRC_NICK=$3_$$
|
||||||
@ -20,57 +10,15 @@ pkgs.writeDashBin "irc-announce" ''
|
|||||||
IRC_TLS=$5
|
IRC_TLS=$5
|
||||||
message=$6
|
message=$6
|
||||||
|
|
||||||
export IRC_CHANNEL # for privmsg_cat
|
if test "$IRC_TLS" != 1; then
|
||||||
|
unset IRC_TLS
|
||||||
|
fi
|
||||||
|
|
||||||
# echo2 and cat2 are used output to both, stdout and stderr
|
printf %s "$message" |
|
||||||
# This is used to see what we send to the irc server. (debug output)
|
${pkgs.ircaids}/bin/ircsink \
|
||||||
echo2() { echo "$*"; echo "$*" >&2; }
|
--nick="$IRC_NICK" \
|
||||||
cat2() {
|
--port="$IRC_PORT" \
|
||||||
awk '{
|
--server="$IRC_SERVER" \
|
||||||
print $0
|
--target="$IRC_CHANNEL" \
|
||||||
print $0 > "/dev/stderr"
|
''${IRC_TLS:+--secure}
|
||||||
}'
|
|
||||||
}
|
|
||||||
|
|
||||||
# privmsg_cat transforms stdin to a privmsg
|
|
||||||
privmsg_cat() { awk '{ print "PRIVMSG "ENVIRON["IRC_CHANNEL"]" :"$0 }'; }
|
|
||||||
|
|
||||||
tls_flag() { if [ "$IRC_TLS" -eq 1 ]; then echo "-c"; fi }
|
|
||||||
|
|
||||||
# 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"
|
|
||||||
|
|
||||||
awk 'match($0, /PING(.*)/, m) {print "PONG", m[1]; exit}'
|
|
||||||
|
|
||||||
# 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 $(tls_flag) "$IRC_SERVER" "$IRC_PORT" | tee -a ircin
|
|
||||||
''
|
''
|
||||||
|
Loading…
Reference in New Issue
Block a user