A. J. -



Thanks for the information.  Heres what my phone event looks like

right now.  It will look at who's calling and play one of several messages.

ie; my family gets a specific message and annoying callers get another.

it then pages me with a code depending on what messge was played.  I

think Im going to try my luck and incorporate your email code also.  Just

thought I would share with the group.  If anyone has any suggestion please

email.



Joe Colson



Event: Phone Service Called ?:No

;****************************************************************

; This Event performs various phone-related tasks:

;----------------------------------------------------------------

;Reset Phone Interface Every Hour if Disconnected

If Phone-Interface-C Is Now Disconnected

Then Hour-Timer Set 1

If Phone-Interface-C Is Disconnected

And Hour-Timer Is Now 0

Then Phone-Interface-C Set Reset

;----------------------------------------------------------------

; Send remote phone keystrokes to it's session processor:

Do Remote Phone Sess. Set Remote-Phone-Button

;----------------------------------------------------------------

; Log CID info soon as it comes in:

If CID-C Is Not Now None

Then CID-C Set Log

Then Old Phone-Rings Set 0

;----------------------------------------------------------------

; Display/announce the caller every time the phone rings therafter:

If CID-C Is Not None

And Phone-Rings Is GT Old Phone-Rings

And Phone-Answer NOT USED Is Not Answering

Then CID-C Set Speak->SC

Do Old Phone-Rings Set Phone-Rings

;----------------------------------------------------------------

; 5 seconds after Phone-Rings has reverted to 0, reset CID-C to NONE:

If Phone-Rings Is Now 0

Then CID Timer Set 60

If CID Timer Is Now 0

Then CID-C Set None

;----------------------------------------------------------------

; Answer phone after enough rings:

;

; 1-NOT USED

;

If CID-C Is Unknown

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Not Used Set Log

Then T/F - NOT USED Set True

Then Phone-Answer NOT USED Set Answer

;

; 2-PRIVATE CALLER (PRIVATE.WAV)

;

If CID-C Is 0

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Private Call Set Log

Then T/F - PRIVATE Set True

Then Phone-Answer PRIVATE Set Answer

;

; 3-DEFAULT / OUT OF AREA

;

If CID-C Is 1

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Default/OOA Set Log

Then T/F - DEFAULT/OOA Set True

Then Phone-Answer DEFAULT Set Answer

;

; 4-SHORT MESSAGE

;

If CID-C Is GE 2

And CID-C Is LE 9

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Short Mess Set Log

Then T/F - SHORT Set True

Then Phone-Answer SHORT Set Answer

;

; 5-FAMILY

;

If CID-C Is GE 10

And CID-C Is LE 24

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Family Set Log

Then T/F - FAMILY Set True

Then Phone-Answer FAMILY Set Answer

;

; 6-ANNOYING CALLERS

;

If CID-C Is GE 25

And CID-C Is LE 45

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Annoying Set Log

Then T/F - ANNOYING Set True

Then Phone-Answer ANNOYING Set Answer

;

; 7-JESSICA'S FRIENDS

;

If CID-C Is GE 46

And CID-C Is LE 65

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Jess Friends Set Log

Then T/F - JESS FRNDS Set True

Then Phone-Answer JESS FRNDS Set Answer

;

; 8-JOE'S FREINDS

;

If CID-C Is GE 66

And CID-C Is LE 85

And Phone-Rings Is GE Now Answer Ring Count

Then Text - Joes Friends Set Log

Then T/F - JOES FRNDS Set True

Then Phone-Answer JOES FRNDS Set Answer

;

;****************************************************************

; Handle newly recorded message:

;----------------------------------------------------------------

BEGINIF Phone-Answer NOT USED Is Now Message Recorded

Or Phone-Answer PRIVATE Is Now Message Recorded

Or Phone-Answer DEFAULT Is Now Message Recorded

Or Phone-Answer SHORT Is Now Message Recorded

Or Phone-Answer FAMILY Is Now Message Recorded

Or Phone-Answer ANNOYING Is Now Message Recorded

Or Phone-Answer JESS FRNDS Is Now Message Recorded

Or Phone-Answer JOES FRNDS Is Now Message Recorded

;----------------------------------------------------------------

; Announce that we have a message and setup

; for periodic reminder (handled below):

Do Phone Messages Msg Set Speak->SC

Do Phone Message Timer Set Reminder Frequency

Do New Msgs Reminder Set True

;----------------------------------------------------------------

; If desired, send message to Numeric pager

;

BEGINIF Page on call Is True

;

If T/F - NOT USED Is True

Then Phone-Call - NOT USED Set Call

Then T/F - NOT USED Set False

;

If T/F - PRIVATE Is True

Then Phone-Call - PRIVATE Set Call

Then T/F - PRIVATE Set False

;

If T/F - DEFAULT/OOA Is True

Then Phone-Call - DEFAULT Set Call

Then T/F - DEFAULT/OOA Set False

;

If T/F - SHORT Is True

Then Phone-Call - SHORT Set Call

Then T/F - SHORT Set False

;

If T/F - FAMILY Is True

Then Phone-Call - FAMILY Set Call

Then T/F - FAMILY Set False

;

If T/F - ANNOYING Is True

Then Phone-Call - ANNOYING Set Call

Then T/F - ANNOYING Set False

;

If T/F - JESS FRNDS Is True

Then Phone-Call - JESS FRNDS Set Call

Then T/F - JESS FRNDS Set False

;

If T/F - JOES FRNDS Is True

Then Phone-Call - JOE FRNDS Set Call

Then T/F - JOES FRNDS Set False

;

ENDIF

;

;

; OLD CODE

;

;If Page on call Is True

;And CID-C Is Not None

;And CID-C Is Not 0

;Then Text-A T1<-T1 CID-Name

;Then Text-A Set <Space>

;Then Text-A T1/A<-T1 CID-Number

;Then Phone-Call NOT USED Set Call

;

;----------------------------------------------------------------

; If desired, email recording as a .WAV file attachment:

BEGINIF Email on call Is True

If Phone-Interface-C Is Operational

Then Phone-Interface-C Set Disconnected

Then ISP Usage Count Set 0

; Email the message:

Do LMEMAIL.TMP Set Delete

Do LMEMAIL.TMP Set Reset

Do LMEMAIL.BAT Set Execute/NW

Do ISP Usage Count Add 1

Do Email Status Set A

ENDIF

;----------------------------------------------------------------

ENDIF

;

;****************************************************************

; Check email completion-status (if active)

;----------------------------------------------------------------

BEGINIF Email Status Is A

Do Character-A Set LMEMAIL.TMP

BEGINIF Character-A Is Not None

Do Email Status Set Character-A

Do ISP Usage Count Subtract 1

If Email Status Is D

And Email Ack Is True

Then New-Phone-Messages Set Acknowledge

Else If Email Status Is Not D

Then Email Error Set Log

ENDIF

ENDIF

;

;****************************************************************

; Disconnect if all ISP tasks are complete

;----------------------------------------------------------------

If ISP Usage Count Is Now 0

And Phone-Interface-C Is Not Operational

Then ISP Disconnect Set Execute/NW

;

;****************************************************************

; Monitor for ISP connect/disconnect

;----------------------------------------------------------------

If ISP Is Now Connected

Then ISP conn msg Set Display

Else If ISP Is Now Disconnected

Then ISP disc msg 1 Set Display

Then Pause Set 200

Then Phone-Interface-C Set Reset

Then ISP Usage Count Set 0

Then ISP disc msg 2 Set Display

;

;****************************************************************

; Issue periodic new-message reminder until acknowledged:

;----------------------------------------------------------------

BEGINIF New Msgs Reminder Is True

If Sign Of Life Is True

Or New-Phone-Messages Is Now 0

Then Phone Message Timer Set 0

Then New Msgs Reminder Set False

Then Phone Messages Msg Set Speak->SC

Then Reminder Ack Msg Set Speak->SC

;

Else If Phone Message Timer Is 0

Then Phone Messages Msg Set Speak->SC

Then Phone Message Timer Set Reminder Frequency

ENDIF

End



  -----Original Message-----
  From: A.J. Griglak [mailto:aj@griglak.com]
  Sent: Thursday, December 21, 2000 1:43 PM
  To: ecs-list@netbloc.com
  Subject: RE: [ECS] Item : Phone Call


  Here it is:

  Event:  Phone Service                   Called ?:No
          ;****************************************************************
          ; This Event performs various phone-related tasks:
          ;----------------------------------------------------------------
          ; Send remote phone keystrokes to it's session processor:
          Do      Remote Phone Sess.      Set
Remote-Phone-Button
          ;----------------------------------------------------------------
          ;
          ;
          If      At home:AJ              Is Now          True
          Or      Awake                   Is Now          True
          Then    Answer Ring Count       Set             5
          If      At home:AJ              Is Now          False
          Or      Awake                   Is Now          False
          Then    Answer Ring Count       Set             2
          ;
          If      Remote Phone Sess.      Is Now          Hang-Up
          Then    Phone-Interface-C       Set             Reset
          ;
          If      Minute                  Is Now          16
          And     Phone-Answer            Is Not          Answering
          And     Phone-Answer            Is Not          Session Begun
          And     Phone-Rings             Is              0
          Then    Phone-Interface-C       Set             Reset
          ;
          ; Log CID info soon as it comes in:
          If      CID-C                   Is Not Now      None
          Then    CID-C                   Set             Log
          Then    Old Phone-Rings         Set             0
          ;
          ;----------Get CID Info for logging and cell notify
          Then    Phone:CID Info          Set             Reset
          Then    Phone:CID Info          T1<-Stt         Month
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-Stt       Date
          Then    Phone:CID Info          Set             :
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-Stt       Current Time
          Then    Phone:CID Info          Set             .
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-T1        CID-Name
          Then    Phone:CID Info          Set             .
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-T1        CID-Number
          ;
          ;----------AJ added this section 5/12/00
          ;----------If Sonia is calling
          If      CID-C                   Is              1002
          And     At home:AJ              Is              False
          Then    Phone:Ans-Sonia         Set             Answer/W
          Then    CID-C                   Set             None
          ;
          ;----------If Mike is calling
          If      CID-C                   Is              3001
          And     At home:AJ              Is              False
          Then    Phone:Ans-Mike          Set             Answer/W
          Then    CID-C                   Set             None
          ;
          ;----------------------------------------------------------------
          ; Display/announce the caller every time the phone rings
therafter:
          If      CID-C                   Is Not          None
          And     Phone-Rings             Is GT           Old Phone-Rings
          And     Phone-Answer            Is Not          Answering
          Then    CID-C                   Set             Speak->SC
          Then    msg:is calling          Set             Speak->SC
          Do      Old Phone-Rings         Set             Phone-Rings
          ;
          ;----------------------------------------------------------------
          ;10 seconds after Phone-Rings has reverted to 0, reset CID-C to
NONE:
          If      Phone-Rings             Is Now          0
          Then    CID Timer               Set             10
          If      CID Timer               Is Now          0
          Then    CID-C                   Set             None
          ;----------------------------------------------------------------
          ; Answer phone after enough rings:
          If      Phone-Rings             Is GE           Answer Ring Count
          Then    Phone-Answer            Set             Answer
          ;
          ;Start message length timer
          If      Phone-Answer            Is Now          Answering
          Then    phone-msg:lngth tim     Set             Start
          ;
          ;****************************************************************
          ; Handle newly recorded message:
          ;----------------------------------------------------------------
          BEGINIF Phone-Answer            Is Now          Message Recorded
          Or      Phone:Ans-Sonia         Is Now          Message Recorded
          Or      Phone:Ans-Mike          Is Now          Message Recorded
          ;
          ;----------------------------------------------------------------
          ; Announce that we have a message and setup
          ; for periodic reminder (handled below):
          If      Awake                   Is              True
          And     At home:AJ              Is              True
          Then    Phone Messages Msg      Set             Speak->SC
          Do      Phone Message Timer     Set             Reminder Frequency
          Do      New Msgs Reminder       Set             True
          ;----------Start timer for text pager notify---------------------
          Do      Phone-notify timer      Set             10
          ;----------------------------------------------------------------
          ; If desired, email recording as a .WAV file attachment:
          If      Email on call           Is              True
          Then    LMEMAIL.BAT             Set             Execute/NW
          ;Forward voice messages to cell, if not at home
          If      At home:AJ              Is              False
          Then    Phone-Notify:Cell       Set             Call
          ENDIF
          ;----------------------------------------------------------------
          ; Issue periodic new-message reminder until acknowledged:
          BEGINIF New Msgs Reminder       Is              True
          If      New-Phone-Messages      Is Now          0
          Then    Phone Message Timer     Set             0
          Then    New Msgs Reminder       Set             False
          Then    Phone Message:None      Set             Speak->SC
          Then    Reminder Ack Msg        Set             Speak->SC
          ;
          Else If Phone Message Timer     Is              0
          And     Awake                   Is              True
          And     At home:AJ              Is              True
          Then    Phone Messages Msg      Set             Speak->SC
          Then    Phone Message Timer     Set             Reminder Frequency
          ;
          If      At home:AJ              Is Now          True
          Then    Phone Messages Msg      Set             Speak
          ENDIF
          ;
          If      New-Phone-Messages      Is Now          0
          Then    phone-msg:play timer    Set             phone-msg:length
          ;
          If      phone-msg:play timer    Is Now          0
          And     aud-flag:On/Off         Is              On
          Then    aud-ctrl                Set             Pause
          ;
          ; If desired, send message to pager denoting name/number of
caller:
          BEGINIF Phone-notify timer      Is Now          0
          If      New-Phone-Messages      Is              0
          Or      At home:AJ              Is              True
          Then    Event-Exit              Set             True
          If      Page on call            Is              True
          And     phone-msg:length        Is GT           21
          Then    LM_to_cell.bat          Set             Execute/NW
          ENDIF
          ;
          If      Phone-Answer            Is Now          Message Recorded
          Or      Phone-Answer            Is Now          Aborted
          Or      Phone-Answer            Is Now          Session Begun
          Or      Phone-Answer            Is Now          Fax Detected
          Or      Phone-Answer            Is Now          Dialtone Detected
          Then    phone-msg:lngth tim     Set             Stop
          Then    phone-msg:length        Set             phone-msg:lngth
tim
          Then    phone-msg:length        Subtract        5
          Then    phone-msg:lngth tim     Set             0
          Then    Phone:CID Info          Set             ,
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-Stt       phone-msg:length
          Then    Log:Telephone           Set             Phone:CID Info
          ;
          If      Phone-Answer            Is Now          Caller Hung-Up
          Then    phone-msg:lngth tim     Set             Stop
          Then    phone-msg:lngth tim     Set             0
          Then    Phone:CID Info          Set             ,
          Then    Phone:CID Info          Set             <Space>
          Then    Phone:CID Info          T1/A<-T1        msg:Caller Hung Up
          Then    Log:Telephone           Set             Phone:CID Info
          End

  -----Original Message-----
  From: J Gary Mull [mailto:jgary@mindspring.com]
  Sent: Thursday, December 21, 2000 9:25 AM
  To: ecs-list@netbloc.com
  Subject: RE: [ECS] Item : Phone Call


  AJ  I would like to see your event that does this .......

  .com          Gary at Work

-----Original Message-----
From: A.J. Griglak [mailto:aj@griglak.com]
Sent: Thursday, December 21, 2000 1:43 PM
To: ecs-list@netbloc.com
Subject: RE: [ECS] Item : Phone Call

Here it is:

Event:  Phone Service                   Called ?:No
        ;****************************************************************
        ; This Event performs various phone-related tasks:
        ;----------------------------------------------------------------
        ; Send remote phone keystrokes to it's session processor:
        Do      Remote Phone Sess.      Set             Remote-Phone-Button
        ;----------------------------------------------------------------
        ;
        ;
        If      At home:AJ              Is Now          True
        Or      Awake                   Is Now          True
        Then    Answer Ring Count       Set             5
        If      At home:AJ              Is Now          False
        Or      Awake                   Is Now          False
        Then    Answer Ring Count       Set             2
        ;
        If      Remote Phone Sess.      Is Now          Hang-Up
        Then    Phone-Interface-C       Set             Reset
        ;
        If      Minute                  Is Now          16
        And     Phone-Answer            Is Not          Answering
        And     Phone-Answer            Is Not          Session Begun
        And     Phone-Rings             Is              0
        Then    Phone-Interface-C       Set             Reset
        ;
        ; Log CID info soon as it comes in:
        If      CID-C                   Is Not Now      None
        Then    CID-C                   Set             Log
        Then    Old Phone-Rings         Set             0
        ;
        ;----------Get CID Info for logging and cell notify
        Then    Phone:CID Info          Set             Reset
        Then    Phone:CID Info          T1<-Stt         Month
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-Stt       Date
        Then    Phone:CID Info          Set             :
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-Stt       Current Time
        Then    Phone:CID Info          Set             .
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-T1        CID-Name
        Then    Phone:CID Info          Set             .
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-T1        CID-Number
        ;
        ;----------AJ added this section 5/12/00
        ;----------If Sonia is calling
        If      CID-C                   Is              1002
        And     At home:AJ              Is              False
        Then    Phone:Ans-Sonia         Set             Answer/W
        Then    CID-C                   Set             None
        ;
        ;----------If Mike is calling
        If      CID-C                   Is              3001
        And     At home:AJ              Is              False
        Then    Phone:Ans-Mike          Set             Answer/W
        Then    CID-C                   Set             None
        ;
        ;----------------------------------------------------------------
        ; Display/announce the caller every time the phone rings therafter:
        If      CID-C                   Is Not          None
        And     Phone-Rings             Is GT           Old Phone-Rings
        And     Phone-Answer            Is Not          Answering
        Then    CID-C                   Set             Speak->SC
        Then    msg:is calling          Set             Speak->SC
        Do      Old Phone-Rings         Set             Phone-Rings
        ;
        ;----------------------------------------------------------------
        ;10 seconds after Phone-Rings has reverted to 0, reset CID-C to NONE:
        If      Phone-Rings             Is Now          0
        Then    CID Timer               Set             10
        If      CID Timer               Is Now          0
        Then    CID-C                   Set             None
        ;----------------------------------------------------------------
        ; Answer phone after enough rings:
        If      Phone-Rings             Is GE           Answer Ring Count
        Then    Phone-Answer            Set             Answer
        ;
        ;Start message length timer
        If      Phone-Answer            Is Now          Answering
        Then    phone-msg:lngth tim     Set             Start
        ;
        ;****************************************************************
        ; Handle newly recorded message:
        ;----------------------------------------------------------------
        BEGINIF Phone-Answer            Is Now          Message Recorded
        Or      Phone:Ans-Sonia         Is Now          Message Recorded
        Or      Phone:Ans-Mike          Is Now          Message Recorded
        ;
        ;----------------------------------------------------------------
        ; Announce that we have a message and setup
        ; for periodic reminder (handled below):
        If      Awake                   Is              True
        And     At home:AJ              Is              True
        Then    Phone Messages Msg      Set             Speak->SC
        Do      Phone Message Timer     Set             Reminder Frequency
        Do      New Msgs Reminder       Set             True
        ;----------Start timer for text pager notify---------------------
        Do      Phone-notify timer      Set             10
        ;----------------------------------------------------------------
        ; If desired, email recording as a .WAV file attachment:
        If      Email on call           Is              True
        Then    LMEMAIL.BAT             Set             Execute/NW
        ;Forward voice messages to cell, if not at home
        If      At home:AJ              Is              False
        Then    Phone-Notify:Cell       Set             Call
        ENDIF
        ;----------------------------------------------------------------
        ; Issue periodic new-message reminder until acknowledged:
        BEGINIF New Msgs Reminder       Is              True
        If      New-Phone-Messages      Is Now          0
        Then    Phone Message Timer     Set             0
        Then    New Msgs Reminder       Set             False
        Then    Phone Message:None      Set             Speak->SC
        Then    Reminder Ack Msg        Set             Speak->SC
        ;
        Else If Phone Message Timer     Is              0
        And     Awake                   Is              True
        And     At home:AJ              Is              True
        Then    Phone Messages Msg      Set             Speak->SC
        Then    Phone Message Timer     Set             Reminder Frequency
        ;
        If      At home:AJ              Is Now          True
        Then    Phone Messages Msg      Set             Speak
        ENDIF
        ;
        If      New-Phone-Messages      Is Now          0
        Then    phone-msg:play timer    Set             phone-msg:length
        ;
        If      phone-msg:play timer    Is Now          0
        And     aud-flag:On/Off         Is              On
        Then    aud-ctrl                Set             Pause
        ;
        ; If desired, send message to pager denoting name/number of caller:
        BEGINIF Phone-notify timer      Is Now          0
        If      New-Phone-Messages      Is              0
        Or      At home:AJ              Is              True
        Then    Event-Exit              Set             True
        If      Page on call            Is              True
        And     phone-msg:length        Is GT           21
        Then    LM to cell.bat          Set             Execute/NW
        ENDIF
        ;
        If      Phone-Answer            Is Now          Message Recorded
        Or      Phone-Answer            Is Now          Aborted
        Or      Phone-Answer            Is Now          Session Begun
        Or      Phone-Answer            Is Now          Fax Detected
        Or      Phone-Answer            Is Now          Dialtone Detected
        Then    phone-msg:lngth tim     Set             Stop
        Then    phone-msg:length        Set             phone-msg:lngth tim
        Then    phone-msg:length        Subtract        5
        Then    phone-msg:lngth tim     Set             0
        Then    Phone:CID Info          Set             ,
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-Stt       phone-msg:length
        Then    Log:Telephone           Set             Phone:CID Info
        ;
        If      Phone-Answer            Is Now          Caller Hung-Up
        Then    phone-msg:lngth tim     Set             Stop
        Then    phone-msg:lngth tim     Set             0
        Then    Phone:CID Info          Set             ,
        Then    Phone:CID Info          Set             <Space>
        Then    Phone:CID Info          T1/A<-T1        msg:Caller Hung Up
        Then    Log:Telephone           Set             Phone:CID Info
        End

-----Original Message-----
From: J Gary Mull [mailto:jgary@mindspring.com]
Sent: Thursday, December 21, 2000 9:25 AM
To: ecs-list@netbloc.com
Subject: RE: [ECS] Item : Phone Call


AJ  I would like to see your event that does this .......

.com          Gary at Work