/*   +- GMS-Poll 1.2 by Anthony Brice -+   */

/* Netmail Ware - 2:254/255.1 - See seperate docs for usage */

Address SPOT
Options Results

Line=1        /* Gms line number      */
Retries=10    /* How many retries     */
Delay=1       /* Delay before dialing */

Outbound='Mail:Outbound'
Ver='1.2'

Button='N/A'                            /* Name for custom button      */
ButtonPath="BBS:Zscripts/Shovel.rexx"   /* Path of custom button File  */

'requestresponse TITLE "    GMS-Poll 'Ver' by Anthony Brice - 2:254/255.1 - anthony@darkside.demon.co.uk" PROMPT "Choose required action:-" GADGETS "_Boss|_Crash|_Systems|_Address|_Number|_FileReq|'Button'|_Exit" CENTER'
Code=RC
System='NODE'

Select
  When Code=1 then Do
   'poll'
   Exit 0
   End
  When Code=2 then Do
    'requestfile TITLE "Crash Which Packet?" PATTERN "#?.CUT" PATH '||Outbound
    Node=RESULT
    If RC=5 then Exit 0
    End
  When Code=3 then Do
    'requestfile TITLE "Send Which Mail Packet?" PATTERN "#?" PATH '||Outbound
    Node=RESULT
    If RC=5 then Exit 0
    End
  When Code=4 then Do
    'requeststring TITLE "Poll" PROMPT "Enter a Node Number?" CENTER'
    Node=RESULT
    If RC=5 then Exit 0
    End
  When Code=5 then do
    'requeststring TITLE "Poll" PROMPT "Enter a Telephone Number?" CENTER'
    Number=RESULT
    System='NUMBER'
    If RC=5 then Exit 0
    End
  When Code=6 then do
    'requestfile TITLE "Send which Request?" PATTERN "#?.REQ" PATH '||Outbound
    Node=RESULT
    If RC=5 then Exit 0
    End
  When Code=7 then Do
    Address Command ButtonPath
    Exit 0
    End
  Otherwise Exit 0
  End

If System='NODE' then do
  Call Convert
  Address Command 'rx GMS:Rexx/GMS_CallNode.rexx 'line' 'Retries' 'Delay' 'Node
  End

If System='NUMBER' then do
  Address Command 'rx GMS:Rexx/GMS_CallNumber.rexx 'line' 'Retries' 'Delay' 'Number
  End

Exit 0

Convert:
Temp=Translate(Node,' ',':/.')
Parse Var Temp Shit Zone Net Node Point Crap
Node=Zone':'Net'/'Node||'.0'
Return