346 lines
9.0 KiB
Plaintext
346 lines
9.0 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
#―――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
|
||
|
|
# Name: librejam_irc_process
|
||
|
|
# Desc: Part of a game-jam chatbot. Processes lines of `ii` output from stdin
|
||
|
|
# as chat commands. Outputs text to be sent to the chatroom.
|
||
|
|
# Should probably not be run manually, but instead by librejam_irc.
|
||
|
|
# Reqs: librejam_gemini
|
||
|
|
# Date: 2022-03-30
|
||
|
|
#―――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
|
||
|
|
|
||
|
|
line_date() {
|
||
|
|
sed 's% .*%%'
|
||
|
|
}
|
||
|
|
|
||
|
|
line_sender() {
|
||
|
|
line_sanitize \
|
||
|
|
| awk '{print $3}' \
|
||
|
|
| tr -d '<>'
|
||
|
|
}
|
||
|
|
|
||
|
|
line_message() {
|
||
|
|
line_sanitize \
|
||
|
|
| after_column 3
|
||
|
|
}
|
||
|
|
|
||
|
|
line_command() {
|
||
|
|
line_message \
|
||
|
|
| awk '{print $1}' \
|
||
|
|
| grep '^!'
|
||
|
|
}
|
||
|
|
|
||
|
|
line_args() {
|
||
|
|
line_message \
|
||
|
|
| after_column 1
|
||
|
|
}
|
||
|
|
|
||
|
|
line_sanitize() {
|
||
|
|
tr -d '$`{}^%\\'
|
||
|
|
}
|
||
|
|
|
||
|
|
after_column() {
|
||
|
|
local column_no="$1"
|
||
|
|
cut -sd ' ' -f "$((column_no+1))"-
|
||
|
|
}
|
||
|
|
|
||
|
|
ensure_file() {
|
||
|
|
local path="$1"
|
||
|
|
touch "$path"
|
||
|
|
if test ! -e "$path"; then
|
||
|
|
>&2 echo "${path} cannot be created; do you have write permission for this directory?"
|
||
|
|
return 3
|
||
|
|
elif test ! -w "$path" -o ! -r "$path"; then
|
||
|
|
>&2 echo "${path} is either not readable or not writible-- please check your permissions."
|
||
|
|
return 3
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
ensure_directory() {
|
||
|
|
local path="$1"
|
||
|
|
mkdir -p "$path"
|
||
|
|
if test ! -d "$path"; then
|
||
|
|
>&2 echo "$path isn't an accessible directory."
|
||
|
|
return 2
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
remove_line() {
|
||
|
|
local path="$1"
|
||
|
|
local line="$2"
|
||
|
|
local tmp="$(mktemp)"
|
||
|
|
|
||
|
|
grep -v "$line" "$path" \
|
||
|
|
> "$tmp"
|
||
|
|
|
||
|
|
cat "$tmp" \
|
||
|
|
> "$path"
|
||
|
|
|
||
|
|
echo "$line" \
|
||
|
|
>> "$path.old"
|
||
|
|
}
|
||
|
|
|
||
|
|
sanitize() {
|
||
|
|
sed 's% %-%g' \
|
||
|
|
| tr 'A-Z' 'a-z' \
|
||
|
|
| sed 's% $%%'
|
||
|
|
}
|
||
|
|
|
||
|
|
init_gemini() {
|
||
|
|
local sender="$1"; local url="$2"; local branch="$3"; local name="$4"
|
||
|
|
local outname="$(echo "$name" | sanitize)"
|
||
|
|
|
||
|
|
librejam_gemini "$sender" "$url" "$branch" "$name" "$SUBMISSIONS_DIR" \
|
||
|
|
"$ratings_path" \
|
||
|
|
> "$SUBMISSIONS_DIR/${outname}/${outname}.gmi"
|
||
|
|
}
|
||
|
|
|
||
|
|
update_gemini() {
|
||
|
|
local sender="$1"; local url="$2"; local branch="$3"; local name="$4"
|
||
|
|
local ratings_path="$5"
|
||
|
|
local outname="$(echo "$name" | sanitize)"
|
||
|
|
ensure_directory "$SUBMISSIONS_DIR/${outname}/"
|
||
|
|
ensure_directory "$(dirname "$ratings_path")"
|
||
|
|
|
||
|
|
librejam_gemini "$sender" "$url" "$branch" "$name" "$SUBMISSIONS_DIR" \
|
||
|
|
"$ratings_path" \
|
||
|
|
> "$SUBMISSIONS_DIR/${outname}/${outname}.gmi"
|
||
|
|
case "$?" in
|
||
|
|
0) return 0 ;;
|
||
|
|
1) echo "$sender: I had trouble cloning your git repo― did you give me the right URL?" ;;
|
||
|
|
2) echo "$sender: Couldn't switch to the $branch branch― does $branch even exist?" ;;
|
||
|
|
3) echo "$sender: Couldn't download the archive― did you give the right URL?" ;;
|
||
|
|
esac
|
||
|
|
return 2
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
HELP_SUBMIT="!submit <url> [-b branch] <name>
|
||
|
|
. Submit a Librejam entry, either with a Git repository or archive over FTP/HTTP/etc.
|
||
|
|
. If submitting a Git repository, you must specify the branch with the -b
|
||
|
|
. argument. You can update your submission until the jam ends by re-running
|
||
|
|
. this command."
|
||
|
|
submit_cmd() {
|
||
|
|
local args="$1"; local sender="$2"
|
||
|
|
local entries="$SUBMISSIONS_DIR/entries.txt"
|
||
|
|
local url="$(echo "$args" | awk '{print $1}')"
|
||
|
|
local branch="$(echo "$args" | awk '{print $3}')"
|
||
|
|
local name="$(echo "$args" | after_column 3)"
|
||
|
|
|
||
|
|
if test ! "$(echo "$args" | awk '{print $2}')" = "-b"; then
|
||
|
|
branch=":curl"
|
||
|
|
name="$(echo "$args" | after_column 1)"
|
||
|
|
fi
|
||
|
|
|
||
|
|
ensure_file "$entries"
|
||
|
|
ensure_file "$entries.old"
|
||
|
|
if test "$SUBMITTING_ENDS" -le "$(date +%s)"; then
|
||
|
|
echo "$sender: Sorry, but the time for submissions is over!"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
# Just in case they've already submitted
|
||
|
|
local prev_entry="$(grep "^$sender" "$entries")"
|
||
|
|
|
||
|
|
if test -z "$prev_entry" -a -z "$name" -o -z "$url"; then
|
||
|
|
echo "$sender: Please provide all arguments to submit!"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
# If they've already submitted, replace empty args with implied values
|
||
|
|
if test -z "$name" -a -n "$prev_entry"; then
|
||
|
|
name="$(echo "$prev_entry" | after_column 3)"
|
||
|
|
fi
|
||
|
|
if test -z "$branch" -a -n "$prev_entry"; then
|
||
|
|
branch="$(echo "$prev_entry" | awk '{print $3}')"
|
||
|
|
fi
|
||
|
|
if test -z "$url" -a -n "$prev_entry"; then
|
||
|
|
url="$(echo "$prev_entry" | awk '{print $2}')"
|
||
|
|
fi
|
||
|
|
|
||
|
|
submit_game "$sender" "$prev_entry" "$url" "$branch" "$name"
|
||
|
|
}
|
||
|
|
|
||
|
|
submit_game() {
|
||
|
|
local sender="$1"; local prev_entry="$2"
|
||
|
|
local url="$3"; local branch="$4"; local name="$5"
|
||
|
|
local entries="$SUBMISSIONS_DIR/entries.txt"
|
||
|
|
local outname="$(echo "$name" | sanitize)"
|
||
|
|
|
||
|
|
update_gemini "$sender" "$url" "$branch" "$name"
|
||
|
|
|
||
|
|
if test "$?" -eq 0; then
|
||
|
|
# Remove previous entry, if necessary
|
||
|
|
if test -n "$prev_entry"; then
|
||
|
|
remove_line "$entries" "$prev_entry"
|
||
|
|
fi
|
||
|
|
|
||
|
|
echo "$sender $url $branch $name" \
|
||
|
|
>> "$entries"
|
||
|
|
if test "$branch" = ":curl"; then
|
||
|
|
echo "$sender: $name has been submitted from archive!"
|
||
|
|
else
|
||
|
|
echo "$sender: $name has been submitted from git!"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
HELP_RATE="!rate <index> <1-10> [comment]
|
||
|
|
. Submit your rating on a given game, with an optional comment. If you rate
|
||
|
|
. a single game multiple times, the latest rating will be used."
|
||
|
|
rate_cmd() {
|
||
|
|
local args="$1"; local sender="$2"
|
||
|
|
local id="$(echo "$args" | awk '{print $1}')"
|
||
|
|
local rating="$(echo "$args" | awk '{print $2}')"
|
||
|
|
local comment="$(echo "$args" | after_column 2)"
|
||
|
|
local entries="$SUBMISSIONS_DIR/entries.txt"
|
||
|
|
|
||
|
|
local now="$(date +%s)"
|
||
|
|
if test "$now" -le "$SUBMITTING_ENDS" -o "$now" -gt "$RATING_ENDS"; then
|
||
|
|
echo "$sender: Sorry, it's not time to rate!"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
if test "$rating" -lt 1 -o "$rating" -gt 10; then
|
||
|
|
echo "$sender: That's an invalid rating, sorry!"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
local entry_count="$(wc -l "$entries" | awk '{print $1}')"
|
||
|
|
if test "$id" -lt 1 -o "$id" -gt "$entry_count"; then
|
||
|
|
echo "$sender: That's… that's not an ID. Try below $entry_count."
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
local entry="$(awk 'NR=='"$id" "$entries")"
|
||
|
|
local outname="$(echo "$entry" | after_column 3 | sanitize)"
|
||
|
|
local ratings="$SUBMISSIONS_DIR/${outname}/ratings.txt"
|
||
|
|
ensure_directory "$(dirname "$ratings")"
|
||
|
|
ensure_file "$ratings"
|
||
|
|
|
||
|
|
if test "$sender" = "$(echo "$entry" | awk '{print $1}')"; then
|
||
|
|
echo "$sender: … You can't rate your own game! xD"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
local prev_rating="$(grep "^$sender" "$ratings" | head -1)"
|
||
|
|
if test -n "$prev_rating"; then
|
||
|
|
remove_line "$ratings" "$prev_rating"
|
||
|
|
fi
|
||
|
|
echo "$sender $rating $comment" \
|
||
|
|
>> "$ratings"
|
||
|
|
|
||
|
|
echo "$sender: Rating accepted!"
|
||
|
|
|
||
|
|
update_gemini "$(echo "$entry" | awk '{print $1}')" \
|
||
|
|
"$(echo "$entry" | awk '{print $2}')" \
|
||
|
|
"$(echo "$entry" | awk '{print $3}')" \
|
||
|
|
"$(echo "$entry" | after_column 3)" \
|
||
|
|
"$ratings"
|
||
|
|
}
|
||
|
|
|
||
|
|
HELP_LIST="!list
|
||
|
|
. List all games submitted for the jam."
|
||
|
|
list_cmd() {
|
||
|
|
local entries="$SUBMISSIONS_DIR/entries.txt"
|
||
|
|
|
||
|
|
local index="1"
|
||
|
|
while read entry; do
|
||
|
|
if test -n "$entry"; then
|
||
|
|
local name="$(echo "$entry" | after_column 3)"
|
||
|
|
echo "$entry" \
|
||
|
|
| awk '{ printf("[%s] %s | By %s | %s\n",
|
||
|
|
'"$index"', "'"$name"'", $1, $2) }'
|
||
|
|
index="$((index + 1))"
|
||
|
|
fi
|
||
|
|
done < "$entries"
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
HELP_ABOUT="!about
|
||
|
|
. … you could just try the command. It won't bite."
|
||
|
|
about_cmd() {
|
||
|
|
local sender="$2"
|
||
|
|
|
||
|
|
echo "$sender: I'm a bot made for Librejam (gemini://leagueh.xyz/en/librejam)."
|
||
|
|
echo "My sauce is at https://github.com/jadedctrl/librejam-omnom/"
|
||
|
|
echo "Current submissions are at gemini://xwx.moe/librejam/"
|
||
|
|
echo "Submissions end at: $(date -ud @"$SUBMITTING_ENDS")"
|
||
|
|
echo "Rating ends at: $(date -ud @"$RATING_ENDS")"
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
HELP_HELP="!help <command>
|
||
|
|
. … do I really have to explain this one? <o<\""
|
||
|
|
help_cmd() {
|
||
|
|
local args="$1"
|
||
|
|
local sender="$2"
|
||
|
|
|
||
|
|
case "$args" in
|
||
|
|
*submit*)
|
||
|
|
echo "$sender: $HELP_SUBMIT";;
|
||
|
|
*rate*)
|
||
|
|
echo "$sender: $HELP_RATE";;
|
||
|
|
*list*)
|
||
|
|
echo "$sender: $HELP_LIST";;
|
||
|
|
*about*)
|
||
|
|
echo "$sender: $HELP_ABOUT";;
|
||
|
|
*help*)
|
||
|
|
echo "$sender: $HELP_HELP";;
|
||
|
|
*)
|
||
|
|
echo "$sender: $HELP_HELP" | head -1
|
||
|
|
echo "$HELP_ABOUT" | head -1
|
||
|
|
echo "$HELP_RATE" | head -1
|
||
|
|
echo "$HELP_SUBMIT" | head -1
|
||
|
|
echo "$HELP_LIST" | head -1 ;;
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
process_line() {
|
||
|
|
local line="$1"
|
||
|
|
local sender="$(echo "$line" | line_sender)"
|
||
|
|
local line_args="$(echo "$line" | line_args)"
|
||
|
|
local command="$(echo "$line" | line_command)"
|
||
|
|
if test "$?" -ne 0; then
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
case "$command" in
|
||
|
|
"!submit")
|
||
|
|
submit_cmd "$line_args" "$sender" ;;
|
||
|
|
"!rate")
|
||
|
|
rate_cmd "$line_args" "$sender" ;;
|
||
|
|
"!list")
|
||
|
|
list_cmd "$line_args" "$sender" ;;
|
||
|
|
"!uwu")
|
||
|
|
echo "$sender: ur sweet <3" ;;
|
||
|
|
"!about")
|
||
|
|
about_cmd "$line_args" "$sender" ;;
|
||
|
|
"!help")
|
||
|
|
help_cmd "$line_args" "$sender" ;;
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
NICK="$1"
|
||
|
|
SUBMISSIONS_DIR="$2"
|
||
|
|
SUBMITTING_ENDS="$(date -ud "$3" +%s)"
|
||
|
|
RATING_ENDS="$(date -ud "$4" +%s)"
|
||
|
|
if test -z "$SUBMISSIONS_DIR" -o -z "$SUBMITTING_ENDS" -o -z "$RATING_ENDS"
|
||
|
|
then
|
||
|
|
>&2 echo "Usage: $(basename "$0") nick entry_dir submit_deadline rate_deadline"
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
ensure_directory "$SUBMISSIONS_DIR"
|
||
|
|
|
||
|
|
while read line; do
|
||
|
|
if echo "$line" | grep "^....-..-.. ..:.. Closing link" >/dev/null; then
|
||
|
|
>&2 echo "ii has disconnected!"
|
||
|
|
exit 2;
|
||
|
|
fi
|
||
|
|
|
||
|
|
echo "$line" | grep "<$NICK>" > /dev/null
|
||
|
|
if test "$?" -ne 0; then
|
||
|
|
process_line "$line"
|
||
|
|
fi
|
||
|
|
done
|