home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume01 / lbgm < prev    next >
Encoding:
Internet Message Format  |  1988-09-11  |  10.1 KB
  1. Date: 5 Dec 84 16:37:20 CST (Wed)
  2. From: ihnp4!trwrb!desint!geoff
  3. Subject:  lbgm
  4.  
  5. : This is a shar archive.  Extract with sh, not csh.
  6. : The rest of this file will extract:
  7. : 
  8. :      README install lbgm zap.so lbgmX X
  9. : 
  10.  
  11. echo extracting - README
  12. sed 's/^-//' > README << '/*EOF'
  13.  
  14.     This directory contains a source-archiving system called "lbgm" (Little
  15. Bird Gave Me).  Responsible parties are:
  16.  
  17.     lbgm        Alan S. Watt
  18.     lbgmX        Jim Ziobro
  19.     X               "
  20.     zap.so           "
  21.     csh protection    Larry Wall
  22.  
  23. I have cleaned it up a bit to be more flexible and robust, and added an
  24. installation script.
  25.  
  26. To install:
  27.  
  28.     Run this shar archive to extract the programs.
  29.     If your system doesn't take #! syntax, edit the scripts to force /bin/sh
  30.     Define LBGMDIR and LBGMRM (see below) in your environment, or edit lbgmX
  31.       to define them the way you want them.
  32.     Run the install script.
  33.  
  34. LBGMDIR should be the directory you save sources in:  default is /usr/lbgm if
  35. nothing else is specified.  LBGMRM is the program to remove unwanted sources;
  36. define this to X (or a similar script/program) if you have delayed-deletion
  37. facilities.  It defaults to "/bin/rm -f" if unspecified.
  38.  
  39. That's all.  You should not have to edit anything else, no matter what your
  40. system is or where you keep news.  News will be saved in the directory
  41. you specify, and cataloged (by the Usenet header) in 'save.log'.
  42.  
  43. If garbage shows up on net.sources, simply type "s | zap.so" from readnews or
  44. rn.  When you exit, run $HOME/tozap to actually delete the articles (this
  45. takes a while).  Don't forget to remove tozap when you are done.
  46.  
  47.     Geoff Kuenning
  48.     ...!ihnp4!trwrb!desint!geoff
  49. ======================================================================
  50. Alan Watt's comments [edited to change the script name to lbgm]:
  51.  
  52. I don't have space to save all news forever, but I decided some time
  53. ago that net.sources was worth keeping around, hence "lbgm".
  54. Usage is from you news "sys" file:
  55.  
  56.     SOURCES:net.sources:B:/usr/lib/news/lbgm [ srcdir ]
  57.  
  58. where <srcdir> is where you want the stuff to go.  In there will
  59. appear the file "save.log", which contains the news header of
  60. every news article saved, and files of the form:
  61.  
  62.     ${month}_${day}.${unique}
  63.  
  64. (as in "Apr_8.4552"), each file containing an article.  The log
  65. file will point to the saved article.  There is a lockout against
  66. concurrent runnings of lbgm.
  67.  
  68. You have to periodically go in by hand and delete obvious junk
  69. (discussions and requests for stuff), and also to weed out which
  70. version you want to keep if something is posted several times.
  71. I have everything posted on net.sources since August 15th of last
  72. year.
  73.  
  74.     - Alan S. Watt
  75.     {decvax,duke,purdue,lbl-csam}!ittvax!swatt
  76.  
  77. ======================================================================
  78. Jim Ziobro's comments:
  79.  
  80.     For those who keep archives of stuff from net.sources using an
  81. Alan Watt lbgm (little bird gave me) style archive then you might
  82. want a convenient way to delete the junk that may get saved there.
  83.  
  84.     I have written some small scripts which make that job easier.
  85. When you come across junk simply pipe the offending article into
  86. zap.so and it creates a script which will remove the article from
  87. your lbgm archive.  After your finished reading news just invoke tozap
  88. which was created by zap.so.
  89.  
  90.     I have include Alan Watt's original article.  As always please
  91. keep me informed of enhancements or bugs.
  92. /*EOF
  93. chmod +x README
  94. echo extracting - install
  95. sed 's/^-//' > install << '/*EOF'
  96. :
  97. #! /bin/sh
  98.  
  99. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  100.  
  101. cat <<'EOF'
  102. Installation script for the lbgm package.
  103.  
  104. You will have to provide the following information:
  105.  
  106. (1) Name of directory to save news in
  107. (2) Name of news library directory
  108. (3) Name of your bin directory
  109. (4) Who to notify if problems occur
  110.  
  111. EOF
  112. lbgmdir=${LBGMDIR:-/usr/lbgm}
  113. echo 'Enter name of the directory news will be saved in ['"$lbgmdir"']:'
  114. read lbgmdir
  115. case X$lbgmdir in
  116.     X)
  117.     lbgmdir=/usr/lbgm
  118.     ;;
  119.     *)
  120.     ;;
  121. esac
  122.  
  123. echo 'Enter name of the news library directory [/usr/lib/news]:'
  124. read libdir
  125. case X$libdir in
  126.     X)
  127.     libdir=/usr/lib/news
  128.     ;;
  129.     *)
  130.     ;;
  131. esac
  132.  
  133. echo 'Enter the name of your bin directory ['"$HOME/bin"']:'
  134. read bindir
  135. case X$bindir in
  136.     X)
  137.     bindir="$HOME/bin"
  138.     ;;
  139.     *)
  140.     ;;
  141. esac
  142.  
  143. NOTIFY=${USER:-"${LOGNAME:-root}"}
  144. echo 'Who should be notified in case of trouble ['"$NOTIFY"']?'
  145. read notify
  146. case X$notify in
  147.     X)
  148.     notify="$NOTIFY"
  149.     ;;
  150.     *)
  151.     ;;
  152. esac
  153.  
  154. echo 'End of questions.  Installation begins.'
  155.  
  156. if test ! -d $lbgmdir
  157. then
  158.     mkdir $lbgmdir  ||  (echo Trouble creating $lbgmdir 1>&2; kill $$)
  159. fi
  160. set X `ls -ld $lbgmdir`
  161. case $2 in
  162.     drwxrwxrwx)
  163.     ;;
  164.     *)
  165.     chmod a+rwx $lbgmdir  ||  \
  166.       (echo "Couldn't set modes for $lbgmdir" 1>&2; kill $$)
  167.     ;;
  168. esac
  169.  
  170. touch $lbgmdir/save.log  ||  chmod a+rw $lbgmdir/save.log  ||  \
  171.   (echo "Couldn't create $lbgmdir/save.log" 1>&2; kill $$)
  172.  
  173. (cp lbgm $libdir  &&  chmod a+rx $libdir/lbgm)  ||  \
  174.   (echo "Trouble installing lbgm in $libdir" 1>&2; kill $$)
  175.  
  176. (cp lbgmX zap.so $bindir  &&  chmod a+rx $bindir/lbgmX $bindir/zap.so)  ||  \
  177.   (echo "Trouble installing utilities in $bindir" 1>&2; kill $$)
  178.  
  179. grep '^SOURCES:' $libdir/sys >/tmp/ins$$
  180. if test ! -s /tmp/ins$$
  181. then
  182.     cat >> $libdir/sys <<EOF
  183. #
  184. #    Automatic archiving of sources
  185. #
  186. SOURCES:mod.sources,net.sources:B:$libdir/lbgm $lbgmdir $notify
  187. EOF
  188. fi
  189.  
  190. echo 'Installation completed.'
  191. echo ''
  192. case $lbgmdir in
  193.     /usr/lbgm)
  194.     ;;
  195.     *)
  196.     case X$LBGMDIR in
  197.         X)
  198.         cat <<'EOF'
  199. You will have to add LBGMDIR to your environment before zap.so will work.
  200. Use the following line:
  201.  
  202. EOF
  203.         case X$SHELL in
  204.             */csh)
  205.             echo "    setenv LBGMDIR $lbgmdir"
  206.             ;;
  207.             *)
  208.             echo "    LBGMDIR=$lbgmdir; export LBGMDIR"
  209.             ;;
  210.         esac
  211.         ;;
  212.         *)
  213.         ;;
  214.     esac
  215.     ;;
  216. esac
  217. case X$LBGMRM in
  218.     X)
  219.     cat <<EOF
  220.  
  221. If you have delayed-deletion facilities, you may also want to define LBGMRM
  222. in your environment to be the name of the delayed-deletion facility.  If you
  223. do not have delayed deletion right now, but want it, put X into $bindir
  224. EOF
  225.     cat <<'EOF'
  226. and define LBGMRM to be X in your environment, and add the following line to
  227. -/usr/lib/crontab:
  228.  
  229.     45 4 * * * find / -name '#*' -atime +3 -print -exec rm -f {} \;
  230. EOF
  231.     ;;
  232.     *)
  233.     ;;
  234. esac
  235. /*EOF
  236. chmod +x install
  237. echo extracting - lbgm
  238. sed 's/^-//' > lbgm << '/*EOF'
  239. #! /bin/sh
  240.  
  241. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  242.  
  243. : '/*********************************************************************
  244.     lbgm
  245.         Save sources sent over net.sources.
  246.         Called as a news forwarding program from inews
  247.  
  248.     Alan S. Watt
  249.     Slightly modified by Geoff Kuenning
  250.    
  251.     Sccsid="@(#)lbgm    1.1 8/15/82 (ITT) [hacked]"
  252.  
  253.     usage:
  254.         lbgm [ savedir [ notify ] ]
  255.  
  256.     arguments:
  257.         savedir        Directory area to save sources (default
  258.                 is /usr/lbgm).
  259.         notify        User to notify in case of trouble (default
  260.                 is root).
  261.    
  262.     history:
  263.         08/15/82    original version
  264.         12/04/84    name changed
  265.         12/05/84    infinite loop check added, save.log set to a+w
  266.    *********************************************************************/'
  267.  
  268. : 'Public source directory (Little Bird Gave Me)'
  269. sourcedir=${1-"/usr/lbgm"}
  270. notify=${2-"root"}
  271.  
  272. : 'format of date command: "Sun Aug 15 15:56:06 EDT 1982"'
  273. set `date`
  274. mon=$2
  275. day=$3
  276. uniq=$$
  277. tmp=LBGM.$$.tmp
  278. logfile=save.log
  279.  
  280. : 'Lock the save source file and dump standard input there'
  281. cd $sourcedir
  282. >$tmp
  283. limit=`expr $$ + 100`
  284. while savefile="${mon}_${day}.$uniq"
  285. do
  286.     if ln $tmp $savefile 2>&-
  287.     then
  288.         break
  289.     fi
  290.     uniq=`expr $uniq + 1`
  291.     if [ $uniq -gt $limit ]
  292.     then
  293.         (echo 'Trouble with lbgm - check directory permissions.
  294. File header of unsaved article follows:
  295. ' ; sed -n '1,/^$/s/^/    /p') \
  296.             | mail $notify
  297.         exit 1
  298.     fi
  299. done
  300. cat >${savefile}
  301. rm -f $tmp
  302.  
  303. : 'Dump the news header in a log file (up to a blank line)'
  304. header="$savefile:
  305. `sed -n '1,/^$/s/^/    /p' ${savefile}`"
  306. echo "${header}" >>$logfile
  307. chmod a+w $logfile
  308. /*EOF
  309. chmod +x lbgm
  310. echo extracting - zap.so
  311. sed 's/^-//' > zap.so << '/*EOF'
  312. #!/bin/sh
  313.  
  314. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  315.  
  316. : Extract a Message-Id from a news file and prepend an lbgmX
  317. : used to help keep lbgm archives clean
  318. : called from readnews or rn with "s | zap.so"
  319. : outputs a file $HOME/tozap
  320. : archive can then be cleaned by invoking tozap
  321. : "HISTORY"
  322. : " 06-Sep-84  z at XEROX Henrietta "
  323. :    " Created by Jim Ziobro "
  324. : " 04-Dec-84  geoff "
  325. :    " Add csh bulletproofing and protection against multiple message id's "
  326. :
  327.  
  328. : extract Message-Id
  329. awk  'BEGIN { FS = ":" }\
  330. \
  331. -/^[Mm][eE][sS][sS][aA][gG][eE]-[Ii][Dd]/    {\
  332.     printf("lbgmX \"%s\"\n", $2) ;\
  333.     exit;\
  334.     }\
  335.     '\
  336.     >> $HOME/tozap 
  337.  
  338. chmod +x $HOME/tozap
  339. /*EOF
  340. chmod +x zap.so
  341. echo extracting - lbgmX
  342. sed 's/^-//' > lbgmX << '/*EOF'
  343. #!/bin/sh
  344.  
  345. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  346.  
  347. : "lbgmX - X (remove) file with a message-id of $1 from a lbgm archive"
  348. : "HISTORY"
  349. : " 06-Sep-84  z at XEROX Henrietta "
  350. :    " Created by Jim Ziobro "
  351. : " 04-Dec-84  geoff "
  352. :    " Made lbgmdir and RM overrideable from the environment, made "
  353. :    " default RM be /bin/rm -f. "
  354. : " 05-Dec-84  geoff "
  355. :    " Made sure save.log is world-writeable "
  356. :
  357.  
  358. lbgmdir=${LBGMDIR:-/usr/lbgm}
  359. RM=${LBGMRM:-"/bin/rm -f"}
  360. : lbgmdir is archive location
  361. cd $lbgmdir
  362.  
  363. : get filename from Message-Id
  364. filenam=`awk  'BEGIN { filid = "" ; FS = ":" }\
  365. \
  366.     {\
  367.     if ( filid == "" ) filid = $1 ;\
  368.     if ( $0 ~ /^[     ]*$/ ) filid = "" ;
  369.     # line following blank has filename
  370.     }\
  371. \
  372. \
  373. -/^    [Mm][eE][sS][sS][aA][gG][eE]-[Ii][Dd]:/    {\
  374.     if ( $2 == "'"$1"'" )\
  375.     print filid ;\
  376.     }\
  377.     ' < save.log `
  378.  
  379. : "$filenam is filename to be purged from lbgm archive"
  380. : remove the files
  381. $RM *save.log
  382. sed -e /$filenam"/,/^    $/d" < \#save.log > save.log
  383. chmod a+w save.log
  384. $RM $filenam
  385. /*EOF
  386. chmod +x lbgmX
  387. echo extracting - X
  388. sed 's/^-//' > X << '/*EOF'
  389. #!/bin/sh
  390.  
  391. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  392.  
  393. :
  394. :    Simple delayed-deletion shell script
  395. :
  396. :    Usage:
  397. :
  398. :    X files
  399. :
  400. :    You must also have a crontab entry of the form
  401. :
  402. :    45 4 * * * find / -name '#*' -atime +3 -print -exec rm -f {} \;
  403. :
  404. :    to make sure the files get removed at a later date.
  405. :
  406. for i do mv $i \#$i; done
  407. /*EOF
  408. chmod +x X
  409. exit
  410.  
  411.  
  412.  
  413.  
  414.