Traditional, seasonal poem revisited.
Submitted by FAJR9224@WOOSTER
better !pout !cry
better watchout
lpr why
santa claus town
cat /etc/passwd >list
ncheck list
ncheck list
cat list | grep naughty >nogiftlist
cat list | grep nice >giftlist
santa claus town
who | grep sleeping
who | grep awake
who | grep bad || good
for (goodness sake) {
be good
}
(by Frank Carey, AT&T Bell Laboratories, 1985)
And here's a DCL port of the above ...
$ better /nopout /nocry
$ better /watchout
$ print why
$ santa_claus /input=north pole /output=town
$ mcr authorize
list
exit
$ analyze/rms_file/check sysuaf.lis
$ analyze/rms_file/check sysuaf.lis
$ search sysuaf.lis naughty /output=nogift.lis
$ search sysuaf.lis nice /outuput=gift.lis
$ santa_claus /input=north pole /output=town
$ show user /interactive/output=users.lis
$ search users.lis sleeping
$ search users.lis awake
$ search users.lis bad
$ search users.lis good
$ loop:
$ be good
$ if goodness_sake then $ goto loop
(DCL port by James R. Dishaw)
---------------------------------------------------------------------------