here is the qview.pl,
seems that refreshing the information on the screen will not be easy...
rgds
jl
2006/6/1, Brent Torrenga <[EMAIL PROTECTED]>:
Might want to take a look at http://web.csma.biz/apps/xml_xmldir.php for a
starting point.
Sincerely,
Brent A. Torrenga
Torrenga Engineering, Inc.
907 Ridge Road
Munster, Indiana 46321-1771
tel:+1 219 836 8918 x325
fax:+1 219 836 1138
email: [EMAIL PROTECTED]
web:www.torrenga.com
_______________________________________________
--Bandwidth and Colocation provided by Easynews.com --
Asterisk-Users mailing list
To UNSUBSCRIBE or update options visit:
http://lists.digium.com/mailman/listinfo/asterisk-users
#!/usr/bin/perl # # Asterisk Queue Viewer # Uses management interface to query call queues on a machine # (C) 2003 David C. Troy -- [EMAIL PROTECTED] # # This program is free software, distributed under the terms of the # GNU General Public License #
use IO::Socket;
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
$host = "localhost";
$port = 5038;
$user = "admin";
$secret = "amp111";
$EOL = "\015\012";
$BLANK = $EOL x 2;
$queue = param('queue');
$remote = IO::Socket::INET->new(
Proto => 'tcp', # protocol
PeerAddr=> $host, # Address of server
PeerPort=> $port, # port of server
Reuse => 1
) or die "$!";
$remote->autoflush(1); # Send immediately
# Login and get our booty from Asterisk
$logres = send_cmd("Action: Login${EOL}Username: $user${EOL}Secret:
$secret$BLANK");
$qinfo = send_cmd("Action: queues$BLANK$EOL");
$logres = send_cmd("Action: Logoff$BLANK");
close $remote; # Close socket
my %qcalls = map { /(\S+)\s+has (\d+) calls.*?\n\n/sg; } $qinfo;
my %qmax = map { /(\S+)\s+has \d+ calls \(max (\S+)\).*?\n\n/sg; } $qinfo;
my %qstrat = map { /(\S+)\s+has \d+ calls \(max \S+\) in (\S+)
strategy.*?\n\n/sg; } $qinfo;
my %qholdtime = map { /(\S+)\s+has.*?\((\d+)s holdtime\).*?\n\n/sg; } $qinfo;
my %qmems = map { /(\S+)\s+has \d+
calls.*?Members:.*?\s{6}(.*?)\s{3}\S*?\s*?Callers/sg; } $qinfo;
my %qcallers = map { /(\S+)\s+has \d+ calls.*?([No ]*Callers.*?)\n\n/sg; }
$qinfo;
my %qaband = map { /(\S+)\s+has.*?, C:(\d+).*?\n\n/sg; } $qinfo;
my %qtaken = map { /(\S+)\s+has.*?, C:\d+, A:(\d+).*?\n\n/sg; } $qinfo;
print header();
print start_html(-head=>meta({-http_equiv=>'Refresh', -content=>'1'}),
-title=>"PBX Queue Viewer",
-style=>{'src'=>'/pbxinfo.css'});
print "<table width=850><tr>";
$col = 0;
foreach $q (keys %qcalls) {
$mems = $qmems{$q};
$mems =~ s/ //g;
$mems =~ s/\n/<br>\n/g;
$callers = $qcallers{$q};
$callers =~ s/ //g;
$callers =~ s/Callers:.*\n//g;
$callers =~ s/\n/<br>/g;
print qq{<td valign=top width=48%><table width=100%>
<tr><th colspan=2><A HREF=/mrtg/qmon-$q.html>$q</A> $qcalls{$q}
calls (max $qmax{$q}), $qstrat{$q}
strategy,$qholdtime{$q},$qaband{$q},$qtaken{$q}</th></tr>
<tr><td valign=top width=55%><span class="style1">$mems</span></td><td
valign=top width=45%><span class="style1">$callers</span></td>
</tr>
</table></td>
};
print "</tr><tr>" if $col;
$col = 0 if $col++;
}
print "</table>";
print end_html();
exit(0);
sub read_conn {
my $buf="";
while (<$remote>) {
last if $_ eq $EOL;
s/$EOL/\n/g;
$buf .= $_;
}
return $buf
}
sub send_cmd {
my $cmd = @_[0];
my $buf="";
print $remote $cmd;
$buf = read_conn();
return $buf;
}
_______________________________________________ --Bandwidth and Colocation provided by Easynews.com -- Asterisk-Users mailing list To UNSUBSCRIBE or update options visit: http://lists.digium.com/mailman/listinfo/asterisk-users
