chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add shell scripts

This commit is contained in:
Oliver Lehmann 2008-06-08 10:46:09 +00:00
parent cb44de28ed
commit 8d6a59949d
3 changed files with 123 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
WEGA/src/cmd/chkdiff Executable file
View File

@ -0,0 +1,83 @@
# "@[$]chkdiff 1.8 04/05/83 14:21:31 - 87wega3.2"
if ($#argv == 0 || $#argv > 7) then
echo Usage: chkdiff \[-h\] \[-v rel.lev\] \[-v rel.lev\] file
exit 1
endif
#
# parse the given arguments
#
set vers=0
set ver1=
set ver2=
set hop=
if ($1 == "-h") then
set hop = $1
if ($#argv == 2 || $#argv == 4 || $#argv == 6) then
if ($2 == "-v") then
set ver1="$2 $3"
if ($4 == "-v") then
set vers=1
set ver2="$4 $5"
set file=$6
else
set file=$4
endif
else
set file=$2
endif
else
echo Usage: chkdiff \[-h\] \[-v rel.lev\] \[-v rel.lev\] file
exit 1
endif
else
if ($#argv == 1 || $#argv == 3 || $#argv == 5) then
if ($1 == "-v") then
set ver1="$1 $2"
if ($3 == "-v") then
set vers=1
set ver2="$3 $4"
set file=$5
else
set file=$3
endif
else
set file=$1
endif
else
echo Usage: chkdiff \[-h\] \[-v rel.lev\] \[-v rel.lev\] file
exit 1
endif
endif
#
# error if filename+
#
set len = `expr length $file`
set lastch = `expr substr $file $len 1`
if ($lastch == +) then
echo Usage: chkdiff \[-h\] \[-v rel.lev\] \[-v rel.lev\] file
exit 1
endif
#
# separate directory and filename
#
set dir = $file:h
set file = $file:t
if ($dir == $file) then
set dir =
else
set dir = $dir/
endif
#
# set up the diff command
#
if ($vers) then
set diff=/tmp/chkdiff.$$
chkout -p $ver2 $dir$file > $diff
chkout -p $ver1 $dir$file | diff $hop - $diff
rm -f $diff
else
chkout -p $ver1 $dir$file | diff $hop - $file
endif

5
WEGA/src/cmd/uuclear Executable file
View File

@ -0,0 +1,5 @@
cp /usr/spool/uucp/LOGFILE /tmp/uucp.OLOGFILE
/bin/echo -n > /usr/spool/uucp/LOGFILE
/bin/echo -n > /usr/spool/uucp/SYSLOG
rm -f /usr/spool/uucp/AUDIT
/usr/lib/uucp/uuclean -pTM -pC. -pD. -pX. -pST -pGET -pLCK -n12

35
WEGA/src/cmd/whodo Executable file
View File

@ -0,0 +1,35 @@
: '@[$]whodo 2.1 07/28/82 14:48:56 - 87wega3.2'
: 'whodo -- combines info from who(1) and ps(1)'
trap "rm -f /tmp/$$*" 1 2 3
ps -a>/tmp/$$b&
date
/bin/who>/tmp/$$a
ed - /tmp/$$a<<\!
g/^/s/^\(.........\)\(........\).......\(.*\)/\2 \1 \3/
g/^tty/s/^tty\(..\)../\1/
g/^console/s//co/
w
!
wait
ed - /tmp/$$b<<\!
1d
g/^/s/^\(......\).\(..\)\(.*\)/\2- \1\3/
g/-sh$/s/-/+/
g/-csh$/s/-/+/
g/-rsh$/s/-/*/
w
!
sort /tmp/$$a /tmp/$$b >/tmp/$$c
ed - /tmp/$$c<<\!
g/^..+/s/.....//\
s/\([0-9]\) *.*/\1/\
.-1,.j
g/^..\*/s/.....//\
s/\([0-9]\) *.*/\1/\
.-1s/ /r/\
j
g/^\(..\)- /s// \1/
1,$p
Q
!
rm -f /tmp/$$*