home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / XBBS7200.ZIP / XBBS7200.TAR / purge_mvfil.sh < prev    next >
Encoding:
Text File  |  1987-10-02  |  9.9 KB  |  288 lines
  1.  
  2. Here are the latest copies of the XBBS Sysop's utilities purge & mvfile.sh.
  3. You should find that they will run without modification with the exception of
  4. purge which will require you to correct the path to allign.
  5.  
  6.  
  7. ===================  B E G I N N I N G    O F   P U R G E   ====================
  8. :
  9. # trap " put clean-up code here" 1 2 3 15
  10. #purge
  11. #    This script will assist the XBBS system operator in maintaining
  12. #    the users lists.
  13. #
  14. #    Copyright Dighera Data Services  July 20, 1987
  15. #
  16.  
  17. # This command should assure that the user.bbs file has been 'alligned',
  18. # then prompt the sysop for a date, range of dates, name, or other search
  19. # criteria, present matching users names individually and ask if they should be
  20. # purged, if yes, then purge their records from: user.bbs, userpriv.bbs, and 
  21. # messages.log in each of the message directories.  The deletion is most easily
  22. # accomplished with grep -vf , sed, awk, or ed.
  23.  
  24. NAME="`basename $0`"                # The Name of this Script
  25. HOMEDIR="`grep '^bbs:' /etc/passwd | awk -F\":\" '{print $6}'`"    # XBBS home dir
  26. BINDIR="`head -21 $HOMEDIR/.config.bbs | tail -1`"        # XBBS binaries
  27. USERFIL="`head -7 $HOMEDIR/.config.bbs | tail -1`"        # Users dBASE
  28. PRIVFIL="`head -13 $HOMEDIR/.config.bbs | tail -1`"        # Privlege File
  29. MSGMENU="`head -23 $HOMEDIR/.config.bbs | tail -1`"        # Message Areas
  30. MSGLOG="messages.log"                        # Message Log 
  31. export NAME HOMEDIR BINDIR USERFIL PRIVFIL MSGMENU MSGLOG
  32. echo "\014\n\n\n\tX B B S    U S E R    P U R G E    M E N U \n\n"
  33. #
  34. #  Save a copy of all files that will be modified
  35. #
  36. if [ -f ${USERFIL}.o ]
  37. then
  38.     echo "${USERFIL}.o exists.  Ok to overwrite it? \c"
  39.     read ANS
  40.     case $ANS in
  41.         [yY]*) :;;
  42.         *) echo "${NAME}: Aborting ..."; exit 1;;
  43.     esac
  44. else
  45.     cp $USERFIL ${USERFIL}.o
  46. fi
  47. if [ -f ${PRIVFIL}.o ]
  48. then
  49.     echo "${PRIVFIL}.o exists.  Ok to overwrite it? \c"
  50.     read ANS
  51.     case $ANS in
  52.         [yY]*) :;;
  53.         *) echo "${NAME}: Aborting ..."; exit 1;;
  54.     esac
  55. else
  56.     cp $PRIVFIL ${PRIVFIL}.o
  57. fi
  58. #
  59. # Allign the users file
  60. #
  61. FLAG=0; export FLAG
  62. echo "\nAllinging $USERFIL file ...\nPlease stand by ...\c"
  63. echo "$USERFIL" >/tmp/$NAME.tmp
  64. # You will have put the path to your allign program here
  65. #$BINDIR/allign/allign </tmp/$NAME.tmp 2>&1 > /dev/null || (echo "${NAME}: cannot allign, aborting ..."; FLAG=1)
  66. $USERFIL/allign </tmp/$NAME.tmp 2>&1 > /dev/null || (echo "${NAME}: cannot allign, aborting ..."; FLAG=1)
  67. rm -f /tmp/$NAME.tmp
  68. if [ $FLAG -eq 1 ];then exit 1;fi
  69. #
  70. # Display Menu
  71. #
  72. echo "\014"
  73. cat << EOT
  74.  
  75.  
  76.         X B B S   U S E R    P U R G E    M E N U
  77.  
  78.  
  79.     N.  Purge Users by NAME
  80.     D.  Purge Users by DATE
  81.     C.  Purge Users that have ONLY CALLED ONCE
  82.     P.  Purge Users by PRIVLEGE LEVEL
  83.     B.  Purge Users by PRIVLEGE LEVEL & ONLY CALLED ONCE
  84.  
  85.     Q.  Quit to Unix
  86. ?
  87. EOT
  88. read CHOICE
  89. case $CHOICE in 
  90.     [nN]*) echo "${NAME}: This command is not implemented yet";;
  91.     [dD]*) echo "${NAME}: This command is not implemented yet";;
  92. # 
  93. # Find all user records with first-session-date = last-session-date, and
  94. # present them for deletion from users data base.
  95. #
  96.     [cC]*) echo "\nSearching $USERFIL for One-time-callers...\c";
  97.         rm -f /tmp/$NAME.found /tmp/$NAME.prv.rm /tmp/$NAME.priv > /dev/null 2>&1 ;
  98.         awk -F"~" '$5 == $7 {print}' $USERFIL >> /tmp/$NAME.found && echo "Search Completed!";
  99. # This trap needs to address processing the other files created by split
  100.         if [ `wc -l /tmp/$NAME.found | awk '{print $1}'` -gt 900 ]
  101.         then
  102.             echo "File contains more than 900 lines; being split.."
  103.             split /tmp/$NAME.found /tmp/$NAME.found.
  104.             cp /tmp/$NAME.found.aa /tmp/$NAME.found
  105.         fi;
  106.         echo "Please stand by ... \c";
  107.         for I in `awk -F"~" '{print $1"~"$2"~"}' /tmp/$NAME.found`
  108.         do
  109.             J="`echo \"$I\" | awk -F\"~\" '{print $1, $2, }'`"
  110.             export J
  111.             echo "\nPriv Record: \c"
  112.             fgrep "$J" $PRIVFIL | tee /tmp/$NAME.priv
  113.             if [ -s /tmp/$NAME/priv ]; then echo "\007";fi
  114.             echo "User Record: \c"
  115.             fgrep "$I" /tmp/$NAME.found
  116.             echo "\n\tRemove (y,N,p,q)? \c"; read REMOVE
  117.             case $REMOVE in
  118.                 [yY]*) echo "$I" >> /tmp/$NAME.rm;
  119.                       cat /tmp/$NAME.priv >> /tmp/$NAME.prv.rm;;
  120.                 [pP]*) break;;
  121.                 [bB]*) echo "Not yet emplemented";;
  122.                 [qQ]*) exit 1;; # Add exit & clean up code here
  123.                 *) continue;;
  124.             esac
  125.             echo
  126.         done;
  127.         rm -f /tmp/$NAME.found /tmp/$NAME.priv;
  128.         #
  129.         # Create Purged  USERFIL
  130.         #
  131.     # This trap needs to address processing the other files created by split
  132.         if [ `wc -l /tmp/$NAME.rm | awk '{print $1}'` -gt 200 ]
  133.         then
  134.             echo "File contains more than 200 lines; being split.."
  135.             split /tmp/$NAME.rm /tmp/$NAME.rm.
  136.             cp /tmp/$NAME.rm.aa /tmp/$NAME.rm
  137.         fi
  138.         fgrep -vf /tmp/$NAME.rm $USERFIL >${USERFIL}NEW;
  139.         cp ${USERFIL}NEW $USERFIL && rm ${USERFIL}NEW;
  140.         #
  141.         # Create Purged PRIVFIL
  142.         #
  143.     # This trap needs to address processing the other files created by split
  144.         if [ `wc -l /tmp/$NAME.prv.rm | awk '{print $1}'` -gt 200 ]
  145.         then
  146.             echo "File contains more than 200 lines; being split.."
  147.             split /tmp/$NAME.prv.rm /tmp/$NAME.prv.rm.
  148.             cp /tmp/$NAME.prv.rm.aa /tmp/$NAME.prv.rm
  149.         fi
  150.         fgrep -vf /tmp/$NAME.prv.rm $PRIVFIL >${PRIVFIL}NEW;
  151.         cp ${PRIVFIL}NEW $PRIVFIL && rm ${PRIVFIL}NEW;
  152.         #
  153.         # Create Purged MSGFIL
  154.         #
  155.         for J in `awk 'NR > 1 {print $1}' $MSGMENU`
  156.         do
  157.             cd $BINDIR/$J
  158.             fgrep -vf /tmp/$NAME.prv.rm $MSGLOG >${MSGLOG}NEW
  159.             cp $MSGLOG o$MSGLOG && (cp ${MSGLOG}NEW $MSGLOG; rm ${MSGLOG}NEW)
  160.         done;
  161.         # add clean-up code here
  162.         rm /tmp/$NAME.rm /tmp/$NAME.prv.rm;;
  163.     [pP]*) echo "${NAME}: This command is not implemented yet";;
  164.     [qQ]*) exit 0;;
  165.     *) ;;
  166. esac
  167. exec $0
  168. # trap 1 2 3 15
  169. ============================  E N D    O F    P U R G E  ====================
  170.  
  171. ===================  B E G I N N I N G    O F    M V F I L E . S H  ======
  172. :
  173. #mvfile.sh     Version 1.0 Beta
  174. #    This Bourn shell script will assist the Sysop in moving
  175. #    files that have been uploaded by XBBS users to their 
  176. #    respective directories.
  177. #
  178. #    Copyright Dighera Data Services September 5, 1987
  179. #
  180.  
  181. NAME=`basename $0`    # The name of this program
  182. SRCDIR=""        # Directory name containing files to be moved
  183. DESTDIR=""        # Directory name that will receive file
  184. JUNKDIR=/usr/tmp    # Destination for junked files
  185. FLINE=""        # Line from files.bbs that describes file
  186. HOMEDIR="`grep '^bbs:' /etc/passwd | awk -F\":\" '{print $6}'`"    # XBBS home dir
  187. ORGDIR=`cat $HOMEDIR/.config.bbs | awk 'NR == 21 {print}' -`    # XBBS Origin 
  188. AREAS_BBS=`cat $HOMEDIR/.config.bbs | awk 'NR == 22 {print}' -`    # File w/ areas
  189. AREAS=`cat $AREAS_BBS | awk 'NR > 1 { print $1 }'`    # All file areas
  190. # AREA_NO=`expr \`wc -l $AREAS_BBS | awk '{print $1}'\` - 1`
  191. set $AREAS
  192. AREA_NO=$#
  193. MENU="cat /usr/tmp/$NAME.mnu"
  194. export NAME HOMEDIR ORGDIR AREAS_BBS AREAS AREA_NO SRCDIR FLINE DESTDIR MENU SORT DAYS
  195. trap "echo \"\007$0: Aborted\"; eval rm /usr/tmp/$NAME.mnu; exit 2" 1 2
  196.  
  197. #    Make Menu File
  198. echo "\014\n\t    X B B S    F I L E    D I S P E R S A L    M E N U\n\n" > /usr/tmp/$NAME.mnu
  199. echo "\t\tEnter the Number of Your Choice --\n" >> /usr/tmp/$NAME.mnu
  200. for I
  201. do
  202.     echo "$I" >> /usr/tmp/$NAME.mu
  203. done
  204. cat /usr/tmp/$NAME.mu | pr -3t -n -o8 >>/usr/tmp/$NAME.mnu
  205. echo >> /usr/tmp/$NAME.mnu
  206. rm /usr/tmp/$NAME.mu
  207.  
  208. #
  209. #    Main Program Begins
  210. #
  211. cd $ORGDIR    # No doubt this is the cause of the exec $0's failing
  212. $MENU
  213. echo "Enter the Number of the Source Directory\ncontaining the files you wish to move: \c"
  214. read SRCDIR
  215. case $SRCDIR in
  216.   1[123] | [0123456789]) SRCDIR=`echo $AREAS | awk '{print $'$SRCDIR'}'`;;
  217.   *) echo "Invalid Input\007"; sleep 3; exec $0;;     # Bug here $0
  218. esac
  219. # This section needs work !!!!!!!!!!!!!!!!!!!!!
  220. while true
  221. do
  222.    head -6 /usr/tmp/$NAME.mnu
  223.    cat << EOT
  224.  
  225.     1.  Sort $SRCDIR ALPHABETICALLY (default)
  226.     2.  Sort $SRCDIR REVERSED ALPHABETICAL
  227.     3.  Sort $SRCDIR BEGINNING with Specific Characters
  228.     4.  Sort $SRCDIR OLDest first
  229.     5.  Sort $SRCDIR NEWest first
  230.     6.  Show $SRCDIR files LESS THAN A NUMBER OF DAYS OLD
  231.     7.  Show $SRCDIR files MORE THAN A NUMBER OF DAYS OLD
  232. ?
  233. EOT
  234.    read CHOICE
  235.    case $CHOICE in
  236.     1) CMD="ls $SRCDIR"; break;;
  237.     2) CMD="ls -r $SRCDIR"; break;;
  238. # The choice below only returns ONE filename; bug
  239.     3) echo "\n\tEnter characters for begining of file name \c"; read SORT;
  240.         CMD='basename `ls $SRCDIR/$SORT*`'; break;;
  241.     4) CMD="ls -tr $SRCDIR"; break;;
  242.     5) CMD="ls -t $SRCDIR"; break;;
  243. # The two choices below don't fine any filenames; bug
  244.     6) echo "Enter the NUMBER of DAYS";read DAYS; CMD="find $SRCDIR -ctime -$DAYS -print"; break;;
  245.     7) echo "Enter the NUMBER of DAYS";read DAYS; CMD="find $SRCDIR -ctime +$DAYS -print"; break;;
  246.     *) CMD="ls $SRCDIR"; break;;
  247.    esac
  248. done
  249. #
  250. #    Main Loop
  251. #
  252. echo "$CMD"
  253. for J in `eval "$CMD"`
  254. do
  255.    if [ ! -f $SRCDIR/$J ] ;then continue; fi    # Don't process directories
  256.    $MENU
  257.    echo "\tQ.\tQuit to Unix\n\tN.\tNext File (don't move this one)\n\tJ.\tJunk this File (in $JUNKDIR)\n"
  258.    FLINE="`grep ^$J $SRCDIR/files.bbs || (echo \"\007$0: File $J probabily not referenced in $SRCDIR/files.bbs.\"; sleep 3; continue)`"
  259.    test `echo "$FLINE" | wc -l` -gt 1 && (echo "\007$0: File $J probabily referenced more than once in $SRCDIR/files.bbs"; sleep 3 ; continue)
  260.    echo "Move?: $FLINE\n"
  261.    ls -la $SRCDIR/$J
  262.    echo "\nEnter the Number of the Distination Directory: \c"
  263.    read CHOICE
  264.    case $CHOICE in
  265.      [qQ]*) exit;;
  266.      [nN]*) continue;;
  267.     [jJ]*) mv $SRCDIR/$J $JUNKDIR;
  268.          grep -v "$FLINE" $SRCDIR/files.bbs > /usr/tmp/$NAME.$$ || (echo " $0: grep error" ; sleep 3; continue);
  269.         if [ -s /usr/tmp/$NAME.$$ ] ;then cp /usr/tmp/$NAME.$$ $SRCDIR/files.bbs
  270.         else echo "\007$0: 0 length file error"; exit 1 ; fi
  271.         rm /usr/tmp/$NAME.$$;
  272.         echo $FLINE >> $JUNKDIR/files.bbs;;
  273.      [0-9] | 1[0-2]) DESTDIR=`echo $AREAS | awk '{print $'$CHOICE'}'`;
  274.          grep -v "$FLINE" $SRCDIR/files.bbs > /usr/tmp/$NAME.$$ || (echo " $0: grep error" ; sleep 3; continue);
  275.         mv $SRCDIR/$J $DESTDIR;
  276.         if [ -s /usr/tmp/$NAME.$$ ] ;then cp /usr/tmp/$NAME.$$ $SRCDIR/files.bbs
  277.         else echo "\007$0: 0 length file error"; exit 1 ; fi
  278.         rm /usr/tmp/$NAME.$$;
  279.          echo $FLINE >> $DESTDIR/files.bbs;;
  280. # Add edit option here for $DESTDIR/files.bbs
  281.      *) echo "\007Your entery '$CHOICE' is not amoung the valid choices. Continuing ..."; sleep 2 ;;
  282.    esac
  283. done
  284. rm /usr/tmp/$NAME.mnu
  285. trap 1 2 3 9 15
  286. ===========================  E N D    O F    M V F I L E . S H   =============
  287.  
  288.