Jump to content
Gold Sponsor: Data-Way IT-Consulting, Austria

  • LogCallIntoDatabase

    LogCallIntoDatabase

    VBScript

     

    This function logs some details into a database

    Please see the Introduction chapter for some usage instructions.

     

    ' CursorTypeEnum Values
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3
     
    ' LockTypeEnum Values
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4
     
    ' CommandTypeEnum Values
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004
    
    
    '----------------------------------------------------------------
    ' Function LogCallIntoDatabase
    '
    ' Logs details of the current call into a database.
    '
    ' Parameter:
    '
    ' Return:
    '   boolean     true - log created, false - error creating log
    '----------------------------------------------------------------
    Function LogCallIntoDatabase
    
        PBXScript.OutputTrace "-----------> LogCallIntoDatabase"
    
        On Error Resume Next 
    
        Dim bReturn
        bReturn = False
    
        Dim sDsn
        sDsn = _
            "Provider=sqloledb;" & _
            "Data Source=***ServerName***;" & _
            "Initial Catalog=***DatebaseName***;" & _
            "Integrated Security=SSPI"
    
        ' open connection to database
        Dim db
        Set db = CreateObject("ADODB.Connection")
        db.Open sDsn
    
        if Err <> 0 then
            PBXScript.OutputTrace "Error opening database!"
            PBXScript.OutputTrace Err & ": " & Err.Description
        else
            ' open recordset
            Set rs = CreateObject("ADODB.Recordset")
            rs.Open "Logging", db, adOpenDynamic, adLockOptimistic, adCmdTable
    
            if Err <> 0 then
                PBXScript.OutputTrace "Error creating new dataset!"
                PBXScript.OutputTrace Err & ": " & Err.Description
            else
                rs.AddNew
                rs("[Number]")    = PBXCall.CallingPartyNumber
                rs("[Name]")      = PBXCall.CallingPartyName
                rs("[TimeStamp]") = Now
                rs.Update
                if Err <> 0 then
                    PBXScript.OutputTrace "Error writing new dataset to database!"
                    PBXScript.OutputTrace Err & ": " & Err.Description
                end if
                rs.close
            end if
    
            Set rs = Nothing
            
            db.close
        end if
        Set db = Nothing
        
        LogCallIntoDatabase = bReturn
    
        PBXScript.OutputTrace "bReturn = " & bReturn
        PBXScript.OutputTrace "<----------- LogCallIntoDatabase"
    
    End Function

     

    This function makes use of the Server Script API functions PBXCall.CallingPartyNumber and PBXCall.CallingPartyName for the call details and PBXScript.OutputTrace to write trace information into the SwyxServer trace file.

     

    You need to make modifications to this example:

     

    Connection String (sDSN)

    The connection string defines the database and the access privileges you want to use to login into the database.
    The Connection Strings page of Carl Prothman gives examples for any kind of database.
    You should use OLE DB Data Providers, and if possible Windows Security (Trusted Connection) instead of username/password authentication.
    In this case the Windows user the Swyx Server service is running under (by default this is the "SwyxServiceAccount") needs at least read access to your database.

     

     

    Logging Table

     

    This example assumes a table Logging with the fields

    • Number (nvarchar(255))
    • Name (nvarchar(255))
    • TimeStamp (datetime)

     

    If your logging table is somehow different you need to modify the function accordingly.

     

     


      Tom Wellige
       Share


       Share




      User Feedback

      Recommended Comments

      There are no comments to display.



      Guest
      Add a comment...

      ×   Pasted as rich text.   Paste as plain text instead

        Only 75 emoji are allowed.

      ×   Your link has been automatically embedded.   Display as a link instead

      ×   Your previous content has been restored.   Clear editor

      ×   You cannot paste images directly. Upload or insert images from URL.

    ×
    ×
    • Create New...

    Important Information

    By using this site, you agree to our Terms of Use and have taken note of our Privacy Policy.
    We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.