finally fully use gnu license recommendations
[distro-setup] / check-remote-mailqs
1 #!/bin/bash
2 # I, Ian Kelling, follow the GNU license recommendations at
3 # https://www.gnu.org/licenses/license-recommendations.en.html. They
4 # recommend that small programs, < 300 lines, be licensed under the
5 # Apache License 2.0. This file contains or is part of one or more small
6 # programs. If a small program grows beyond 300 lines, I plan to switch
7 # its license to GPL.
8
9 # Copyright 2024 Ian Kelling
10
11 # Licensed under the Apache License, Version 2.0 (the "License");
12 # you may not use this file except in compliance with the License.
13 # You may obtain a copy of the License at
14
15 # http://www.apache.org/licenses/LICENSE-2.0
16
17 # Unless required by applicable law or agreed to in writing, software
18 # distributed under the License is distributed on an "AS IS" BASIS,
19 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
20 # See the License for the specific language governing permissions and
21 # limitations under the License.
22
23
24 if [ -z "$BASH_VERSION" ]; then echo "error: shell is not bash" >&2; exit 1; fi
25
26 source /a/bin/bash-bear-trap/bash-bear
27
28 shopt -s nullglob
29 shopt -s dotglob
30
31 # temp disabled: x2wg kwwg
32 # this list duplicated in brc2 ralerts
33 for h in bk je li x3wg kdwg sywg; do
34 statedir=/b/bash_unpublished/mailq-state
35 statefile=$statedir/$h
36 [[ -d $statedir ]] || continue
37 if [[ $HOSTNAME == "${h%wg}" ]]; then
38 rm -f $statefile
39 continue
40 fi
41 if c=$(timeout -v 10 ssh root@$h.b8.nz /usr/local/bin/check-mailq 2>&1 ); then
42 rm -f $statefile
43 if [[ $c ]]; then
44 echo q:$h=$c
45 fi
46 else
47 if [[ -s $statefile ]]; then
48 logsec=$(date +%s -d "$(head -n1 $statefile | awk '{print $1,$2}')")
49 case $h in
50 frodo)
51 hours=200
52 ;;
53 *)
54 hours=20
55 ;;
56 esac
57 if (( logsec < EPOCHSECONDS - 60*60*hours )); then
58 echo $0: host $h ssh /usr/local/bin/check-mailq fail for over $hours hours
59 fi
60 fi
61 printf "%s\n" "$c" | ts "%F %T" >> $statefile
62 fi
63 done