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
%>
Recent Comments