${title}

EOF } xhtml_footer () { cat < EOF } heading= xhtml_rep_header () { local x h if test "${1:-XXX}" = "${1#*[!.0-9a-zA-Z-]}" ; then x=" id=\"${1}\"" else x= fi if test -n "$heading" ; then h=$(printf %s\\n "$heading" | xhtml_escape) fi cat <
${h:-${2}}

Started: $(date -u +%F\ %T\ UTC | xhtml_escape)
}

xhtml_rep_footer () {
cat <

Finished: $(date -u +%F\ %T\ UTC | xhtml_escape)


EOF
}

xhtml_simple_cmd () {
    xhtml_rep_header "$1" "$2"
    shift 2
    local x
    x=
    ("$@" | xhtml_escape) || x=$?
    xhtml_rep_footer
    if test -n "$x" ; then
        cat <Command terminated with non-zero exit status: $?
EOF
    fi
}

sysreport_apcaccess () {
    xhtml_simple_cmd s-apcaccess "APC UPS daemon status" \
        /sbin/apcaccess
}

sysreport_df_rw () {
    xhtml_rep_header s-df-rw "Disk usage, writable, device-backed filesystems"
    awk '! seen_p[$1] && /^\/dev/ && $4 ~ /(^|[ \t,])?rw([ \t,]|$)/ {
             print $1; seen_p[$1] = 1; }' \
        < /proc/mounts \
        | tr \\n \\0 | xargs -r0 -- df -- \
        | xhtml_escape
    ## .
    xhtml_rep_footer
}

sysreport_df_tmpfs () {
    xhtml_rep_header s-df-tmpfs "Disk usage, in-memory filesystems"
    ## FIXME: handle mfs as well?
    df -t tmpfs \
        | sed -e "1d; / 0 /d;" \
        | LC_ALL=C sort -srnk3 \
        | xhtml_escape
    ## .
    xhtml_rep_footer
}

file_counter=0
sysreport_file () {
    xhtml_rep_header s-file-${file_counter} \
        "Contents of $(printf "$1" | xhtml_escape)"
    file_counter=$((1 + file_counter))
    xhtml_escape < "$1"
    ## .
    xhtml_rep_footer
}

sysreport_envstat () {
    xhtml_simple_cmd s-envstat "Sensor readings" \
        envstat
}

sysreport_free () {
    xhtml_simple_cmd s-free "System memory usage" \
        free
}

sysreport_hddtemp () {
    xhtml_rep_header s-hddtemp "Storage devices temperature"
    ## FIXME: GNU Sed for now
    socat  -u  TCP4:localhost:7634  STDOUT \
        | head -c1024 \
        | cat -v \
        | sed -e "s/\$/\\n/; s/||/|\\n|/g" \
        | xhtml_escape
    xhtml_rep_footer
}

sysreport_netstat_i () {
    xhtml_simple_cmd s-netstat-i "Network interface packet counters" \
        netstat -i
}

sysreport_netstat_ibd () {
    xhtml_simple_cmd s-netstat-ibd "Network interface byte counters" \
        netstat -ibd
}

sysreport_ntp_drift () {
    xhtml_rep_header s-ntp-drift "NTP drift file"
    local f
    for f in \
        /var/lib/openntpd/db/ntp.drift /var/db/ntp.drift \
        /var/lib/ntpsec/ntp.drift /var/lib/ntp/ntp.drift ; do
        test -e "$f" && break
    done
    head -c 64 < "$f" \
        | xhtml_escape
    ## .
    xhtml_rep_footer
}

sysreport_ntpq_pn () {
    ## .
    xhtml_simple_cmd s-ntpq-pn "NTP peers, numeric IP addresses" \
        ntpq -pn
}

sysreport_ip_s_link () {
    xhtml_simple_cmd s-ip_s_link "IP links counters" \
        ip -s link
}

sysreport_sensors () {
    xhtml_simple_cmd s-sensors "Sensor readings" \
        sensors
}

sysreport_uptime () {
    xhtml_simple_cmd s-uptime "System uptime" \
        uptime
}

## FIXME: use getopt or such for command-line arguments parsing?

overplay=
while [ "$#" -ge 1 ] ; do
    case "$1" in
        (-h | --help)   usage 0 ;;
        (--)    shift ; break ;;
        (-*)    usage 1 ;;
        (*)     break ;;
    esac
    shift
done

if ! [ "$#" -ge 1 ] ; then
    ## .
    usage 1
fi

shown_header_p=

for sec ; do
    com_arg=
    case "$sec" in
        (" "*) heading=${sec# } ; continue ;;
        (file:*)
            com=sysreport_${sec%%:*} ; com_arg=${sec#*:} ;;
        (*) com=sysreport_${sec} ;;
    esac
    if ! command -v -- "$com" > /dev/null ; then
        gerr 0 "Warning: %s: Unknown section; ignored" "$sec"
        continue
    fi
    if test -z "$shown_header_p" ; then
        shown_header_p=yes
        xhtml_header
    fi
    ## FIXME: only allowing a single argument for now
    "$com" "$com_arg"
    heading=
done

if test -n "$shown_header_p" ; then
    xhtml_footer
fi

### sysreport.sh ends here