smeserver-zabbix-agent/contribs9/smeserver-zabbix-agent-0.1-better_asterisk_monitoring.patch

diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias
--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias        2011-10-26 18:20:16.000000000 +0200
+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias    2011-10-26 18:29:27.000000000 +0200
@@ -6,14 +6,6 @@
 $runasroot .= "\n";
 $OUT .= 'Cmnd_Alias      ZABBIX_AGENT_ROOT = '.$runasroot;
 
-if ( -x '/usr/sbin/asterisk' ){
-    $OUT.=<<"HERE"
-
-Cmnd_Alias      ZABBIX_AGENT_ASTERISK = /var/lib/zabbix/bin/check_asterisk *
-
-HERE
-}
-
 }
 Cmnd_Alias     ZABBIX_AGENT_MYSQL = /usr/bin/du -s /var/lib/mysql
 
diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent
--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent     2011-10-26 18:20:16.000000000 +0200
+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent 2011-10-26 18:29:41.000000000 +0200
@@ -1,9 +1,2 @@
 zabbix  ALL=(root) NOPASSWD: ZABBIX_AGENT_ROOT
 zabbix  ALL=(mysql) NOPASSWD: ZABBIX_AGENT_MYSQL
-{
-if ( -x '/usr/sbin/asterisk' ){
-    $OUT.=<<"HERE"
-zabbix  ALL=(asterisk) NOPASSWD: ZABBIX_AGENT_ASTERISK
-HERE
-}
-}
diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk
--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk       2011-10-26 18:20:16.000000000 +0200
+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk   2011-10-26 18:30:24.000000000 +0200
@@ -1,15 +1,25 @@
 {
 
 if ( -x '/usr/sbin/asterisk' ){
+    my $login = "";
+    my $user = ${'zabbix-agent'}{'AsteriskManagerLogin'} || '';
+    my $pass = ${'zabbix-agent'}{'AsteriskManagerPassword'} || '';
+    if ($user ne ''){
+        $login .= "--user=$user";
+    }
+    if ($pass ne ''){
+        $login .= " --secret=$pass";
+    }
     $OUT.=<<"HERE"
 # Type: Agent or Agent (active)
-# Key: asterisk[key] where key can be max_latency, sip_peers, iax2_peers, channels, calls, version
-# Type of information: Numeric (integer 64bit) or characters (for version)
+# Key: asterisk[key] where key can be max_latency, sip_peers, channels, internal_calls,
+# outgoing_calls, incoming_calls, external_calls, duration_internal or duration_external
+# Type of information: Numeric (integer 64bit)
 # Units: depends on the key
 # Custom multiplier: Do not use
 # Store Value: As is
  
-UserParameter=asterisk[*],/usr/bin/sudo -u asterisk /var/lib/zabbix/bin/check_asterisk_monitoring \$1
+UserParameter=asterisk[*],/var/lib/zabbix/bin/check_asterisk $login --what=\$1
 
 HERE
 }
diff -Nur smeserver-zabbix-agent-0.1/root/var/lib/zabbix/bin/check_asterisk smeserver-zabbix-agent-0.1_mod/root/var/lib/zabbix/bin/check_asterisk
--- smeserver-zabbix-agent-0.1/root/var/lib/zabbix/bin/check_asterisk   2011-10-26 18:20:16.000000000 +0200
+++ smeserver-zabbix-agent-0.1_mod/root/var/lib/zabbix/bin/check_asterisk       2011-10-26 18:22:45.000000000 +0200
@@ -1,63 +1,210 @@
-#!/bin/bash
+#!/usr/bin/perl -w
 
-# Asterisk check script
-# by Steeve Avoungou Firewall Services
+use Asterisk::AMI::Common;
+use Getopt::Long;
 
-PATH=$PATH:/usr/sbin:/usr/local/sbin
+open STDERR, '>/dev/null';
 
-if [ $# -ne "1" ]; then
-    echo "Usage:"
-    echo "$0 <arg>"
-    echo "Where <arg> can be one of version, sip_peers, iax2_peers, max_latency, channels, calls"
-    exit 1
-fi
-
-
-case "$@" in
-
-   # Show version of asterisk:
-   version)
-      echo $(asterisk -rx 'core show version')
-   ;;
-
-   # Count SIP peers
-   sip_peers)
-      echo $(asterisk -rx 'sip show peers'| grep -v 'Name/username' | egrep -v '[[:digit:]] sip peers' | wc -l)
-   ;;
-
-   # Display the higher latency 
-   max_latency)
-      max_latency=0
-      for i in $(asterisk -rx 'sip show peers' | awk '{print $8}' | grep -o '[0-9][0-9]*'); do
-       if [ "$i" -gt "$max_latency" ]; then
-        max_latency=$i
-       fi
-      done
-      for i in $(asterisk -rx 'iax2 show peers' | awk '{print $8}' | grep -o '[0-9][0-9]*'); do
-       if [ "$i" -gt "$max_latency" ]; then
-        max_latency=$i
-       fi
-      done
-      echo $max_latency
-   ;;
-
-   # Count IAX2 peers
-   iax2_peers)
-      echo $(asterisk -rx 'iax2 show peers' | grep -v 'Name/Username' | egrep -v '[[:digit:]] iax2 peers' | wc -l)
-   ;;
-
-   # Count number of active channels
-   channels)
-      echo $(asterisk -rx "core show channels" | grep 'active channel' | awk '{print $1}')
-   ;;
-
-   # Count number of active calls
-   calls)
-      echo $(asterisk -rx "core show channels" | grep  'active call' | awk '{print $1}')
-   ;;
-
-   *)
-      echo 'ZBX_NOTSUPPORTED'
-   ;;
-esac
+# Set some default
+my $host = '127.0.0.1';
+my $port = '5038';
+my $user = 'zabbixagent';
+my $secret = 'zabbixsecret';
+my $what = 'sip_peers';
+
+GetOptions(
+    "host=s"         => \$host,
+    "port=s"         => \$port,
+    "user=s"         => \$user,
+    "secret=s"       => \$secret,
+    "what=s"         => \$what
+);
+
+our $ast = Asterisk::AMI::Common->new(
+              PeerAddr => $host,
+              PeerPort => $port,
+              Username => $user,
+              Secret  =>  $secret
+          );
+
+die "Unable to connect to asterisk manager" unless ($ast);
+
+
+sub help{
+    print<<"EOF";
+
+usage: $0 --host=asterisk.domain.tld --port=5038 --user=manager --secret=azerty --what=sip_peers
+
+--what can take the following argument:
+
+  * sip_peers: number of connected sip peers
+  * max_latency: highest latency of connected sip_peers
+  * channels: total number of active channels
+  * internal_calls: number of active internal calls
+  * outgoing_calls: number of active outgoing calls (external)
+  * incoming_calls: number of active incoming calls (external)
+  * external_calls: number of external calls (in + out)
+  * duration_internal: actual highest duration of internal calls
+  * duration_external: actual highest duration of external calls
+
+EOF
+
+
+if ($what eq 'sip_peers'){
+    print get_connected_peers_num('sip');
+}
+elsif ($what eq 'max_latency'){
+    print get_max_peer_latency();
+}
+elsif($what eq 'channels'){
+    print get_active_channels_num();
+}
+elsif ($what eq 'internal_calls'){
+    print get_internal_call_num();
+}
+elsif ($what eq 'outgoing_calls'){
+    print get_outgoing_call_num();
+}
+elsif ($what eq 'incoming_calls'){
+    print get_incoming_call_num();
+}
+elsif ($what eq 'external_calls'){
+    print get_outgoing_call_num() + get_incoming_call_num();
+}
+elsif ($what eq 'duration_internal'){
+    print get_max_duration_internal();
+}
+elsif ($what eq 'duration_external'){
+    print get_max_duration_external();
+}
+else{
+    help();
+    $ast->disconnect();
+    exit (1);
+}
+
+$ast->disconnect();
+exit(0);
+
+# Return the number of connected peers for
+# the specified protocol (only SIP supporteed for now)
+sub get_connected_peers_num{
+    my $proto = shift;
+    my $peers;
+    if ($proto eq 'sip'){
+        $peers = get_sip_peers();
+    }
+    else{
+        return 'unsupported protocol';
+    }
+    my $num = 0;
+    foreach my $peer (keys %{$peers}){
+        my $status = $peers->{$peer}->{'Status'};
+        $num++ if ($status =~ m/^OK/);
+    }
+    return $num;
+}
+
+# Return the list of SIP peers (as a hashref)
+sub get_sip_peers{
+    return $ast->sip_peers();
+}
+
+# Return the highest latency of all the peers
+sub get_max_peer_latency{
+    my $peers = get_sip_peers();
+    my $latency = 0;
+    foreach my $peer (keys %{$peers}){
+        my $status = $peers->{$peer}->{'Status'};
+        $status =~ /\((\d+)\sms\)/;
+        $latency = $1 if ($1 > $latency);
+    }
+    return $latency;
+}
+
+# Return channels list as a hashref
+sub get_channels(){
+    return $ast->channels();
+}
+
+# Return the number of channels 
+sub get_active_channels_num{
+    my $channels = get_channels();
+    my $num = 0;
+    foreach my $chan (keys %{$channels}){
+        $num++;
+    }
+    return $num;
+}
+
+# Return the number of active channels
+sub get_up_channels_num{
+    my $channels = get_channels();
+    my $num = 0;
+    foreach my $chan (keys %{$channels}){
+        my $status = $channels->{$chan}->{'State'};
+        $num++ if ($status eq 'Up');
+    }
+    return $num;
+}
+
+# Return the number of outgoing calls
+sub get_outgoing_call_num{
+    my $channels = get_channels();
+    my $num = 0;
+    foreach my $chan (keys %{$channels}){
+        my $context = $channels->{$chan}->{'Context'};
+        my $status = $channels->{$chan}->{'State'};
+        $num++ if ($context eq 'macro-dialout-trunk' and $status eq 'Up');
+    }
+    return $num;
+}
+
+# Return the number of incoming calls
+sub get_incoming_call_num{
+    my $channels = get_channels();
+    my $num = 0;
+    foreach my $chan (keys %{$channels}){
+        my $context = $channels->{$chan}->{'Context'};
+        my $status = $channels->{$chan}->{'State'};
+        $num++ if ($context =~ /^from\-(trunk|pstn|zaptel|dahdi)/ and $status eq 'Up');
+    }
+    return $num;
+}
+
+# Return the number of internal calls
+sub get_internal_call_num{
+    my $channels = get_channels();
+    my $num = 0;
+    foreach my $chan (keys %{$channels}){
+        my $context = $channels->{$chan}->{'Context'};
+        my $status = $channels->{$chan}->{'State'};
+        $num++ if (($context eq 'macro-dial' or $context eq 'from-internal') and $status eq 'Up');
+    }
+    return $num
+}
+
+# Return the max duration of current internal calls
+sub get_max_duration_internal{
+    my $channels = get_channels();
+    my $max = 0;
+    foreach my $chan (keys %{$channels}){
+        my $dur = $channels->{$chan}->{'Seconds'};
+        my $context = $channels->{$chan}->{'Context'};
+        $max = $dur if (($context eq 'macro-dial' or $context eq 'from-internal') and $dur > $max);
+    }
+    return $max
+}
+
+# Return the max duration of current external calls (in or out)
+sub get_max_duration_external{
+    my $channels = get_channels();
+    my $max = 0;
+    foreach my $chan (keys %{$channels}){
+        my $dur = $channels->{$chan}->{'Seconds'};
+        my $context = $channels->{$chan}->{'Context'};
+        $max = $dur if (($context eq 'macro-dialout-trunk' or $context =~ /^from\-(trunk|pstn|zaptel|dahdi)/) and $dur > $max);
+    }
+    return $max
+}
 
1	stephdl	1.1	diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias
2			--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias 2011-10-26 18:20:16.000000000 +0200
3			+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/00zabbixAgentAlias 2011-10-26 18:29:27.000000000 +0200
4			@@ -6,14 +6,6 @@
5			$runasroot .= "\n";
6			$OUT .= 'Cmnd_Alias ZABBIX_AGENT_ROOT = '.$runasroot;
7
8			-if ( -x '/usr/sbin/asterisk' ){
9			- $OUT.=<<"HERE"
10			-
11			-Cmnd_Alias ZABBIX_AGENT_ASTERISK = /var/lib/zabbix/bin/check_asterisk *
12			-
13			-HERE
14			-}
15			-
16			}
17			Cmnd_Alias ZABBIX_AGENT_MYSQL = /usr/bin/du -s /var/lib/mysql
18
19			diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent
20			--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent 2011-10-26 18:20:16.000000000 +0200
21			+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/sudoers/30zabbixAgent 2011-10-26 18:29:41.000000000 +0200
22			@@ -1,9 +1,2 @@
23			zabbix ALL=(root) NOPASSWD: ZABBIX_AGENT_ROOT
24			zabbix ALL=(mysql) NOPASSWD: ZABBIX_AGENT_MYSQL
25			-{
26			-if ( -x '/usr/sbin/asterisk' ){
27			- $OUT.=<<"HERE"
28			-zabbix ALL=(asterisk) NOPASSWD: ZABBIX_AGENT_ASTERISK
29			-HERE
30			-}
31			-}
32			diff -Nur smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk
33			--- smeserver-zabbix-agent-0.1/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk 2011-10-26 18:20:16.000000000 +0200
34			+++ smeserver-zabbix-agent-0.1_mod/root/etc/e-smith/templates/etc/zabbix/zabbix_agentd.conf/90UserParameters_asterisk 2011-10-26 18:30:24.000000000 +0200
35			@@ -1,15 +1,25 @@
36			{
37
38			if ( -x '/usr/sbin/asterisk' ){
39			+ my $login = "";
40			+ my $user = ${'zabbix-agent'}{'AsteriskManagerLogin'} \|\| '';
41			+ my $pass = ${'zabbix-agent'}{'AsteriskManagerPassword'} \|\| '';
42			+ if ($user ne ''){
43			+ $login .= "--user=$user";
44			+ }
45			+ if ($pass ne ''){
46			+ $login .= " --secret=$pass";
47			+ }
48			$OUT.=<<"HERE"
49			# Type: Agent or Agent (active)
50			-# Key: asterisk[key] where key can be max_latency, sip_peers, iax2_peers, channels, calls, version
51			-# Type of information: Numeric (integer 64bit) or characters (for version)
52			+# Key: asterisk[key] where key can be max_latency, sip_peers, channels, internal_calls,
53			+# outgoing_calls, incoming_calls, external_calls, duration_internal or duration_external
54			+# Type of information: Numeric (integer 64bit)
55			# Units: depends on the key
56			# Custom multiplier: Do not use
57			# Store Value: As is
58
59			-UserParameter=asterisk[*],/usr/bin/sudo -u asterisk /var/lib/zabbix/bin/check_asterisk_monitoring \$1
60			+UserParameter=asterisk[*],/var/lib/zabbix/bin/check_asterisk $login --what=\$1
61
62			HERE
63			}
64			diff -Nur smeserver-zabbix-agent-0.1/root/var/lib/zabbix/bin/check_asterisk smeserver-zabbix-agent-0.1_mod/root/var/lib/zabbix/bin/check_asterisk
65			--- smeserver-zabbix-agent-0.1/root/var/lib/zabbix/bin/check_asterisk 2011-10-26 18:20:16.000000000 +0200
66			+++ smeserver-zabbix-agent-0.1_mod/root/var/lib/zabbix/bin/check_asterisk 2011-10-26 18:22:45.000000000 +0200
67			@@ -1,63 +1,210 @@
68			-#!/bin/bash
69			+#!/usr/bin/perl -w
70
71			-# Asterisk check script
72			-# by Steeve Avoungou Firewall Services
73			+use Asterisk::AMI::Common;
74			+use Getopt::Long;
75
76			-PATH=$PATH:/usr/sbin:/usr/local/sbin
77			+open STDERR, '>/dev/null';
78
79			-if [ $# -ne "1" ]; then
80			- echo "Usage:"
81			- echo "$0 <arg>"
82			- echo "Where <arg> can be one of version, sip_peers, iax2_peers, max_latency, channels, calls"
83			- exit 1
84			-fi
85			-
86			-
87			-case "$@" in
88			-
89			- # Show version of asterisk:
90			- version)
91			- echo $(asterisk -rx 'core show version')
92			- ;;
93			-
94			- # Count SIP peers
95			- sip_peers)
96			- echo $(asterisk -rx 'sip show peers'\| grep -v 'Name/username' \| egrep -v '[[:digit:]] sip peers' \| wc -l)
97			- ;;
98			-
99			- # Display the higher latency
100			- max_latency)
101			- max_latency=0
102			- for i in $(asterisk -rx 'sip show peers' \| awk '{print $8}' \| grep -o '[0-9][0-9]*'); do
103			- if [ "$i" -gt "$max_latency" ]; then
104			- max_latency=$i
105			- fi
106			- done
107			- for i in $(asterisk -rx 'iax2 show peers' \| awk '{print $8}' \| grep -o '[0-9][0-9]*'); do
108			- if [ "$i" -gt "$max_latency" ]; then
109			- max_latency=$i
110			- fi
111			- done
112			- echo $max_latency
113			- ;;
114			-
115			- # Count IAX2 peers
116			- iax2_peers)
117			- echo $(asterisk -rx 'iax2 show peers' \| grep -v 'Name/Username' \| egrep -v '[[:digit:]] iax2 peers' \| wc -l)
118			- ;;
119			-
120			- # Count number of active channels
121			- channels)
122			- echo $(asterisk -rx "core show channels" \| grep 'active channel' \| awk '{print $1}')
123			- ;;
124			-
125			- # Count number of active calls
126			- calls)
127			- echo $(asterisk -rx "core show channels" \| grep 'active call' \| awk '{print $1}')
128			- ;;
129			-
130			- *)
131			- echo 'ZBX_NOTSUPPORTED'
132			- ;;
133			-esac
134			+# Set some default
135			+my $host = '127.0.0.1';
136			+my $port = '5038';
137			+my $user = 'zabbixagent';
138			+my $secret = 'zabbixsecret';
139			+my $what = 'sip_peers';
140			+
141			+GetOptions(
142			+ "host=s" => \$host,
143			+ "port=s" => \$port,
144			+ "user=s" => \$user,
145			+ "secret=s" => \$secret,
146			+ "what=s" => \$what
147			+);
148			+
149			+our $ast = Asterisk::AMI::Common->new(
150			+ PeerAddr => $host,
151			+ PeerPort => $port,
152			+ Username => $user,
153			+ Secret => $secret
154			+ );
155			+
156			+die "Unable to connect to asterisk manager" unless ($ast);
157			+
158			+
159			+sub help{
160			+ print<<"EOF";
161			+
162			+usage: $0 --host=asterisk.domain.tld --port=5038 --user=manager --secret=azerty --what=sip_peers
163			+
164			+--what can take the following argument:
165			+
166			+ * sip_peers: number of connected sip peers
167			+ * max_latency: highest latency of connected sip_peers
168			+ * channels: total number of active channels
169			+ * internal_calls: number of active internal calls
170			+ * outgoing_calls: number of active outgoing calls (external)
171			+ * incoming_calls: number of active incoming calls (external)
172			+ * external_calls: number of external calls (in + out)
173			+ * duration_internal: actual highest duration of internal calls
174			+ * duration_external: actual highest duration of external calls
175			+
176			+EOF
177			+
178			+
179			+if ($what eq 'sip_peers'){
180			+ print get_connected_peers_num('sip');
181			+}
182			+elsif ($what eq 'max_latency'){
183			+ print get_max_peer_latency();
184			+}
185			+elsif($what eq 'channels'){
186			+ print get_active_channels_num();
187			+}
188			+elsif ($what eq 'internal_calls'){
189			+ print get_internal_call_num();
190			+}
191			+elsif ($what eq 'outgoing_calls'){
192			+ print get_outgoing_call_num();
193			+}
194			+elsif ($what eq 'incoming_calls'){
195			+ print get_incoming_call_num();
196			+}
197			+elsif ($what eq 'external_calls'){
198			+ print get_outgoing_call_num() + get_incoming_call_num();
199			+}
200			+elsif ($what eq 'duration_internal'){
201			+ print get_max_duration_internal();
202			+}
203			+elsif ($what eq 'duration_external'){
204			+ print get_max_duration_external();
205			+}
206			+else{
207			+ help();
208			+ $ast->disconnect();
209			+ exit (1);
210			+}
211			+
212			+$ast->disconnect();
213			+exit(0);
214			+
215			+# Return the number of connected peers for
216			+# the specified protocol (only SIP supporteed for now)
217			+sub get_connected_peers_num{
218			+ my $proto = shift;
219			+ my $peers;
220			+ if ($proto eq 'sip'){
221			+ $peers = get_sip_peers();
222			+ }
223			+ else{
224			+ return 'unsupported protocol';
225			+ }
226			+ my $num = 0;
227			+ foreach my $peer (keys %{$peers}){
228			+ my $status = $peers->{$peer}->{'Status'};
229			+ $num++ if ($status =~ m/^OK/);
230			+ }
231			+ return $num;
232			+}
233			+
234			+# Return the list of SIP peers (as a hashref)
235			+sub get_sip_peers{
236			+ return $ast->sip_peers();
237			+}
238			+
239			+# Return the highest latency of all the peers
240			+sub get_max_peer_latency{
241			+ my $peers = get_sip_peers();
242			+ my $latency = 0;
243			+ foreach my $peer (keys %{$peers}){
244			+ my $status = $peers->{$peer}->{'Status'};
245			+ $status =~ /\((\d+)\sms\)/;
246			+ $latency = $1 if ($1 > $latency);
247			+ }
248			+ return $latency;
249			+}
250			+
251			+# Return channels list as a hashref
252			+sub get_channels(){
253			+ return $ast->channels();
254			+}
255			+
256			+# Return the number of channels
257			+sub get_active_channels_num{
258			+ my $channels = get_channels();
259			+ my $num = 0;
260			+ foreach my $chan (keys %{$channels}){
261			+ $num++;
262			+ }
263			+ return $num;
264			+}
265			+
266			+# Return the number of active channels
267			+sub get_up_channels_num{
268			+ my $channels = get_channels();
269			+ my $num = 0;
270			+ foreach my $chan (keys %{$channels}){
271			+ my $status = $channels->{$chan}->{'State'};
272			+ $num++ if ($status eq 'Up');
273			+ }
274			+ return $num;
275			+}
276			+
277			+# Return the number of outgoing calls
278			+sub get_outgoing_call_num{
279			+ my $channels = get_channels();
280			+ my $num = 0;
281			+ foreach my $chan (keys %{$channels}){
282			+ my $context = $channels->{$chan}->{'Context'};
283			+ my $status = $channels->{$chan}->{'State'};
284			+ $num++ if ($context eq 'macro-dialout-trunk' and $status eq 'Up');
285			+ }
286			+ return $num;
287			+}
288			+
289			+# Return the number of incoming calls
290			+sub get_incoming_call_num{
291			+ my $channels = get_channels();
292			+ my $num = 0;
293			+ foreach my $chan (keys %{$channels}){
294			+ my $context = $channels->{$chan}->{'Context'};
295			+ my $status = $channels->{$chan}->{'State'};
296			+ $num++ if ($context =~ /^from\-(trunk\|pstn\|zaptel\|dahdi)/ and $status eq 'Up');
297			+ }
298			+ return $num;
299			+}
300			+
301			+# Return the number of internal calls
302			+sub get_internal_call_num{
303			+ my $channels = get_channels();
304			+ my $num = 0;
305			+ foreach my $chan (keys %{$channels}){
306			+ my $context = $channels->{$chan}->{'Context'};
307			+ my $status = $channels->{$chan}->{'State'};
308			+ $num++ if (($context eq 'macro-dial' or $context eq 'from-internal') and $status eq 'Up');
309			+ }
310			+ return $num
311			+}
312			+
313			+# Return the max duration of current internal calls
314			+sub get_max_duration_internal{
315			+ my $channels = get_channels();
316			+ my $max = 0;
317			+ foreach my $chan (keys %{$channels}){
318			+ my $dur = $channels->{$chan}->{'Seconds'};
319			+ my $context = $channels->{$chan}->{'Context'};
320			+ $max = $dur if (($context eq 'macro-dial' or $context eq 'from-internal') and $dur > $max);
321			+ }
322			+ return $max
323			+}
324			+
325			+# Return the max duration of current external calls (in or out)
326			+sub get_max_duration_external{
327			+ my $channels = get_channels();
328			+ my $max = 0;
329			+ foreach my $chan (keys %{$channels}){
330			+ my $dur = $channels->{$chan}->{'Seconds'};
331			+ my $context = $channels->{$chan}->{'Context'};
332			+ $max = $dur if (($context eq 'macro-dialout-trunk' or $context =~ /^from\-(trunk\|pstn\|zaptel\|dahdi)/) and $dur > $max);
333			+ }
334			+ return $max
335			+}
336