home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / CHDIR.SCR < prev    next >
Text File  |  1990-12-27  |  2KB  |  72 lines
  1. ;; --------------------------------------------------------------------------
  2. ;;
  3. ;; ChDir.scr -- Host mode script suite for TE/2
  4. ;;              Copyright 1990, Oberon Software, All rights reserved
  5. ;;
  6. ;; --------------------------------------------------------------------------
  7.  
  8. global string  CmdStack
  9. global integer WatchUser
  10.  
  11. integer retcode
  12. string  FileSpec
  13.  
  14.   ;; ------------------------------------------------------------------------
  15.   ;; Allow the user to change disk and/or directory.  This is a high level
  16.   ;;  function, access to this subroutine should be protected vs lower
  17.   ;;  priv users.
  18.  
  19. subroutine ChangeDirectory
  20.  
  21.   if strlen(CmdStack)
  22.     FileSpec = CmdStack
  23.     CmdStack = ""
  24.   else
  25.     transmit("^M^JCurrent path is: %s", curdir)
  26.     transmit("^M^JEnter directory path: ")
  27.     FileSpec = rgets(64, 30, 1)
  28.     FileSpec = strtrim(FileSpec)
  29.   endif
  30.  
  31.   if connected
  32.     if !WatchUser
  33.       message("^M^JUser is changing directory [%s]", FileSpec)
  34.     endif
  35.  
  36.     retcode = 999
  37.     if strlen(FileSpec) >= 2
  38.       if (strcmp(substr(FileSpec, 1, 1), ":") == 0)
  39.         retcode = ChDisk(FileSpec)
  40.         if (retcode and (strlen(FileSpec) > 2))
  41.           retcode = ChDir(FileSpec)
  42.         endif
  43.  
  44.       else
  45.         retcode = ChDir(FileSpec)
  46.  
  47.       endif
  48.  
  49.     elseif strlen(FileSpec)
  50.       retcode = ChDir(FileSpec)
  51.  
  52.     endif
  53.  
  54.     if retcode != 999
  55.       if !retcode
  56.         transmit("^M^JChange directory [%s] failed", FileSpec)
  57.       endif
  58.       transmit("^M^JCurrent path is: %s", curdir)
  59.       transmit("^M^JPress any key to continue...")
  60.       rgetc(30, 1)
  61.     endif
  62.  
  63.   endif
  64.  
  65. endsub
  66.  
  67.  
  68. program
  69.   gosub ChangeDirectory
  70.   end
  71.  
  72.