#!/bin/sh

trap cleanup 1 2 3 6 9 11
cleanup() { kill $PID; }


BOTNICK="#"
SERVER="#"
PORT="#"
CHANNEL="#"

BOTDIR="$PWD"

IRCIN="$BOTDIR/irc/$SERVER/$CHANNEL/in"
IRCOUT="$BOTDIR/irc/$SERVER/$CHANNEL/out"

# $1 nick (optional)
# $2 text
say() {
    if [ -z "$2" ]
    then
        echo "$1" > $IRCIN
    else
        echo "$1: $2" > $IRCIN
    fi
    sleep 1
}

kalender() {
    say "Hier die nächsten 3 Kalendereinträge:"
    curl -s "https://vorstand.uugrn.org/Kalender/Termine.rem" \
        | remind -b1 -n - \
        | sort \
        | head -3 \
        | while read -r line
    do
        date=$(echo "$line" \
                | cut -d" " -f 1 \
                | sed 's,\(....\)/\(..\)/\(..\),\3.\2.\1,g')

        time=$(echo "$line" \
                | cut -d" " -f 2)

        text=$(echo "$line" \
                | cut -d" " -f 3- \
                | cut -d"|" -f1 \
                | sed 's/ $//g')

        loc=$(echo "$line" \
                | cut -d" " -f 3- \
                | cut -d"|" -f 2-)

        if echo "$line" | fgrep ' |'
        then
            say "Am $date um $time Uhr findet \"$text\" im \"$loc\" statt."
        else
            say "Am $date um $time Uhr findet \"$text\" statt."
        fi
    done
}

# $1 nick
# $2 -1 decrease, +1 increase
savekarma() {
    mkdir -p $BOTDIR/karma
    [ ! -f "$BOTDIR/karma/$1" ] \
        && echo 0 > "$BOTDIR/karma/$1"

    old=$(cat "$BOTDIR/karma/$1")
    new=$(( old $2 ))
    echo $new > "$BOTDIR/karma/$1"
    say "$1 hat nun $new Gummipunkt(e)"
}

# $1 nick
reportkarma() {
    if [ -z "$1" ]
    then
        n=$NICK
    else
        n=$1
    fi
    if [ ! -f "$BOTDIR/karma/$n" ]
    then
        if [ "$n" == "$NICK" ]
        then
            say "Du hast bisher leider noch keine Gummipunkte gesammelt, $n."
        else
            say "$n hat leider noch keine Gummipunkte gesammelt."
        fi
    else
        cur=$(cat "$BOTDIR/karma/$n")
        if [ "$n" == "$NICK" ]
        then
            say "Du hast momentan $cur Gummipunkt(e), $n."
        else
            say "$n hat momentan $cur Gummipunkt(e)."
        fi
    fi
}

karma() {
    echo "karma: $1"
    n="$(echo "$1" | tr -d "+-")"
    [ -z "$n" ] && return

    if [ "$n" == "$(echo "$NICK" | tr '[:upper:]' '[:lower:]' )" ]
    then
        say "So aber nicht mein lieber $NICK!"
        return
    fi

    echo "$1" | fgrep "++" \
        && savekarma $n "+1"
    echo "$1" | fgrep -- "--" \
        && savekarma $n "-1"
    echo "$1" | fgrep "+-" \
        && say "Echt jetzt, $NICK?"
    echo "$1" | fgrep -- "-+" \
        && say "Echt jetzt, $NICK?"
}
transparenzbericht() {
    mkdir -p "$BOTDIR/karma"
    cd $BOTDIR/karma || return
    say "Gummipunkte Transparenzbericht:"
    for i in $(ls)
    do
        say "$i: $(cat "$i") Gummipunkte"
    done
}

usage() {
    say "!kalender           - zeigt die nächsten 3 Termine im UUGRN Kalender"
    say "!wetter <ort>       - zeigt das Wetter an <ort> oder Heidelberg"
    say "!punkte <nick>      - zeigt den Gummipunktlevel von <nick> oder dir selbst an"
    say "!transparenzbericht - zeigt den Gummipunkte Transparenzbericht an"
    say "<nick>++            - vergibt einen Gummipunkt an <nick>"
    say "<nick>--            - nimmt <nick> einen Gummipunkt weg"
    say "!hilfe              - zeigt diesen hilfetext an"

}

# $1 loc
weather() {
    if [ -z "$1" ]
    then
        l=heidelberg
    else
        l=$1
    fi
    say "$(curl -s "https://wttr.in/$l?lang=de&format=%l:+%t+%C+%w+%h+Regen")"
}

mkdir -p "$BOTDIR/irc"
cd "$BOTDIR"

echo "connecting."
ii -i $BOTDIR/irc -s $SERVER -p $PORT -n $BOTNICK &
PID=$!
sleep 1
echo "/join $CHANNEL" > $BOTDIR/irc/$SERVER/in
sleep 1

echo "ready."

tail -n 0 -f "$IRCOUT" \
    | while read -r line
do
    NICK=$(echo "$line" \
                | sed -n 's/^....-..-.. ..:.. <\([^>]*\).*/\1/p')

    if [ "$NICK" == "$BOTNICK" ]
    then
        # prevent loops
        continue
    fi

    COMMAND=$(echo "$line" \
                | tr '[:upper:]' '[:lower:]' \
                | sed -n 's|.*\(![a-z]*\).*|\1|p')

    ARG=$(echo "$line" \
                | tr '[:upper:]' '[:lower:]' \
                | sed -n 's|.*![a-z]* \([a-zA-Z0-9\-_]*\).*|\1|p')

    KARMA=$(echo "$line" \
                | tr '[:upper:]' '[:lower:]' \
                | sed -n 's|.* \([a-zA-Z0-9\-_]*[+-][+-]\).*|\1|p')

    echo "in> $line"
    echo "in> NICK=$NICK, COMMAND=$COMMAND, ARG=$ARG, KARMA=$KARMA"

    case "$COMMAND" in
        "!kalender") kalender; ;;
        "!punkte") reportkarma $ARG; ;;
        "!transparenzbericht") transparenzbericht; ;;
        "!wetter") weather $ARG; ;;
        "!hilfe") usage; ;;
    esac
    case "$KARMA" in
        *[+-][+-]) karma $KARMA; ;;
    esac
done