home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 15 Message / 15-Message.zip / oe991016.zip / Rx991015.txt < prev    next >
Text File  |  1999-10-16  |  58KB  |  1,730 lines
  1.  
  2.                     Programming/using OS/2 REXX      (echo)
  3.  
  4.                  Saturday, 09-Oct-1999 to Friday, 15-Oct-1999
  5.  
  6. +----------------------------------------------------------------------------+
  7.  
  8. From: David Noon                                        07-Oct-99 17:41:00
  9.   To: Eddy Thilleman                                    09-Oct-99 10:45:09
  10. Subj: hstart wget?
  11.  
  12. In a message dated 10-01-99, Eddy Thilleman said to Mike Ruskai about
  13. "hstart wget?"
  14.  
  15. Hi Eddy,
  16.  
  17. MR> It's 'READY:', not 'READY'.  Though in PC-DOS 7's REXX, it is 'READY'.
  18. MR> So, you might want to do this:
  19.  
  20. MR> if left(check,5) != 'READY' then do
  21.  
  22. ET>In my latest version, I do
  23.  
  24. ET>  if pos( 'READY', check ) = 1 then        /* if we opened file */
  25.  
  26. The definitive test is really an exact byte comparison on the string:
  27.  
  28.      IF check == 'READY:' THEN
  29.  
  30. Note the double equal sign.
  31.  
  32. ET>the same condition with the do while
  33.  
  34. ET>> do while stream( InFile, 'state' ) = 'READY'
  35.  
  36. MR> lines() or chars() would be better here.
  37.  
  38. ET>why?
  39.  
  40. I don't see any reason. In fact, checking the STATE would be marginally less
  41. overhead. Again, I would recommend an exact byte comparison:
  42.  
  43.      DO WHILE STREAM(InFile,'STATE') == 'READY'
  44.  
  45. Regards
  46.  
  47. Dave
  48. <Team PL/I>
  49. ___
  50.  * MR/2 2.25 #353 * "More tea, vicar?"
  51.  
  52. --- Maximus/2 3.01
  53.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  54. 45
  55.  
  56. +----------------------------------------------------------------------------+
  57.  
  58. From: Ron Mitchell                                      09-Oct-99 05:24:00
  59.   To: John Clarke                                       09-Oct-99 10:45:09
  60. Subj: hstart wget?
  61.  
  62. John Clarke wrote in a message to Jonathan de Boyne Pollard:
  63.  
  64.  JdBP> If it helps, the TEE in OS2CLU02.ZIP doesn't require any non-system 
  65.  JdBP> DLLs other than the one that is supplied along with it in the very 
  66.  JdBP> same archive.
  67.  
  68. JC> I would appreciate it if you would email a copy of this file to me
  69. JC> at the email address below or point me towards a place where I can
  70. JC> grab it from the 'net. 
  71.  
  72. You can pick it up at http://www.riverbbs.net in the files section.  Also at
  73. telnet://riverbbs.net.
  74.  
  75. L8r,
  76.                        Ron
  77.  
  78. ... Keep your OS/2 system healthy by practicing safe REXX.
  79.  
  80. ---
  81.  * Origin: River Canyon Rd. BBS  Chattanooga,TN  423-886-2521 (1:362/627)
  82.  
  83. +----------------------------------------------------------------------------+
  84.  
  85. From: Rich Wonneberger                                  09-Oct-99 10:18:00
  86.   To: David Noon                                        10-Oct-99 01:50:04
  87. Subj: hstart wget?
  88.  
  89. *** Quoting David Noon to Eddy Thilleman dated 10-07-99 ***
  90. >      IF check == 'READY:' THEN
  91. > 
  92. > Note the double equal sign.
  93.  
  94. David,
  95.  
  96. I've seen the double equal sign in DOS batch program.  What does this do thats 
  97. different then single equal?
  98.  
  99. TIA
  100. Rich
  101. I-Net   turtil@frontiernet.net
  102.  
  103.  
  104. ... Madness takes its toll.
  105. ---
  106.  * Origin: Turtil's Pond BBS. Monroe NY. 914-783-2106 (1:2625/50)
  107.  
  108. +----------------------------------------------------------------------------+
  109.  
  110. From: Eddy Thilleman                                    06-Oct-99 22:03:07
  111.   To: John Clarke                                       10-Oct-99 01:50:04
  112. Subj: hstart wget?
  113.  
  114. Hello John,
  115.  
  116. 02 Oct 99 19:31, John Clarke wrote to Eddy Thilleman:
  117.  
  118. ET>> I asked this in the wget mailing list, it is possible if you use
  119. ET>> a program 'tee' in addition:
  120.  
  121. JC> I'd appreciate a copy of 'tee' attached to my email address below if
  122. JC> you can organise it.
  123.  
  124. I've a tee but it needs a GNU lib file which I don't have.
  125.  
  126.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  127.  
  128. ... NT?  New Technology?  I don't think so...
  129. --- GoldED/2 3.0.1
  130.  * Origin: Windows98 is a graphic DOS extender (2:500/143.7)
  131.  
  132. +----------------------------------------------------------------------------+
  133.  
  134. From: Eddy Thilleman                                    06-Oct-99 22:04:24
  135.   To: Jonathan De Boyne Pollard                         10-Oct-99 01:50:04
  136. Subj: hstart wget?
  137.  
  138. Hello Jonathan,
  139.  
  140. 02 Oct 99 12:46, Jonathan de Boyne Pollard wrote to Eddy Thilleman:
  141.  
  142. ET>> (or use a tee version which doesn't need the gnushu lib files).
  143.  
  144. JP> If it helps, the TEE in OS2CLU02.ZIP doesn't require any non-system
  145. JP> DLLs other than the one that is supplied along with it in the very
  146. JP> same archive.
  147.  
  148. I haven't looked, but I'll in the weekend.
  149.  
  150.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  151.  
  152. ... I have shifting antigens. Don't even try to find a cure.
  153. --- GoldED/2 3.0.1
  154.  * Origin: Windows95 is a graphic DOS extender (2:500/143.7)
  155.  
  156. +----------------------------------------------------------------------------+
  157.  
  158. From: Eddy Thilleman                                    06-Oct-99 22:50:15
  159.   To: Jack Stein                                        10-Oct-99 01:50:04
  160. Subj: hstart wget?
  161.  
  162. Hello Jack,
  163.  
  164. 03 Oct 99 23:42, Jack Stein wrote to Eddy Thilleman:
  165.  
  166. JS> Something like that might work.
  167.  
  168. I don't know yet, I've too much work now. Later I could look at this (maybe).
  169.  
  170.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  171.  
  172. ... Windows Now Terminated
  173. --- GoldED/2 3.0.1
  174.  * Origin: Windows95 is a graphic DOS extender (2:500/143.7)
  175.  
  176. +----------------------------------------------------------------------------+
  177.  
  178. From: Eddy Thilleman                                    09-Oct-99 09:31:00
  179.   To: Mike Ruskai                                       10-Oct-99 01:50:04
  180. Subj: hstart wget?
  181.  
  182. Hello Mike,
  183.  
  184. 03 Oct 99 17:23, MIKE RUSKAI wrote to EDDY THILLEMAN:
  185.  
  186. MR> the read/write pointer is at the end.  The lines() function returns 1
  187. MR> if there's at least one line-end in the file (with the lines() method
  188. MR> of the stream class in OREXX, it actually counts the lines in the
  189. MR> file). The chars() function returns the character count remaining
  190. MR> ahead of the read/write pointer.
  191.  
  192. Thanks for the explanation.
  193.  
  194. OK, I choose Lines() because I read whole lines at a time.
  195.  
  196.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  197.  
  198. ... Lucky people gets OS/2, unfortunate people gets NT...
  199. --- GoldED/2 3.0.1
  200.  * Origin: Windows98 is a graphic DOS extender (2:500/143.7)
  201.  
  202. +----------------------------------------------------------------------------+
  203.  
  204. From: Ron Mitchell                                      09-Oct-99 20:25:24
  205.   To: Rich Wonneberger                                  10-Oct-99 01:50:04
  206. Subj: hstart wget?
  207.  
  208. Rich Wonneberger wrote in a message to David Noon:
  209.  
  210. RW> *** Quoting David Noon to Eddy Thilleman dated 10-07-99 ***
  211. >      IF check == 'READY:' THEN
  212. > 
  213. > Note the double equal sign.
  214.  
  215. RW> I've seen the double equal sign in DOS batch program.  What does
  216. RW> this do thats different then single equal?
  217.  
  218. == is a strict character by character string comparison.
  219.  
  220. =
  221.  
  222. Anything that can resolve to a numeric value is resolved and then compared
  223. mathematically.  Leading and trailing blanks are stripped.  Case sensitive.
  224.  
  225. ==
  226.  
  227. Strictly a string comparison.  Blanks are not stripped.  Case sensitive.
  228.  
  229. == is faster than = because of the lack of preprocessing.  It is also safer if 
  230. all you are interested in is a character by character comparison.
  231.  
  232. L8r,
  233.                        Ron
  234.  
  235. ... f y cn rd ths, y cn gt gd jbs n cmptr prgrmng.
  236.  
  237. ---
  238.  * Origin: River Canyon Rd. BBS  Chattanooga,TN  423-886-2521 (1:362/627)
  239.  
  240. +----------------------------------------------------------------------------+
  241.  
  242. From: John Clarke                                       08-Oct-99 20:52:19
  243.   To: Gord Hannah                                       10-Oct-99 19:23:11
  244. Subj: hstart wget?
  245.  
  246. On Oct 05, 1999 at 06:21 hrs, Gord Hannah of 1:17/23.1 wrote to John Clarke:
  247.  
  248. Hello Gord,
  249.  
  250.  GH> Replying to a message from John Clarke 3:713/730 to Eddy Thilleman,
  251.  
  252.  GH> About hstart wget?, On Sat Oct 02 1999
  253.  
  254. ET>> program 'tee' in addition:
  255.  
  256. JC>> I'd appreciate a copy of 'tee' attached to my email address below if
  257. JC>> you can organise it.
  258.  
  259.  GH> Pickup a copy of OS2CLU02.ZIP at hobbes, these utilities are 
  260.  GH> fantastic, mind you I am biased I am on the test team.
  261.  
  262. Thanks.   I will do so tonight.
  263.  
  264. Regards ... John
  265.  
  266. Email: jclarke@zip.com.au
  267.  
  268. --- MsgedSQ/2 3.30
  269.  * Origin: The Clearing House (3:713/730)
  270. 45
  271.  
  272. +----------------------------------------------------------------------------+
  273.  
  274. From: Rich Wonneberger                                  10-Oct-99 15:18:00
  275.   To: Ron Mitchell                                      10-Oct-99 19:23:11
  276. Subj: hstart wget?
  277.  
  278. *** Quoting Ron Mitchell to Rich Wonneberger dated 10-09-99 ***
  279. > == is a strict character by character string comparison.
  280. > 
  281. > =
  282. > 
  283. > Anything that can resolve to a numeric value is resolved and then 
  284. > compared mathematically.  Leading and trailing blanks are stripped.  
  285. > Case sensitive.
  286. > 
  287. > ==
  288. > 
  289. > Strictly a string comparison.  Blanks are not stripped.  Case 
  290. > sensitive.
  291.  
  292. Ron,
  293.  
  294. Thanks for the lesson.
  295. Is there any way to get a non case sensitive comparison??
  296.  
  297. Rich
  298. I-Net   turtil@frontiernet.net
  299.  
  300.  
  301. ... Editing is a rewording activity.
  302. ---
  303.  * Origin: Turtil's Pond BBS. Monroe NY. 914-783-2106 (1:2625/50)
  304.  
  305. +----------------------------------------------------------------------------+
  306.  
  307. From: David Noon                                        09-Oct-99 00:39:00
  308.   To: Mike Ruskai                                       11-Oct-99 23:10:20
  309. Subj: hstart wget?
  310.  
  311. In a message dated 10-03-99, Mike Ruskai said to Eddy Thilleman about
  312. "hstart wget?"
  313.  
  314. Hi Mike,
  315.  
  316.  ET>> do while stream( InFile, 'state' ) = 'READY'
  317.  
  318.  MR> lines() or chars() would be better here.
  319.  
  320.  ET> why?
  321.  
  322. MR>Because I don't see why a stream would fail to be ready simply because
  323. MR>the read/write pointer is at the end.
  324.  
  325. Well, it returns 'NOTREADY' when it hits end-of-file for the first time, and
  326. 'ERROR' for subsequent reads. [Assuming it was opened for read access.]
  327.  
  328. Regards
  329.  
  330. Dave
  331. <Team PL/I>
  332. ___
  333.  * MR/2 2.25 #353 * Windows Error: 003 - Windows found.  System halted.
  334.  
  335. --- Maximus/2 3.01
  336.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  337. 45
  338.  
  339. +----------------------------------------------------------------------------+
  340.  
  341. From: David Noon                                        09-Oct-99 00:41:01
  342.   To: John Clarke                                       11-Oct-99 23:10:20
  343. Subj: TEE command
  344.  
  345. In a message dated 10-02-99, John Clarke said to Eddy Thilleman about
  346. "hstart wget?"
  347.  
  348. Hi John,
  349.  
  350.  ET> I asked this in the wget mailing list, it is possible if you use a 
  351.  ET> program 'tee' in addition:
  352.  
  353. JC>I'd appreciate a copy of 'tee' attached to my email address 
  354. JC>below if you can organise it.
  355.  
  356. Since this is the OS2REXX echo, we can write our own!
  357.  
  358. ================================= TEE.CMD ==================================
  359. /* REXX version of the TEE command */
  360. PARSE ARG Arg_list
  361.  
  362. Append_flag = TRANSLATE(WORD(Arg_list,1))
  363. /* Remove the /A flag if supplied */
  364. IF Append_flag == '/A' THEN
  365. DO
  366.    Arg_list = STRIP(SUBSTR(Arg_list,3),'L')
  367.    Append_flag = 'APPEND'
  368. END
  369. ELSE
  370.    Append_flag = 'REPLACE'
  371.  
  372. /* Make sure at least 1 file was specified */
  373. IF LENGTH(Arg_list) = 0 THEN EXIT 12
  374.  
  375. File_name = .ARRAY~NEW(1)
  376. /* Parse the filenames into an array of strings */
  377. p = VERIFY(Arg_list,' ')
  378. DO i = 1 BY 1 WHILE p += 0
  379.    IF SUBSTR(Arg_list,p,1) == "'" | SUBSTR(Arg_list,p,1) == '"' THEN
  380.    DO
  381.       q = VERIFY(Arg_list,SUBSTR(Arg_list,p,1),'M',p+1)
  382.       p = p + 1
  383.       DO WHILE SUBSTR(Arg_list,q,1) == SUBSTR(Arg_list,q+1,1)
  384.          q = VERIFY(Arg_list,SUBSTR(Arg_list,p,1),'M',q+2)
  385.       END
  386.    END
  387.    ELSE
  388.       q = VERIFY(Arg_list,' ','M',p+1)
  389.  
  390.    IF q = 0 THEN q = LENGTH(Arg_list) + 1
  391.  
  392.    File_name[i] = SUBSTR(Arg_list,p,q-p+1)
  393.  
  394.    p = VERIFY(Arg_list,' ','N',q+1)
  395. END
  396.  
  397. /* Open a corresponding array of stream objects */
  398. File_stream = .ARRAY~NEW(File_name~ITEMS())
  399. DO i = 1 TO File_name~ITEMS()
  400.    File_stream[i] = .STREAM~NEW(File_name[i])~~OPEN('WRITE '||Append_flag)
  401. END
  402.  
  403. DROP File_name
  404.  
  405. /* Open standard devices */
  406. Stdin = .STREAM~NEW('STDIN:')~~OPEN('READ')
  407. Stdout = .STREAM~NEW('STDOUT:')~~OPEN('WRITE')
  408.  
  409. /* Copy the lines across */
  410. DO WHILE Stdin~STATE() == 'READY'
  411.     Line_buff = Stdin~LINEIN()
  412.     DO Output_file OVER File_stream
  413.        Output_file~LINEOUT(Line_buff)
  414.     END
  415.     Stdout~LINEOUT(Line_buff)
  416. END
  417.  
  418. DROP Output_file
  419.  
  420. /* Close all the files */
  421. DO i = File_stream~FIRST() TO File_stream~LAST()
  422.   File_stream[i]~CLOSE()
  423. END
  424.  
  425. Stdin~CLOSE()
  426. Stdout~CLOSE()
  427.  
  428. EXIT 0
  429. ============================================================================
  430.  
  431. As is my usual practice in this echo, I typed this code directly into my QWK
  432. reader, so it is totally untested. Note that it is in Object REXX.
  433.  
  434. Regards
  435.  
  436. Dave
  437. <Team PL/I>
  438. ___
  439.  * MR/2 2.25 #353 * Microsoft Windows: Proof that P.T. Barnum was correct.
  440.  
  441. --- Maximus/2 3.01
  442.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  443. 45
  444.  
  445. +----------------------------------------------------------------------------+
  446.  
  447. From: David Noon                                        09-Oct-99 20:29:00
  448.   To: John Clarke                                       11-Oct-99 23:10:20
  449. Subj: TEE command
  450.  
  451. In a message dated 10-09-99, David Noon said to John Clarke about "TEE
  452. command"
  453.  
  454. Hi John,
  455.  
  456. DN>Since this is the OS2REXX echo, we can write our own!
  457.  
  458. We can also improve it by removing the argument parsing and placing that
  459. into a new class library. This allows us to reuse that code wherever we want
  460. to convert an argument string into an array of values, in the manner typical
  461. of C/C++ start-up code.
  462.  
  463. ================================= TEE.CMD ==================================
  464. /* REXX version of the TEE command */
  465.  
  466. /* Build array of program arguments. Use the typical C/C++ name. */
  467. argv = .ARGARRAY~NEW(ARG(1))
  468.  
  469. /* Remove the /A flag if supplied */
  470. IF argv[1]~TRANSLATE() == '/A' THEN
  471. DO
  472.    argv~REMOVE(1)
  473.    Append_flag = 'APPEND'
  474. END
  475. ELSE
  476.    Append_flag = 'REPLACE'
  477.  
  478. /* Make sure at least 1 file was specified */
  479. IF argv~ITEMS() = 0 THEN EXIT 12
  480.  
  481. /* Open a corresponding array of stream objects */
  482. File_stream = .ARRAY~NEW(argv~ITEMS())
  483. i = 1
  484. DO File_name OVER argv
  485.    File_stream[j] = .STREAM~NEW(File_name)~~OPEN('WRITE '||Append_flag)
  486.    i = i + 1
  487. END
  488.  
  489. /* Finished with these */
  490. DROP argv Append_flag File_name
  491.  
  492. /* Open standard devices */
  493. Stdin = .STREAM~NEW('STDIN:')~~OPEN('READ')
  494. Stdout = .STREAM~NEW('STDOUT:')~~OPEN('WRITE')
  495.  
  496. /* Copy the lines across */
  497. DO WHILE Stdin~STATE() == 'READY'
  498.     Line_buff = Stdin~LINEIN()
  499.     DO Output_file OVER File_stream
  500.        Output_file~LINEOUT(Line_buff)
  501.     END
  502.     Stdout~LINEOUT(Line_buff)
  503. END
  504.  
  505. DROP Output_file
  506.  
  507. /* Close all the files */
  508. DO i = File_stream~FIRST() TO File_stream~LAST()
  509.   File_stream[i]~CLOSE()
  510. END
  511.  
  512. Stdin~CLOSE()
  513. Stdout~CLOSE()
  514.  
  515. EXIT 0
  516.  
  517. ::REQUIRES 'ARGARRAY.CMD'
  518. ============================================================================
  519.  
  520. And here is the class for forming arrays of arguments. It is actually a
  521. useful piece of code. You should put it in a PATH directory.
  522.  
  523. ============================== ARGARRAY.CMD ================================
  524. /* REXX class library to build argument arrays from character strings */
  525. /* such as command tails.                                             */
  526.  
  527. /* Author: David W. Noon, October 1999                                */
  528.  
  529. /* You may use this code freely, and redistribute it provided the     */
  530. /* original copyright caveat is retained and no charge is levied      */
  531. /* beyond the price of its distribution medium.                       */
  532.  
  533. /* No warranty is expressed or implied as to the suitability of this  */
  534. /* software to perform any given task, nor will the author accept     */
  535. /* liability for any damage or loss incurred by its use.              */
  536.  
  537. /* Copyright (C) 1999, David W. Noon.  All rights reserved.           */
  538.  
  539. ::CLASS ARGARRAY PUBLIC
  540.  
  541. ::METHOD INIT
  542.    EXPOSE Arg_array
  543.  
  544.    /* Only allow a single argument */
  545.    IF ARG() < 1 THEN RAISE SYNTAX 93.901 ADDITIONAL 1
  546.    IF ARG() > 1 THEN RAISE SYNTAX 93.902 ADDITIONAL 1
  547.  
  548.    /* Extract argument string */
  549.    Arg_string = ARG(1)~STRIP()
  550.  
  551.    /* Ensure it isn't a null string */
  552.    IF Arg_string~LENGTH() = 0 THEN RAISE SYNTAX 93.911 ADDITIONAL 1
  553.  
  554.    /* Build an array. */
  555.    Arg_array = .ARRAY~NEW(1)
  556.  
  557.    /* Now parse out the arguments into array elements */
  558.    DO i = 1 BY 1 UNTIL Arg_string~LENGTH() = 0
  559.       SELECT
  560.          WHEN Arg_string~LEFT(1) == "'" THEN
  561.          DO
  562.             r = Arg_string~VERIFY("'",'M',2)
  563.             DO WHILE r > 0 & Arg_string~SUBSTR(r+1,1) == "'"
  564.                r = Arg_string~VERIFY("'",'M',r+2)
  565.             END
  566.  
  567.             /* See if we have an unmatched apostrophe */
  568.             IF r = 0 THEN RAISE SYNTAX 6.2
  569.  
  570.             /* Ensure next character is comma or space */
  571.             IF r < Arg_string~LENGTH() THEN
  572.                IF VERIFY(' ,',Arg_string~SUBSTR(r+1,1),'M') = 0 THEN
  573.                   RAISE SYNTAX 22.1 ADDITIONAL(Arg_string~LEFT(r+1))
  574.  
  575.             Arg_array~PUT(SQUOTE(Arg_string~SUBSTR(2,r-2),"'"),i)
  576.          END
  577.  
  578.          WHEN Arg_string~LEFT(1) == '"' THEN
  579.          DO
  580.             r = Arg_string~VERIFY('"','M',2)
  581.             DO WHILE r > 0 & Arg_string~SUBSTR(r+1,1) == '"'
  582.                r = Arg_string~VERIFY('"','M',r+2)
  583.             END
  584.  
  585.             /* See if we have an unmatched quote */
  586.             IF r = 0 THEN RAISE SYNTAX 6.3
  587.  
  588.             /* Ensure next character is comma or space */
  589.             IF r < Arg_string~LENGTH() THEN
  590.                IF VERIFY(' ,',Arg_string~SUBSTR(r+1,1),'M') = 0 THEN
  591.                   RAISE SYNTAX 22.1 ADDITIONAL(Arg_string~LEFT(r+1))
  592.  
  593.             Arg_array~PUT(SQUOTE(Arg_string~SUBSTR(2,r-2),'"'),i)
  594.          END
  595.  
  596.          WHEN Arg_string~LEFT(1) == ',' THEN
  597.          DO
  598.             r = 1
  599.             Arg_array~PUT('',i)
  600.          END
  601.  
  602.          OTHERWISE
  603.          DO
  604.             r = Arg_string~VERIFY(" ,",'M')
  605.             IF r = 0 THEN r = Arg_string~LENGTH() + 1
  606.             Arg_array~PUT(Arg_string~SUBSTR(1,r-1),i)
  607.          END
  608.       END
  609.  
  610.       Arg_string = Arg_string~DELSTR(1,r)~STRIP('L')
  611.    END
  612.  
  613. RETURN
  614.  
  615. /* Fake inheritance */
  616. ::METHOD UNKNOWN
  617.    EXPOSE Arg_array
  618.  
  619.    USE ARG Method_name, Parm_array
  620.  
  621.    FORWARD MESSAGE(Method_name) TO(Arg_array) ARGUMENTS(Parm_array) CONTINUE
  622. RETURN RESULT
  623.  
  624. /* Internal subroutine to condense doubled quote marks */
  625. ::ROUTINE SQUOTE
  626.  
  627.    Str = ARG(1)
  628.    Qt = ARG(2)
  629.  
  630.    p = VERIFY(Str,Qt,'M')
  631.    DO WHILE p > 0
  632.       IF Str~SUBSTR(p+1,1) == Qt THEN Str = Str~DELSTR(p+1,1)
  633.       p = VERIFY(Str,Qt,'M',p+1)
  634.    END
  635.  
  636. RETURN Str
  637. ============================================================================
  638.  
  639. And this still applies to TEE.CMD ...
  640.  
  641. DN>As is my usual practice in this echo, I typed this code directly into my
  642. DN>QWK reader, so it is totally untested. Note that it is in Object REXX.
  643.  
  644. Regards
  645.  
  646. Dave
  647. <Team PL/I>
  648. ___
  649.  * MR/2 2.25 #353 * Buy the dog, get the fleas free of charge.
  650.  
  651. --- Maximus/2 3.01
  652.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  653. 45
  654.  
  655. +----------------------------------------------------------------------------+
  656.  
  657. From: MIKE RUSKAI                                       11-Oct-99 04:58:00
  658.   To: DAVID NOON                                        11-Oct-99 23:10:20
  659. Subj: hstart wget?
  660.  
  661. Some senseless babbling from David Noon to Mike Ruskai
  662. on 10-09-99  00:39 about hstart wget?...
  663.  
  664.  DN> In a message dated 10-03-99, Mike Ruskai said to Eddy Thilleman about
  665.  DN> "hstart wget?"
  666.  
  667.  DN> Hi Mike,
  668.  
  669.  ET>> do while stream( InFile, 'state' ) = 'READY'
  670.  
  671.  MR> lines() or chars() would be better here.
  672.  
  673.  ET> why?
  674.  
  675.  MR>Because I don't see why a stream would fail to be ready simply because
  676.  MR>the read/write pointer is at the end.
  677.  
  678.  DN> Well, it returns 'NOTREADY' when it hits end-of-file for the first
  679.  DN> time, and 'ERROR' for subsequent reads. [Assuming it was opened for
  680.  DN> read access.] 
  681.  
  682. I guess that'd work.  But if it's opened for read/write access, it
  683. certainly wouldn't.  That's probably why I got in the habit of using
  684. lines() or chars() early on.
  685.  
  686. Mike Ruskai
  687. thannymeister@yahoo.com
  688.  
  689.  
  690. ... And then Lancelot, Sir Robin and I will jump out of the rabbit... uhhh
  691.  
  692. ___ Blue Wave/QWK v2.20
  693. --- Platinum Xpress/Win/Wildcat5! v3.0pr2
  694.  * Origin: FIDO QWK MAIL & MORE!  WWW.DOCSPLACE.ORG (1:3603/140)
  695. 45
  696.  
  697. +----------------------------------------------------------------------------+
  698.  
  699. From: Eddy Thilleman                                    10-Oct-99 16:06:10
  700.   To: David Noon                                        11-Oct-99 23:10:20
  701. Subj: hstart wget?
  702.  
  703. Hello David,
  704.  
  705. 07 Oct 99 17:41, David Noon wrote to Eddy Thilleman:
  706.  
  707. DN> The definitive test is really an exact byte comparison on the string:
  708.  
  709. DN>      IF check == 'READY:' THEN
  710.  
  711. DN> Note the double equal sign.
  712.  
  713. I had tried that first, but once the ':' was present and another try the ':'
  714. was not present (with the same syntax?), so I was confused and didn't try
  715. more.
  716.  
  717. DN> I don't see any reason. In fact, checking the STATE would be
  718. DN> marginally less overhead. Again, I would recommend an exact byte
  719. DN> comparison:
  720.  
  721. DN>      DO WHILE STREAM(InFile,'STATE') == 'READY'
  722.  
  723. But when "READY:" is returned this returnes false? But I don't have time to
  724. investigate this now.
  725.  
  726.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  727.  
  728. ... "All constants are variables." -- Murphy's Law of Mathematics
  729. --- GoldED/2 3.0.1
  730.  * Origin: Windows98 is a graphic DOS extender (2:500/143.7)
  731.  
  732. +----------------------------------------------------------------------------+
  733.  
  734. From: Eddy Thilleman                                    10-Oct-99 21:38:00
  735.   To: All                                               11-Oct-99 23:10:20
  736. Subj: start wget
  737.  
  738. Hello All,
  739.  
  740. the for...in...do that calls (in the same session) or starts (in a separate
  741. session) the wgetmir.cmd REXX file  in combination with redirection to nul
  742. results in weird behavior (the log file names gets a space in the middle and
  743. the log output of wget is placed in the file with the url's listed). I don't
  744. know why this is, it took some time before I found the solution: leave out the 
  745. redirection.
  746.  
  747. ------------------- begin of startwget.cmd -------------------
  748. @echo off
  749. c:
  750. cd \www
  751.  
  752. call cheap
  753. if not errorlevel 1 exit
  754.  
  755. if exist wget.ftp call wgetftp
  756. for %%a in (wget*mirror) do call wgetmirror %%a
  757. for %%a in (wget*mir)    do call wgetmir %%a
  758. for %%a in (wget*news)   do start /win /c /b wgetnews %%a
  759. for %%a in (wget*www)    do start /win /c /b wgetwww %%a
  760. for %%a in (wget*x)      do start /win /c /b wgetx %%a
  761. exit
  762. -------------------- end of startwget.cmd --------------------
  763.  
  764. In wgetmir.cmd I use the arg() function instead the arg keyword to get the
  765. filename to prevent the filename is uppercased (parse arg would do too
  766. according to the REXX INF file).
  767.  
  768.   Greetings   -=Eddy=-        email: eddy.thilleman@net.hcc.nl
  769.  
  770. ... Windows?  Honey don't play that!
  771. --- GoldED/2 3.0.1
  772.  * Origin: Windows98 is a graphic DOS extender (2:500/143.7)
  773.  
  774. +----------------------------------------------------------------------------+
  775.  
  776. From: Francois Massonneau                               11-Oct-99 08:35:04
  777.   To: All                                               12-Oct-99 06:42:22
  778. Subj: FrontDoor/Mailser and Rexx
  779.  
  780. Hello !
  781.  
  782. This is a question I 've just asked in the FrontDoor echo, but I guess someone 
  783. in this one can help me to succeed in this process, as everything could be
  784. manage by a rexx script.
  785. This is the question :
  786. >------------------------------------------------------------------------------
  787. ----------------
  788. I need to run a mail server every 3 and a half hours and I would like :
  789.      - front door to exit, (I use a .BAT file to run frontdoor (2.30mL)).
  790.      - then run the Rexx Script (I 'm using OS/2) that takes care of my mail
  791. server, 
  792.      - wait for the script to complete (sometimes, it takes 3 or 4 minutes,
  793. but sometimes it takes longer).
  794.      - kill all applis that have been launched by the script, and the script
  795. itself, if it takes more that xx minutes (as I'm charged for every minutes on
  796. line, I can't afford to stay connected to my ISP if something goes wrong with
  797. it).
  798.      - then check the com port (I saw that from time to time some problems
  799. occur when the script ended).
  800.      - then restart frontdoor if everything above is ok, else, kill all the
  801. nodes (I run a two nodes BBS), and restart them.
  802.  
  803. I know there is a program to kill which name is "GO.EXE"(go -k appli.exe) but
  804. I saw that from time to time, when I want to kill an appli (I use it to kill
  805. InetMail, pop3d.exe, smtpd.exe and In-joy.exe), it kill my node 1 (which runs
  806. on my com1, !! (((-: )
  807. I use HSTART to start an OS/2 appli from a dos batch file too.
  808.  
  809. So the questions : 
  810.  
  811. 1) does someone can help me and show me what are the lines I have to add to my 
  812. batch file that runs that node to do what I need above and secure the whole
  813. process (I have to leave my system on its own for 3 or 4 weeks maybe more
  814. (when you enter in an hospital you don't know when and how you go out ;-( ) ?
  815.  
  816. 2) (deleted as it's off topic with this echo)....../.
  817.  
  818.  
  819. >------------------------------------------------------------------------------
  820. ----------------
  821.  
  822. in the next message I'm gonna post the script I use to run this mail server.
  823. I'm sorry it's a long script but many told me to post it in this echo, so I'm
  824. gonna do it, and ask the problems I have with it.
  825.  
  826. Bye, Francois!
  827.  
  828.  
  829. Email: fmas@celtes.com
  830. Web  : http://www.worldnet.net/~island/
  831.  
  832. ---
  833.  * Origin: Island's BBS, a Node in the Atlantic Ocean (2:326/2)
  834.  
  835. +----------------------------------------------------------------------------+
  836.  
  837. From: Francois Massonneau                               11-Oct-99 08:42:04
  838.   To: All                                               12-Oct-99 06:42:23
  839. Subj: (1/2) The Dialup (dve.cmd) script
  840.  
  841. Hello !
  842.  
  843. First, I have to apologize, because it's a very, very long message
  844. Second, I'm a total newbie with rexx, so in your reply, please give me the
  845. exact lines of code, as I won't be able to deal with just advices, I'm too
  846. short in time, as I have to leave home in 15 days.
  847.  
  848. This is the script I use to run my mail server, the questions are after it :
  849.  
  850. >==============================================================================
  851. =========
  852. /* REXX script for InetMail - Written by Paul Hethmon, and modify by many
  853. people */
  854. /*
  855.  * This program designed to control Inet.Mail in a dialup situation.
  856.  * 
  857.  * Orignial Script available at:
  858.  *     ftp://ftp.hethmon.com/hethmon/pub/scripts/dialup.zip
  859.  *
  860.  * This script depends on two external programs:
  861.  *
  862.  *   etrn.exe  --  Available from Hethmon Brothers
  863.  *     ftp://ftp.hethmon.com/hethmon/pub/scripts/etrn.zip
  864.  *
  865.  *   go.exe    -- Available from Hethmon Brothers
  866.  *     ftp://ftp.hethmon.com/hethmon/pub/scripts/go.zip
  867.  *
  868.  * When you start Inet.Mail, you must use 3 command line flags:
  869.  *
  870.  *   -ready
  871.  *   -queue
  872.  *   -relay
  873.  *
  874.  * You must also create two files in the Inet.Mail main directory:
  875.  *
  876.  *   noqueue
  877.  *   norelay
  878.  *
  879.  * The file contents do not matter. A simple way of creating them is
  880.  * to redirect the output of the dir command: dir > noqueue
  881.  *
  882.  * These two files are used as flag files to communicate between this
  883.  * script and Inet.Mail.*/
  884.  
  885. /* ------------------------ Beginning of Variable declarations
  886. -------------------------------- */
  887. /* This section of variables must be set to local values. */
  888.  
  889. InetMailDir = 'f:\inetmail'               /* Your InetMail directory  */
  890. DialerDir = 'e:\injoy'                    /* Your Dialer directory  */
  891. SemaforeDir = 'c:\fd\sem'                 /* The directory where you want a
  892. semafore file to */
  893.                                           /* be created  */
  894. DialupLogFile = 'f:\inetmail\dialup.log'  /*  The logfile and its path  */
  895.  
  896. SleepTime = (60 * 225 * 1)                /* Amount of time between
  897. connections in seconds */
  898.                                           /* template : seconds * minutes *
  899. hours */
  900.  
  901. RemoteServer = 'relay.worldnet.net'       /* Remote server to contact for mail 
  902. download */
  903.                                           /* Must be an ip name. */
  904. MailDomains = 'celtes.com'                /* The mail domain the remote server 
  905. is queueing for. */
  906.                                           /* This is the name of your mail
  907. domain as in  */
  908.                                           /* user@domain.com would be
  909. domain.com. You may enter */
  910.                                           /* multiple ip names here as needed. 
  911. Every domain you */
  912.                                           /* have email queued for must be
  913. listed. */
  914.  
  915. ImRelayFile = InetMailDir||'\norelay'     /* Inet.Mail relay file. The file is 
  916. always called  */
  917.                                           /* "norelay". Just add the full path 
  918. to it here. */
  919. ImReadyFile = InetMailDir||'\ready'       /* Inet.Mail ready file. The file is 
  920. always called */
  921.                                           /* "ready". Just add the full path
  922. to it here. */
  923. ImQueueFile = InetMailDir||'\noqueue'     /* Inet.Mail queue file. The file is 
  924. always called */
  925.                                           /* "noqueue". Just add the full path 
  926. to it here. */
  927. SpoolDir = InetMailDir||'\spool'          /* Inet.Mail spool Directory. The
  928. file is always */
  929.                                           /* *.spl. Just add the full path to
  930. it here. */
  931.  
  932. Etrn = InetMailDir||'\etrn.exe'           /* ETRN program */
  933. DialerProg = 'In-joy.exe'                 /* Your Dialer Program */
  934. DialIsp = DialerDir||'\in-joy.exe auto'   /* If your dialer needs any command
  935. line parameters to */
  936.                                           /* automatically dial, then place
  937. them here */
  938. KillDialer = DialerDir||'\killjoy.exe'    /* Kill program to hangup the
  939. dialer. If your dialer */
  940.                                           /* has a command which will cause it 
  941. to hang up. You */
  942.                                           /* may substitute it here*/
  943. CheckIfRunning = 'go.exe -cp'             /* Program to run to check if an
  944. appli is running */
  945. kill = 'go.exe -k'                        /* Kill program to kill The applis
  946. that could run and */
  947.                                           /* need to be killed. */
  948.  
  949. SemaMailer = SemaforeDir||'\inetmail.sem' /* Name, Drive and Directory of the
  950. semafore file you */
  951.                                           /* want the script to create once it 
  952. has run */
  953.  
  954. InetMail=inetmail                         /* define apps */
  955. pop3d=pop3d                               /* define apps */
  956. smtpd=smtpd                               /* define apps */
  957.  
  958. FireUpIM = InetMailDir||'\'||InetMail ' -l -vis -checkpoint -relay -ready
  959. -queue -hops 30'  /* How */
  960.                                           /* you fire up InetMail, and which
  961. parameters do you */
  962.                                           /* need for it */
  963.  
  964. /* --------------------------- End of Variable declarations
  965. ----------------------------------- */
  966.  
  967.  
  968. /* For non english speaking user : we change the day given in the log file
  969. from english to french */
  970. DayoftheWeek = date('W')
  971.  if DayoftheWeek = 'Sunday' then
  972.     JourdelaSemaine = 'Dimanche'
  973.  if DayoftheWeek = 'Monday' then
  974.     JourdelaSemaine = 'Lundi'
  975.  if DayoftheWeek = 'Tuesday' then
  976.     JourdelaSemaine = 'Mardi'
  977.  if DayoftheWeek = 'Wednesday' then
  978.     JourdelaSemaine = 'Mercredi'
  979.  if DayoftheWeek = 'Thursday' then
  980.     JourdelaSemaine = 'Jeudi'
  981.  if DayoftheWeek = 'Friday' then
  982.     JourdelaSemaine = 'Vendredi'
  983.  if DayoftheWeek = 'Saturday' then
  984.     JourdelaSemaine = 'Samedi'
  985. /* End of the french translation */
  986.  
  987. CurDir = directory()
  988.  
  989. /* Set to 1 to enable debug output */
  990. Debug = TRUE
  991.  
  992. /* Set to 1 to enable logging */
  993. Log = TRUE
  994.  
  995. DialupVersion = 'v.1.6'
  996. DialupRevision = '0.07'
  997. DialupDate = '11 October 1999'
  998. high = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  999. low = 'abcdefghijklmnopqrstuvwxyz'
  1000. Env = 'OS2ENVIRONMENT'
  1001. FALSE = 0
  1002. TRUE = 1
  1003. CRLF='0d0a'x
  1004. Start = 'start'
  1005.  
  1006. /* Rexx Socket variables */
  1007. domain = 'AF_INET'
  1008. server.!family = 'AF_INET'
  1009. server.!port = 25
  1010. server.!addr = RemoteServer
  1011.  
  1012. /* The external functions we need */
  1013. call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
  1014. call RxFuncAdd 'SysFileDelete', 'RexxUtil', 'SysFileDelete'
  1015. call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
  1016. call RxFuncAdd 'SysSleep', 'RexxUtil', 'SysSleep'
  1017. call RxFuncAdd 'SockLoadFuncs', 'rxSock', 'SockLoadFuncs'
  1018. rc = SockLoadFuncs()
  1019. rc = SockInit()
  1020.  
  1021. /* start main function, we ignore any arguments */
  1022.  
  1023.  
  1024. /* Endless loop */
  1025. do while 1
  1026.  
  1027.  /*  We start the dial process, so it's time to write the log file */
  1028.  call LINEOUT DialupLogFile, ' '
  1029.  call LINEOUT DialupLogFile, '------/' 'DialUp Script' DialupVersion
  1030. 'rev.'DialupRevision ':' JourdelaSemaine date() '-' Time() '/------'
  1031.  call LINEOUT DialupLogFile, ' '
  1032.  call LINEOUT DialupLogFile, date() time() 'Started dialup up process ...' 
  1033.  
  1034.  /* lets attempt to shutdown dialer and mail server; in case it's running
  1035. already */
  1036.  /* we should really test if it runs 1st... but, we'll just 'dumb kill all'
  1037. for now */
  1038.  call SysCls
  1039.  say '--------------------------------------------------------------------'
  1040.  say '...we will try to shutdown dialer and mail server before we start...'
  1041.  say '--------------------------------------------------------------------'
  1042.  call LINEOUT DialupLogFile, date() time() '    dialer, if running, is
  1043. killed.' 
  1044.  KillDialer
  1045.  call SysSleep(2)
  1046.  call LINEOUT DialupLogFile, date() time() '    inetmail, if running, is
  1047. killed.' 
  1048.  kill inetmail
  1049.  call SysSleep(2)
  1050.  call LINEOUT DialupLogFile, date() time() '    pop3d process, if running, is
  1051. killed.' 
  1052.  kill pop3d
  1053.  call SysSleep(2)
  1054.  call LINEOUT DialupLogFile, date() time() '    smtpd process, if running, is
  1055. killed.' 
  1056.  kill smtpd
  1057.  call SysSleep(2)   /* just give it a little time to shut down... */
  1058.  
  1059.  /* Check for time of day - if outside business hours don't do anything */
  1060.  /* Check for day of week - if Saturday or Sunday don't do anything */
  1061. /*  IF (time('H') < '05:00:00') | (time('H') > '22:00:00') | (date('Base')//7
  1062. > 4) then do
  1063.     say "Outside working hours. Sleeping..."
  1064.     call SysSleep(SleepTime)
  1065.     iterate
  1066.     end
  1067.   else
  1068. */
  1069.  /* First we have to change to the Dialer directory */
  1070.  newdir = directory(DialerDir)
  1071.  
  1072.  /* Start the dialer */
  1073.  call SysCls
  1074.  say '--------------------------------------------------------------------'
  1075.  say 'Starting dialer ...                                                 '
  1076.  say '...starting InJoy dialer in another session...                      '
  1077.  say '--------------------------------------------------------------------'
  1078.  call LINEOUT DialupLogFile, date() time() '. Starting the Internet Dialer
  1079. ...' 
  1080.  Start '"Internet Dialer" /C' DialIsp
  1081.  
  1082.  /* return to script directory */
  1083.  newdir = directory(CurDir)
  1084.  
  1085.  /* We 're testing the server */
  1086.  
  1087.  /* We give dialer some time to negotiate and complete connection, then, start 
  1088. testing if TCP/IP is 'UP' */
  1089.  say "...let's sit'n'wait till connection is established before we try
  1090. anything..."
  1091.  say '...testing if a link has been established...'
  1092.  
  1093.  DO ii=1 to 24  /* test for connection up to 24*5 = 120 seconds */
  1094.   rc = SockGetHostByName(RemoteServer, "host.!")
  1095.   if (rc = 1) then do
  1096.    say '..we can resolve hostnames, connection is up...'
  1097.    call LINEOUT DialupLogFile, date() time() '   We can resolve hostnames,
  1098. connection is up...'
  1099.    call directory InetMailDir
  1100.    call LINEOUT DialupLogFile, date() time() '   InetMail, Pop3d and Smtpd are 
  1101. started...'
  1102.    '@start ' FireUpIM             /* We have to restart InetMail */
  1103.    call SysSleep(1)
  1104.    call directory CurDir
  1105.    leave
  1106.   end
  1107.   say '...no connection yet, wait, then test again...'
  1108.   call LINEOUT DialupLogFile, date() time() '   warning ! no connection yet,
  1109. wait, then test again...' 
  1110.   call SysSleep(5)
  1111.  end                      /* do */
  1112.  
  1113.  /* Check for a live connection */
  1114.  
  1115.  say '--------------------------------------------------------------------'
  1116.  say 'Check for a live connection, starting mail processing ...        '
  1117.  say '--------------------------------------------------------------------'
  1118.  
  1119.  call LINEOUT DialupLogFile, date() time() '. Starting of the PingServer
  1120. procedure ...' 
  1121.  rc = PingServer()
  1122.  
  1123.  /* a rc of 0 means we can connect, so start some stuff */
  1124.  if (rc == 0) then do
  1125.  
  1126.   /* We need to delete the queue file, otherwise smtpd will*/
  1127.   /* never wake up and check the queue for mail to be sent */                  
  1128.                                   
  1129.   say 'Deleting the outgoing mail queue flag file...'
  1130.   call LINEOUT DialupLogFile, date() time() '   deleting the outgoing Mail
  1131. Queue Flag.' 
  1132.   rc = SysFileDelete(ImQueueFile);
  1133.  
  1134.   /* Start the etrn program to pick up the new mail waiting */
  1135.   say 'Starting etrn program ...'
  1136.   call LINEOUT DialupLogFile, date() time() '. sending the ETRN signals ...' 
  1137.   do i = 1 to words(MailDomains)
  1138.    TmpDomain = word(MailDomains, i)
  1139.    etrn RemoteServer TmpDomain
  1140.   end
  1141.  
  1142.   /* We need to wait for at least the time between queue checks */
  1143.   /* for the outgoing mail process to start delivering mail and */
  1144.   /* delete the ready file before we check for its existence.   */
  1145.   call LINEOUT DialupLogFile, date() time() '   sleeping for 30 seconds ...' 
  1146.   Call SysSleep(30)
  1147.  
  1148.   /* Now wait for Inet.Mail to tell us it is done sending the */
  1149.   /* queued mail by checking for the existence of the ready file*/
  1150.   say 'Waiting for queue delivery to complete ...'
  1151.   call LINEOUT DialupLogFile, date() time() '   waiting for queue delivery to
  1152. complete ...' 
  1153.   Waiting = TRUE
  1154.   do while (Waiting == TRUE)
  1155.    rc = SysFileTree(ImReadyFile, "s.", 'F')
  1156.    if (s.0 == 1) then Waiting = FALSE
  1157.   end
  1158.   say 'Queue delivery complete.'
  1159.   call LINEOUT DialupLogFile, date() time() '   queue delivery complete ...' 
  1160.  
  1161.   /* Now we check that incoming mail delivery has completed.*/
  1162.   /* by checking for the presence of *.spl in the spool directory.*/
  1163.   /* Now we check that incoming mail delivery has completed.*/
  1164.   /* by checking for the presence of *.spl in the spool directory.*/
  1165.   Incoming = TRUE
  1166.   call LINEOUT DialupLogFile, date() time() '   waiting for Incoming mail
  1167. delivery to complete ...' 
  1168.   do while (Incoming == TRUE)
  1169.    rc = SysFileTree(SpoolDir'\*.spl', files., 'FO')
  1170.    if (files.0 == 0) then Incoming = FALSE
  1171.    call LINEOUT DialupLogFile, date() time() '   now waiting for 30 seconds
  1172. ...' 
  1173.    call SysSleep(30) /* We wait a little bit for the server to send the mail
  1174. */
  1175.   end
  1176.   say 'Incoming mail delivery complete.'
  1177.   call LINEOUT DialupLogFile, date() time() '   incoming mail delivery
  1178. complete ...' 
  1179.  
  1180.   /* Recreate the queue file to put the queue check process */
  1181.   /* back to sleep.                                         */
  1182.   call LINEOUT DialupLogFile, date() time() '   recreating the noqueue flag
  1183. file.' 
  1184.   rc = stream(ImQueueFile, 'c', 'open')
  1185.   rc = lineout(ImQueueFile, 'noqueue')
  1186.   rc = stream(ImQueueFile, 'c', 'close')
  1187.   end
  1188.  
  1189.  else do
  1190.  call LINEOUT DialupLogFile, date() time() '. Warning : Unable to connect to
  1191. remote Sever. Skipping connection.' 
  1192.  say 'Unable to connect to remote server. Skipping connection.'
  1193.  call LINEOUT DialupLogFile, date() time() '   and we go to sleep for a while
  1194. - 10 seconds.' 
  1195.  call SysSleep(10)
  1196.  end
  1197.  
  1198.  /* Now kill the dialer. Crude but necessary. */
  1199.  say 'Hanging up the dialer...'
  1200.  call LINEOUT DialupLogFile, date() time() '. Hanging up ...' 
  1201.  /* get current directory */
  1202.  curdir = directory()
  1203.  
  1204.  /* go stop injoy */
  1205.  newdir = directory(DialerDir)
  1206.  call LINEOUT DialupLogFile, date() time() '   we kill the Dialer, Crude but
  1207. necessary ...' 
  1208.  KillDialer
  1209.  call SysSleep(2)
  1210.  call LINEOUT DialupLogFile, date() time() '   InetMail is killed.' 
  1211.  kill InetMail
  1212.  call SysSleep(2)
  1213.  call LINEOUT DialupLogFile, date() time() '   Pop3d process is killed.' 
  1214.  kill pop3d
  1215.  call SysSleep(2)
  1216.  call LINEOUT DialupLogFile, date() time() '   Smtpd process is killed.' 
  1217.  kill smtpd
  1218.  
  1219.   /* return to script directory */
  1220.   newdir = directory(CurDir)
  1221.   call LINEOUT DialupLogFile, date() time() '. Sleeping for' SleepTime
  1222. 'seconds...'
  1223.   call LINEOUT DialupLogFile, date() time() 'End of the script'
  1224.   call LINEOUT DialupLogFile
  1225.  
  1226.   /* And we will take some rest before working again */
  1227.   say '--------------------------------------------------------------------'
  1228.   say 'Sleeping for' SleepTime 'seconds at' time() 'on' date() '...'
  1229.   say '--------------------------------------------------------------------'
  1230.   call SysSleep(SleepTime)
  1231.  
  1232.   /* Now it's time to create the semafore file your mailer is waiting */
  1233.   rc = stream(SemaMailer, 'c', 'open')
  1234.   rc = lineout(SemaMailer, 'inetmail semafore file')
  1235. ---
  1236.  * Origin: Island's BBS, a Node in the Atlantic Ocean (2:326/2)
  1237.  
  1238. +----------------------------------------------------------------------------+
  1239.  
  1240. From: Francois Massonneau                               11-Oct-99 08:42:04
  1241.   To: All                                               12-Oct-99 06:42:23
  1242. Subj: 2 (1/2) The Dialup (dve.cmd) script
  1243.  
  1244.   rc = stream(SemaMailer, 'c', 'close')
  1245.  
  1246.   end         /* This is the End of the Do for the Endless Loop */
  1247.  
  1248. /* exit */
  1249.  
  1250. /* ------------------------------------------------------ */
  1251.  
  1252. /* ---------------------------------------------- */
  1253. /* This function makes a connection to the remote mail server to */
  1254. /* check that the dialup connection has been made successfully. */
  1255.  
  1256. PingServer: procedure expose server. domain RemoteServer CRLF
  1257. say 'PingServer'
  1258.  
  1259. iTimes = 0
  1260. iRc = 1
  1261.  
  1262. rc = SockGetHostByName(RemoteServer, "host.!")
  1263. if (rc = 0) then do
  1264.  say 'Unable to resolve hostname'
  1265.  call LINEOUT DialupLogFile, date() time() 'Unable to resolve hostname ...' 
  1266.  return iRc
  1267.  end
  1268.  
  1269. /* save the ip address */
  1270. server.!addr = host.!addr
  1271.  
  1272. do while (iTimes < 30)
  1273.   say 'save the IP address ...'
  1274.   if (iTimes > 0) then do
  1275.     call SysSleep(10)                   /* go to sleep for a while - 10
  1276. seconds */
  1277.     end
  1278.  
  1279.   /* create a new socket */
  1280.   say 'Creating socket ...'
  1281.   sock = SockSocket('AF_INET', 'SOCK_STREAM', 0)
  1282.   if (sock < 0) then do
  1283.     iTimes = iTimes + 1
  1284.     iterate
  1285.     end
  1286.  
  1287.   /* connect to the remote server */
  1288.   say 'Connecting to server ...'
  1289.   call SysSleep(15)                     /* go to sleep for a while - 15
  1290. seconds */
  1291.   rc = SockConnect(sock, "server.!")
  1292.   if (rc < 0) then do
  1293.     say 'Error on SockConnect =' errno
  1294.     rc = SockClose(sock)
  1295.     iTimes = iTimes + 1
  1296.     iterate
  1297.     end
  1298.  
  1299.   /* get the greeting */
  1300.   say 'Getting the greeting ...'
  1301.   rc = SockRecv(sock, greeting, 1024)
  1302.   if (rc < 0) then do
  1303.     rc = SockClose(sock)
  1304.     iTimes = iTimes + 1
  1305.     iterate
  1306.     end
  1307.   say 'Server greeting: ' greeting
  1308.  
  1309.   /* Send a nice reply */
  1310.   rc = SockSend(sock, 'ehlo'CRLF)
  1311.   if (rc < 0) then do
  1312.     rc = SockClose(sock)
  1313.     iTimes = iTimes + 1
  1314.     iterate
  1315.     end
  1316.  
  1317.   /* get the response */
  1318.   rc = SockRecv(sock, greeting, 1024)
  1319.   if (rc < 0) then do
  1320.     rc = SockClose(sock)
  1321.     iTimes = iTimes + 1
  1322.     iterate
  1323.     end
  1324.   say 'Server helo response: ' greeting
  1325.  
  1326.   /* And a closing response */
  1327.   rc = SockSend(sock, 'quit'CRLF)
  1328.   if (rc < 0) then do
  1329.     rc = SockClose(sock)
  1330.     iTimes = iTimes + 1
  1331.     iterate
  1332.     end
  1333.  
  1334.   /* Must have completed ok */
  1335.   iRc = 0
  1336.   leave
  1337.   end
  1338.  
  1339. return iRc
  1340. /* end of function */
  1341.  
  1342. /* ------------------------------------------------------ */
  1343.  
  1344. >==============================================================================
  1345. =========
  1346.  
  1347. And now the first questions :
  1348.  
  1349. 1°) At the beginning of the script you find those lines :
  1350.  KillDialer
  1351.  call SysSleep(2)
  1352.  kill inetmail
  1353.  call SysSleep(2)
  1354.  kill pop3d
  1355.  call SysSleep(2)
  1356.  kill smtpd
  1357. (I've removed the lineout lines).
  1358.  
  1359. As you can see, I kill, using "go.exe", four applis (the dialer,
  1360. Inetmail, pop3d and smtpd).
  1361. I would like first to kill them, ONLY if they run.
  1362. Actually the script tries to kill them each time it is run, and the output
  1363. gives some error warnings (the script works but I do not like those
  1364. warning) . This is what I get :
  1365. --------------------------------------------------------------------
  1366. ...we will try to shutdown dialer and mail server before we start...
  1367. --------------------------------------------------------------------
  1368. [E:\tmp]e:\injoy\killjoy.exe
  1369. [E:\tmp]go.exe -k INETMAIL
  1370. GO! v1.5 - (c) 1993-95 by Carsten Wimmer <cawim@train.oche.de>
  1371. Querying pid for process <INETMAIL.EXE> ... Error ...
  1372. [E:\tmp]go.exe -k POP3D
  1373. GO! v1.5 - (c) 1993-95 by Carsten Wimmer <cawim@train.oche.de>
  1374. Querying pid for process <POP3D.EXE> ... Error ...
  1375. [E:\tmp]go.exe -k SMTPD
  1376. GO! v1.5 - (c) 1993-95 by Carsten Wimmer <cawim@train.oche.de>
  1377. Querying pid for process <SMTPD.EXE> ... Error ...
  1378.  
  1379. How can I modify the script to launch that kill function only if the
  1380. appli to kill is running ?
  1381. (I have added to the script the variable "CheckIfRunning" but I didn't add the 
  1382. lines for it into the code itself).
  1383.  
  1384. 2°) What are the lines to add to the script to have it to calculate the time
  1385. online. The script gives me the time it is for each process it is executing,
  1386. but I would like it to calculate the exact time I'm connected to my provider,
  1387. and with the cost of each minute connected, I would be able to know exactly
  1388. how much it costs me. (I'm charged about 0.25 $ per mn).
  1389. Would it be possible to have something like that (see below) in the log file :
  1390. 11 Oct 1999 03:11:55 . Sleeping for 13500 seconds...
  1391. 11 Oct 1999 03:11:55 End of the script
  1392. 11 Oct 1999 03:11:55 Total time connected for this run : 3' 25". Cost : 0.75$
  1393.  
  1394. 3°) I've just taken a look at the log file, and this is what I saw ;-( :
  1395.  
  1396. ----/ DialUp Script v.1.6 rev.0.05 : Jeudi 7 Oct 1999 - 18:34:36 /---
  1397. 7 Oct 1999 18:34:36 Started dialup up process ...
  1398. 7 Oct 1999 18:34:36     dialer, if running, is killed.
  1399. 7 Oct 1999 18:34:37     inetmail, if running, is killed.
  1400. 7 Oct 1999 18:34:38     pop3d process, if running, is killed.
  1401. 7 Oct 1999 18:34:39     smtpd process, if running, is killed.
  1402. 7 Oct 1999 18:34:42 . Starting the Internet Dialer ...
  1403. 7 Oct 1999 18:34:43    We can resolve hostnames, connection is up...
  1404. 7 Oct 1999 18:34:43    InetMail, Pop3d and Smtpd are started...
  1405. 7 Oct 1999 18:34:44 . Starting of the PingServer procedure ...
  1406. 7 Oct 1999 19:33:56 . Warning : Unable to connect to remote Sever.
  1407. Skipping connection.
  1408. 7 Oct 1999 19:33:56    and we go to sleep for a while - 10 seconds.
  1409. 7 Oct 1999 19:34:06 . Hanging up ...
  1410. 7 Oct 1999 19:34:06    we kill the Dialer, Crude but necessary ...
  1411. 7 Oct 1999 19:34:07    InetMail is killed.
  1412. 7 Oct 1999 19:34:10    Pop3d process is killed.
  1413. 7 Oct 1999 19:34:11    Smtpd process is killed.
  1414. 7 Oct 1999 19:34:11 . Sleeping for 10800 seconds...
  1415. 7 Oct 1999 19:34:11 End of the script
  1416.  
  1417. As you can see, 6.34pm : Starting of the PingServer Procedure
  1418. BUTTTTTTTT, 7.33 pm Warning : Unable ;.....
  1419. ONE HOUR LATER ;-(((((((((
  1420. I've to pay for ONE HOUR ;-(
  1421. Is there a way to have the script to check the com port or something
  1422. else, but I would like to have more secure ;-(((
  1423.  
  1424. 4°) This is an example of a problem I have from time to time :
  1425. I started the script, but Injoy hang up after running out of time. ( I setted
  1426. up its timer to 5 minutes.
  1427.  
  1428. In the window the script was running, I've got the following output :
  1429.  
  1430. >------------------------------------
  1431. --------------------------------------------------------------------
  1432. Starting dialer ...
  1433. ...starting InJoy dialer in another session...
  1434. --------------------------------------------------------------------
  1435. [E:\injoy]start "Internet Dialer" /C e:\injoy\in-joy.exe auto
  1436. ...let's sit'n'wait till connection is established before we try
  1437. anything...
  1438. ...testing if a link has been established...
  1439. ..we can resolve hostnames, connection is up...
  1440. --------------------------------------------------------------------
  1441. Check for a live connection, starting mail processing ...
  1442. --------------------------------------------------------------------
  1443. PingServer
  1444. Creating socket ...
  1445. Connecting to server ...
  1446. Error on SockConnect = ETIMEDOUT
  1447. Creating socket ...
  1448. Connecting to server ...
  1449. Getting the greeting ...
  1450. >----------------------------------
  1451.  
  1452. And the things stayed that way forever ;;-(
  1453. The script seems to wait for the greeting, but Injoy was stopped.
  1454. How can I tell the script to kill everything after a while if
  1455. something like that happens ???
  1456.  
  1457. 5°) Another kind of problem :
  1458. Sometimes, in the window the script is running, the script seems to be
  1459. frozen (?) as it displays :
  1460. PingServer
  1461. Creating socket ...
  1462. Connecting to server ...
  1463. Getting the greeting ...
  1464.  
  1465. Injoy is well connected, but I setted up the time to 5 minutes. (I pay
  1466. for every second I stay on line). The time has run out, then Injoy
  1467. has disconnected, but the script was always showing the same line :
  1468. "Getting the greeting....".
  1469. Injoy has restarted, connect to my isp and wait for the timer to run
  1470. out (5 minutes again)., but the script was always waiting for the
  1471. "greeeting", and things stayed that way, injoy has disconnected, then
  1472. restart, etc....
  1473. As I have to run this script in an unattended way, it's impossible to
  1474. have the things to run that way;
  1475. What are the changes to do ?
  1476.  
  1477.  
  1478. I guess, it's enough for a first message. Really, thank you to all of you who
  1479. will be able to help me to make that script strong enuf to run by itself and
  1480. in a secure way for one month.
  1481.  
  1482. Bye, Francois!
  1483.  
  1484.  
  1485. Email: fmas@celtes.com
  1486. Web  : http://www.worldnet.net/~island/
  1487.  
  1488. ---
  1489.  * Origin: Island's BBS, a Node in the Atlantic Ocean (2:326/2)
  1490.  
  1491. +----------------------------------------------------------------------------+
  1492.  
  1493. From: Ron Mitchell                                      11-Oct-99 21:34:29
  1494.   To: Rich Wonneberger                                  12-Oct-99 07:57:12
  1495. Subj: hstart wget?
  1496.  
  1497. Rich Wonneberger wrote in a message to Ron Mitchell:
  1498.  
  1499. RW> Thanks for the lesson.
  1500.  
  1501. Don't thank me.  Thank Charles Daney.  His 'Programming in REXX' book is the
  1502. best investment I've ever made in a programming book.
  1503.  
  1504. RW> Is there any way to get a non case sensitive comparison??
  1505.  
  1506. I don't think so.
  1507.  
  1508. Probably the best way to do it is to copy both operands to temporary variables 
  1509. and then convert these variables to lower or upper case before you compare.
  1510. Daney seems to like converting to lower case.  I don't know why yet.
  1511.  
  1512. You can drop the temporary variables and use the original operands however you 
  1513. wish depending on the outcome of the compare.
  1514.  
  1515. L8r,
  1516.                        Ron
  1517.  
  1518. ... Become a programmer - Make a living crashing your computer.
  1519.  
  1520. ---
  1521.  * Origin: River Canyon Rd. BBS  Chattanooga,TN  423-886-2521 (1:362/627)
  1522.  
  1523. +----------------------------------------------------------------------------+
  1524.  
  1525. From: John Clarke                                       10-Oct-99 18:50:26
  1526.   To: Ron Mitchell                                      12-Oct-99 21:15:10
  1527. Subj: hstart wget?
  1528.  
  1529. On Oct 09, 1999 at 05:24 hrs, Ron Mitchell of 1:362/627 wrote to John Clarke:
  1530.  
  1531. Hello Ron,
  1532.  
  1533.  RM> John Clarke wrote in a message to Jonathan de Boyne Pollard:
  1534.  
  1535. JdBP>> If it helps, the TEE in OS2CLU02.ZIP doesn't require any non-system 
  1536. JdBP>> DLLs other than the one that is supplied along with it in the very 
  1537. JdBP>> same archive.
  1538.  
  1539. JC>> I would appreciate it if you would email a copy of this file to me
  1540. JC>> at the email address below or point me towards a place where I can
  1541. JC>> grab it from the 'net. 
  1542.  
  1543.  RM> You can pick it up at http://www.riverbbs.net in the files section.  
  1544.  RM> Also at telnet://riverbbs.net.
  1545.  
  1546. Thanks.  I picked up a copy from Hobbes.
  1547.  
  1548. Regards ... John
  1549.  
  1550. Email: jclarke@zip.com.au
  1551.  
  1552. --- MsgedSQ/2 3.30
  1553.  * Origin: The Clearing House (3:713/730)
  1554. 45
  1555.  
  1556. +----------------------------------------------------------------------------+
  1557.  
  1558. From: Rich Wonneberger                                  12-Oct-99 20:24:00
  1559.   To: Ron Mitchell                                      13-Oct-99 06:57:09
  1560. Subj: hstart wget?
  1561.  
  1562. *** Quoting Ron Mitchell to Rich Wonneberger dated 10-11-99 ***
  1563. > RW> Is there any way to get a non case sensitive comparison??
  1564. > 
  1565. > I don't think so.
  1566. > 
  1567. > Probably the best way to do it is to copy both operands to temporary 
  1568. > variables and then convert these variables to lower or upper case 
  1569. > before you compare. Daney seems to like converting to lower case.  I 
  1570.  
  1571. Ron,
  1572.  
  1573. Sounds like this can be done in REXX easier then batch.
  1574. Gota look in the help files.
  1575.  
  1576. Thanks
  1577. Rich
  1578. I-Net   turtil@frontiernet.net
  1579.  
  1580.  
  1581. ... ▓▓▓▓▓▓▓▓▓ <- Scratch Here For Your Instant Tagline Prize!
  1582. ---
  1583.  * Origin: Turtil's Pond BBS. Monroe NY. 914-783-2106 (1:2625/50)
  1584.  
  1585. +----------------------------------------------------------------------------+
  1586.  
  1587. From: MIKE RUSKAI                                       12-Oct-99 09:50:00
  1588.   To: RON MITCHELL                                      13-Oct-99 11:13:15
  1589. Subj: hstart wget?
  1590.  
  1591. Some senseless babbling from Ron Mitchell to Rich Wonneberger
  1592. on 10-11-99  21:34 about hstart wget?...
  1593.  
  1594.  RM> Rich Wonneberger wrote in a message to Ron Mitchell:
  1595.  
  1596.  RW> Thanks for the lesson.
  1597.  
  1598.  RM> Don't thank me.  Thank Charles Daney.  His 'Programming in REXX' book
  1599.  RM> is the best investment I've ever made in a programming book.
  1600.  
  1601.  RW> Is there any way to get a non case sensitive comparison??
  1602.  
  1603.  RM> I don't think so.
  1604.  
  1605.  RM> Probably the best way to do it is to copy both operands to temporary
  1606.  RM> variables and then convert these variables to lower or upper case
  1607.  RM> before you compare. Daney seems to like converting to lower case.  I
  1608.  RM> don't know why yet. 
  1609.  RM> You can drop the temporary variables and use the original operands
  1610.  RM> however you wish depending on the outcome of the compare.
  1611.  
  1612. FYI, using a temporary variable isn't necessary.  Simply wrap the variable
  1613. inside a translate() call (or put a ~translate at the end of the message
  1614. chain, in Object REXX), like this:
  1615.  
  1616. string1='something'
  1617. string2='SoMeThInG'
  1618.  
  1619. say translate(string1)==translate(string2)
  1620.  
  1621. Mike Ruskai
  1622. thannymeister@yahoo.com
  1623.  
  1624.  
  1625. ... Does that look like a slut to you, Beavis?
  1626.  
  1627. ___ Blue Wave/QWK v2.20
  1628. --- Platinum Xpress/Win/Wildcat5! v3.0pr2
  1629.  * Origin: FIDO QWK MAIL & MORE!  WWW.DOCSPLACE.ORG (1:3603/140)
  1630. 45
  1631.  
  1632. +----------------------------------------------------------------------------+
  1633.  
  1634. From: David Noon                                        13-Oct-99 18:11:01
  1635.   To: Rich Wonneberger                                  15-Oct-99 06:08:04
  1636. Subj: comparison operators
  1637.  
  1638. In a message dated 10-09-99, Rich Wonneberger said to David Noon about
  1639. "hstart wget?"
  1640.  
  1641. Hi Rich,
  1642.  
  1643. > Note the double equal sign.
  1644.  
  1645. RW>I've seen the double equal sign in DOS batch program.  What 
  1646. RW>does this do thats different then single equal?
  1647.  
  1648. In simplest terms, a single equal sign asks if the values are equal, whereas
  1649. a double equal sign asks if the bytes are exactly the same. Thus,
  1650.  
  1651.     "A" = " A "   is true
  1652.     "A" == " A "  is false
  1653.  
  1654.      2 = 2.0      is true
  1655.      2 == 2.0     is false
  1656.  
  1657.      25 = 2.5E+1  is true
  1658.      25 == 2.5E+1 is false
  1659.  
  1660. All character comparisons are case-sensitive. To make a case-insensitive
  1661. comparison use the TRANSLATE() built-in function. For example,
  1662.  
  1663.    IF TRANSLATE(string_1) = TRANSLATE(string_2) THEN ...
  1664.  
  1665. performs a case-insensitive comparison of the variables string_1 and
  1666. string_2.
  1667.  
  1668. Regards
  1669.  
  1670. Dave
  1671. <Team PL/I>
  1672. ___
  1673.  * MR/2 2.25 #353 * I use Windows...on my car, on my house, but not on my ...
  1674.  
  1675. --- Maximus/2 3.01
  1676.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  1677. 45
  1678.  
  1679. +----------------------------------------------------------------------------+
  1680.  
  1681. From: Murray Lesser                                     15-Oct-99 16:09:00
  1682.   To: David Noon                                        15-Oct-99 16:09:00
  1683. Subj: Rxprep
  1684.  
  1685. Hi David--
  1686.  
  1687.     Do you have any comments, helpful or otherwise, about RXPREP?  This
  1688. is a preprocessor for REXX source code, written (in REXX) by Richard J.
  1689. Moore of IBM UK.  The following paragraph is an excerpt from the
  1690. introduction to RXPREP.DOC, as it appears in the July, 1999, CD-ROM
  1691. issue of DevCon Release 2 Volume 3 (disc M15):
  1692.  
  1693.     "RXPREP is a pre-processor for REXX source.  It permits source to be
  1694.   built from multiple members which are selected by imbedding
  1695.   directives.  Nesting of imbedded members is supported.  Also supported
  1696.   is the use of conditional inclusion of source or members as well as
  1697.   substitution of placeholders specified either within the source or
  1698.   from the command line.  In fact the features of RXPREP mimic those
  1699.   frequently found in C compiler pre-processors and assembler macro
  1700.   languages. The pre-processor is controlled by coding directives within
  1701.   the REXX source which have a syntactical resemblance to those of the
  1702.   SCRIPT language."
  1703.  
  1704.     (For those in the audience who are not familiar with IBM utilities
  1705. other than those furnished with OS/2, "SCRIPT" was a mainframe internal
  1706. IBM markup language for formatting documents written with any
  1707. lime-by-line text editor (often SPF).  There was a vintage-1986
  1708. IBM-distributed shrink-wrapped version, SCRIPT/PC, for PC-DOS.)
  1709.  
  1710.     A cursory reading of RXPREP.DOC leads me to the belief that the
  1711. advantages of a REXX preprocessor (even though it is free!) are not
  1712. great enough for me bothering to learn yet another language just to use
  1713. it, so I do not intend to install RXPREP.  But I may be missing
  1714. something.  Your comments would be appreciated.
  1715.  
  1716.     Regards,
  1717.  
  1718.         --Murray
  1719. <Team PL/I>
  1720. ___
  1721.  * MR/2 2.25 #120 * Which direction is forward?
  1722.  
  1723. --- Maximus/2 2.02
  1724.  * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
  1725.  
  1726.  
  1727. +----------------------------------------------------------------------------+
  1728.  
  1729. +============================================================================+
  1730.