home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / XBBS7200.ZIP / XBBS7200.TAR / sysop < prev    next >
Encoding:
Text File  |  1987-04-25  |  2.2 KB  |  71 lines
  1. :
  2. #sysop
  3. #    This script will assist the sysop in performing his chores in
  4. #    administrating the XBBS.
  5. #    Copyright April 23, 1987  Dighera Data Services
  6. #
  7.  
  8. ORGDIR=/usr/sandy/bbs        # Directory where the XBBS log files reside
  9. HOMDIR=/usr/bbs            # Home Directory of bbs account w/.configbbs
  10.  
  11. echo "\014"
  12. cat << EOT
  13.  
  14.  
  15.  
  16.         Enter Your Choice --
  17.  
  18.  
  19.     B.  Login to BBS
  20.     1.  Who's on port 1A?
  21.     2.  Who's on port 2A?
  22.     A.  Last Questionnaire Answer
  23.     T.  Toggle user monitoring (1A or 2A)
  24.     S.  Grant user Sysop-access for this session
  25.     C.  Chat with user (tty1A or tty2A)
  26.     D.  Dump user (1A or 2A)
  27.     E.  Edit the userpriv.bbs file to alter users privleges
  28.     P.  Pack the message files
  29.     U.  Allign the Users file (Delimits each record in users.bbs with NL)
  30.     F.  Fix users (Converts old 4 charcter passwords to new format)
  31.     Q.  Quit to UNIX
  32.  
  33. ?
  34. EOT
  35. read CHOICE
  36. case $CHOICE in
  37.     [bB]*) DIR=`pwd`; export DIR;cd $HOMDIR; su bbs; cd $DIR;;
  38.     [12]*) if echo $CHOICE | grep '^1'; then CHOICE=1;else CHOICE=2; fi;
  39.         finger | awk '(NR == 1 || /^bbs/) {print}'; echo;
  40.         tail $ORGDIR/callers.bbs${CHOICE}A;;
  41.     [aA]*) ls -l $ORGDIR/answer.bbs && (echo; tail -21 $ORGDIR/answer.bbs);;
  42.     [uU]*) $ORGDIR/allign/allign;;
  43.     [fF]*) echo "Not yet implemented";;
  44.     [tT]*) who | awk '/^bbs/ {print}'; echo "\nWhich port (1A or 2A)? \c";
  45.         read CHOICE; export CHOICE;
  46.         su bbs -c "kill -16 `cat /tmp/pid$CHOICE` && echo 'BBS user on port '$CHOICE' successfully toggled.'";;
  47.     [sS]*) who | awk '/^bbs/ {print}'; echo "\nWhich port? \c";read CHOICE;
  48.         case $CHOICE in
  49.             *1A) PID=`head /tmp/pid1A`; kill -17 $PID;;
  50.             *2A) PID=`head /tmp/pid2A`; kill -17 $PID;;
  51.             *) echo "\nNo such port";;
  52.         esac;;
  53.     [cC]*) who | awk '/^bbs/ {print}'; echo "\nWhich port? \c";read CHOICE;
  54.         case $CHOICE in
  55.             *1A) chatbbs tty1A;;
  56.             *2A) chatbbs tty2A;;
  57.             *) echo "\nNo such port";;
  58.         esac;;
  59.     [dD]*) echo "\n\nWhich port? (1A or 2A) \c"; read CHOICE;
  60.         if test $CHOICE = ""; then exec $0; fi;
  61. #        su bbs -c "stty 0 </dev/tty${CHOICE} || echo \nError dumping user on tty${CHOICE}";;
  62.         su bbs -c "kill -9 `cat /tmp/pid${CHOICE}`";;
  63.     [eE]*) vi userpriv.bbs;;
  64.     [pP]*) $ORGDIR/msgpack/msgpack;;
  65.     [qQ]*) echo "\014"; exit;;
  66.     *) exec $0;;
  67. esac
  68. echo "\n  Enter to Continue ... \c"
  69. read PAUSE
  70. exec $0
  71.