stormbot/bot.sh
Dimitar Dimitrov e78be1ccdc fixed mac bug
2013-07-22 14:33:08 +01:00

57 lines
1.5 KiB
Bash
Executable File

#!/bin/bash
. bot.properties
input=".bot.cfg"
echo "NICK $nick" > $input
echo "USER $user" >> $input
echo "JOIN #$channel" >> $input
tail -f $input | telnet $server 6667 | while read res
do
# do things when you see output
case "$res" in
# respond to ping requests from the server
PING*)
echo "$res" | sed "s/I/O/" >> $input
;;
# for pings on nick/user
*"You have not"*)
echo "JOIN #$channel" >> $input
;;
# run when someone joins
*JOIN*)
who=$(echo "$res" | perl -pe "s/:(.*)\!.*@.*/\1/")
if [ "$who" = "$nick" ]
then
continue
fi
echo "MODE #$channel +o $who" >> $input
;;
# run when a message is seen
*PRIVMSG*)
echo "$res"
who=$(echo "$res" | perl -pe "s/:(.*)\!.*@.*/\1/")
from=$(echo "$res" | perl -pe "s/.*PRIVMSG (.*[#]?([a-zA-Z]|\-)*) :.*/\1/")
# "#" would mean it's a channel
if [ "$(echo "$from" | grep '#')" ]
then
test "$(echo "$res" | grep ":$nick:")" || continue
will=$(echo "$res" | perl -pe "s/.*:$nick:(.*)/\1/")
else
will=$(echo "$res" | perl -pe "s/.*$nick :(.*)/\1/")
from=$who
fi
com=$(echo "$will" | cut -d " " -f 2)
if [ -z "$(ls modules/ | grep -i -- "$com.sh")" ]
then
./modules/help.sh $who $from >> $input
continue
fi
./modules/$com.sh $who $from $(echo "$will" | cut -d " " -f2-99) >> $input
;;
*)
echo "$res"
;;
esac
done