home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SCRIPTS.ZIP / PLXUPL.T < prev    next >
Encoding:
Text File  |  1991-04-18  |  2.2 KB  |  80 lines
  1.  :: Script to upload messages to Compuserve's EasyPlex Electronic mail.
  2.  :: Assumes the "Prompt" option (not menu) Easyplex option has been set.
  3.  :: Message files have the addressee in the first line, Subject in 2nd.
  4.  :: Message files are stored in file names starting with 000 without extension
  5.  :: Error recovery has not been extensively tested.
  6.     open -!g %item
  7.     set s0 ""
  8.      while "L<4&&!%s0" grab s0
  9.     ss s0 ">[mM][cC]|([0-9][0-9]*,[0-9][0-9]*)"
  10.     if !%z0 echoc "Bad Address: %s0"; goto foox
  11.     grab s1
  12.     if !t goto foox
  13.     put "\25g easy\r"
  14.     pat; pat 1  " COMpose, "; pat 2 "lex!"
  15.     pat 6 "Enter choice number !"
  16.     pat 7c "is unavailable"
  17.     pat 8c "Press <CR> to continue: " "\025\r"
  18.       pat 9 "Enter correction "
  19.     pat 10 "% EasyPlex is temporarily unav"
  20.     wait -F40
  21.     if 7 goto fini
  22.     if 10 goto foobar
  23.     if n goto foobar
  24.     put "\25com\r"
  25.     pat 1 "done";
  26.     wait -f20
  27.     if !1 goto foobar
  28.     pg10;
  29.     if dP ena -r
  30.     else ena -p
  31.     wait -f1        : let echoes stop already.
  32.     if "%s1>31" putv s1; putw "\r"; set s1 "Possible Duplicate Message"
  33.     t -gx!G            : file is uploaded here, low level FC
  34.     if du putw "\r    --- Uploaded %t\r"
  35.     if jremote,tel put "(Uploaded via Telenet)\r"
  36.     put "\25/ex\r";
  37.     pat 1 "Send to"
  38.     wait -f20
  39.     if !1 goto foobar
  40.     put "\025%s0\r"
  41.     pat 1 "Subject:";
  42.     pat 2 " Invalid User ID:"
  43.     wait -f20
  44.     while "c&&2&&L<3" put "\025%s0\r" wait -f20
  45.     if !1 goto foobar
  46.     put "\025%s1\r"
  47.     echoc "File %item To: %s0 Sb: %s1"
  48.     pat 3 "Your name:"
  49.     pat 1 "correct";
  50.     pat 5c "YES or NO" "\25YES\r"
  51.     wait -f20
  52.     if 3 put "\25Chuck Forsberg\rY\r"; wait -f20
  53.     if !1 goto foobar
  54.     put "\25Y\r"
  55.     pat 1  " COMpose, ";
  56.     wait -f20
  57.     if "!1&&!2" goto foobar
  58.     if !dv "!%mv %item Z%item.tmp"
  59.     if dv "!%rename %item Z%item.tmp"
  60.     echoc "File Uploaded: %item moved to Z%item.tmp"
  61.     ena -tG!p
  62.     pat 1 OK; pat 2 TOP
  63.     put "\25mic\r"
  64.     wait -f20; if !1 put "mic\r"; wait -f20
  65.     return
  66. foobar:    put \3
  67.     wait -f5
  68.     putw "\25t\r"
  69.     putw "\25mic\r"
  70.     if "h% EasyPlex is temporarily unav" goto fini
  71.     ena -tG!p
  72.     return
  73. foox:    echoc "Moving %item to Y%item.tmp"
  74.     echoc "File Not Accpeted"
  75.     if !dv "!%mv %item Y%item.tmp"
  76.     if dv "!%rename %item Y%item.tmp"
  77. fini:    ena -gtG!p
  78.     nolog closetx
  79.     return
  80.