home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1174 / scribble2 < prev    next >
Encoding:
Text File  |  1990-12-28  |  944 b   |  43 lines
  1. #!/bin/sh
  2. # scribble2 by Andrew Scott Beals.  Written 12 April 1990
  3.  
  4. cwd=`pwd`
  5.  
  6. PATH=:$PATH:$cwd:$cwd/c:/usr2/bandy/picoscan:/usr2/bandy/picoscan/c:/usr2/bandy/bin:
  7. export PATH
  8.  
  9. user=`whoami`
  10. conflist=$1
  11.  
  12. echo -n 'Are you sure you want to perform a mass censor/scribble? (yes or no) '
  13. read y
  14. if [ "X$y" != Xyes ] ; then
  15.     exit
  16. fi
  17.  
  18. echo -n "Are you truely sure you want to delete every word you've said? "
  19. read y
  20. if [ "X$y" != Xyes ] ; then
  21.     exit
  22. fi
  23.  
  24. echo -n "This is your last chance.  Do you want to go on? "
  25. read y
  26. if [ "X$y" != Xyes ] ; then
  27.     exit
  28. fi
  29.  
  30. ( 
  31. echo nopager
  32. for confs in `cat $conflist`
  33. do
  34.     echo j $confs
  35.     echo j
  36.     echo d conf
  37. done 
  38. echo quit ) | ( nice -1 pico -o -l -u | nice -1 awk '
  39. /^Conference: / {
  40.     cname=substr($3, 2, index($3, ")")-2)
  41.     print "cd " $2 " ; nice -1 .scribble2_worker " cname " _* | nice -1 pico -l -u -n"
  42. }' | sh | /usr/ucb/Mail -s 'standard output' $USER ) 2>&1| /usr/ucb/Mail -s 'error output' $USER &
  43.