Kevsters Blog

Heres a snip of somthing I wrote as an ‘add on’ the the free, Open Source SourceForge IPCC Wallboard package.

This uses code from the IPCC Wallboard package to access UCCX’s Historical database, and allows for queue information to be displayed on a Cisco IP Phone.

The formattings nasty as the IP Phone does not operate as a standard browser so theres lots of spaces and stuff to get things positioned right.

Ill post some information about how to get it working as a service in CUCM later…

<%On Error Resume Next

//**************************************************************************************//
//   Service:      Phone Wallboard Display                            //
//   AUTHOR:      Kevin Iddles, Yawns.com Limited                        //
//   PURPOSE:     Display UCCX Queue information on IP Phone - Exposed as a service    //
//   VERSION:     1.1                                    //
//**************************************************************************************//

//**************************************************************************************//
//   History:
//        1.1 - Updated to parse query strings from CUCM to allow for spaces
//        1.0 - Updated for use on customer sites including layout
//              0.1 - Based on original version from Cisco Netpro
//**************************************************************************************//

%>
<!--#include file="parameters.asp"-->
<%
Response.AddHeader "Refresh", RefreshTime

//********************************START SQL MODULE**************************************//

//**************************************************************************************//
//   Module:      SQL Database Connector                                                    //
//   AUTHOR:      Jeremy Fielder, Leo Mourits                                                //
//   PURPOSE:     Performs Database Connections and retrieves relavent recordSets.        //
//**************************************************************************************//

If IPCCversion = 3 Then
 WBConnect = "Provider=SQLOLEDB; Data Source = " & DBsource & "; Initial Catalog = " & DBdatabase & "; User Id = " & DBuserID & "; Password = " & DBpass
ElseIf IPCCversion = 4 Then
 WBConnect = "Provider=SQLOLEDB; Data Source = " & DBsource & "\CRSSQL; Initial Catalog = db_cra; Integrated Security=SSPI;"
End If

Set cn = Server.CreateObject("ADODB.Connection")
 cn.open WBConnect

needor = "0"

If Request.QueryString("csqa") = "" Then
 sqlcsqa = ""
Else
 tmpcsqa = Request.QueryString("csqa")
 tmpcsqa = Replace(tmpcsqa, "%20", " ")
 sqlcsqa = " (CSQName Like '%" & tmpcsqa & "%')"
 needor = "1"
End if

If Request.QueryString("csqb") = "" Then
 sqlcsqb = ""
Else
 If needor = "0" Then
 tmpcsqb = Request.QueryString("csqb")
 tmpcsqb = Replace(tmpcsqb, "%20", " ")
 sqlcsqb = " (CSQName Like '%" & tmpcsqb & "%')"
 needor = "1"
 Else
 tmpcsqb = Request.QueryString("csqb")
 tmpcsqb = Replace(tmpcsqb, "%20", " ")
 sqlcsqb = " OR (CSQName Like '%" & tmpcsqb & "%')"
 End if
End if

If Request.QueryString("csqc") = "" Then
 sqlcsqc = ""
Else
 If needor = "0" Then
 tmpcsqc = Request.QueryString("csqc")
 tmpcsqc = Replace(tmpcsqc, "%20", " ")
 sqlcsqc = " (CSQName Like '%" & tmpcsqc & "%')"
 needor = "1"
 Else
 tmpcsqc = Request.QueryString("csqc")
 tmpcsqc = Replace(tmpcsqc, "%20", " ")
 sqlcsqc = " OR (CSQName Like '%" & tmpcsqc & "%')"
 End if
End if

If Request.QueryString("csqd") = "" Then
 sqlcsqd = ""
Else
 If needor = "0" Then
 tmpcsqd = Request.QueryString("csqd")
 tmpcsqd = Replace(tmpcsqd, "%20", " ")
 sqlcsqd = " (CSQName Like '%" & tmpcsqd & "%')"
 needor = "1"
 Else
 tmpcsqd = Request.QueryString("csqd")
 tmpcsqd = Replace(tmpcsqd, "%20", " ")
 sqlcsqd = " OR (CSQName Like '%" & tmpcsqd & "%')"
 End if
End if

If sqlcsqa = "" and sqlcsqb = "" and sqlcsqc = "" and sqlcsqd = "" Then
 sqlcsqa = " callsWaiting > '0'"
End if

sqlGetCSQstats = "SELECT CSQName, availableAgents, callsWaiting, convOldestContact FROM RtCSQsSummary WHERE " & sqlcsqa & sqlcsqb & sqlcsqc & sqlcsqd & " ORDER BY CSQName"

Set rs = server.createobject("adodb.recordset")
Set cm = Server.CreateObject("ADODB.Command")
 cm.ActiveConnection = cn
 cm.commandtext = sqlGetCSQstats
Set rs = cm.execute

Response.Write deptName %>
|   Queue            |AA|CW| L Wait |
-------------------------------------------------
<% While not rs.eof %>|
<%= rs("CSQName") %> | <%= rs("availableAgents") %>  | <%= rs("callsWaiting") %>  |<%= rs("convOldestContact")%><%
 rs.moveNext
 wEnd
 rs.close
%>