/* $VER: Extra 3.0alpha (15.01.2001)

 Execute STFax IF:
 
                o the Type of the Caller is not "NoNumber" or "FAX"
                
                o Comment field does NOT contain "NO STFAX"
                
                o received RING string is RING 1
                
                
                Written by Jan-Erik Tervo 1998,1999,2001.
                ARexx and CIM r32 or later must be running

*/

OPTIONS RESULTS

ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "Extra Script" "OK"'

ADDRESS CIM

CURRENT_CALLERTYPE

     IF RESULT="NoNumber" THEN EXIT 5

     IF RESULT="FAX" THEN EXIT 5



RECEIVED_RINGSTR

     IF RESULT<>"RING 1" THEN EXIT 5


IN_COMMENT "NO STFAX"

     IF RC=5 THEN DO

                       DEVICE_RESET_NO
                       
                       DEVICE_SEEKOK_NO
               
                       DEVICE_RELEASE
     
               
               ADDRESS COMMAND
               
                       'RUN >NIL: STFAX:STFax'
                       
                       'sys:rexxc/WaitForPort STFAX.1'
                       
                       'SETPRI >NIL: STFAX:STFax 1'
          
          
               ADDRESS STFAX.1
                       
                       AUTOANSWER ON
               
                      
                      /* Lets give some time for STFax to complete */
                      
                      ADDRESS COMMAND
                      
                         'wait 180'
               

                      ADDRESS STFAX.1
                     
                         QUIT
               
               
                      
                      ADDRESS COMMAND
                      
                      DO UNTIL RC>0
                                                                                                
                              'sys:rexxc/WaitForPort STFAX.1'
                              
                              'wait 2'
                      
                      END
              
               
                      ADDRESS CIM
               
                              /*
                              Because we have altered some CIM settings
                              thru ARexx we should load the original settings
                              from disk.
                              */
                       
                              SETTINGS_LOAD
                       
                       
                              
                       
               
                              DO UNTIL RC=0
                              
                                        DEVICE_OPEN
                       
                      
                              END
                              
                              DO UNTIL RC=0
                              
                                        IS_RESET_OK                       
                      
                              END

                              IS_ONLINE
                              IF RC=5 THEN
                                             DEVICE_CLOSE
                                             DEVICE_OPEN
                              END
               
                    
                    
                              IS_ONLINE
                    
                              IF RC=5 THEN 
                              
                                        ADDRESS COMMAND 
                                   
                                             /* 'reboot' */
                                        
                                             'run >NIL: RequestChoice "CIM" "Can't open Device!" "OK"'
                       
                              END   
     END





EXIT