home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume4 / blachman / part02 < prev    next >
Internet Message Format  |  1989-02-03  |  56KB
  1. Path: xanth!mcnc!gatech!cwjcc!hal!ncoast!allbery
  2. From: karl@cs.duke.edu (Karl Ramm)
  3. Newsgroups: comp.sources.misc
  4. Subject: v04i041: collected sh/csh/awk/etc. goodies (2 of 3)
  5. Message-ID: <8808281546.AA09320@romeo.cs.duke.edu>
  6. Date: 28 Aug 88 15:46:24 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Reply-To: karl@cs.duke.edu (Karl Ramm)
  9. Lines: 2604
  10. Approved: allbery@ncoast.UUCP
  11.  
  12. Posting-number: Volume 4, Issue 41
  13. Submitted-by: "Karl Ramm" <karl@cs.duke.edu>
  14. Archive-name: blachman/Part2
  15.  
  16. From: Nancy Blachman <decvax!decwrl!sun!idi!resonex!nancy@Ucb-Vax.ARPA>
  17. To: net.unix,net.unix-wizards,net.sources
  18. Subject: Actual Tricks, shells, csh aliases and the like, 2 of 3
  19. Date: 16 Oct 84 21:22:55 GMT
  20. Organization: Resonex Inc., Sunnyvale, CA
  21.  
  22. > [Know anybody with a GREAT .login or .cshrc?]
  23.  
  24. > I'm interested in collecting the little tricks, shell scripts, awk
  25. > hacks, csh aliases, and such that people have built to make their daily
  26. > life a little easier or more automatic.  Being a fairly new system
  27. > administrator I don't have the big toolbox that years of messing around
  28. > will leave you with.  If you have any hacks you're proud of (or that
  29. > you aren't proud of, but which work anyway), and you're willing to make
  30. > them public, mail them to me.  I'll collect, collate, shuffle, sort,
  31. > munge, judge, select and discard them and then "summarize to the net".
  32.  
  33. This article focuses shell scripts I received in response to my solicitation.  
  34. The first article of this series concentrates on  aliases, and .cshrc and 
  35. .login files. The third article centers on C programs and awk scripts.
  36.  
  37. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  38. > Nancy Blachman {allegra,hplabs,ihnp4,sun}!resonex!nancy  (408)720 8600 x37 <
  39. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  40.  
  41. ::::::::::::::
  42. shells/1
  43. ::::::::::::::
  44. Date: Thu, 13 Sep 84 12:49:57 edt
  45. From: allegra!vax135!cornell!tesla!mac (Michael Mc Namara)
  46. To: cornell!vax135!houxm!mhuxl!ulysses!allegra!resonex!nancy
  47. Subject: Cute cshell - sh scripts
  48.  
  49.     If your are like most UNIX systems, you have a plethora of different
  50. terminals that  your system  is supposed to support.  Sure, with termcap
  51. and terminfo, and programs written to use them, the interface gets easier.
  52. If you only ever login to one particular terminal, you can 
  53.  
  54. set term = "vt131"
  55.  
  56. or 
  57.  
  58. TERM=vt131
  59. export TERM
  60.  
  61. in your .login or .profile.
  62.  
  63. But what if you,  or some of your users,  drift  around using different
  64. terminal types-- You have a terminal room with many different terminals.
  65.  
  66. Here is a set of shell scripts & C programs that use the "echo terminal
  67. type" command that many terminals support, to do automatic terminal type
  68. identification and setting:  (of course I've only made it work for  the 
  69. terminals we have here at Cornell, and some day I should write more of it
  70. in C...)
  71.  
  72.     This one is written for cshell:
  73.  
  74. ##########################################
  75. #    Identify and set terminal type (csh)#
  76. ##########################################
  77. set noglob
  78. echo Please wait...
  79. stty cbreak -echo
  80. # this sequence will cause all terminals we have to echo something
  81. # except for adm's; those users are told to hit 'a' when they see
  82. # please wait
  83. echo ' CZ[c'
  84. sleep 1      
  85. # this calls a c program to grab the id string from the terminal 
  86. # program is included later...
  87. set type = `/usr/new/rin.login`
  88. stty -cbreak echo new crt
  89. #########################
  90. # the or in the vt100 terminal type is because vt100's respond
  91. # to both ^[Z and ^[[c, but DEC threatens to eliminate one of 
  92. # the responces (I forget which).. The extra stty back you see
  93. # with DG terminals (Data General) is because their backspace is
  94. # ^Y instead of ^H ( Home on DG terminals) This involves a modification
  95. # of stty, which you would care about only if you have them--Write to me.
  96. ##################
  97. if ( $type == "[?1;0c" || $type == "[?1;0c[?1;0c" ) then
  98.      set term = vt100
  99.      echo "VT101"                            
  100. else if ( $type == "[?1;2c" || $type == "[?1;2c[?1;2c" ) then
  101.      set term = vt100
  102.      echo "VT100"
  103. else if ( $type == "[?1;11c[?1;11c") then
  104.      set term = ct500
  105.      echo "[7mCIT - 500[m"
  106. else if ( $type == "[?12;5;0;102c" ) then
  107.      set term = vt100
  108.      echo "VT125"
  109. else if ($type == "[?1;2c[?1;2c") then
  110.      set term = vt100
  111.      echo "VT100, with Selenar Graphics"
  112. else if ( $type == "o#\!R" ) then
  113.      set term = dg200
  114.      stty stop undef start undef back  
  115.      echo "DDG200E"
  116. else if ( $type == "o#'C3" ) then
  117.      set term = dg450
  118.      stty back  
  119.      echo "FS11BFS00 DATA GENERAL DASHER D450" 
  120. else if ( $type == "o#'K3" ) then 
  121.      set term = dg450
  122.      stty back  
  123.      echo "FS11BFS00 DATA GENERAL DASHER D450" 
  124. else if ( $type == "/K" ) then
  125.      set term = vt52
  126.      echo "Visual 50"
  127. else if ( $type =~ "\\4*" ) then
  128.      set term = hp2621          
  129.      echo HP2621
  130. else if ( $type =~ "a" ) then
  131.      set term = adm3a
  132.      echo "adm3a"
  133. else if ($type == "50" ) then
  134.      set term = w50
  135.      echo "WYSE50"
  136. else
  137. # Ask user for terminal type -- for some reason the above didn't work
  138. set no_name_yet=1
  139. set no_name_yet = 1;
  140. while( $no_name_yet )
  141.    echo -n "Please enter terminal type (hit return for menu) "
  142.    set ttyname = ($< );
  143.    switch( $ttyname )
  144.    case d450:
  145.    case dg450:
  146.       set term=dg450;
  147.       stty back 
  148.       set no_name_yet = 0;
  149.       breaksw;
  150.    case vt100:
  151.       set term=vt100;
  152.       set no_name_yet = 0;
  153.       breaksw;
  154.    case v50:
  155.    case vt52:
  156.       set term=vt52;
  157.       set no_name_yet = 0;
  158.       breaksw;
  159.    case hp2621:
  160.    case hp:
  161.       set term=hp2621;
  162.       set no_name_yet = 0;
  163.       breaksw;
  164.    case wyse50:
  165.       set term=w100;
  166.       set no_name_yet = 0;
  167.       breaksw;
  168.    case adm5:
  169.       set term=adm5;  
  170.       set no_name_yet = 0;
  171.       breaksw;
  172.    case adm3+:                 
  173.    case adm3:
  174.    case adm3a:
  175.       set term=adm3+;
  176.       set no_name_yet = 0;
  177.    case d200:
  178.    case dg200:
  179.       set term=dg200;
  180.       stty stop undef start undef back ;
  181.       set no_name_yet = 0;
  182.       breaksw;
  183.    case other:
  184.       echo -n "Enter terminal name: "
  185.       set term=($< );
  186.       set no_name_yet = 0;
  187.       breaksw;
  188.    case '':
  189.       echo Terminal abbreviations are:
  190.       echo "Dasher 450 : dg450"
  191.       echo "Dasher 200 : dg200"
  192.       echo "Visual 50  : v50"
  193.       echo "VT100      : vt100"
  194.       echo "HP 2621    : hp2621"
  195.       echo "ADM5       : adm5"
  196.       echo "ADM3+      : adm3+"
  197.       echo "Use 'other' to specify terminals not on this menu"
  198.       breaksw;
  199.    default:
  200.       echo "I didn't understand that. Hit return for a menu."
  201.    endsw
  202. end
  203. unset no_name_yet
  204. unset ttyname
  205. endif
  206. stty -cbreak
  207. stty echo
  208. unset noglob
  209.  
  210. Ok, This one is used for Bourne shell lovers:  (I used /bin/test because
  211. one user had an executable file called test somewhere in his path ahead
  212. of where this program lived...That one took days to track down...)
  213.  
  214.  
  215. echo "Please Wait..."
  216. stty start  stop   crt new back  -echo cbreak
  217. echo ' CZ[c'
  218. sleep 1
  219. TYPE=`/usr/new/rin.login`
  220. stty echo -cbreak
  221. if ( /bin/test \( $TYPE = "[?1;0c" \) -o \( $TYPE = "[?1;0c[?1;0c" \) ) then
  222.      TERM=vt100
  223.      echo "[7mVT101[m" 
  224. elif ( /bin/test \( $TYPE = "[?1;2c" \) -o \( $TYPE = "[?1;2c[?1;2c" \)  ) then
  225.      TERM=vt100
  226.      echo "#3[7mVT100[m"
  227.      echo "#4?[7mVT100[m"
  228. elif ( /bin/test  $TYPE = "[?1;11c[?1;11c") then
  229.      TERM=ct500
  230.      echo "CT 500"
  231. elif ( /bin/test  $TYPE = "o#!R" ) then
  232.      TERM=dg200
  233.      stty stop undef
  234.      stty start undef
  235.      stty crt
  236.      stty back 
  237.      echo "D DATA GENERAL DASHER D200E"
  238. elif ( /bin/test $TYPE = "o#'C3" )  then
  239.      TERM=dg450
  240.      stty crt   
  241.      stty back 
  242.      echo "FS11BFS00 DATA GENERAL DASHER D450"
  243. elif ( /bin/test $TYPE = "/K" ) then
  244.      TERM=vt52
  245.      echo "UVisual 50T"
  246. elif ( /bin/test $TYPE = "50" ) then
  247.      TERM=w50
  248.      clear
  249.      echo "WYSE 50"
  250. elif ( /bin/test $TYPE = "\4088000" ) then
  251.      TERM=hp2621
  252.      echo HP2621
  253. elif ( /bin/test $TYPE = "a" ) then
  254.      TERM=adm3a
  255.      echo ADM3a
  256. else
  257.      stty start 
  258.      stty stop  
  259.      stty new crt
  260.      set no_name_yet=1
  261. echo
  262. while ($no_name_yet) do {
  263.   echo
  264.   echo Which terminal do you have?
  265.   echo       Hit return for a menu.
  266.   read INP
  267.   case $INP
  268.     in
  269. 100 | v | vt100) {
  270.                   TERM=vt100
  271.                   break
  272.              } ;;
  273. adm5)            {
  274.                  TERM=adm5
  275.                  break
  276.              } ;;
  277. adm3+)           {
  278.                  TERM=adm3+
  279.                  break
  280.              } ;;
  281. 450 | dg450 | d450)  {
  282.                   TERM=dg450
  283.                   stty back 
  284.                   break
  285.              } ;;
  286. 200 | dg200 | d200)  {
  287.                   TERM=dg200
  288.                   stty stop undef
  289.                   stty start undef
  290.                   stty back 
  291.                   break
  292.              }  ;;
  293.  50 | vt52 | v50)   { 
  294.                   TERM=vt52
  295.                   break
  296.              } ;;
  297.  2621 | hp2621 | hp) {
  298.                   TERM=hp2621
  299.                   break
  300.              } ;;
  301.       other) {
  302.                   echo -n Enter terminal name:
  303.                   read tname
  304.                   TERM=$tname
  305.                   break
  306.              } ;;
  307.  ''|?|help)  {    echo Terminal abbreviations are:
  308.                   echo 
  309.                   echo Dasher 450:  dg450
  310.                   echo Dasher 200:  dg200
  311.                   echo Visual  50:  vt52
  312.                   echo VT100     :  vt100
  313.                   echo HP 2621   :  hp2621
  314.                   echo ADM3+     :  adm3+
  315.                   echo ADM5      :  adm5
  316.                   echo "Use 'other' to specify other terminals."
  317.                   echo
  318.              } ;;
  319.         * )  {   echo "I did not understand that."
  320.              } ;;
  321.   esac
  322.   }
  323. done
  324. fi
  325. export TERM
  326.  
  327. *********
  328. And here is the c program that read's in the terminal ID string:
  329.  
  330.  
  331. /* rin -- read in a char string which may not be terminated */
  332. char buf[256];
  333. int n;
  334. main ()
  335. {
  336. n = read(0,buf,256);
  337. write(1,buf,n);
  338. printf("\n");
  339. }
  340.  
  341. ***************
  342.  
  343.  
  344.         Use them, abuse them.  Of course you have to paw through
  345. your terminal manuanls to discover what (if any) string they respond to,
  346. and test for the response accordingly...
  347.  
  348.                                         ---MAC
  349.  
  350.  
  351.  
  352. ::::::::::::::
  353. shells/2
  354. ::::::::::::::
  355. From: hplabs!azure!billp
  356. To: tektronix!hplabs!resonex!nancy
  357. Date: Thursday, 13 Sep 84 09:23:49 PDT
  358. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  359.  
  360. Here are some that I like and use a lot.  'del' and 'undelete' are just two
  361. links to the same file.  This way if somebody copies one, they get the
  362. other too
  363. -------------------------------------------------------------------------------
  364. ::::::::::::::
  365. : mv
  366. ::::::::::::::
  367. : 'prompts if the destination file already exists'
  368. /bin/mv -i $*
  369. -------------------------------------------------------------------------------
  370. ::::::::::::::
  371. : cp
  372. ::::::::::::::
  373. : 'prompts if the destination file already exists'
  374. /bin/cp -i $*
  375. -------------------------------------------------------------------------------
  376. ::::::::::::::
  377. : del, undelete
  378. ::::::::::::::
  379. : '"del" throws files into the waste basket'
  380. : 'files preceded by "," are automagically removed after 7 days'
  381. : '"undelete" pulls files out of the waste basket'
  382. : 'if invoked without an argument, both commands list the contents of the'
  383. : 'waste basket.'
  384.  
  385. case $0 in
  386. *del)
  387.     if test -z "$1"
  388.     then
  389.     ls -lus $HOME/.waste_basket
  390.     else
  391.     for i
  392.     do
  393.         echo -n "deleting "
  394.         tmp=`basename $i`
  395.         /bin/mv -i $i $HOME/.waste_basket/,$tmp
  396.         echo $i
  397.     done
  398.     fi;;
  399.  
  400. *undelete)
  401.     if test -z "$1"
  402.     then
  403.     ls -lus $HOME/.waste_basket
  404.     else
  405.     for i
  406.     do
  407.         echo -n "recovering "
  408.         tmp=`basename $i`
  409.         /bin/mv -i $HOME/.waste_basket/,$tmp $i
  410.         echo $i
  411.     done
  412.     fi;;
  413. esac
  414. -------------------------------------------------------------------------------
  415. ::::::::::::::
  416. : vi
  417. ::::::::::::::
  418. : 'backs up file(s) before editing them'
  419. : 'files preceded by "," are automagically removed after 7 days'
  420. for i
  421. do
  422.     if test -f $i
  423.     then
  424.     echo -n "backing up "
  425.     tmp=`basename $i`
  426.     /bin/cp -i $i $HOME/.vi_backup/,$tmp
  427.     echo $i
  428.     fi
  429. done
  430. /usr/ucb/vi $*
  431. -------------------------------------------------------------------------------
  432.  
  433.     Bill Pfeifer
  434. {ucbvax,decvax,ihnp4,allegra,uw-beaver,hplabs} !tektronix!tekmdp!billp
  435.  
  436. ::::::::::::::
  437. shells/3
  438. ::::::::::::::
  439. Date: Thu, 13 Sep 84 13:58:09 pdt
  440. From: turtlevax!ken (Ken Turkowski)
  441. To: resonex!nancy
  442. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  443.  
  444. You asked for it, you've got it!  Here's ALL of my personal nifties:
  445.             Ken
  446. **************************************************
  447.  
  448. echo x - bin
  449. mkdir bin
  450. echo x - bin/CC
  451. cat >bin/CC <<'!Funky!Stuff!'
  452. #
  453. set outname=a.out
  454. foreach file ($argv)
  455.     if ("$file" =~ *.[cso]) then
  456.     set outname=$file:r
  457.         break
  458.     endif
  459. end
  460. echo cc -o $outname $*
  461. exec cc -o $outname $*
  462. !Funky!Stuff!
  463. echo x - bin/appt
  464. cat >bin/appt <<'!Funky!Stuff!'
  465. #
  466. set notetype=$0
  467. set notetype=$notetype:t
  468. set notefile=~/.$notetype
  469. # if ($notetype == appt) then
  470. #     set notetype=appointment
  471. #     set notefile=~/calendar
  472. # endif
  473.  
  474. if ($#argv == 0) then
  475.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  476.     echo ' ' >> $notefile
  477.     exec cat >> $notefile
  478. endif
  479.  
  480. switch ($1)
  481.     case -:
  482.     exec vi $notefile
  483.     case -rm:
  484.     cat /dev/null > $notefile
  485.     exec echo The ${notetype}s are removed.
  486.     case -what:
  487.     exec cat $notefile
  488.     default:
  489.     echo '' >> $notefile
  490.     echo "$*" >> $notefile
  491. endsw
  492. !Funky!Stuff!
  493. echo x - bin/asfix
  494. cat >bin/asfix <<'!Funky!Stuff!'
  495. case $# in
  496.     0)
  497.     file=/tmp/afix$$
  498.     trap "cat $file; rm $file; exit" 0
  499.     trap "rm $file; exit" 3 9
  500.     cat > $file ;;
  501.     1)
  502.     file=$1 ;;
  503.     *)
  504.     echo Usage `basename $0` ' [ <file> ]' ;;
  505. esac
  506. ed - $file << EOF
  507. v/[:\.]/s/^/    /
  508. g/:./s/:/:    /
  509. wq
  510. EOF
  511. !Funky!Stuff!
  512. echo x - bin/atcat
  513. cat >bin/atcat <<'!Funky!Stuff!'
  514. #
  515. if ($#argv < 2) then
  516.     set cmd=$0
  517.     echo Usage: "$cmd:t <time> <word> [ <word> ... ]"
  518.     exit
  519. endif
  520. set atcmd="echo $argv[2-] > `tty`"
  521. at $1 << EOF
  522. $atcmd
  523. EOF
  524. !Funky!Stuff!
  525. echo x - bin/atecho
  526. cat >bin/atecho <<'!Funky!Stuff!'
  527. #
  528. if ($#argv < 2) then
  529.     set cmd=$0
  530.     echo Usage: "$cmd:t <time> <word> [ <word> ... ]"
  531.     exit
  532. endif
  533. set atcmd="echo $argv[2-] > `tty`"
  534. at $1 << EOF
  535. $atcmd
  536. EOF
  537. !Funky!Stuff!
  538. echo x - bin/beautify
  539. cat >bin/beautify <<'!Funky!Stuff!'
  540. #
  541. set TMP=/tmp/cb$$
  542. foreach file (argv)
  543.     echo Beautifying $file:
  544.     cb < $file > $TMP
  545.     cat $TMP > $file
  546. end
  547. rm $TMP
  548. !Funky!Stuff!
  549. echo x - bin/blankclean
  550. cat >bin/blankclean <<'!Funky!Stuff!'
  551. sed -e 's/^    $//' -e 's/ *$//' $*
  552. !Funky!Stuff!
  553. echo x - bin/bphone
  554. cat >bin/bphone <<'!Funky!Stuff!'
  555. phonefile=$HOME/.`basename $0`s
  556.  
  557. echo ' '
  558.  
  559. case $# in
  560.     0)
  561.     ed - $phonefile << EOF
  562. g/./s/$/\\
  563. /
  564. g/    /s//\\
  565. /g
  566. g/;/s//    /g
  567. 1,\$p
  568. q
  569. EOF
  570.     exit ;;
  571. esac
  572.  
  573. case $1 in
  574.     -)
  575.     chmod 644 $phonefile
  576.     vi $phonefile
  577.     chmod 444 $phonefile
  578.     exit ;;
  579. esac
  580.  
  581. trap "rm /tmp/data$$; exit" 0 2
  582. for name
  583. do
  584.     grep -y "$name" $phonefile >> /tmp/data$$
  585. done
  586. ed - /tmp/data$$ << EOF
  587. g/./s/$/\\
  588. /
  589. g/    /s//\\
  590. /g
  591. g/;/s//    /g
  592. 1,\$p
  593. q
  594. EOF
  595. !Funky!Stuff!
  596. echo x - bin/catalog
  597. cat >bin/catalog <<'!Funky!Stuff!'
  598. # catalog - produce complete file structure list from directory
  599. # 
  600. # Parameters:     1: directory name (optional)
  601. #         2: indentation string (empty on first call)
  602. # 
  603. # Produces on standard output the file structure emanating from
  604. #   the current directory.  Each descent into a subdirectory
  605. #    is indicated by further indentation.  Directories are indicated
  606. #    by surrounding [], and executable files are prefaced with a *.
  607. # 
  608. if ( $#argv == 0) then
  609.    echo "file structure from directory `pwd`"
  610.    date
  611.    echo ''
  612. else
  613.    cd $1
  614. endif
  615. foreach i ( * )
  616.    if ( -d $i ) then
  617.      echo "${2}[ $i ]"
  618.      $0 $i "$2  . "
  619.    endif
  620.      if ( "$i" != '*' ) then
  621.         if ( -x $i ) then
  622.            echo "${2} *$i "
  623.         else
  624.            echo "${2}  $i "
  625.         endif
  626.      endif
  627.    endif
  628. end
  629. !Funky!Stuff!
  630. echo x - bin/circum
  631. cat >bin/circum <<'!Funky!Stuff!'
  632. there=$1
  633. shift
  634. otherstuff="$*"
  635. back=`whoami`
  636. last=`hostname`
  637. IFS='     !    
  638. '
  639. for link in $there
  640. do
  641.     back="$last!$back"
  642.     last=$link
  643. done
  644. IFS='     
  645. '
  646. echo mail $there!$back
  647. (date; echo "$otherstuff") | mail -s "Circumlocution to $last" $there!$back
  648. !Funky!Stuff!
  649. echo x - bin/comfmt
  650. cat >bin/comfmt <<'!Funky!Stuff!'
  651. exec fmt | \
  652. sed -e '1s/^\([     ]*\)/\1\/\* /' -e '2,$s/^\([     ]*\)/\1 \* /' -e '${P
  653. s/\*.*/*\//
  654. }'
  655. !Funky!Stuff!
  656. echo x - bin/comstrip
  657. cat >bin/comstrip <<'!Funky!Stuff!'
  658. exec sed -e 's/\/\*//' -e 's/\*\///' -e 's/^[     ]*\** *//'
  659. !Funky!Stuff!
  660. echo x - bin/decvert
  661. cat >bin/decvert <<'!Funky!Stuff!'
  662. #
  663. if ($#argv == 0) then
  664.     set args=`cat`
  665.     if ($#args != 0) $0 $args
  666.     exit
  667. endif
  668.  
  669. foreach hexnum ($argv)
  670. dc << EOF
  671. 16i
  672. ${hexnum}p
  673. EOF
  674. end
  675. !Funky!Stuff!
  676. echo x - bin/f77
  677. cat >bin/f77 <<'!Funky!Stuff!'
  678. PATH=/usr/bin
  679. SPECLIB=/usr/ken/cmd/lib/libc.a
  680. exec f77 "$@" $SPECLIB
  681. !Funky!Stuff!
  682. echo x - bin/famove
  683. cat >bin/famove <<'!Funky!Stuff!'
  684. #
  685. if ($#argv != 2) then
  686.     echo Usage: $0 '<source family root> <destination family root>'
  687.     exit
  688. endif
  689. foreach file ($1.*)
  690.     set suffix=`expr $file : "$1\.\(.*\)"`
  691.     echo mv $file $2.$suffix
  692.     mv $file $2.$suffix
  693. end
  694. if (-e $1) then
  695.     echo mv $1 $2
  696.     mv $1 $2
  697. endif
  698. !Funky!Stuff!
  699. echo x - bin/gredit
  700. cat >bin/gredit <<'!Funky!Stuff!'
  701. #
  702. set CAESAR=/mnt/cad/bin/caesar
  703. set SEARCHPATH=(-p ::/usr/ken/caesar/symlib)
  704. set COLORMAP=(-c mumap.cmap)
  705. set GRTERM=ttyh7
  706. set caesarfile=()
  707. foreach parm ($argv)
  708.     if ($?flag) then
  709.     switch ($flag)
  710.         case g:
  711.         set GRTERM=$parm
  712.         breaksw
  713.         case p:
  714.         set SEARCHPATH=(-p "$parm")
  715.         breaksw
  716.         case R:
  717.         set SEARCHPATH=($SEARCHPATH:$parm)
  718.         breaksw
  719.         case c:
  720.         set COLORMAP=(-c $parm)
  721.         breaksw
  722.     endsw
  723.     unset flag
  724.     continue
  725.     endif
  726.     if ($parm =~ -*) then
  727.     switch ($parm)
  728.         case -g:
  729.         set flag=g
  730.         continue
  731.         case -p:
  732.         set flag=p
  733.         continue
  734.         case -P:
  735.         set SEARCHPATH=()
  736.         continue
  737.         case -R:
  738.         set flag=R
  739.         continue
  740.         case -C:
  741.         set COLORMAP=()
  742.         continue
  743.         case -c:
  744.         set flag=c
  745.         continue
  746.     endsw
  747.     else
  748.     set caesarfile=($caesarfile $parm)
  749.     endif
  750. end
  751. onintr -
  752. $CAESAR -g $GRTERM $SEARCHPATH $COLORMAP $caesarfile
  753. !Funky!Stuff!
  754. echo x - bin/grindall
  755. cat >bin/grindall <<'!Funky!Stuff!'
  756. #
  757. set flags=
  758. set fileargs=
  759. onintr cleanup
  760. foreach file ($argv)
  761.     if ($file =~ -*) then
  762.     if ($file == -t) then
  763.         set stdout
  764.     else
  765.         set flags=($flags $file)
  766.     endif
  767.     else
  768.     set fileargs=($fileargs $file)
  769.     endif
  770. end
  771.  
  772. if ($?stdout) then
  773.     foreach file ($fileargs)
  774.     vgrind -t $flags $file
  775.     end
  776. else
  777.     foreach file ($fileargs)
  778.     vgrind -t $flags $file >> /usr/tmp/grind$$
  779.     end
  780.     vpr -T $fileargs[1] -t /usr/tmp/grind$$
  781. endif
  782.  
  783. cleanup:
  784. rm /usr/tmp/grind$$
  785. !Funky!Stuff!
  786. echo x - bin/hardasm
  787. cat >bin/hardasm <<'!Funky!Stuff!'
  788. #
  789. grasm -1 -l -x $* |& pr -f -h "grasm -l -x $*" | vpr -l
  790. !Funky!Stuff!
  791. echo x - bin/hexvert
  792. cat >bin/hexvert <<'!Funky!Stuff!'
  793. #
  794. if ($#argv == 0) then
  795.     set args=`cat`
  796.     if ($#args != 0) $0 $args
  797.     exit
  798. endif
  799.  
  800. foreach decnum ($argv)
  801. dc << EOF
  802. 16o
  803. ${decnum}p
  804. EOF
  805. end
  806. !Funky!Stuff!
  807. echo x - bin/job
  808. cat >bin/job <<'!Funky!Stuff!'
  809. PATH=/usr/ken/cmd/bin:/usr/ucb:/bin:/usr/bin
  810. case $# in
  811.     0)
  812.     exec echo Usage: `basename $0` '-;' or $0 '<job description>' ;;
  813. esac
  814. case $1 in
  815.     -)
  816.     exec ex $HOME/.joblog ;;
  817.     -h | -hr | -hrs)
  818.     shift
  819.     hrs=$1
  820.     shift
  821.     exec echo '   job:' $hrs hours # $* >> $HOME/.joblog ;;
  822.     -tail)
  823.     exec tail -22 $HOME/.joblog ;;
  824.     -today)
  825.     {
  826.         while read line
  827.         do
  828.         case $line in
  829.             *login*)
  830.             login="$line" ;;
  831.         esac
  832.         done
  833.         echo -n "$login" "for "
  834.         diffdate "$login" "`date`"
  835.     } < $HOME/.joblog ;;
  836.     -login)
  837.     echo ' login:' "`date`" >> $HOME/.joblog ;;
  838.     -summary)
  839.     cat $HOME/.joblog |
  840.         while read line
  841.         do
  842.         case $line in
  843.             *login*)
  844.             login="$line" ;;
  845.             *logout*)
  846.             logout="$line"
  847.             echo -n "$login" "for "
  848.             diffdate "$login" "$logout"
  849.         esac
  850.         done ;;
  851.     *)
  852.     exec echo '   job:' "`date`" # $* >> $HOME/.joblog ;;
  853. esac
  854. !Funky!Stuff!
  855. echo x - bin/ledger
  856. cat >bin/ledger <<'!Funky!Stuff!'
  857. #
  858. set notetype=$0
  859. set notetype=$notetype:t
  860. set notefile=~/.$notetype
  861. # if ($notetype == appt) then
  862. #     set notetype=appointment
  863. #     set notefile=~/calendar
  864. # endif
  865.  
  866. if ($#argv == 0) then
  867.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  868.     echo ' ' >> $notefile
  869.     exec cat >> $notefile
  870. endif
  871.  
  872. switch ($1)
  873.     case -:
  874.     exec vi $notefile
  875.     case -rm:
  876.     cat /dev/null > $notefile
  877.     exec echo The ${notetype}s are removed.
  878.     case -what:
  879.     exec cat $notefile
  880.     default:
  881.     echo '' >> $notefile
  882.     echo "$*" >> $notefile
  883. endsw
  884. !Funky!Stuff!
  885. echo x - bin/lstree
  886. cat >bin/lstree <<'!Funky!Stuff!'
  887. #
  888. if ($#argv == 0) then
  889.     set root=.
  890. else
  891.     set root=($*)
  892. endif
  893. exec find $root -print | sort | sed -e 's/[^ \/]*\//    /g'
  894. !Funky!Stuff!
  895. echo x - bin/match
  896. cat >bin/match <<'!Funky!Stuff!'
  897. cat $2 |
  898. while read x
  899. do
  900.     for word in $x
  901.     do
  902.     case $word in
  903.         $1)
  904.         echo $word ;;
  905.     esac
  906.     done
  907. done
  908. !Funky!Stuff!
  909. echo x - bin/narrow
  910. cat >bin/narrow <<'!Funky!Stuff!'
  911. echo \!
  912. !Funky!Stuff!
  913. echo x - bin/outmesg
  914. cat >bin/outmesg <<'!Funky!Stuff!'
  915. #
  916. set notetype=$0
  917. set notetype=$notetype:t
  918. set notefile=~/.$notetype
  919. # if ($notetype == appt) then
  920. #     set notetype=appointment
  921. #     set notefile=~/calendar
  922. # endif
  923.  
  924. if ($#argv == 0) then
  925.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  926.     echo ' ' >> $notefile
  927.     exec cat >> $notefile
  928. endif
  929.  
  930. switch ($1)
  931.     case -:
  932.     exec vi $notefile
  933.     case -rm:
  934.     cat /dev/null > $notefile
  935.     exec echo The ${notetype}s are removed.
  936.     case -what:
  937.     exec cat $notefile
  938.     default:
  939.     echo '' >> $notefile
  940.     echo "$*" >> $notefile
  941. endsw
  942. !Funky!Stuff!
  943. echo x - bin/path
  944. cat >bin/path <<'!Funky!Stuff!'
  945. IFS="${IFS}:"
  946. for cmddir in $PATH
  947. do
  948.     test -s $cmddir/$1 && echo "    $cmddir/$1"
  949. done
  950. !Funky!Stuff!
  951. echo x - bin/pphone
  952. cat >bin/pphone <<'!Funky!Stuff!'
  953. phonefile=$HOME/.`basename $0`s
  954.  
  955. echo ' '
  956.  
  957. case $# in
  958.     0)
  959.     ed - $phonefile << EOF
  960. g/./s/$/\\
  961. /
  962. g/    /s//\\
  963. /g
  964. g/;/s//    /g
  965. 1,\$p
  966. q
  967. EOF
  968.     exit ;;
  969. esac
  970.  
  971. case $1 in
  972.     -)
  973.     chmod 644 $phonefile
  974.     vi $phonefile
  975.     chmod 444 $phonefile
  976.     exit ;;
  977. esac
  978.  
  979. trap "rm /tmp/data$$; exit" 0 2
  980. for name
  981. do
  982.     grep -y "$name" $phonefile >> /tmp/data$$
  983. done
  984. ed - /tmp/data$$ << EOF
  985. g/./s/$/\\
  986. /
  987. g/    /s//\\
  988. /g
  989. g/;/s//    /g
  990. 1,\$p
  991. q
  992. EOF
  993. !Funky!Stuff!
  994. echo x - bin/progression
  995. cat >bin/progression <<'!Funky!Stuff!'
  996. last=
  997. for backup in $1_??
  998. do
  999.     case $last in
  1000.     "")
  1001.         last=$backup
  1002.         continue;
  1003.     esac
  1004.     echo ''
  1005.     echo From $last to $backup:
  1006.     diff $last $backup
  1007.     last=$backup
  1008. done
  1009. echo ''
  1010. echo From $last to $1:
  1011. diff $last $1
  1012. !Funky!Stuff!
  1013. echo x - bin/query
  1014. cat >bin/query <<'!Funky!Stuff!'
  1015. #
  1016. set notetype=$0
  1017. set notetype=$notetype:t
  1018. set notefile=~/.$notetype
  1019. # if ($notetype == appt) then
  1020. #     set notetype=appointment
  1021. #     set notefile=~/calendar
  1022. # endif
  1023.  
  1024. if ($#argv == 0) then
  1025.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  1026.     echo ' ' >> $notefile
  1027.     exec cat >> $notefile
  1028. endif
  1029.  
  1030. switch ($1)
  1031.     case -:
  1032.     exec vi $notefile
  1033.     case -rm:
  1034.     cat /dev/null > $notefile
  1035.     exec echo The ${notetype}s are removed.
  1036.     case -what:
  1037.     exec cat $notefile
  1038.     default:
  1039.     echo '' >> $notefile
  1040.     echo "$*" >> $notefile
  1041. endsw
  1042. !Funky!Stuff!
  1043. echo x - bin/releave
  1044. cat >bin/releave <<'!Funky!Stuff!'
  1045. #
  1046. set tty=`tty`
  1047. set tty=`expr $tty : '.*tty\(.*\)'`
  1048. set leaveproc=`ps gt$tty | grep -w leave`
  1049. kill -9 $leaveproc[1]
  1050. date
  1051. leave $*
  1052. !Funky!Stuff!
  1053. echo x - bin/reminder
  1054. cat >bin/reminder <<'!Funky!Stuff!'
  1055. #
  1056. set notetype=$0
  1057. set notetype=$notetype:t
  1058. set notefile=~/.$notetype
  1059. # if ($notetype == appt) then
  1060. #     set notetype=appointment
  1061. #     set notefile=~/calendar
  1062. # endif
  1063.  
  1064. if ($#argv == 0) then
  1065.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  1066.     echo ' ' >> $notefile
  1067.     exec cat >> $notefile
  1068. endif
  1069.  
  1070. switch ($1)
  1071.     case -:
  1072.     exec vi $notefile
  1073.     case -rm:
  1074.     cat /dev/null > $notefile
  1075.     exec echo The ${notetype}s are removed.
  1076.     case -what:
  1077.     exec cat $notefile
  1078.     default:
  1079.     echo '' >> $notefile
  1080.     echo "$*" >> $notefile
  1081. endsw
  1082. !Funky!Stuff!
  1083. echo x - bin/reremind
  1084. cat >bin/reremind <<'!Funky!Stuff!'
  1085. #
  1086. set tty=`tty`
  1087. set tty=`expr $tty : '.*tty\(.*\)'`
  1088. set leaveproc=`ps gt$tty | awk '$5 ~ /^remind$/ { print $1 }'`
  1089. if ($#leaveproc > 1) echo $#leaveproc reminds were running
  1090. kill -9 $leaveproc
  1091. date
  1092. if ($#argv <= 1) then
  1093.     remind $*
  1094. else
  1095.     set time=$1
  1096.     shift
  1097.     remind $time "$*"
  1098. endif
  1099. !Funky!Stuff!
  1100. echo x - bin/restore
  1101. cat >bin/restore <<'!Funky!Stuff!'
  1102. # Truncate filename if necessary
  1103. set file=$1
  1104. if (`expr $file:t : '.*'` >= 11) then
  1105.     set savename=`expr $file : '\(.*\)'$file:t`
  1106.     set savename=$savename`expr $file:t : '\(...........\)'`
  1107. else
  1108.     set savename=$file
  1109. endif
  1110.  
  1111. switch ($#argv)
  1112.     case 1:
  1113.     set nonomatch
  1114.     set backup=(${savename}_[0-9][0-9])
  1115.     if ("$backup" == "${savename}_[0-9][0-9]") then
  1116.         echo Error: No backups found for $file
  1117.         exit
  1118.     endif
  1119.     set backup=$backup[$#backup]
  1120.     echo No backup number specified. Using latest: $backup
  1121.     breaksw
  1122.     case 2:
  1123.     set backup=${savename}_$2
  1124.     breaksw
  1125.     default:
  1126.     exec echo Usage: `basename $0` '<file>' '[<backup number>]'
  1127. endsw
  1128.  
  1129. if ( { cp $backup $file } ) then
  1130.     echo $file restored from $backup.
  1131.     echo -n Do you wish to keep "$backup? "
  1132.     set response=$<
  1133.     if ($response !~ y*) then
  1134.     rm $backup
  1135.     endif
  1136. endif
  1137. !Funky!Stuff!
  1138. echo x - bin/rot13
  1139. cat >bin/rot13 <<'!Funky!Stuff!'
  1140. tr "A-Za-z" "N-ZA-Mn-za-m"
  1141. !Funky!Stuff!
  1142. echo x - bin/shufcol
  1143. cat >bin/shufcol <<'!Funky!Stuff!'
  1144. trap 'rm /tmp/$$.*; exit' 0 2
  1145. cat > /tmp/$$.0
  1146. i=1
  1147. for cols
  1148. do
  1149.     cut -f$cols < /tmp/$$.0 > /tmp/$$.$i
  1150.     filelist="$filelist /tmp/$$.$i"
  1151.     i=`expr $i + 1`
  1152. done
  1153. paste $filelist
  1154. !Funky!Stuff!
  1155. echo x - bin/signature
  1156. cat >bin/signature <<'!Funky!Stuff!'
  1157. PATH=/bin:/usr/bin
  1158. cat
  1159. echo --
  1160. cat $HOME/.signature
  1161. !Funky!Stuff!
  1162. echo x - bin/swab
  1163. cat >bin/swab <<'!Funky!Stuff!'
  1164. #
  1165. if ($#argv == 0) then
  1166.     dd conv=swab
  1167. else
  1168.     onintr cleanup
  1169.     foreach file ($argv)
  1170.     cp $file /tmp/swab$$
  1171.     dd if=/tmp/swab$$ of=$file conv=swab
  1172.     end
  1173.     cleanup:
  1174.     rm /tmp/swab$$
  1175. endif
  1176. !Funky!Stuff!
  1177. echo x - bin/what
  1178. cat >bin/what <<'!Funky!Stuff!'
  1179. cat $HOME/.query
  1180. echo -n 'save? (n or d to delete, e to edit) '
  1181. read response
  1182. case $response in
  1183.     n | no | d | delete)
  1184.     rm $HOME/.query && echo The query is removed. ;;
  1185.     "" | y | yes | s | save)
  1186.     exit ;;
  1187.     e | edit)
  1188.     exec vi $HOME/.query < /dev/tty
  1189.     exit ;;
  1190.     *)
  1191.     echo Bad response: "$response"
  1192.     exec $0 ;;
  1193. esac
  1194. !Funky!Stuff!
  1195. echo x - bin/whereis
  1196. cat >bin/whereis <<'!Funky!Stuff!'
  1197. N=$#
  1198. command=echo
  1199. case "$1" in
  1200.     -*)
  1201.     command=`expr "$1" : '-\(.*\)'`
  1202.     shift
  1203.     N=`expr $N - 1` ;;
  1204. esac
  1205. case $N in
  1206.     0)
  1207.     exec echo Usage: `basename $0` [ -command ] pattern file ...  ;;
  1208.     1)
  1209.     files=`fgrep -l "$1" *` ;;
  1210.     *)
  1211.     files=`fgrep -l "$@"` ;;
  1212. esac
  1213. case $files in
  1214.     "")
  1215.         echo $1 not found in any files.
  1216.         exit ;;
  1217. esac
  1218. exec $command $files
  1219. !Funky!Stuff!
  1220. echo x - bin/wide
  1221. cat >bin/wide <<'!Funky!Stuff!'
  1222. echo \"
  1223. !Funky!Stuff!
  1224. echo x - bin/xprint
  1225. cat >bin/xprint <<'!Funky!Stuff!'
  1226. case $# in
  1227.     1)
  1228.     eval $1 | eval pr -f -h \"$1\" | vpr -l ;;
  1229.     *)
  1230.     command='cat $file'
  1231.     for file
  1232.     do
  1233.         case $file in
  1234.         -*)
  1235.             command=`expr "$file" : '-\(.*\)'`
  1236.             case $command in
  1237.             *\$file*)
  1238.                 ;;
  1239.             *)
  1240.                 command="$command \$file" ;;
  1241.             esac ;;
  1242.         *)
  1243.             eval $command | eval pr -f -h \"$command\" | vpr -l ;;
  1244.         esac
  1245.     done
  1246. esac
  1247. !Funky!Stuff!
  1248. echo x - bin/archives
  1249. mkdir bin/archives
  1250. echo x - bin/archives/newsweed
  1251. cat >bin/archives/newsweed <<'!Funky!Stuff!'
  1252. #
  1253. cd
  1254. if ($#argv == 0) then
  1255.     if (-e .newsweed) then
  1256.     set WEEDGROUPS=`cat .newsweed`
  1257.     else
  1258.     set WEEDGROUPS=
  1259.     endif
  1260. else
  1261.     set WEEDGROUPS=$*
  1262. endif
  1263. if ($#WEEDGROUPS == 0) then
  1264.     onintr
  1265.     echo Searching for articles in all newsgroups
  1266.     readnews -l | \
  1267.     grep Subject | \
  1268.     sed -e 's/Subject: *//' -e 's/^[rR][eE]:*  *//' | \
  1269.     sort -u > /tmp/weed$$a
  1270.     if (-z /tmp/weed$$a) then
  1271.     echo No news.
  1272.     else
  1273.     cp /tmp/weed$$a /tmp/weed$$b
  1274.     echo Please remove article titles which you do not wish to read
  1275.     sleep 1
  1276.     onintr -
  1277.     vi /tmp/weed$$b
  1278.     onintr cleanup
  1279.     comm -23 /tmp/weed$$a /tmp/weed$$b > /tmp/weed$$c
  1280.     echo Removing unwanted articles
  1281.     newsec -f /tmp/weed$$c
  1282.     endif
  1283. else
  1284.     foreach group ($WEEDGROUPS)
  1285.     echo Searching for articles in group\(s\):
  1286.     echo $group
  1287.     readnews -l -n $group | \
  1288.     grep Subject | \
  1289.     sed -e 's/Subject: *//' -e 's/^[rR]e:*  *//' | \
  1290.     sort -u > /tmp/weed$$a
  1291.     if (-z /tmp/weed$$a) then
  1292.         echo in newsgroups $group.
  1293.     else
  1294.         cp /tmp/weed$$a /tmp/weed$$b
  1295.         echo Please remove article titles which you do not wish to read
  1296.         sleep 1
  1297.         onintr -
  1298.         vi /tmp/weed$$b
  1299.         onintr cleanup
  1300.         comm -23 /tmp/weed$$a /tmp/weed$$b > /tmp/weed$$c
  1301.         echo Removing unwanted articles
  1302.         newsec -f /tmp/weed$$c
  1303.     endif
  1304.     end
  1305. endif
  1306.  
  1307. cleanup:
  1308. rm /tmp/weed$$?
  1309. !Funky!Stuff!
  1310. echo x - bin/archives/pk_01
  1311. cat >bin/archives/pk_01 <<'!Funky!Stuff!'
  1312. : Roff, nroff, or eqn input text
  1313. for file in `file $* | sed -n '/eqn input text$/s/:[^:]*$//p'`
  1314. do
  1315.     echo "echo x - $file"
  1316.     echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  1317.     sed 's/^/x/' $file; echo "!Funky!Stuff!"
  1318. done
  1319. : Text files
  1320. for file in `file $* | sed -n -e '/commands text$/s/:[^:]*$//p' -e '/ascii text$/s/:[^:]*$//p'`
  1321. do
  1322.     echo "echo x - $file"
  1323.     echo "cat >$file <<'!Funky!Stuff!'"
  1324.     cat $file; echo "!Funky!Stuff!"
  1325. done
  1326. : Directories, recursively
  1327. for dir in `file $* | sed -n '/directory$/s/:.*//p'`
  1328. do
  1329.     echo "echo x - $dir"
  1330.     echo "mkdir $dir"
  1331.     file=`echo $dir/*`
  1332.     test "$file" != "$dir/*" && $0 $file
  1333. done
  1334. !Funky!Stuff!
  1335. echo x - bin/archives/pkf
  1336. cat >bin/archives/pkf <<'!Funky!Stuff!'
  1337.  
  1338. for dir
  1339. do
  1340.     echo "echo x - $dir"
  1341.     echo "mkdir $dir";
  1342.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  1343.     do
  1344.         echo "echo x - $file"
  1345.         echo "cat >$file <<'!Funky!Stuff!'"
  1346.         cat $file; echo "!Funky!Stuff!"
  1347.     done
  1348.     $0 `file $dir/* | sed -n '/directory$/s/:.*//p'`
  1349. done
  1350. !Funky!Stuff!
  1351. echo x - bin/archives/pkg
  1352. cat >bin/archives/pkg <<'!Funky!Stuff!'
  1353. for file
  1354. do
  1355.     echo "echo x - $file"
  1356.     echo "cat >$file <<'!Funky!Stuff!'"
  1357.     cat $file; echo "!Funky!Stuff!"
  1358. done
  1359. !Funky!Stuff!
  1360. echo x - bin/archives/pkn
  1361. cat >bin/archives/pkn <<'!Funky!Stuff!'
  1362.  
  1363. for dir
  1364. do
  1365.     echo "echo x - $dir"
  1366.     echo "mkdir $dir";
  1367.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  1368.     do
  1369.         echo "echo x - $file"
  1370.         echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  1371.         sed 's/^/x/' $file; echo "!Funky!Stuff!"
  1372.     done
  1373.     $0 `file $dir/* | sed -n '/directory$/s/:.*//p'`
  1374. done
  1375. !Funky!Stuff!
  1376. echo x - bin/archives/prod
  1377. cat >bin/archives/prod <<'!Funky!Stuff!'
  1378. #
  1379. set flags=()
  1380. set syslist=()
  1381. foreach arg ($argv)
  1382.     switch ($arg)
  1383.     case -s*:
  1384.         if (`expr $arg : '.*'` > 9) then
  1385.         rm -f /usr/spool/uucp/STST.`expr $arg : '-s\(.......\)'`
  1386.         else
  1387.         rm -f /usr/spool/uucp/STST.`expr $arg : '-s\(.*\)'`
  1388.         endif
  1389.         set syslist=($syslist $arg)
  1390.         breaksw
  1391.     case -*:
  1392.         set flags=($flags $arg)
  1393.         breaksw
  1394.     default:
  1395.         if (`expr $arg : '.*'` > 7) then
  1396.         rm -f /usr/spool/uucp/STST.`expr $arg : '\(.......\)'`
  1397.         else
  1398.         rm -f /usr/spool/uucp/STST.$arg
  1399.         endif
  1400.         set syslist=($syslist -s$arg)
  1401.         breaksw
  1402.     endsw
  1403. end
  1404. foreach sys ($syslist)
  1405.     /usr/lib/uucp/uucico -r1 $flags $sys
  1406. end
  1407. !Funky!Stuff!
  1408. echo x - bin/bourne_scripts
  1409. mkdir bin/bourne_scripts
  1410. echo x - bin/bourne_scripts/lookdoc
  1411. sed 's/^x//' >bin/bourne_scripts/lookdoc <<'!Funky!Stuff!'
  1412. xtrap exit 2
  1413. xcase $# in
  1414. x    0)
  1415. x    ul | more
  1416. x    exit ;;
  1417. xesac
  1418. xfor names
  1419. xdo
  1420. x    case $names in
  1421. x    -n)
  1422. x        default=n ;;
  1423. x    -t)
  1424. x        default=t ;;
  1425. x    -m*)
  1426. x        macros="$macros $names" ;;
  1427. x    *.n | *.nr)
  1428. x        nroff $macros $names | ul | more ;;
  1429. x    *.t | *.tbl)
  1430. x        soelim $names | tbl | nroff $macros - | ul | more ;;
  1431. x    *)
  1432. x        case $default in
  1433. x        n)
  1434. x            nroff $macros $names | ul | more ;;
  1435. x        t)
  1436. x            soelim $names | tbl | nroff $macros - | ul | more ;;
  1437. x        "")
  1438. x            ul $names | more ;;
  1439. x        esac
  1440. x    esac
  1441. xdone
  1442. !Funky!Stuff!
  1443. echo x - bin/bourne_scripts/CC
  1444. cat >bin/bourne_scripts/CC <<'!Funky!Stuff!'
  1445. outname=a.out
  1446. for argv
  1447. do
  1448.     case $argv in
  1449.     *.[cos])
  1450.         outname=`expr $argv : '\(.*\)\.'`
  1451.         break ;;
  1452.     esac
  1453. done
  1454. cc -o $outname $*
  1455. !Funky!Stuff!
  1456. echo x - bin/bourne_scripts/appt
  1457. cat >bin/bourne_scripts/appt <<'!Funky!Stuff!'
  1458. case $0 in
  1459.     appt)
  1460.     notetype=appointment
  1461.     notefile=$HOME/calendar ;;
  1462.     *)
  1463.     notetype=$0
  1464.     notefile=$HOME/.$0 ;;
  1465. esac
  1466.  
  1467. case $# in
  1468.     0)
  1469.     test -t 0 && echo Please enter your $notetype '(^D to end):'
  1470.     echo '' >> $notefile
  1471.     exec cat >> $notefile ;;
  1472. esac
  1473. case $1 in
  1474.     -)
  1475.     exec vi $notefile ;;
  1476.     -rm)
  1477.     cat /dev/null > $notefile
  1478.     exec echo The ${notetype}s are removed. ;;
  1479.     -what)
  1480.     exec cat $notefile ;;
  1481.     *)
  1482.     echo '' >> $notefile
  1483.     exec echo "$*" >> $notefile ;;
  1484. esac
  1485. !Funky!Stuff!
  1486. echo x - bin/bourne_scripts/beautify
  1487. cat >bin/bourne_scripts/beautify <<'!Funky!Stuff!'
  1488. for files
  1489. do
  1490.     echo $files:
  1491.     cb < $files > /tmp/cb$$
  1492.     cat /tmp/cb$$ > $files
  1493. done
  1494. rm /tmp/cb$$
  1495. !Funky!Stuff!
  1496. echo x - bin/bourne_scripts/format
  1497. cat >bin/bourne_scripts/format <<'!Funky!Stuff!'
  1498. case $# in
  1499.     0)
  1500.     echo "Usage: `basename $0` [-flags] <filename> [ <filename> ... ]"
  1501.     exit 1 ;;
  1502. esac
  1503. for names
  1504. do
  1505.     case $names in
  1506.     -*)
  1507.         flags="$flags $names" ;;
  1508.     *.t)
  1509.         outfile=`expr $names : '\(.*\)\.'`.d
  1510.         soelim $names | tbl | nroff $flags - > $outfile ;;
  1511.     *.tbl)
  1512.         outfile=`expr $names : '\(.*\)\.'`.doc
  1513.         soelim $names | tbl | nroff $flags - > $outfile ;;
  1514.     *.n)
  1515.         outfile=`expr $names : '\(.*\)\.'`.d
  1516.         nroff $flags $names > $outfile ;;
  1517.     *.nr)
  1518.         outfile=`expr $names : '\(.*\)\.'`.doc
  1519.         nroff $flags $names > $outfile ;;
  1520.     *)
  1521.         echo Don\'t know what to do with $names ;;
  1522.     esac
  1523. done
  1524. !Funky!Stuff!
  1525. echo x - bin/bourne_scripts/print
  1526. cat >bin/bourne_scripts/print <<'!Funky!Stuff!'
  1527. PATH=/avsd/ava/turk/bin:/usr/local/bin:/usr/bin
  1528. indent=0
  1529. for names
  1530. do
  1531.     case $names in
  1532.     -i)
  1533.         indent=1 ;;
  1534.     *)
  1535.         args="$args $names" ;;
  1536.     esac
  1537. done
  1538. case $indent in
  1539.     0)
  1540.     pr $args | lpr ;;
  1541.     *)
  1542.     pr $args | indent | lpr ;;
  1543. esac
  1544. !Funky!Stuff!
  1545. echo x - bin/bourne_scripts/repeat
  1546. cat >bin/bourne_scripts/repeat <<'!Funky!Stuff!'
  1547. case $1 in
  1548.     -[0-9]*)
  1549.     number=`expr $1 : '-\(.*\)'`
  1550.     shift
  1551.     while test $number -gt 0
  1552.     do
  1553.         eval $*
  1554.         number=`expr $number - 1`
  1555.     done
  1556.     exit ;;
  1557.     *)
  1558.     echo Executing forever: $* 1>&2
  1559.     number=0
  1560.     trap 'echo Executed $number times.; exit' 2
  1561.     while true
  1562.     do
  1563.         eval $*
  1564.         number=`expr $number + 1`
  1565.     done ;;
  1566. esac
  1567. !Funky!Stuff!
  1568. echo x - bin/bourne_scripts/restore
  1569. cat >bin/bourne_scripts/restore <<'!Funky!Stuff!'
  1570. case $# in
  1571.     2) ;;
  1572.     *)
  1573.     exec echo Usage: `basename $0` '<file>' '<version>' ;;
  1574. esac
  1575. : Truncate filename if necessary
  1576. if test `expr $1 : '.*'` -gt 11
  1577. then
  1578.     savename=`expr $1 : '\(...........\)'`
  1579. else
  1580.     savename=$1
  1581. fi
  1582. savename=${savename}_$2
  1583. cp $savename $1 && rm $savename && echo $1 restored from $savename
  1584. !Funky!Stuff!
  1585. echo x - bin/bourne_scripts/save
  1586. cat >bin/bourne_scripts/save <<'!Funky!Stuff!'
  1587. for file
  1588. do
  1589.     if test `expr $file : '.*'` -gt 11
  1590.     then
  1591.     savename=`expr $file : '\(...........\)'`
  1592.     else
  1593.     savename=$file
  1594.     fi
  1595.     for copy in ${savename}_??
  1596.     do
  1597.     latest=$copy
  1598.     done
  1599.     if test $latest = "${savename}_??"
  1600.     then
  1601.     latest=${savename}_01
  1602.     else
  1603.     latest=`expr $latest : '.*_\([0123456789]*\)$' + 1`
  1604.     case $latest in
  1605.         ?)
  1606.         latest=0$latest
  1607.         ;;
  1608.     esac
  1609.     latest=${savename}_$latest
  1610.     fi
  1611.     cp $file $latest && echo $file saved as $latest
  1612. done
  1613. !Funky!Stuff!
  1614. echo x - bin/csh_scripts
  1615. mkdir bin/csh_scripts
  1616. echo x - bin/csh_scripts/newsweed
  1617. cat >bin/csh_scripts/newsweed <<'!Funky!Stuff!'
  1618. #
  1619. set TEMP=/tmp/weed$$
  1620. set NEWSRC=~/.newsrc
  1621. set AWKFILE=/usr/ken/cmd/lib/newsweed.awk
  1622. onintr
  1623. echo Searching for articles in all newsgroups
  1624. readnews -l $* | sort -o ${TEMP}a
  1625. if (-z ${TEMP}a) then
  1626.     echo No news.
  1627. else
  1628.     cp ${TEMP}a ${TEMP}b
  1629.     echo Please remove article titles which you do not wish to read
  1630.     sleep 1
  1631.     onintr -
  1632.     vi ${TEMP}b
  1633.     onintr cleanup
  1634.     if ( { cmp -s ${TEMP}a ${TEMP}b } ) then
  1635.     echo No articles deleted.
  1636.     else
  1637.     comm -23 ${TEMP}a ${TEMP}b | sed 's/ .*//' > ${TEMP}c
  1638.     echo Removing unwanted articles
  1639.     cp $NEWSRC $NEWSRC.old
  1640.     awk -f $AWKFILE $NEWSRC.old ${TEMP}c > ${TEMP}d
  1641.     cp ${TEMP}d $NEWSRC
  1642.     endif
  1643. endif
  1644. cleanup:
  1645. rm ${TEMP}?
  1646. !Funky!Stuff!
  1647. echo x - bin/csh_scripts/pathname
  1648. cat >bin/csh_scripts/pathname <<'!Funky!Stuff!'
  1649. #
  1650. foreach cmddir ($path)
  1651.     if ( -e $cmddir/$1 ) echo "    $cmddir/$1"
  1652. end
  1653. !Funky!Stuff!
  1654. echo x - bin/local
  1655. mkdir bin/local
  1656. echo x - bin/local/format
  1657. cat >bin/local/format <<'!Funky!Stuff!'
  1658. #
  1659. if ($#argv == 0) then
  1660.     set progname=$0
  1661.     set progname=$progname:t
  1662.     echo 'Usage:' $progname '[-v] [-n] [-print] [-troffflags] <filename> [ <filename> ... ]'
  1663.     exit (1)
  1664. endif
  1665. set flags
  1666. set formatter="vtroff -t"
  1667. set eqnsetter=eqn
  1668. set docsuf=v
  1669. set longdocsuf=vpr
  1670. set more=0
  1671. foreach name ($argv)
  1672.     if ($more > 0) then
  1673.     set flags="$flags $name"
  1674.     @ more--
  1675.     continue
  1676.     endif
  1677.     switch ($name)
  1678.     case -*:
  1679.         switch ($name)
  1680.         case -print:
  1681.             set print
  1682.             continue
  1683.         case -v:
  1684.             set formatter="vtroff -t"
  1685.             set eqnsetter=eqn
  1686.             set docsuf=v
  1687.             set longdocsuf=vpr
  1688.             continue
  1689.         case -n:
  1690.             set formatter=nroff
  1691.             set eqnsetter=neqn
  1692.             set docsuf=d
  1693.             set longdocsuf=doc
  1694.             continue
  1695.         case -[F123]:
  1696.             set more=1
  1697.         default:
  1698.             set flags="$flags $name"
  1699.         endsw
  1700.         continue
  1701.     case *.et:
  1702.         set outfile=$name:r.$docsuf
  1703.         eval soelim $name | tbl | $eqnsetter | $formatter $flags > $outfile
  1704.         breaksw
  1705.     case *.t:
  1706.         set outfile=$name:r.$docsuf
  1707.         eval soelim $name | tbl | $formatter $flags > $outfile
  1708.         breaksw
  1709.     case *.tbl:
  1710.         set outfile=$name:r.$longdocsuf
  1711.         eval soelim $name | tbl | $formatter $flags > $outfile
  1712.         breaksw
  1713.     case *.e:
  1714.         set outfile=$name:r.$docsuf
  1715.         eval $eqnsetter $name | $formatter $flags > $outfile
  1716.         breaksw
  1717.     case *.eqn:
  1718.         set outfile=$name:r.$longdocsuf
  1719.         eval $eqnsetter $name | $formatter $flags > $outfile
  1720.         breaksw
  1721.     case *.n:
  1722.         set outfile=$name:r.$docsuf
  1723.         eval $formatter $flags $name > $outfile
  1724.         breaksw
  1725.     case *.nr:
  1726.         set outfile=$name:r.$longdocsuf
  1727.         eval $formatter $flags $name > $outfile
  1728.         breaksw
  1729.     default:
  1730.         echo Don\'t know what to do with $name
  1731.         continue
  1732.     endsw
  1733.     if ($?print) then
  1734.     if ("$formatter" == nroff) then
  1735.         vpr $outfile
  1736.     else
  1737.         vpr -t $outfile
  1738.     endif
  1739.     endif
  1740. end
  1741. !Funky!Stuff!
  1742. echo x - bin/local/lntree
  1743. cat >bin/local/lntree <<'!Funky!Stuff!'
  1744. PATH=/usr/local/bin:/usr/ucb:/bin:/usr/bin
  1745. if test $1 = -v
  1746. then
  1747.     verbose=1
  1748.     shift
  1749. else
  1750.     verbose=0
  1751. fi
  1752. case $2 in
  1753.     /*)
  1754.     target=$2 ;;
  1755.     *)
  1756.     target=`pwd`/$2 ;;
  1757. esac
  1758. if test -f $2
  1759. then
  1760.     echo Error: $2 is not a directory
  1761.     exit 1
  1762. fi
  1763. cd $1
  1764. source=`pwd`
  1765. if test `expr $target : $source/` != 0
  1766. then
  1767.     echo Error: $2 may be a subdirectory of $1
  1768.     echo Try using the full path name of $2 \(no ..\'s\)
  1769.     exit 1
  1770. fi
  1771. if test $verbose = 1
  1772. then
  1773.     set -x
  1774. fi
  1775. files=`type -f`
  1776. case $files in
  1777.     "") ;;
  1778.     *)
  1779.     ln $files $target ;;
  1780. esac
  1781. for directory in `find '' -type d -a -print`
  1782. do
  1783.     mkdir $target$directory
  1784.     cd $source$directory
  1785.     files=`type -f`
  1786.     case $files in
  1787.     "") ;;
  1788.     *)
  1789.         ln $files $target$directory ;;
  1790.     esac
  1791. done
  1792. !Funky!Stuff!
  1793. echo x - bin/local/lookdoc
  1794. cat >bin/local/lookdoc <<'!Funky!Stuff!'
  1795. #
  1796. if ($#argv == 0) then
  1797.     more
  1798.     exit
  1799. endif
  1800. set macros pipespec args
  1801. foreach name ($argv)
  1802.     switch ($name)
  1803.     case -n:
  1804.         set pipespec=n
  1805.         breaksw
  1806.     case -t:
  1807.         set pipespec=t
  1808.         breaksw
  1809.     case -m*:
  1810.         set macros="$macros $name"
  1811.         breaksw
  1812.     case *.n:
  1813.     case *.nr:
  1814.         if ($pipespec != t) set pipespec=n
  1815.         set args="$args $name"
  1816.         breaksw
  1817.     case *.t:
  1818.     case *.tbl:
  1819.         set pipespec=t
  1820.         set args="$args $name"
  1821.         breaksw
  1822.     default:
  1823.         set args="$args $name"
  1824.     endsw
  1825. end
  1826.  
  1827. switch ($pipespec)
  1828.     case n:
  1829.     nroff $macros $args | more
  1830.     breaksw
  1831.     case t:
  1832.     soelim $args | tbl | nroff $macros - | col | more
  1833.     breaksw
  1834.     default:
  1835.     more $name
  1836.     breaksw
  1837. endsw
  1838. !Funky!Stuff!
  1839. echo x - bin/local/newsweed
  1840. cat >bin/local/newsweed <<'!Funky!Stuff!'
  1841. TEMP=/tmp/weed$$
  1842. NEWSRC=$HOME/.newsrc
  1843. AWKFILE=/usr/local/lib/newsweed.awk
  1844. trap 'rm ${TEMP}?; exit' 0 2
  1845. echo Making list of article titles
  1846. readnews -l $* | sort -o ${TEMP}a
  1847. if test -s ${TEMP}a
  1848. then
  1849.     cp ${TEMP}a ${TEMP}b
  1850.     echo Please remove article titles which you do not wish to read
  1851.     sleep 1
  1852.     reset    # So that vi's CRLF doesn't get trashed by another vi
  1853.     ${EDITOR-vi} ${TEMP}b
  1854.     if cmp -s ${TEMP}a ${TEMP}b
  1855.     then
  1856.     echo No articles deleted.
  1857.     else
  1858.     comm -23 ${TEMP}a ${TEMP}b | sed 's/ .*//' > ${TEMP}c
  1859.     echo Removing unwanted articles
  1860.     cp $NEWSRC $NEWSRC.old
  1861.     awk -f $AWKFILE $NEWSRC.old ${TEMP}c > ${TEMP}d
  1862.     cp ${TEMP}d $NEWSRC
  1863.     fi
  1864. else
  1865.     echo No news.
  1866. fi
  1867. !Funky!Stuff!
  1868. echo x - bin/local/nmail
  1869. cat >bin/local/nmail <<'!Funky!Stuff!'
  1870. #/bin/csh
  1871. set found = 0
  1872. set arg = 1
  1873. while($arg <= $#argv)
  1874.     if(`echo $argv[$arg] | grep \!` != "") then
  1875.         set tuple = `echo $argv[$arg] | sed s/\\!/\ /`
  1876.         set upath = `uupath $tuple[1]`
  1877.         set found = $status
  1878.         set argv[$arg] = "$upath\!$tuple[2]"
  1879.     else
  1880.         set found = 0
  1881.     endif
  1882.     if($found != 0) then
  1883.         set argv[$arg]
  1884.     endif
  1885.     @ arg = $arg + 1
  1886. end
  1887. echo "mail $argv"
  1888. mail $argv
  1889.  
  1890. !Funky!Stuff!
  1891. echo x - bin/local/peopledata
  1892. cat >bin/local/peopledata <<'!Funky!Stuff!'
  1893. peoplefile=$HOME/.peopledata
  1894.  
  1895. echo ' '
  1896.  
  1897. case $# in
  1898.     0)
  1899.     ed - $peoplefile << EOF
  1900. g/./s/$/\\
  1901. /
  1902. g/    /s//\\
  1903. /g
  1904. 1,\$p
  1905. q
  1906. EOF
  1907.     exit ;;
  1908. esac
  1909.  
  1910. case $1 in
  1911.     -)
  1912.     chmod 600 $peoplefile
  1913.     vi $peoplefile
  1914.     chmod 400 $peoplefile
  1915.     exit ;;
  1916. esac
  1917. trap "rm /tmp/data$$; exit" 0 2
  1918. for name
  1919. do
  1920.     grep -y "$name" $peoplefile >> /tmp/data$$
  1921. done
  1922. ed - /tmp/data$$ << EOF
  1923. g/./s/$/\\
  1924. /
  1925. g/    /s//\\
  1926. /g
  1927. 1,\$p
  1928. q
  1929. EOF
  1930. !Funky!Stuff!
  1931. echo x - bin/local/phone
  1932. cat >bin/local/phone <<'!Funky!Stuff!'
  1933. peoplefile=$HOME/.peopledata
  1934.  
  1935. case $# in
  1936.     0)
  1937.     ed - $peoplefile << EOF
  1938.     v/-/d
  1939.     g/./s/\([^    ]*\)[^-]*    \(.*-.*\)/\1    \2/
  1940.     1,\$p
  1941. EOF
  1942.     exit ;;
  1943. esac
  1944.  
  1945. case $1 in
  1946.     -)
  1947.     chmod 600 $peoplefile
  1948.     vi $peoplefile
  1949.     chmod 400 $peoplefile
  1950.     exit ;;
  1951. esac
  1952.  
  1953. trap "rm /tmp/data$$; exit" 0 2
  1954. for name
  1955. do
  1956.     grep -y "$name" $peoplefile >> /tmp/data$$
  1957. done
  1958. ed - /tmp/data$$ << EOF
  1959. g/./s/\([^    ]*\)[^-]*    \(.*-.*\)/\1    \2/
  1960. 1,\$p
  1961. q
  1962. EOF
  1963. !Funky!Stuff!
  1964. echo x - bin/local/pk
  1965. cat >bin/local/pk <<'!Funky!Stuff!'
  1966. for dir
  1967. do echo "mkdir $dir";
  1968.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  1969.     do    echo "echo x - $file"
  1970.         echo "cat >$file <<'#EOF#'"
  1971.         cat $file; echo "#EOF#"
  1972.     done
  1973.     pk `file $dir/* | sed -n '/directory$/s/:.*//p'`
  1974. done
  1975. !Funky!Stuff!
  1976. echo x - bin/local/save
  1977. cat >bin/local/save <<'!Funky!Stuff!'
  1978. #
  1979. if ("$1" =~ -*) then
  1980.     set suffix=`expr $1 : '-\(.*\)'`
  1981.     shift
  1982.     foreach file ($argv)
  1983.     if (`expr $file:t : '.*'` >= 11) then
  1984.         set savename=`expr $file : '\(.*\)'$file:t`
  1985.         set savename=$savename`expr $file:t : '\(...........\)'`
  1986.     else
  1987.         set savename=$file
  1988.     endif
  1989.     cp $file ${savename}_$suffix && \
  1990.         echo $file saved as ${savename}_$suffix
  1991.     end
  1992.     exit
  1993. endif
  1994. foreach file ($argv)
  1995.     if (`expr $file:t : '.*'` >= 11) then
  1996.     set savename=`expr $file : '\(.*\)'$file:t`
  1997.     set savename=$savename`expr $file:t : '\(...........\)'`
  1998.     else
  1999.     set savename=$file
  2000.     endif
  2001.  
  2002.     set nonomatch
  2003.     set latest=(${savename}_[0-9][0-9])
  2004.     if ("$latest" == "${savename}_[0-9][0-9]") then
  2005.     set latest=${savename}_01
  2006.     else
  2007.     set latest=$latest[$#latest]
  2008.     set latest=`expr $latest : '.*_\([0123456789]*\)$' + 1`
  2009.     if ($latest < 10) set latest=0$latest
  2010.     set latest=${savename}_$latest
  2011.     endif
  2012.     cp $file $latest && echo $file saved as $latest
  2013. end
  2014. !Funky!Stuff!
  2015. echo x - bin/local/shar
  2016. cat >bin/local/shar <<'!Funky!Stuff!'
  2017. : Roff, nroff, or eqn input text
  2018. for file in `file $* | sed -n '/eqn input text$/s/:[^:]*$//p'`
  2019. do
  2020.     echo "echo x - $file"
  2021.     echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  2022.     sed 's/^/x/' $file; echo "!Funky!Stuff!"
  2023. done
  2024. : Text files
  2025. for file in `file $* | sed -n -e '/eqn input text$/d' -e '/text$/s/:[^:]*$//p'`
  2026. do
  2027.     echo "echo x - $file"
  2028.     echo "cat >$file <<'!Funky!Stuff!'"
  2029.     cat $file; echo "!Funky!Stuff!"
  2030. done
  2031. : Directories, recursively
  2032. for dir in `file $* | sed -n '/directory$/s/:.*//p'`
  2033. do
  2034.     echo "echo x - $dir"
  2035.     echo "mkdir $dir"
  2036.     file=`echo $dir/*`
  2037.     test "$file" != "$dir/*" && $0 $file
  2038. done
  2039. !Funky!Stuff!
  2040. echo x - bin/local/uuhosts
  2041. cat >bin/local/uuhosts <<'!Funky!Stuff!'
  2042. #!/bin/sh
  2043. # '@(#) uuhosts.sh 1.22 84/08/07'
  2044.  
  2045. # PATH will have to be adjusted for non-BSD systems.
  2046. PATH=/usr/local/bin:/usr/ucb:/bin:/usr/bin
  2047. LIB=/usr/lib
  2048.  
  2049. # Routing information produced by pathalias.
  2050. paths=$LIB/nmail.paths
  2051.  
  2052. # The directory $NEWSMAP should contain the USENET news map information
  2053. # from newsgroup net.news.map that is posted about once a month from
  2054. # cbosgd!map, extracted by a line like this in $LIB/news/sys:
  2055. #
  2056. #    newsmap:net.news.map:B:/usr/local/uuhosts -x
  2057. #
  2058. # Locally-known information should go in $LIB/news/net.news.map/Local.
  2059. # The directory $MAILMAP is extracted by the same command from the
  2060. # UUCP mail information posted to the same newsgroup.
  2061. NEWSMAP=$LIB/news/net.news.map
  2062. MAILMAP=$LIB/news/net.mail.map
  2063. cd $NEWSMAP
  2064.  
  2065. case $1 in
  2066.     -x)
  2067.         # extract a new map piece into the map directory
  2068.         temphead=/tmp/maphead.$$
  2069.         temptext=/tmp/maptext.$$
  2070.         awk '
  2071. BEGIN    {
  2072.     temphead = "'$temphead'";
  2073.     isnewsmap = 0; ismailmap = 0;
  2074.     shead = 0; stext = 1; snews = 2; smail = 3; scat = 4; scatting = 5;
  2075.     state = shead;
  2076.     print "Reply-To: news" >> temphead;
  2077. }
  2078. state == shead && /^From: /    {
  2079.     print "Original-" $0 >> temphead;
  2080. }
  2081. state == shead && /^Subject: /    {
  2082.     if ($2 != "Re:")
  2083.     for (x = 2; x <= NF; x++) {
  2084.         if ($x == "UUCPmap" || $x == "uucpmap" || $x == "UUCPMAP") {
  2085.             ismailmap = 1;
  2086.             break;
  2087.         }
  2088.         if ($x == "map" || $x == "Map" || $x == "MAP") {
  2089.             if (x <= 2)
  2090.                 continue;
  2091.             x--;
  2092.             if ($x == "USENET") {
  2093.                 isnewsmap = 1;
  2094.                 break;
  2095.             }
  2096.             if ($x == "UUCP") {
  2097.                 ismailmap = 1;
  2098.                 break;
  2099.             }
  2100.             x++;
  2101.         }
  2102.     }
  2103.     if (!isnewsmap && !ismailmap) {
  2104.         print "Subject:  not a map update" >> temphead;
  2105.         print "Original-" $0 >> temphead;
  2106.     } else
  2107.         print $0 >> temphead;
  2108. }
  2109. state == shead && /^$/    {
  2110.     if (isnewsmap != 0)
  2111.         state = snews;
  2112.     else if (ismailmap != 0) {
  2113.         state = scat;
  2114.     } else
  2115.         state = stext;
  2116.     next;
  2117. }
  2118. state == scat    {
  2119.     if ($1 != "cat")
  2120.         state = scatting;
  2121.     else
  2122.         state = smail;
  2123. }
  2124. state == scatting {
  2125.     if ($1 == ":")
  2126.         state = smail;
  2127.     else
  2128.         print;
  2129. }
  2130. state == smail    {
  2131.     print | "uuhosts -u";
  2132. }
  2133. state == snews    {
  2134.     print | "/bin/sh";
  2135. }
  2136. state == stext    {
  2137.     print;
  2138. }
  2139. ' > $temptext 2>&1
  2140.         cat $temphead $temptext | /bin/mail news
  2141.         rm -f $temphead $temptext
  2142.         exit 0
  2143.     ;;
  2144.  
  2145.     -u)
  2146.         # extract a UUCP map piece
  2147.         cd $MAILMAP
  2148.         /bin/sh
  2149.         for f in *map*.a *map*.ar
  2150.         do
  2151.             ar xv $f
  2152.             rm $f
  2153.         done
  2154.     ;;
  2155.  
  2156.     -g)
  2157.         # by geographical region
  2158.         shift
  2159.         if test $# -eq 0
  2160.         then
  2161.             exec ls
  2162.             exit 1
  2163.         fi
  2164.         exec cat $*
  2165.         exit 1
  2166.     ;;
  2167.  
  2168.     -k)
  2169.         # by keyword
  2170.         shift
  2171.         exec awk '
  2172. BEGIN        { inside = 1; outside = 0; state = outside; }
  2173. /^Name:/    { state = inside; count = 0; useit = 0; }
  2174. state == inside    { block[count++] = $0; }
  2175. /'"$*"'/    { useit = 1; }
  2176. /^$/ && state == inside    {
  2177.     if (useit == 1) {
  2178.         for (i = 0; i < count; i++) {
  2179.             print block[i];
  2180.         }
  2181.     }
  2182.     state = outside;
  2183. }
  2184. ' *
  2185.         exit 1
  2186.     ;;
  2187.  
  2188.     -*)
  2189.         # unknown option
  2190.     ;;
  2191.  
  2192.     "")
  2193.         # no arguments
  2194.     ;;
  2195.  
  2196.     *)
  2197.         # by site name
  2198.         for arg in $*
  2199.         do
  2200.             echo 'UUCP mail path:'
  2201.             grep '^'${arg} $paths
  2202.             echo '
  2203. UUCP mail host information:'
  2204.             cat $MAILMAP/${arg}* | tr % '\012'
  2205.             echo '
  2206. USENET news host information:'
  2207.             sed -n -e "/^Name:[     ]*${arg}/,/^$/p" *
  2208.         done
  2209.         exit 0
  2210.     ;;
  2211. esac
  2212.  
  2213. echo 'Usage:    'uuhosts' hostname ...
  2214. for information about a particular UUCP or USENET host or hosts, or
  2215.  
  2216.     'uuhosts' -g geographical-region
  2217. for information about USENET news sites in a geographical region, or
  2218.  
  2219.     'uuhosts' -g
  2220. for a list of known USENET geographical-regions.
  2221. '
  2222. exit 1
  2223. !Funky!Stuff!
  2224.  
  2225. ::::::::::::::
  2226. shells/4
  2227. ::::::::::::::
  2228. Date: Fri, 14 Sep 84 15:06:07 pdt
  2229. From: hplabs!sdcrdcf!sdcsvax!celerity!barto (David Barto)
  2230. To: sdcsvax!sdcrdcf!hplabs!resonex!nancy
  2231. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  2232.  
  2233. Hi Nancy,
  2234.     I too am a 'new' system admin, and belive me, it won't take
  2235.     you too long to get quite a bag of tricks put together.
  2236.  
  2237.     Most of mine relate to source programs put together in
  2238.     shell scripts to keep track of things.
  2239.  
  2240.     I have 1 for news (at the end of the article) which keeps
  2241.     the active list up to date.
  2242.  
  2243.     Another nice program is one I call '#'.  It is owned by root
  2244.     and setuid/setgid to root/daemon.  I use it to 'become' root
  2245.     while doing 1 command
  2246.             # mv file1 file2
  2247.     which requires root permission.  It checks to see the normal
  2248.     userid is 'me' and then allows the command.  I will send it
  2249.     along if you want it.
  2250.  
  2251.     I have shell scripts for doing things such as 'rootedit'
  2252.     a file.  This is an alias for "alias re  '# vi -v \!*'"
  2253.  
  2254.     I too would love to see the things you get back from the
  2255.     net.  As well I have a sendmail config setup for making
  2256.     your configuration a breeze.  If you want it I can send
  2257.     it under seperate cover.
  2258.  
  2259.  
  2260.     barto (david barto)    Tele : (619) 271 9940
  2261.     uucp : {decvax || ucbvax || ihnp4}!sdcsvax!celerity!barto
  2262.     uucp : akgua!celerity!barto
  2263.     arpa : sdcsvax!celerity!barto@NOSC
  2264.  
  2265.  
  2266. : This is a shar archive.  Extract with sh, not csh.
  2267. echo x - Mkactive
  2268. cat > Mkactive << '!Funky!Stuff!'
  2269. #!/bin/sh
  2270. # see Update.active for this usage
  2271. #
  2272. sed -e '1,/---/d'\
  2273.     -e '1,/---/d'\
  2274.     -e 's/^[    ]//'\
  2275.     -e 's/    \(.*\)//'\
  2276.     active.current | sort | sed -e '1,/Newsgroup/d' > current
  2277. sed -e 's/ \(.*\)//' /usr/new/lib/news/active | sort > active
  2278. diff active current > /tmp/active.diff
  2279. echo "# active newsgroups not in local active file:"
  2280. fgrep ">" /tmp/active.diff
  2281. echo "# defunct newsgroups still in active file (also local groups):"
  2282. fgrep "<" /tmp/active.diff
  2283. /bin/rm current active /tmp/active.diff
  2284. !Funky!Stuff!
  2285. echo x - Mkdead
  2286. cat > Mkdead << '!Funky!Stuff!'
  2287. #!/bin/sh
  2288. # see Update.active for usage
  2289. # change all groups that we have (but shouldn't) to be removed,
  2290. # and change all groups that we dont have (but sould) to be a comment
  2291. sed    -e '/general/d'\
  2292.     -e '/control/d' \
  2293.     -e '/junk/d' \
  2294.     -e 's/</rmgroup/' \
  2295.     -e 's/>/#/'
  2296. !Funky!Stuff!
  2297. echo x - rmgroup
  2298. cat > rmgroup << '!Funky!Stuff!'
  2299. #! /bin/sh
  2300. # from : sdcsvax!sdcrdcf!hplabs!hao!seismo!rlgvax!cvl!umcp-cs!eneevax!chris
  2301. #
  2302. # @(#)rmgroup.sh    (U of Maryland) FLB 28-Jun-1983
  2303. #            Bug fixes 5 June 1984 Chris Torek
  2304. #
  2305. # Delete a newsgroup
  2306.  
  2307. lib=/usr/new/lib/news
  2308. spool=/usr/spool/news
  2309.  
  2310. group=$*
  2311.  
  2312. for group
  2313. do
  2314.     qgrp="`echo $group | sed 's/\./\\\./g'`"
  2315.     if
  2316.         grep -s "^$qgrp [0-9][0-9][0-9][0-9][0-9]$" $lib/active
  2317.     then
  2318.         ed - $lib/active << xxxFOOxxx
  2319. /^$qgrp [0-9][0-9][0-9][0-9][0-9]$/d
  2320. w
  2321. q
  2322. xxxFOOxxx
  2323.     else
  2324.         echo "$0: $group: no such active line" 2>&1
  2325.     fi
  2326.  
  2327.     dir=$spool/"`echo $group | sed 's/\./\//g'`"
  2328.     if
  2329.         [ -d "$dir" ]
  2330.     then
  2331.         /bin/rm -fr "$dir"
  2332.     else
  2333.         echo "$0: $dir: no spool directory" 2>&1
  2334.     fi
  2335. done
  2336. exit 0
  2337. !Funky!Stuff!
  2338.  
  2339. ::::::::::::::
  2340. shells/5
  2341. ::::::::::::::
  2342. Date: Thu, 20 Sep 84 01:20:29 pdt
  2343. From: turtlevax!ken (Ken Turkowski)
  2344. To: resonex!nancy
  2345. Subject: Handy new uucp utility: uuque
  2346.  
  2347. cat << EOF
  2348. I just completed a new useful uucp utility which lets you know what kind
  2349. of uucp work is in progress.  While uusnap just tells you the number of
  2350. files to be processed, uuque tells you exactly what kind of work is to
  2351. be performed.  I've only tried it on three kinds of work, namely mail,
  2352. news, and standard uucp transfers.  Give it a try, and see if it breaks
  2353. on any new types of uucp work.
  2354.                 Ken
  2355. P.S. This really should be a C program.
  2356. EOF
  2357. echo x - uuque
  2358. cat >uuque <<'!Funky!Stuff!'
  2359. #! /bin/sh
  2360. # uusnap
  2361. cd /usr/spool/uucp
  2362. LUUNAME=`uuname -l`
  2363.  
  2364. # Check for outgoing work
  2365. for cmdfile in C./*
  2366. do
  2367.     test -f $cmdfile || continue
  2368.     othersys=`expr $cmdfile : 'C./C.\(.*\).....'`
  2369.     cmd=
  2370.     dfile=
  2371.     xfile=
  2372.     ufile=
  2373.     cat $cmdfile | {
  2374.     while read cmd arg1 arg2 arg3 extra
  2375.     do
  2376.         case $cmd in
  2377.         S) ;;
  2378.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $arg3 $extra
  2379.             exit ;;
  2380.         esac
  2381.         case $arg1 in
  2382.         D.${LUUNAME}X????)    # Remote execute file
  2383.             xfile=$arg1
  2384.             ;;
  2385.         D.${LUUNAME}?????)    # Data file ref'd by the execute file
  2386.             dfile=$arg1
  2387.             ;;
  2388.         *)            # Just a uucp
  2389.             dfile=$arg1
  2390.             ufile=$arg2
  2391.             from=$arg3
  2392.             ;;
  2393.         esac
  2394.     done
  2395.     case $xfile in
  2396.         "")            # uucp transfer
  2397.         echo `wc -c < $dfile`\     uucp $dfile $othersys!$ufile \($from\)
  2398.         ;;
  2399.         *)            # complex transfer
  2400.         cat D.${LUUNAME}X/$xfile | {
  2401.             while read xcmd arg1 arg2 extra
  2402.             do
  2403.             case $xcmd in
  2404.                 U)
  2405.                 from=$arg2!$arg1
  2406.                 ;;
  2407.                 F)
  2408.                 ;;
  2409.                 I)
  2410.                 ;;
  2411.                 C)
  2412.                 echo `wc -c < D.${LUUNAME}/$dfile`\     $arg1 $othersys!$arg2 \($from\)
  2413.                 ;;
  2414.                 *)
  2415.                 echo Unknown xcmd in $xfile: $xcmd $arg1 $arg2
  2416.                 exit
  2417.                 ;;
  2418.             esac
  2419.             done
  2420.         }
  2421.         ;;
  2422.     esac
  2423.     }
  2424. done
  2425.  
  2426. # Check for incoming work
  2427. for cmdfile in X./*
  2428. do
  2429.     test -f $cmdfile || continue
  2430.     othersys=`expr $cmdfile : 'X./X.\(.*\).....'`
  2431.     cat $cmdfile | {
  2432.     while read cmd arg1 arg2 extra
  2433.     do
  2434.         case $cmd in
  2435.         U)
  2436.             from=$arg2!$arg1
  2437.             ;;
  2438.         Z)
  2439.             ;;
  2440.         F)
  2441.             if test -f D./$arg1
  2442.             then
  2443.             dfile=D./$arg1
  2444.             elif test -f D./$arg2
  2445.             then
  2446.             dfile=D./$arg2
  2447.             else
  2448.             continue 2
  2449.             fi
  2450.             ;;
  2451.         C)
  2452.             xcmd=$arg1
  2453.             ;;
  2454.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $extra
  2455.             exit ;;
  2456.         esac
  2457.     done
  2458.     echo `wc -c < $dfile`\     $xcmd $dfile \($from\)
  2459.     }
  2460. done
  2461. !Funky!Stuff!
  2462.  
  2463. ::::::::::::::
  2464. shells/6
  2465. ::::::::::::::
  2466. Date: Sat, 22 Sep 84 01:22:39 pdt
  2467. From: turtlevax!ken (Ken Turkowski)
  2468. To: resonex!nancy
  2469. Subject: Re:  uuque 
  2470.  
  2471. I've updated uuque to the point where it should probably instead be called
  2472. uusnoop.  Of course, it's not that interesting unless there are others on
  2473. your system that use uucp and net mail.
  2474.  
  2475.             Ken
  2476.  
  2477. echo x - uuque
  2478. cat >uuque <<'!Funky!Stuff!'
  2479. #! /bin/sh
  2480. # The user must have access to the /usr/spool/uucp/* directories and files.
  2481. # This can be easily done by making certain users members of the daemon
  2482. # and/or uucp groups, or by becoming super-user.
  2483. # uusnap
  2484. cd /usr/spool/uucp
  2485. LUUNAME=`uuname -l`
  2486.  
  2487. # Check for outgoing work
  2488. for cmdfile in C./*
  2489. do
  2490.     test -f $cmdfile || continue
  2491.     othersys=`expr $cmdfile : 'C./C.\(.*\).....'`
  2492.     cmd=
  2493.     dfile=
  2494.     xfile=
  2495.     ufile=
  2496.     cat $cmdfile | {
  2497.     while read cmd arg1 arg2 arg3 extra
  2498.     do
  2499.         case $cmd in
  2500.         S)                # uucp send
  2501.             case $arg1 in
  2502.             D.${LUUNAME}X????)    # Remote execute file
  2503.                 xfile=$arg1
  2504.                 ;;
  2505.             D.${LUUNAME}?????)    # Data file ref'd by xfile
  2506.                 dfile=D.${LUUNAME}/$arg1
  2507.                 ;;
  2508.             *)        # Just a uucp -- no intertpretation
  2509.                 echo `wc -c < $arg1`\     uucp $arg1 $othersys!$arg2 \($arg3\)
  2510.                 ;;
  2511.             esac
  2512.             ;;
  2513.         R)        # uucp receive
  2514.             echo '    ' uucp $othersys!$arg1 $arg2 \($arg3\)
  2515.             ;;
  2516.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $arg3 $extra
  2517.             continue ;;
  2518.         esac
  2519.     done
  2520.     case $xfile in
  2521.         "")            # uucp transfer
  2522.         continue
  2523.         ;;
  2524.     esac
  2525.     cat D.${LUUNAME}X/$xfile | {    # complex transfer -- interpret xfile
  2526.         while read xcmd arg1 arg2 extra
  2527.         do
  2528.         case $xcmd in
  2529.             U)
  2530.             from=$arg2!$arg1
  2531.             ;;
  2532.             F)
  2533.             ;;
  2534.             I)
  2535.             ;;
  2536.             Z)
  2537.             ;;
  2538.             C)
  2539.             case $arg1 in
  2540.                 rmail)
  2541.                 from=`head -1 $dfile | ( read arg1 arg2 extra; echo $arg2 )`
  2542.                 echo `wc -c < $dfile`\     $arg1 $othersys!$arg2 \($from\)
  2543.                 echo -n '     '
  2544.                 grep '^Subject:' $dfile || echo ''
  2545.                 ;;
  2546.                 rnews)
  2547.                 echo `wc -c < $dfile`\     $arg1 $othersys  \($from\)
  2548.                 echo -n '     '
  2549.                 grep '^Newsgroups:' $dfile
  2550.                 echo -n '     '
  2551.                 grep '^Subject:' $dfile
  2552.                 ;;
  2553.                 *)
  2554.                 echo `wc -c < $dfile`\     $arg1 $arg2 $extra [$othersys $dfile] \($from\)
  2555.                 ;;
  2556.             esac
  2557.             ;;
  2558.             *)
  2559.             echo Unknown xcmd in $xfile: $xcmd $arg1 $arg2
  2560.             exit
  2561.             ;;
  2562.         esac
  2563.         done
  2564.     }
  2565.     }
  2566. done
  2567.  
  2568. # Check for incoming work
  2569. for cmdfile in X./*
  2570. do
  2571.     test -f $cmdfile || continue
  2572.     othersys=`expr $cmdfile : 'X./X.\(.*\).....'`
  2573.     comment=
  2574.     cat $cmdfile | {
  2575.     while read cmd arg1 arg2 extra
  2576.     do
  2577.         case $cmd in
  2578.         U)
  2579.             from=$arg2!$arg1
  2580.             ;;
  2581.         Z)
  2582.             ;;
  2583.         I)
  2584.             ;;
  2585.         F)
  2586.             if test -f D./$arg1
  2587.             then
  2588.             dfile=D./$arg1
  2589.             elif test -f XTMP/$arg2
  2590.             then
  2591.             dfile=XTMP/$arg2
  2592.             comment="(EXECUTING)"
  2593.             else
  2594.             continue 2
  2595.             fi
  2596.             ;;
  2597.         C)
  2598.             xcmd=$arg1
  2599.             xargs="$arg2 $extra"
  2600.             case $arg1 in
  2601.             rmail)
  2602.                 from=$othersys!`head -1 $dfile | ( read arg1 arg2 extra; echo $arg2 )`
  2603.                 echo -n '     '
  2604.                 grep '^Subject:' $dfile || echo ''
  2605.                 ;;
  2606.             esac
  2607.             ;;
  2608.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $extra
  2609.             continue ;;
  2610.         esac
  2611.     done
  2612.     echo `wc -c < $dfile`\     $xcmd $xargs $comment \($from\)
  2613.     }
  2614. done
  2615. !Funky!Stuff!
  2616.