home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / amiga / datacomm / 7504 < prev    next >
Encoding:
Text File  |  1992-11-08  |  2.6 KB  |  104 lines
  1. Newsgroups: comp.sys.amiga.datacomm
  2. Path: sparky!uunet!tronsbox!dfrancis
  3. From: dfrancis@tronsbox.xei.com (Dennis Heffernan)
  4. Subject: GPFax rexx stuff
  5. Message-ID: <1992Nov7.190046.15899@tronsbox.xei.com>
  6. Keywords: GPFaxx, rexx, spam
  7. Organization: Xanadu Enterprises Inc.
  8. Date: Sat, 7 Nov 1992 19:00:46 GMT
  9. Lines: 93
  10.  
  11.     OK, you guys were right about the guard tones.  My fax troubles
  12. disappeared after the local phone company checked out my lines.
  13.  
  14.     ANYway, I am now trying to write a script to fax stuff right out of my
  15. text editor, QED.  Here's the script:
  16. --------------------------------------
  17. /* fax.qed -- fax directly from QED buffer */
  18.  
  19. options results
  20.  
  21. rcode.0 = 'Success'
  22. rcode.5 = 'RC_WARN5'
  23. rcode.10 = 'RC_ERROR'
  24. rcode.20 = 'RC_FATAL'
  25.  
  26. FileName = 'temp:qed'||pragma('i')
  27.  
  28. WRITE FileName
  29.  
  30. address rexx_gpfax 'CONVERT 'FileName
  31.  
  32. if rc ~= 0 then do
  33.         MESSAGE "Fax conversion failed!"
  34.         exit
  35. end
  36. else
  37.         MESSAGE "Fax conversion complete!"
  38.  
  39. FaxFile = FileName'_TFAX'
  40. FaxFile = 'GPFax:FAX_OUT/'||delstr(FaxFile,1,5)
  41.  
  42. QSTRING 'Enter Destination Number'
  43.  
  44. if rc = 1 then do
  45.         MESSAGE "No number given - cancelled"
  46.         exit
  47. end
  48.  
  49. STATUS A
  50.  
  51. if result = "" then do
  52.         MESSAGE "No number - cancelled"
  53.         exit
  54. end
  55.  
  56. FaxNumber.0 = result
  57. NumFaxes = 0
  58.  
  59. do x=1 while FaxNumber.0 ~= ""
  60.  
  61.         parse var FaxNumber.0 FaxNumber.x'\\'FaxNumber.0
  62.         NumFaxes = NumFaxes+1
  63.  
  64. end
  65.  
  66. address rexx_gpfax
  67.  
  68. do x=1 to NumFaxes
  69.  
  70. /*        FaxNumber.x = "'"||FaxNumber.x"'" */
  71.         SENDFAX FaxFile TO FaxNumber.x
  72.         address 
  73.         MESSAGE "GPFax reports "rcode.rc
  74.         address
  75.         REPORTLOG R 3
  76.         FaxResult = result
  77.         address
  78.         QQUERY "Result:  "result
  79.         address
  80.         if rc = 1 then exit
  81.  
  82. end
  83. ----------------------
  84.  
  85.     First problem:  SENDFAX simply doesn't understand any names or numbers,
  86. unless I give it the phone number just as a string of digits.  I tried
  87. sending the name in quotes, and it didn't help.
  88.  
  89.     Second problem:  REPORTLOG, along with PRINTLAST and VIEWLAST, doesn't
  90. work either.  Even the sample 'printlast.rexx' didn't work.  All three
  91. commands return 10, with nothing in RESULT.
  92.  
  93.     I'm using GPFax 2.041 S, under 1.3.  (2.041S did clear up the problem I
  94. had with LISTEN and UNLISTEN, but it STILL won't print right from Final Copy
  95. 2.0.)
  96.  
  97.     Any hints?
  98.  
  99.  
  100. Dennis F. Heffernan  dfrancis@tronsbox.xei.com e4461005@apollo.montclair.edu
  101. ----------------------------------------------------------------------------
  102. "I don't understand why you make such a big deal out of everything...haven't
  103. you learned; if it's not happenning to me it's not important?" -Murphy Brown
  104.