<table align="center"><tbody><tr>
<td><iframe src="/meds" width="400"
height="50"></iframe></td></tr>
<tr><td align="right"><small>
<a href="//wiki1.mikf.pl/me/meds1.htm" target="_blank">
about this thing</a>
</small></td></tr></tbody></table>
the script that I run over ssh to update it (as of
2023-04-27):
#!/bin/sh
printf "took her morning meds alright today
(%s)\n\n" `date +%A` > ~mika/public_html/meds.txt
55-59/2,0-10/3 23-3 * * * ~mika/takingproc.sh midnight
~mika/public_html/meds.txt
*/20 4-6 * * * ~mika/takingproc.sh dusk ~mika/public_html/meds.txt
*/20 7-13 * * * ~mika/takingproc.sh am ~mika/public_html/meds.txt
*/20 14 * * * ~mika/takingproc.sh final ~mika/public_html/meds.txt
*/20 15-23 * * * ~mika/takingproc.sh late
~mika/public_html/meds.txt
#!/bin/bash
case "$1" in
midnight) >&2
echo midnight
sed -i -r -f - "$2" << END
1s/(took her morning meds )alright today(
\([A-Z][a-z]+\))/\1yesterday\2 alright/
1s/(taken her morning meds )today/\1yesterday/
2c
END
;;
dusk) >&2 echo
dusk
HOUR=`date +%I`
shopt -s expand_aliases
alias daw='date +%d'
[ `daw -r "$2"` -lt `daw` ] && exit 1
sed -i "2c\needs to take her meds in `expr 8 - $HOUR`-`
expr 14 - $HOUR` hours" "$2"
;;
am) >&2 echo am
HOUR=`date +%I`
THE_S=s
[ $HOUR = 13 ] && THE_S=
if [[ "`head -1 "$2"`" =~ yesterday ]]
then printf "seems to not have taken her meds yet\nand has `
expr 14 - $HOUR` hour$THE_S tops to do so\n" > "$2"
fi
;;
final) >&2 echo
final
sed -r -i -f - "$2" << END
s/and has [0-9]{1,2} hours? tops to do so/but has last hour to do
so late/
END
;;
late) >&2 echo
late
sed -i -f - "$2" << END
1s/yet/today/
T
2c\it is too late now
END
;;
*) echo "wrong $1" >&2
;;
esac 2>&1 | sed 'i\'"`date '+%n%d %T: '`" >> "$2.log"