Return to uudemon.cleanu CVS log

Up to [Research Unix] / researchv10no / cmd / uucp

Annotation of researchv10no/cmd/uucp/uudemon.cleanu, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      2: MAILTO=${mailto:-uucp}
                      3: PATH=/bin:/usr/bin:/usr/lib/uucp
                      4: export PATH
                      5: TMP=/tmp/uu$$
                      6: WISDOM=/tmp/uv$$
                      7: >$WISDOM; chmod 0700 $WISDOM
                      8: SPOOL=/usr/spool/uucp
                      9: CORRUPT=/usr/spool/uucp/.Corrupt
                     10: OLD=/usr/spool/uucp/.Old
                     11: O_LOGS=$OLD/Old-Log
                     12: 
                     13: cd $SPOOL/.Admin
                     14: mv xferstats audit errors Foreign $OLD
                     15: >xferstats; >audit; >errors; >Foreign
                     16: cd ..
                     17: #
                     18: # shuffle old log files back in name
                     19: # $max controls the number kept
                     20: # then catenate all the existing logfiles into a new old one
                     21: #
                     22: max=${1:-1}
                     23: noisy=$2               # default not noisy
                     24: case $noisy in
                     25: "")    DOUBTFUL=/dev/null ;;
                     26: *)     DOUBTFUL=$WISDOM ;;
                     27: esac
                     28: for i in `seq $max -1 2`
                     29: do
                     30:        j=`expr $i - 1`
                     31:        mv ${O_LOGS}-$j ${O_LOGS}-$i
                     32: done
                     33: > ${O_LOGS}-1
                     34: for i in uucico uucp uux uuxqt
                     35: do
                     36:        cd $SPOOL/.Log/$i
                     37:        for j in *
                     38:        do
                     39:                case $j in
                     40:                "*")
                     41:                        break;;
                     42:                esac
                     43:                echo "********** $j **********" >> ${O_LOGS}-1
                     44:                cat $j >> ${O_LOGS}-1
                     45:                rm -f $j
                     46:        done
                     47: done
                     48: cd $SPOOL
                     49: uucleanup -D7 -C7 -X7 -o2 -W7
                     50: mv .Admin/uucleanup $OLD/uucleanup
                     51: if [ -s $OLD/uucleanup ]
                     52: then
                     53:        (echo "cleanup:"; cat $OLD/uucleanup) >>$DOUBTFUL
                     54: fi
                     55: >.Admin/uucleanup
                     56: /usr/lib/uucp/uucrap           # remove empty directories, boring status
                     57: find /usr/spool/uucppublic -type f -mtime +30 -exec rm -f "{}" \;
                     58: find .Sequence -mtime +30 -exec rm -f "{}" \;
                     59: find .Workspace .Status .Corrupt -type f -mtime +7 -exec rm -f "{}" \;
                     60: 
                     61: #
                     62: # invent some status chatter
                     63: #
                     64: grep passwd ${O_LOGS}-1 > $TMP
                     65: if [ -s $TMP ]
                     66: then
                     67:        (echo "passwd requests:"; cat $TMP) >>$WISDOM
                     68: fi
                     69: 
                     70: awk '/(DENIED)/        {print prev; print $0}
                     71:                {prev = $0}' ${O_LOGS}-1 > $TMP
                     72: if [ -s $TMP ]
                     73: then
                     74:        (echo "denied:"; cat $TMP) >>$WISDOM
                     75: fi
                     76: ls .Corrupt > $TMP
                     77: if [ -s $TMP ]
                     78: then
                     79:        (echo ".Corrupt:"; cat $TMP) >>$WISDOM
                     80: fi
                     81: tail $OLD/errors 2>/dev/null > $TMP
                     82: tail $OLD/Foreign 2>/dev/null >> $TMP
                     83: if [ -s $TMP ]
                     84: then
                     85:        (echo "Admin stuff:"; cat $TMP) >>$WISDOM
                     86: fi
                     87: if [ -s $WISDOM ]; then
                     88:        mail $MAILTO <$WISDOM
                     89: fi
                     90: rm -f $WISDOM $TMP

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.