2 # Copyright (C) 2019 Ian Kelling
3 # SPDX-License-Identifier: AGPL-3.0-or-later
5 # usage: runs once every 15 seconds unless any args are passed, or we
6 # then just runs once and have verbose output. On battery power, run
9 if [ -z "$BASH_VERSION" ]; then echo "error: shell is not bash" >&2; exit 1; fi
11 if [[ $EUID != 1000 ]]; then
12 echo "$0: error, expected to be user 1000"
16 source /a
/bin
/errhandle
/err
17 status_file
=/dev
/shm
/iank-status
23 for p
in ~
/.gem
/ruby
/*/bin
; do
37 p
() { printf "%s\n" "$*"; }
38 # log-once COUNT NAME [MESSAGE]
40 if type -p ifne
&>/dev
/null
; then
41 /usr
/local
/bin
/log-once
"$@" | ifne
mail -s "$HOSTNAME: system-status $2" root@localhost
46 if type -p ifne
&>/dev
/null
; then
47 /usr
/local
/bin
/log-once
"$@" | ifne
mail -s "$HOSTNAME: system-status $2" daylert@iankelling.org
57 # todo, consider migrating some of these alerts into prometheus
59 chars
=("${first_chars[@]}")
61 services
=( epanicclean
)
71 if systemctl show
-p SubState
--value ${services[@]} |
egrep -v '^(running|)$' &>/dev
/null
; then
72 for s
in ${services[@]}; do
73 if [[ $
(systemctl show
-p SubState
--value $s 2>&1) != running
]]; then
79 p
${bads[*]} | lo
-240 mysers
86 prometheus-node-exporter
87 prometheus-alertmanager
91 if systemctl show
-p SubState
--value ${services[@]} |
egrep -v '^(running|)$' &>/dev
/null
; then
92 for s
in ${services[@]}; do
93 if [[ $
(systemctl show
-p SubState
--value $s 2>&1) != running
]]; then
99 p
${bads[*]} | lo
-240 prom
104 # this section copied from servicepid()
106 pid
=$
(systemctl show
--property MainPID
--value $unit ||
:)
110 dir
=/sys
/fs
/cgroup
/system.slice
111 if [[ ! -d $dir ]]; then
112 dir
=/sys
/fs
/cgroup
/systemd
/system.slice
114 pid
=$
(head -n1 $dir/${unit%.service}.service
/cgroup.procs ||
:)
117 if [[ ! $pid ]]; then
122 if [[ -e /a
/bin
/bash_unpublished
/source-state
]]; then
123 # /a gets remounted due to btrbk, ignore error code for file doesnt exist
124 source /a
/bin
/bash_unpublished
/source-state ||
[[ $?
== 1 ]]
126 if [[ $MAIL_HOST == "$HOSTNAME" ]]; then
129 glob
=(/m
/md
/bounces
/new
/*)
130 if [[ -e ${glob[0]} ]]; then
132 bouncemsg
="message in /m/md/bounces/new"
134 p
$bouncemsg | loday
-1 bounce
135 # emails without the S (seen) flag. this only checks the last flag,
136 # but its good enough for me.
137 glob
=(/m
/md
/alerts
/{new
,cur
}/!(*,S
))
138 if [[ -e ${glob[0]} ]]; then
142 glob
=(/m
/md
/daylert
/{new
,cur
}/!(*,S
))
143 if [[ -e ${glob[0]} ]]; then
148 if [[ $
(systemctl is-active btrbk.timer
) != active
]]; then
152 p
"$bbkmsg" | lo
-480 btrbk.timer
154 ## check if last snapshot was within an hour
156 # this section generally copied from btrbk scripts, but
157 # this part modified to speed things up by about half a second.
158 # I'm not sure if its quite as reliable, but it looks pretty safe.
159 # Profiled it using time and also adding to the top of the file:
161 # PS4='+ $(date "+%2N") '
162 # allow failure in case there are no snapshots yet.
163 # shellcheck disable=SC2012
165 files
=(/mnt
/o
/btrbk
/$vol.20*)
168 if (( ${#files[@]} )); then
169 snaps
=($
(ls -1avdr "${files[@]}" 2>/dev
/null |
head -n1 ||
: ))
173 for s
in ${snaps[@]}; do
175 t
=$
(date -d $
(sed -r 's/(.{4})(..)(.{5})(..)(.*)/\1-\2-\3:\4:\5/' <<<${file#$vol.}) +%s
)
176 if (( t
> maxtime
)); then
181 if (( maxtime
< now
- 4*60*60 )); then
183 snapshotmsg
="/o snapshot older than 4 hours"
185 p
"$snapshotmsg" | lo
-1 old-snapshot
188 # commented out, only using timetrap retrospectively.
189 # # clock us out in timetrap if are idle too long
190 # if [[ -e /p/.timetrap.db ]]; then
192 # if type -p xprintidle &>/dev/null && xidle=$(xprintidle 2>/dev/null); then
193 # if [[ $xidle == [0-9]* ]]; then
194 # sheet=$(sqlite3 /p/.timetrap.db "select sheet from entries where end is NULL;")
196 # if [[ $sheet == w ]]; then
199 # if [[ $sheet && $xidle -gt $idle ]]; then
205 else # end if $MAIL_HOST
206 rmg
/home
/iank
/cron-errors
/bounce
* \
207 /home
/iank
/cron-errors
/btrbk.timer
* \
208 /home
/iank
/cron-errors
/old-snapshot
*
211 if ip l show tunfsf
&>/dev
/null
; then
212 # this is for tracking dns over tls issue, which
213 # fixvpndns() in brc2 fixes.
214 stat
=$
(resolvectl dnsovertls tunfsf
2>/dev
/null ||
: )
215 read _ _ _ istls
<<<"$stat"
219 printf "%s\n" "$istls" | ts
>> /tmp
/istls.log
225 # We do this once every 5 minutes, since this is not a grave problem.
226 # For formatted elisp, see /b/ds/unsaved-buffers.el
227 elisp
='(format "%s" (-reduce-from (lambda (acc buf) (let ((bpath (buffer-file-name buf))) (if (and bpath (buffer-modified-p buf)) (cons bpath acc ) acc))) nil (buffer-list)))'
228 if [[ ! $last_emacs_check ||
$emacsfiles ]] ||
(( last_emacs_check
< EPOCHSECONDS
- 300 )); then
229 if pgrep
-G iank
-u iank
-f 'emacs --daemon' &>/dev
/null
; then
230 # i dun care if this fails
231 emacsfiles
="$(timeout 1 emacsclient -a /usr/bin/true --eval "$elisp" 2>/dev/null | sed '/^"nil
"$/d;s/^"(/E
: /;s
/)"$//' ||:)"
232 if [[ $emacsfiles ]]; then
233 chars
+=("$emacsfiles")
236 last_emacs_check
=$EPOCHSECONDS
240 glob
=(/nocow
/btrfs-stale
/*)
241 if [[ -e ${glob[0]} ]]; then
245 if [[ $
(find /var
/mail -type f \
! -empty -print -quit) ]]; then
246 var_mail_msg
="message in /var/mail"
248 p
$var_mail_msg | loday
-1 var_mail
250 # early in install process, we dont have permission yet for exiqgrep.
251 # 1100 helps allow for system restarts
252 qlen
=$
(/usr
/sbin
/exiqgrep
-o 1100 -c -b |
awk '{print $1}') ||
:
255 qmsg
="queue length $qlen"
259 # No point in emailing about the mailq on a host where we don't
262 p
$qmsg | loday
-120 qlen
265 rmg
/home
/iank
/cron-errors
/qlen
*
271 # todo: make this robust to the case of /a not being mounted
272 if ! make -C /b
/ds
-q ~
/.local
/distro-begin
2>/dev
/null ||
[[ $
(<~
/.local
/distro-begin
) != 0 ]]; then
277 if ! make -C /b
/ds
-q ~
/.local
/distro-end
2>/dev
/null ||
[[ $
(<~
/.local
/distro-end
) != 0 ]]; then
281 # these conditions are so we dont have an overly verbose prompt
282 if $begin && $end; then
289 source /a
/bin
/ds
/script-files
291 # shellcheck disable=SC2043
296 # the / 60 makes it 0-59 seconds less strict, +1 to help make sure we
297 # dont have any false positives.
298 fmin
=$
(( (fsec
- now
+ 1 ) / 60 ))
299 fminplus
=$
(( fmin
+ 60*24 ))
300 # Filesystem files get copied, so find any newer than the last run.
301 # The rest are hueristics:
302 # Given the last time we added a file in git, is that newer than the last conflink run.
303 # Given new files not added to git, were they modified more recently than the last conflink? but,
304 # push their modification time back by a day so we can develop them before needing to add them to git.
306 all_dirs
=({/a
/bin
/ds
,/p
/c
}{/filesystem
,/machine_specific
/$HOSTNAME/filesystem
})
307 # This part is copied from conflink
308 for x
in /p
/c
/machine_specific
/*.hosts
/a
/bin
/ds
/machine_specific
/*.hosts
; do
309 if grep -qxF $HOSTNAME $x; then all_dirs
+=( ${x%.hosts} ); fi
312 # Just because i forget a lot, -mmin -NUM means files modified <= NUM minutes ago
313 if (( fmin
< 0 )) && [[ $
(find ${all_my_scripts[@]} ${all_dirs[@]} -mmin $fmin -type f
-print -quit 2>/dev
/null
) ]]; then
314 v conflink newer filesystem files
319 for d
in /a
/bin
/distro-setup
/p
/c
; do
320 [[ -d $d ]] ||
continue
322 if [[ ! -e .git
]]; then
323 # some hosts i dont push all of /p/c
326 if (( $
(date -d "$(git log --diff-filter=ACR --format=%aD -1)" +%s
) > fsec
)); then
327 v conflink
: newer files checked
in to git
335 done < <(git ls-files
-o --exclude-standard)
336 if [[ ${untracked[0]} && $
(find "${untracked[@]}" -mmin $fminplus -type f
-print -quit) ]]; then
337 v conflink
: untracked
in $d
345 if [[ ! -e $f || $
(<$f) != 0 ]]; then
346 v conflink
: last run not found or failed
353 # if [[ $(grep -v "exim user lost privilege for using -C option" /var/log/exim4/paniclog 2>/dev/null ||:) ]]; then
354 if [[ -s /var
/log
/exim
4/paniclog
]]; then
356 # leave it up to epanic-clean to send email notification
359 if [[ ! -e $status_file ||
-w $status_file ]]; then
360 if [[ -e /a
/bin
/bash_unpublished
/source-state
]]; then
361 cat /a
/bin
/bash_unpublished
/source-state
>$status_file
364 if [[ ${chars[*]} ]]; then
365 echo "ps_char=\"${chars[*]} \$ps_char\"" >>$status_file
369 # use this if we want to do something just once per minute
382 if [[ -e /sys
/class
/power_supply
/AC
/online
&& $
(</sys
/class
/power_supply
/AC
/online
) == 0 ]]; then
387 if systemctl
-q is-active bitcoind
; then
398 # ensure our long operations are one line so we are not prone errors
399 # from this file being modified.