home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / fn132bin / etc / bbs.g next >
Text File  |  1991-09-02  |  3KB  |  59 lines
  1. # bbs.g
  2. #
  3. set continue 1          # 'continue' flag
  4. set oldpath $path       # save the old path and set a new one
  5. set path c:\bin,e:\citmain,e:\citnet,e:\citutil,e:\
  6. cd e:\                  # change directory to where ctdltabl.sys lives
  7.  
  8. while { $continue > 0 }         # Loop until we set 'continue' to '0'
  9.  
  10.     if { -e ctdltabl.sys } == 0         # is ctdltabl.sys there?
  11.         configur x                      # If not, reconfigure.
  12.     endif
  13.  
  14.     citadel +line +ymodem +purge        # run citadel
  15.  
  16.     if { $status == 0 }                 # Did citadel.tos return '0'?
  17.         set continue 0                  # If so, it was ^LQ from the    
  18.         echo 'Normal console termination.'      # Console.
  19.  
  20.     ef { $status == 1 }                 # Did it return '1'?
  21.         echo 'Performing regular backup...'     # If so, it was a
  22.         cp -R d:\secret\sys g:\backup   # defined Timeout (see section 
  23.         cp -R d:\secret\net g:\backup   # 9.3 of the Reference Manual
  24.         cp -R d:\secret\audit g:\backup # and ctdlcnfg.doc).
  25.         echo 'Finished.'
  26.  
  27.     ef { $status == 2 }                 # Did it return '2'?
  28.         set continue 0                  # It crashed.  The file 'crash'
  29.         echo 'Something must be buggered.'      # may help explain why.
  30.  
  31.     ef { $status == 3 }                 # Did it return '3'?
  32.         set continue 0                  # That means someone used ^LQ
  33.         echo 'Somebody took it down from remote.'       # from remote.
  34.  
  35.     ef { $status == 255 }               # Did it return '255'?
  36.         set continue 0                  # **BOOM!**  Can try checking 
  37.         echo 'Something is REALLY* buggered.'   # 'crash', but....
  38.  
  39.     ef { $status == 10 }                # Did it return '10'?
  40.         echo 'Calling UUCP feeds...'    # Aha! An #event! This one's
  41.         uucall -v -salpha0              # for calling UUCP feeds.
  42.         uucall -v -sdragos
  43.  
  44.     ef { $status == 15 }                # Here's another #event! This
  45.         echo 'Exercising the feeping creatures...'      # one is for
  46.         clog -t > d:\secret\library\userlog.sys         # nightly stats
  47.         popular -msb > d:\secret\library\popular.sys    # gathering and
  48.         callstat -c                                     # stuff like
  49.         cp d:\secret\audit\callbaud.sys d:\secret\library # that...
  50.         cp d:\secret\audit\callstat.sys d:\secret\library
  51.     endif
  52. endwhile                        # ....and loop back to the top again.
  53.  
  54. # if we reach here, it means that something up there set 'continue'
  55. # to '0', meaning we're supposed to quit.
  56. set path $oldpath               # Reset the path we had before
  57. unset oldpath                   # and remove the variable.
  58. # Done!
  59.