home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / CHALLENG.T < prev    next >
Text File  |  1989-11-21  |  2KB  |  81 lines
  1.     ::Revised 6-03-89  For Turbodial 2.16+
  2.     pH30; restime
  3.     pat; set remote CHALLENG.T
  4.     echo "        \042TeleGodzilla\042"
  5.            echo "     Omen Technology Inc"
  6.     echo "\42The High Reliability Software\42"
  7.          echo "Professional-YAM Remote Access"
  8.     if dS goto foo
  9.     on !c set remote LOGFAIL; fail
  10.     goto foo
  11. foop:    echo "Please no special characters"
  12. foo:    if !v cls
  13.     accept remote "Name (first AND last) Please: "
  14.     if !c set remote LOGFAIL; fail
  15.     if "E>60" echo "Inactivity Timeout"; o; fail
  16.     if "%remote>80" echo "Name too long"; o; fail
  17.     if "%remote<3" echo "Name is too short"; goback foo
  18.     if Cremote goback foop
  19.     if "Jremote,01234567890][}{\\|=+_)(*&^%$#@!~`;:<>?" goback foop
  20.     if !dS if iremote,link goto link
  21.     if "dX&&iremote,xpc" goto xpc
  22.     sleep 2
  23.     if m echo "WARNING: Extra characters after Carriage Return!"; sleep 5
  24.     purgek
  25.     mput "Is '%remote' Correct (y/n) ?"
  26.     if !y goback foo
  27.     :: if "!iremote,caf test" goto spctst
  28.     pH180; z -S
  29.     if premote,/ goto account
  30.     demand %password
  31.     p?0; sets s1 "%remote"
  32.     echo "Scanning for message(s) from sysop to you"; find "To \L%s1" answer
  33.     if !? return
  34.     echo "Please type or download the file 'answer'."
  35.     return
  36. link:    on
  37.     if dX goto linkfoo
  38.     if "S<10000||!iMODEM,TB" goto link1
  39.     pat 1 OK
  40.     sleep 15;  mput "+++"; wait -f3
  41.     putw "ATS51=4\r"
  42.     speed 9600
  43.     putw "ATO\r"
  44. link1:    pk-1;  link
  45.     echo "Link FINISHED"
  46.     kill
  47.     sleep 20
  48.     o
  49.     fail
  50. xpc:    echo "Please Give the xpc command after you log in"
  51.     goback foo
  52. linkfoo:    echo "Link not available at this time"
  53.     kill
  54.     o
  55.     fail
  56.     :: User names beginning with "/" are matched to account info.
  57.     :: Each line of "accounts" consists of three fields separated by tabs:
  58.     :: Login name, password, login home directory
  59. account:    lput "Searching for Account Information\r\n"
  60.     open %lib/accounts
  61.     if !t o; fail
  62.     set s1 "\r"
  63. loop:    grab    s0
  64.     split s0 "    " "    "
  65.     lput "s0=%s0 z0=%z0 z1=%s1 z2=%z2\r\n"
  66.     if Iz0,remote lput "FOUND IT!\r\n"; sets s1 "%z1"; sets s2 "%z2"
  67.     if t goto loop
  68.     closetx
  69.     lput "remote=%remote password=%s1 directory=%s2\r\n"
  70.     demand "%s1"
  71.     if !c fail
  72.     sets home "%s2"
  73.     set s1 ""
  74.     cd
  75.  
  76. spctst:    echo "TeleGodzilla is reserved for Network Performance Measurements."
  77.     echo "TeleGodzilla will be available later.  We aplogize for the"
  78.     echo "inconvenience.   Good bye cruel world."
  79.     sleep 30
  80.     o;fail
  81.