2 # Copyright (C) 2019 Ian Kelling
3 # SPDX-License-Identifier: AGPL-3.0-or-later
5 # usage: runs 4 times every 15 seconds unless any args are passed, or we
6 # are on battery power, then just runs once.
8 if [ -z "$BASH_VERSION" ]; then echo "error: shell is not bash" >&2; exit 1; fi
10 source /a
/bin
/errhandle
/err
11 status_file
=/dev
/shm
/iank-status
17 for p
in ~
/.gem
/ruby
/*/bin
; do
31 # log-once COUNT NAME [MESSAGE]
33 /usr
/local
/bin
/log-once
"$@" | ifne
mail -s "$HOSTNAME: system-status $2" root@localhost
37 chars
=("${first_chars[@]}")
39 # clock us out in timetrap if are idle too long
40 if [[ -e /p
/.timetrap.db
]]; then
42 if type -p xprintidle
&>/dev
/null
&& xidle
=$
(xprintidle
2>/dev
/null
); then
43 if [[ $xidle == [0-9]* ]]; then
44 sheet
=$
(sqlite3
/p
/.timetrap.db
"select sheet from entries where end is NULL;")
46 if [[ $sheet == w
]]; then
49 if [[ $sheet && $xidle -gt $idle ]]; then
57 if ip l show tunfsf
&>/dev
/null
; then
58 # this is for tracking dns over tls issue, which
59 # fixvpndns() in brc2 fixes.
60 stat
=$
(resolvectl dnsovertls tunfsf
2>/dev
/null ||
: )
61 read _ _ _ istls
<<<"$stat"
65 printf "%s\n" "$istls" | ts
>> /tmp
/istls.log
72 if pgrep
-G iank
-u iank
-f 'emacs --daemon' &>/dev
/null
; then
73 emacsfiles
="$(emacsclient --eval "$
(cat /usr
/local
/bin
/unsaved-buffers.el
)"| sed '/^"nil
"$/d;s/^"(/E
: /;s
/)"$//')"
74 if [[ $emacsfiles ]]; then
75 chars
+=("$emacsfiles")
79 glob
=(/nocow
/btrfs-stale
/*)
80 if [[ -e ${glob[0]} ]]; then
83 if [[ $
(find /var
/mail -type f \
! -empty -print -quit) ]]; then
84 var_mail_msg
="message in /var/mail"
86 lo
-1 var_mail
$var_mail_msg
87 glob
=(/m
/md
/bounces
/new
/*)
88 if [[ -e ${glob[0]} ]]; then
90 bouncemsg
="message in /m/md/bounces/new"
92 lo
-1 bounce
$bouncemsg
93 # emails without the S (seen) flag. this only checks the last flag,
94 # but its good enough for me.
95 glob
=(/m
/md
/alerts
/{new
,cur
}/!(*,S
))
96 if [[ -e ${glob[0]} ]]; then
99 tmp
=(/var
/local
/cron-errors
/mailtest-check
*)
100 if (( ${#tmp[@]} )); then
103 tmp
=(/var
/local
/cron-errors
/mailtest-slow
*)
104 if (( ${#tmp[@]} )); then
108 # early in install process, we dont have permission yet for exiqgrep
109 qlen
=$
(/usr
/sbin
/exiqgrep
-o 600 -c -b |
awk '{print $1}') ||
:
111 qmsg
="queue length $qlen"
115 # No point in emailing about the mailq on a host where we don't
123 if ! make -C /b
/ds
-q ~
/.local
/distro-begin ||
[[ $
(<~
/.local
/distro-begin
) != 0 ]]; then
128 if ! make -C /b
/ds
-q ~
/.local
/distro-end ||
[[ $
(<~
/.local
/distro-end
) != 0 ]]; then
132 # these conditions are so we dont have an overly verbose prompt
133 if $begin && $end; then
141 # shellcheck disable=SC2043
146 # the / 60 makes it 0-59 seconds less strict, +1 to help make sure we
147 # dont have any false positives.
148 fmin
=$
(( (fsec
- now
+ 1 ) / 60 ))
149 fminplus
=$
(( fmin
+ 60*24 ))
150 # Filesystem files get copied, so find any newer than the last run.
151 # The rest are hueristics:
152 # Given the last time we added a file in git, is that newer than the last conflink run.
153 # Given new files not added to git, were they modified more recently than the last conflink? but,
154 # push their modification time back by a day so we can develop them before needing to add them to git.
156 all_dirs
=({/a
/bin
/ds
,/p
/c
}{/filesystem
,/machine_specific
/$HOSTNAME/filesystem
})
157 # This part is copied from conflink
158 for x
in /p
/c
/machine_specific
/*.hosts
/a
/bin
/ds
/machine_specific
/*.hosts
; do
159 if grep -qxF $HOSTNAME $x; then all_dirs
+=( ${x%.hosts} ); fi
162 # Just because i forget a lot, -mmin -NUM means files modified <= NUM minutes ago
163 if (( fmin
< 0 )) && [[ $
(find ${all_dirs[@]} -mmin $fmin -type f
-print -quit 2>/dev
/null
) ]]; then
164 v conflink newer filesystem files
169 for d
in /a
/bin
/distro-setup
/p
/c
; do
170 [[ -d $d ]] ||
continue
172 if [[ ! -e .git
]]; then
173 # some hosts i dont push all of /p/c
176 if (( $
(date -d "$(git log --diff-filter=ACR --format=%aD -1)" +%s
) > fsec
)); then
177 v conflink
: newer files checked
in to git
185 done < <(git ls-files
-o --exclude-standard)
186 if [[ ${untracked[0]} && $
(find "${untracked[@]}" -mmin $fminplus -type f
-print -quit) ]]; then
187 v conflink
: untracked
in $d
195 if [[ ! -e $f || $
(<$f) != 0 ]]; then
196 v conflink
: last run not found or failed
203 if [[ -s /var
/log
/exim
4/paniclog
]]; then
205 # leave it up to epanic-clean to send email notification
208 source /a
/bin
/bash_unpublished
/source-state
209 if [[ $MAIL_HOST == "$HOSTNAME" ]]; then
211 if [[ $
(systemctl is-active btrbk.timer
) != active
]]; then
212 chars
+=("BTRBK.TIMER")
213 bbkmsg
="btrbk.timer not enabled"
215 lo
-960 btrbk.timer
$bbkmsg
217 ## check if last snapshot was within an hour
219 # this section generally copied from btrbk scripts, but
220 # this part modified to speed things up by about half a second.
221 # I'm not sure if its quite as reliable, but it looks pretty safe.
222 # Profiled it using time and also adding to the top of the file:
224 # PS4='+ $(date "+%2N") '
225 # allow failure in case there are no snapshots yet.
226 # shellcheck disable=SC2012
228 files
=(/mnt
/root
/btrbk
/$vol.20*)
231 if (( ${#files[@]} )); then
232 snaps
=($
(ls -1avdr "${files[@]}" 2>/dev
/null |
head -n1 ||
: ))
236 for s
in ${snaps[@]}; do
238 t
=$
(date -d $
(sed -r 's/(.{4})(..)(.{5})(..)(.*)/\1-\2-\3:\4:\5/' <<<${file#$vol.}) +%s
)
239 if (( t
> maxtime
)); then
243 if (( maxtime
< now
- 4*60*60 )); then
245 snapshotmsg
="/o snapshot older than 4 hours"
247 lo
-1 old-snapshot
$snapshotmsg
250 cat /a
/bin
/bash_unpublished
/source-state
>$status_file
252 if [[ ${chars[*]} ]]; then
253 echo "ps_char=\"${chars[*]} \$ps_char\"" >>$status_file
257 # use this if we want to do something just once per minute
261 if [[ -e /sys
/class
/power_supply
/AC
/online
&& $
(</sys
/class
/power_supply
/AC
/online
) == 0 ]]; then
276 for ((i
=1; i
<=60; i
++)); do