In a message dated 10-22-99, Francois Massonneau said to David Noon about
"FrontDoor/Mailser and Re"

Hi Francois,

FM>I changed the "if files.0 > 0 then", to "if files.0 == 0 then"

That line was part of the original code, I think.

FM>Is it correct ?

I would use = rather than == to compare the value to zero.

    if files.0 = 0 then

FM>2) As this Rexx script must be run from an errorlevel created by
FM>Frontdoor, then give the hand back to it, I changed the beginning and the
FM>end that way : I added that :
FM>SemaFile = 'inetmail'
FM>SemaMailer = SemaforeDir||'\'SemaFile

I would use a concatenation operator (||) :

   SemaMailer = SemaforeDir||'\'||SemaFile

FM>I removed the "do forever" at the beginning and the "end" at the end of
FM>the script.

This means it will terminate after one poll. Also, the conditional leave
statement (mentioned above for its IF part) will need to be changed to:

     if files.0 = 0 then
         exit 0 /* was leave */

FM>And finally I removed those lines :
FM>  call SysSleep SleepTime
FM>  call stream SemaMailer, 'c', 'open write'
FM>  call lineout SemaMailer, 'inetmail semafore file'
FM>  call stream SemaMailer, 'c', 'close'

So you are no longer using a semphore file.

FM>And put the following instead :
FM> /* Now it's time to create the semafore file your mailer is waiting */
FM>  SendHwaitSignal

This should be:

     address 'cmd' SendHwaitSignal

FM>3) At the end of the script, I saw you write two times (one before and
FM>one after the subroutine "StopDialler"), the following lines :
FM>  /* Reset elapsed time counter */
FM>  CALL TIME 'R'
FM>RETURN
FM>I suppose one is for the subroutine StartDialler, and the second one is
FM>for the subroutine StopDialler. Is it a code to give the time on line ?

It is part of that code.

There should be a TIME('E') call somewhere in the StopDialler subroutine
that should display the elapsed time.

FM>If so, where in the log file do I find it ??

FM>22 Oct 1999 08:32:54  Dialler disconnected after 0 seconds.

Here. For some reason the elapsed timer has been reset again, giving a time
of zero seconds.

FM>So the time on line is not 0 second, but about 8 minutes.

That would be about 480 seconds then. That is what should have been returned
by the TIME('E') call. Since there are 2 calls to StopDialler, the second
one should have the correct elapsed time logged.

FM>4) From time to time Injoy (the dialler), gives me problems as I said

FM>Is there a way to check what's going on with the dialler,
FM>restart the BBS node ?

I am not sure how much information InJoy offers to the outside world. I
don't use that dialler, so I know nothing about it.

FM> Maybe the Rexx script could start another
FM> rexx script to check what's going on ??

Not a good idea. You would then need this REXX program to monitor the other
REXX program. If InJoy can be monitored at all, you can do it from within
the current REXX program. Does InJoy write its output to stdout, allowing it
to be redirected? If so, you can use a REXX queue for InJoy's output and
examine the queue from within the REXX program.

Regards

Dave

___
 * MR/2 2.25 #353 * I'm so broke I'm thinking of starting my own government...

--- Maximus/2 3.01
209/7211
103
724/10