Changeset 5816

Timestamp:

06/19/08 00:11:00 (5 years ago)

Author:

p_lindheimer

Message:

Merged revisions 5779 via svnmerge from
http://svn.freepbx.org/freepbx/trunk

........

r5779 | asternic | 2008-06-17 13:18:37 -0700 (Tue, 17 Jun 2008) | 1 line

#2782: FOP update to make flash player 9.0.124.0 and newer happy

........

Files:

• freepbx/branches/2.4 (modified) (1 prop)
• freepbx/branches/2.4/amp_conf/htdocs_panel/op_server.cfg (modified) (1 diff)
• freepbx/branches/2.4/amp_conf/htdocs_panel/op_server.pl (modified) (212 diffs)
• freepbx/branches/2.4/amp_conf/htdocs_panel/operator_panel.swf (modified) (previous)

freepbx/branches/2.4/amp_conf/htdocs_panel/op_server.cfg

@@ -8 +8 @@
-
-[general]
+use_amportal_conf=1
-; host or ip address of asterisk
-manager_host=127.0.0.1      

freepbx/branches/2.4/amp_conf/htdocs_panel/op_server.pl

@@ -1 @@
- -w
+
-
-#  Flash Operator Panel.    http://www.asternic.org
@@ -22 +22 @@
-
-use strict;
+use warnings;
-use integer;
-
-1
+0
-use constant BYTES_TO_READ => 256;
-
@@ -34 +35 @@
-use POSIX qw(setsid EWOULDBLOCK);
-
-0.27
+SVNVERSION
-my %datos          = ();
+my %chanvar        = ();
+my %monitoring     = ();
+my %passvar        = ();
-my %sesbot         = ();
-my %linkbot        = ();
@@ -143 +147 @@
-my %mailbox;
-my %tovoicemail;
+my %tospy;
-my %instancias;
-my %agent_to_channel;
@@ -167 +172 @@
-my $web_hostname;
-my $listen_port;
+my $park_exten;
+my $parktimeout;
-my $listen_addr;
-my $security_code;
@@ -188 +195 @@
-my $queue_hide;
-my $enable_restart;
+my $passvars = "";
-my $change_led;
-my $cdial_nosecure;
@@ -213 +221 @@
-my %total_legends;
-my %total_images;
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-my $PADDING = join(
@@ -393 +402 @@
-}
-
-($)
-$_[0]
+
+shift
-    my %ampconf;
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-    close(AMPCONF);
@@ -412 +420 @@
-sub read_server_config() {
-    my $context = "";
+    my @distinct_files;
-    $counter_servers = -1;
-
-    $/ = "\n";
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    $web_hostname     = $config->{GENERAL}{web_hostname};
@@ -513 +530 @@
-    $enable_restart   = $config->{GENERAL}{enable_restart};
-    $defaultlanguage  = $config->{GENERAL}{language};
+    $passvars         = $config->{GENERAL}{passvars};
+    $park_exten       = $config->{GENERAL}{parkexten};
+    $parktimeout      = $config->{GENERAL}{parktimeout};
-
-    if ( $debuglevel == -1 ) {
@@ -539 +559 @@
-
-    $clid_format = $config->{GENERAL}{clid_format};
-
+
-    $flash_file = $flash_dir . "/variables.txt";
-    push @all_flash_files, $flash_file;
@@ -588 +608 @@
-    }
-
+    if ( !defined $config->{GENERAL}{monitor_filename} ) {
+        $config->{GENERAL}{monitor_filename} = "\${UNIQUEID}";
+    }
+
+    if ( !defined $config->{GENERAL}{monitor_format} ) {
+        $config->{GENERAL}{monitor_format} = "wav";
+    }
+
-    if ( !defined $clid_privacy ) {
-        $clid_privacy = 0;
@@ -650 +678 @@
-    if ( !defined $clid_format ) {
-        $clid_format = "(xxx) xxx-xxxx";
+    }
+
+    if ( !defined $passvars ) {
+        $passvars = "";
+    }
+
+    if ( !defined $park_exten ) {
+        $park_exten = "700";
+    }
+
+    if ( !defined $parktimeout ) {
+        $parktimeout = 45000;
+    }
+    else {
+        $parktimeout = $parktimeout * 1000;
-    }
-
@@ -674 +717 @@
-
-    if ( $tipo eq "buttons" ) {
-inArray( $filename, @btninclude )
+grep { $filename eq $_ } @btninclude
-            push( @btninclude, $filename );
-        }
@@ -683 +726 @@
-    }
-    if ( $tipo eq "style" ) {
-inArray( $filename, @styleinclude )
+grep { $filename eq $_ } @styleinclude
-            push( @styleinclude, $filename );
+        }
+        else {
+            log_debug( "** $filename already included", 16 ) if DEBUG;
+            return;
+        }
+    }
+    if ( $tipo eq "server" ) {
+        if ( !grep { $filename eq $_ } @serverinclude ) {
+            push( @serverinclude, $filename );
-        }
-        else {
@@ -1153 +1205 @@
-            my $pos = $tmphash{position};
-            $pos =~ s/(\d+),(\d+)/$1/g;
-
+
+
+
+
+
+
+
+
+
+
-            $no_counter = 1;
-        }
@@ -1218 +1279 @@
-                $buttons{ uc("$tmphash{server}^$chan_trunk") } = $pos;
-                $textos{$indice_contexto} = $tmphash{label};
-
+
+
-                    $textos{$indice_contexto} .= " " . $count;
-                }
@@ -1376 +1438 @@
-            $tovoicemail{$indicevm} = $tmphash{voicemailext};
-        }
+        if ( defined( $tmphash{spyext} ) ) {
+            my $indicespy = $lastposition{ $tmphash{panel_context} };
+            if ( $tmphash{panel_context} ne "" ) {
+                $indicespy .= "\@$tmphash{panel_context}";
+            }
+            $tospy{$indicespy} = $tmphash{spyext};
+        }
+
-        $/ = "\0";
-    }
@@ -1536 +1606 @@
-            my $contextoboton = $key;
-            if ( $contextoboton =~ m/\@/ ) {
-
-
+
-                $contextoboton =~ tr/a-z/A-Z/;
-            }
@@ -1555 +1624 @@
-            my $contextoboton = $key;
-            if ( $contextoboton =~ m/\@/ ) {
-
-
+
-                $contextoboton =~ tr/a-z/A-Z/;
-            }
@@ -1574 +1642 @@
-                my $contextoboton = $key;
-                if ( $contextoboton =~ m/\@/ ) {
-
-
+
-                    $contextoboton =~ tr/a-z/A-Z/;
-                }
@@ -1594 +1661 @@
-                my $contextoboton = $key;
-                if ( $contextoboton =~ m/\@/ ) {
-
-
+
-                    $contextoboton =~ tr/a-z/A-Z/;
-                }
@@ -1614 +1680 @@
-                my $contextoboton = $key;
-                if ( $contextoboton =~ m/\@/ ) {
-
-
+
-                    $contextoboton =~ tr/a-z/A-Z/;
-                }
@@ -1782 +1847 @@
-    # a trunk button.
-
-
+
+
-
-    if ( $canalid eq "" ) {
@@ -1831 +1897 @@
-        }
-        log_debug( "$heading contexto $contexto", 32 ) if DEBUG;
-$nada
+undef
-        $sesion = $ses;
-    }
@@ -1853 +1919 @@
-    }
-
-    my $canalconcontextosinserver = $canalconcontexto;
-    $canalconcontextosinserver =~ s/(\d+)\^(.*)/$2/g;
-    if ( $canalconcontexto !~ /\^/ ) {
-        $canalconcontexto = $server . "^" . $canalconcontexto;
@@ -1904 +1968 @@
-        }
-    }
-
-
-
-
-
-
+
+
-    }
-    elsif ( $elemento =~ /^SRX/i ) {
@@ -1915 +1975 @@
-    }
-    elsif ( $elemento =~ /^CAPI\//i ) {
-
-
-
+
+
+
+
-    $elemento =~ s/(.*)[-\/](.*)/$1\t$2/g;
-    log_debug( "$heading elemento2 $elemento", 32 ) if DEBUG;
-    my $canal  = $1;
-    my $sesion = $2;
-    log_debug( "$heading canal $canal sesion $sesion", 32 ) if DEBUG;
-
-    if ( defined($canal) && defined($sesion) ) {
-        $canal =~ tr/a-z/A-Z/;
-        $elemento = $canal . "\t" . $sesion;
+        log_debug( "$heading canal $canal sesion $sesion", 32 ) if DEBUG;
-    }
-    $elemento =~ s/IAX2\[(.*)@(.*)\]\t(.*)/IAX2\[$1\]\t$3/;
-    $elemento =~ s/IAX2\/(.*)@(.*)\t(.*)/IAX2\/$1\t$3/;
-
-
-
+
-}
-
@@ -1957 +2017 @@
-sub erase_instances_for_trunk_buttons {
-
-
-
-
-
+
+
+
-    my $canalglobal;
-    my $valor;
-    my @new     = ();
-    my $heading = "** ERASE_INSTANCE_TRUNK";
-
-
-
+
+
+
+
-    $canalid =~ s/(.*)<(.*)>/$1/g;    #discards ZOMBIE or MASQ
-
@@ -1977 +2036 @@
-    $canalglobal =~ s/IAX2\[(.*)@(.*)\]/IAX2\[$1\]/g;
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-    my $sesiontemp = $canalid;
@@ -1994 +2043 @@
-    log_debug( "$heading looking for $canalid on instancias to erase it", 128 ) if DEBUG;
-
-foreach my $key1 ( sort ( keys(%instancias) )
-foreach my $key2 ( sort ( keys( %{ $instancias{$key1} } ) ) ) {
-    if ( $key2 eq $canalid ) {
-            delete $instancias{$key1}{$key2};
-            log_debug( "$heading Erasing $canalid from instanacias!", 128 ) if DEBUG;
-    }
-}
+if ( $canal =~ m/^DID|^CLID/
+$canal =~ s/(.*)=.*/$1/g;
+$canalid = $server . "^" . $canal . "-" . $solocanal;
+}
+foreach my $key1 ( keys(%instancias) ) {
+delete $instancias{$key1}{$canalid};
+log_debug( "$heading Erasing $canalid from instanacias!", 128 ) if DEBUG;
-    }
-}
@@ -2017 +2066 @@
-    }
-
-$nada1
+undef
-    if ( !defined($contexto1) ) { $contexto1 = ""; }
-
@@ -2033 +2082 @@
-            my @linkbotones = find_panel_buttons( $canal1, $canalsesion, $server );
-            foreach my $cual (@linkbotones) {
-$nada2
+undef
-                if ( !defined($contexto2) ) { $contexto2 = ""; }
-                if ( $contexto1 eq $contexto2 ) {
@@ -2101 +2150 @@
-    log_debug( "$heading borro cache_hit($indice_cache)", 128 ) if DEBUG;
-    delete $cache_hit{$indice_cache};
+    delete $monitoring{$canalsesion};
-    if ( keys(%cache_hit) ) {
-        for ( keys %cache_hit ) {
@@ -2176 +2226 @@
-                        log_debug( "** Found a match $canalid=$val ($quehay) - Cleared!", 16 ) if DEBUG;
-                        delete $datos{$quehay};
+                        delete $chanvar{$quehay};
+                        delete $passvar{$quehay};
-                    }
-                }
@@ -2201 +2253 @@
-    # Removes the context if its set
-
-
-
+
-
-    # Checks if the channel name has an equal sign
@@ -2253 +2304 @@
-    my $server  = "";
-
-
-
+
-
-    if ( $canal =~ /\^/ ) {
-
-
-
+
-    }
-
@@ -2296 +2344 @@
-    print_datos(1);
-
-
-
+
-
-    if ( $canal =~ /\^/ ) {
-
-
-
+
-    }
-
@@ -2323 +2368 @@
-                $canalaqui = 1;
-            }
-$val eq $server
+( $val eq $server || $server eq "-1" )
-                $serveraqui = 1;
-                log_debug( "$heading server coincide $server = $val\n", 16 ) if DEBUG;
@@ -2364 +2409 @@
-    my $heading       = "** FIND_PANEL_BUT";
-    my $calleridnum   = "noexiste";
+    my $didnum        = "noexiste";
-    my %trunk_matched = ();
-
@@ -2375 +2421 @@
-
-    my $uniqueid = find_uniqueid( $canalsesion, $server );
-
-
-
+
+
+
+
+
+
+
+
+
-        }
-    }
@@ -2495 +2547 @@
-        # Attemp to match a button from cache
-        $indice_cache = $canalsesion . "-" . $canal . "-" . $server;
-
+|| $didnum ne "noexiste" 
-            log_debug( "$heading CACHE MISS $indice_cache", 32 ) if DEBUG;
-            for ( keys %buttons ) {
-                $server     = $server_original;
-                $canalfinal = "";
-$nada
+undef
-                if ( !defined($contexto) ) { $contexto = ""; }
-                if ( $contexto ne "" ) { $contexto = "&" . $contexto; }
@@ -2528 +2580 @@
-                    }
-                }
+                elsif ( $_ =~ /^$server\^CLID\/\Q$calleridnum\E=/ ) {
+                    my $solocanal = $canalsesion;
+                    $solocanal =~ s/[^\w]//g;
+                    my $tcanal = "CLID/" . $calleridnum . "-" . $solocanal;
+                    if ( !exists( $trunk_matched{"$server^CLID/$calleridnum"} ) ) {
+                        $canalfinal = get_next_trunk_button( $tcanal, $contexto, $server, $tcanal );
+                        if ( $canalfinal ne "" ) {
+                            log_debug( "$heading clid match trunk ( $_ )  $canal $contexto", 32 ) if DEBUG;
+                            $trunk_matched{"$server^CLID/$calleridnum"} = 1;
+                            $canalfinal =~ s/(.*)\^(.*)/$2/g;
+                        }
+                    }
+                }
-                elsif ( $_ =~ /^$server\^CLID\/\Q$calleridnum\E\&?/ ) {
-
-                    log_debug( "$heading clid match ( $_ )  $canal $contexto", 32 ) if DEBUG;
-                    $canalfinal = "CLID/$calleridnum";
+                }
+                elsif ( $_ =~ /^$server\^DID\/\Q$didnum\E=/ ) {
+                    my $solocanal = $canalsesion;
+                    $solocanal =~ s/[^\w]//g;
+                    my $tcanal = "DID/" . $didnum . "-" . $solocanal;
+                    if ( !exists( $trunk_matched{"$server^DID/$didnum"} ) ) {
+                        $canalfinal = get_next_trunk_button( $tcanal, $contexto, $server, $tcanal );
+                        if ( $canalfinal ne "" ) {
+                            log_debug( "$heading did match trunk ( $_ )  $canal $contexto", 32 ) if DEBUG;
+                            $trunk_matched{"$server^DID/$didnum"} = 1;
+                            $canalfinal =~ s/(.*)\^(.*)/$2/g;
+                        }
+                    }
+                }
+                elsif ( $_ =~ /^$server\^DID\/\Q$didnum\E\&?/ ) {
+                    log_debug( "$heading did match ( $_ )  $canal $contexto", 32 ) if DEBUG;
+                    $canalfinal = "DID/$didnum";
-                }
-
@@ -2559 +2640 @@
-            $canalfinal = "";
-
-            my $nada1      = "";
-            my $contextemp = "";
-            my %contextosencontrados;
-            for my $val (@canales) {
-$nada1
+undef
-                if ( !defined($contextemp) ) { $contextemp = ""; }
-                $contextosencontrados{"&$contextemp"} = 1;
@@ -2677 +2757 @@
-    while ( my ( $key, $val ) = each(%bloque) ) {
-        if ( defined($val) ) {
-(.*)\s+$/$1/g
+\s+$//
-        }
-        else {
@@ -2685 +2765 @@
-    }
-
+    if ( defined( $hash_temporal{Application} ) ) {
+
+        # Chanvar hash stores the complete list of channel variables
+        # that are "SET" in the dialplan for a given Uniqueid
+        if ( $hash_temporal{Application} eq "Set" ) {
+            my @vardata = split( /\|/, $hash_temporal{AppData} );
+            foreach my $vara (@vardata) {
+                my ( $vari, $valu ) = split( /=/, $vara );
+                $vari =~ s/^_.?//g;
+                $chanvar{ $hash_temporal{Uniqueid} }{$vari} = $valu;
+            }
+        }
+    }
-    if ( defined( $hash_temporal{Channel} ) ) {
-        if ( $hash_temporal{Channel} =~ /^Agent/ ) {
@@ -2724 +2817 @@
-        while ( my ( $key, $val ) = each(%hash_temporal) ) {
-            if ( defined($val) && $val =~ /\^/ ) {
-
-
-
-
+
+
+
+
+
+
-                foreach my $value (@partes) {
-                    my @partes2 = split( /: /, $value );
@@ -2787 +2882 @@
-    if ( defined( $hash_temporal{"ActionID"} ) ) {
-        if ( $hash_temporal{"ActionID"} =~ /^timeout/i ) {
-
-
-
+
-            $evento   = "Timeout";
-            $unico_id = "YYYY-$server";
@@ -2825 +2918 @@
-    }
-
+    # Convert Asterisk 1.4 Originate responses to 1.2 format so attendant transfers work
+    if ( $evento eq "OriginateResponse" ) {
+        if ( $hash_temporal{Response} eq "Success" ) {
+            $evento = "OriginateSuccess";
+        }
+        else {
+            $evento = "OriginateFailure";
+        }
+    }
+
+    # Convert Asterisk 1.4 ParkedCalltimeout to UnParkedCall
+    if ( $evento eq "ParkedCallTimeOut" ) {
+        $evento = "UnParkedCall";
+    }
+
-    $evento =~ s/UserEvent//g;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    else { log_debug( "$heading No event match ($evento)", 32 ); }
-
@@ -2895 +3007 @@
-    }
-
-
+
+
+
+
+
+
+
+
-
-        # Event: ChannelReload
@@ -2917 +3036 @@
-                my $indice = $hash_temporal{Uniqueid} . "-" . $hash_temporal{Server};
-                if ( exists( $datos{"$indice"} ) ) {
-
+
+
-                    if ( defined( $datos{$indice}{Extension} ) ) {
-
@@ -2930 +3050 @@
-                }
-                else {
-
+
+
-                    print_datos(99);
-                    $pending_uniqueid_attendant{ $hash_temporal{Uniqueid} } = $hash_temporal{Exten} . "@" . $hash_temporal{Context};
@@ -2972 +3093 @@
-            }
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-            my $tempval = $config->{$contexto}{'attendant_failure_redirect_to'};
-            $tempval =~ s/\${CHANNEL}/$hash_temporal{Channel}/g;
@@ -2984 +3108 @@
-
-            if ( $tempval =~ m/\@/ ) {
-
-
-
+
-            }
-            else {
@@ -3031 +3153 @@
-        #TalkTime: 557
-        #Reason: agent
-$nada
+undef
-        request_queue_status( $socket, $canal );
-        my @respuestas = set_queueobject( $server, $canal, "status", 1 );
@@ -3169 +3291 @@
-        $estado_final = "ringing";
-        $canal        = $hash_temporal{"AgentCalled"};
-
+
+
+
-        $canalid  = $canal . "-XXXX";
-        $clidnum  = $hash_temporal{"CallerID"};
@@ -3176 +3300 @@
-        my $base64_clidnum  = encode_base64( $clidnum . " " );
-        my $base64_clidname = encode_base64( $clidname . " " );
+
+        foreach my $var ( split( /\|/, $passvars ) ) {
+            if ( defined( $chanvar{$unique}{$var} ) ) {
+                my $base64_var = encode_base64( $chanvar{$unique}{$var} );
+                push @return, "$canal|setvar|$var=$base64_var|$canalid-$server|$canalid";
+            }
+        }
-        push @return, "$canal|clidnum|$base64_clidnum|$canalid-$server|$canalid";
-        push @return, "$canal|clidname|$base64_clidname|$canalid-$server|$canalid";
@@ -3207 +3338 @@
-        my $dorigen  = "";
-        my $ddestino = "";
-        my $dnada    = "";
-        $remote_callerid{$key}      = $hash_temporal{"CallerID"};
-        $remote_callerid_name{$key} = $hash_temporal{"CallerIDName"};
+
+        foreach my $var ( split( /\|/, $passvars ) ) {
+            if ( defined( $chanvar{ $hash_temporal{"SrcUniqueID"} }{$var} ) ) {
+                $passvar{ $hash_temporal{"DestUniqueID"} }{$var} = $chanvar{ $hash_temporal{"SrcUniqueID"} }{$var};
+            }
+        }
-
-        if ( $hash_temporal{'Source'} =~ m/^Local/i ) {
@@ -3217 +3353 @@
-            # so we can map outgoing calls to Agent buttons
-            # It will only work after the agent receives at least one call
-$dnada
-$dnada
+undef
+undef
-            if ( exists( $channel_to_agent{"$server^$dorigen"} ) ) {
-                my $agente = $channel_to_agent{"$server^$dorigen"};
@@ -3261 +3397 @@
-        my $valor = "";
-        $estado_final = "astdb";
-my $nada
+undef
-        $canalid = $hash_temporal{"Channel"} . "-XXXX";
-        my $clave = $hash_temporal{"Family"};
@@ -3309 +3445 @@
-        # XXXX It will have to store this value internally in future version
-        # to avoid polling asterisk every time
-my $nada
+undef
-        $texto = $hash_temporal{"IP"};
-        my $serv = $hash_temporal{"Server"};
@@ -3325 +3461 @@
-        my $color = "";
-        my $state = "";
-my $nada
+undef
-        $color        = $hash_temporal{"Color"};
-        $state        = $hash_temporal{"State"};
@@ -3333 +3469 @@
-    }
-    elsif ( $evento eq "foppopup" ) {
-my $nada
+undef
-        my $url    = $hash_temporal{"URL"};
-        my $target = $hash_temporal{"Target"};
@@ -3344 +3480 @@
-    }
-    elsif ( $evento eq "refreshqueue" ) {
-my $nada
+undef
-
-        # Turns off led of the agent that generated the refresh
@@ -3394 +3530 @@
-            # so we populate some internal structures. If not, its a fake
-            # callbacklogin from the show agents cli command
-my $nada
+undef
-            $canal =~ tr/a-z/A-Z/;
-        }
@@ -3414 +3550 @@
-                # in op_buttons.cfg.
-                $canal = $extension_transfer_reverse{$ext_transf_key};
-$canal =~ s/(.*)&(.*)/$1/g
+( $canal, undef ) = split( /&/, $canal )
-                if ( $canal =~ /\^/ ) {
-
-
+
-                }
-            }
@@ -3568 +3703 @@
-
-    }
+    elsif ( $evento eq "agents" ) {
+
+        #Event: Agents
+        #Agent: 609
+        #Name: Nicolas
+        #Status: AGENT_LOGGEDOFF
+        #LoggedInChan: n/a
+        #LoggedInTime: 0
+        #TalkingTo: n/a
+        my $agent_number  = $hash_temporal{Agent};
+        my $agent_name    = $hash_temporal{Name};
+        my $agent_status  = $hash_temporal{Status};
+        my $agent_logchan = $hash_temporal{LoggedInChan};
+
+        $agents_name{"$server^$agent_number"} = $agent_name;
+        set_queueobject( $server, "AGENT/$agent_number", "name", $agent_name );
+
+        if ( $agent_status eq "AGENT_IDLE" ) {
+
+            # Agent callback login, idle
+            my $agevent = "";
+            if ( $agent_logchan =~ /.*\/.*-.*/ ) {
+                $fake_bloque[$fakecounter]{"Event"}   = "Agentlogin";
+                $fake_bloque[$fakecounter]{"Channel"} = $agent_logchan;
+            }
+            else {
+                $fake_bloque[$fakecounter]{"Event"}     = "Agentcallbacklogin";
+                $fake_bloque[$fakecounter]{"Loginchan"} = $agent_logchan;
+            }
+            $fake_bloque[$fakecounter]{"Agent"}  = $agent_number;
+            $fake_bloque[$fakecounter]{"Name"}   = $agent_name;
+            $fake_bloque[$fakecounter]{"Server"} = "$server";
+            $fakecounter++;
+        }
+        elsif ( $agent_status eq "AGENT_ONCALL" ) {
+
+            # Agent login
+            $fake_bloque[$fakecounter]{Event}   = "Agentlogin";
+            $fake_bloque[$fakecounter]{Channel} = $agent_logchan;
+            $fake_bloque[$fakecounter]{Agent}   = $agent_number;
+            $fake_bloque[$fakecounter]{Server}  = $server;
+            $fakecounter++;
+        }
+        elsif ( $agent_status eq "AGENT_LOGEDOFF" ) {
+            $fake_bloque[$fakecounter]{Event}  = "Agentlogoff";
+            $fake_bloque[$fakecounter]{Agent}  = $agent_number;
+            $fake_bloque[$fakecounter]{Server} = $server;
+            $fake_bloque[$fakecounter]{Fake}   = 1;
+            $fakecounter++;
+        }
+
+    }
-    elsif ( $evento eq "agentlogin" ) {
-
@@ -3576 +3763 @@
-
-            # This catches a live real Agentlogin event
-my $nada
+undef
-            $canalreal =~ tr/a-z/A-Z/;
-            $channel_to_agent{"$server^$canalreal"}   = "Agent/$texto";
-            $agent_to_channel{"$server^Agent/$texto"} = $canalreal;
-
+
+
-            if ( !defined( $hash_temporal{Fake} ) || $hash_temporal{Fake} ne "init" ) {
-                my @respuestas = set_queueobject( $server, "AGENT/$texto", "status", 1 );
@@ -3740 +3928 @@
-            $estado_final = "changelabel" . $change_led;
-
-
+
+
+
-                if ( defined( $agent_to_channel{"$server^Agent/$canal"} ) ) {
-                    $canal = $agent_to_channel{"$server^Agent/$canal"};
@@ -3812 +4002 @@
-            if ( defined( $hash_temporal{Queue} ) ) {
-                $valor = $hash_temporal{Queue};
-
+
+
+
-                    my $texto3 = "";
-                    foreach my $qmem ( @{ $agents_available_on_queue{"$server^$valor"} } ) {
@@ -4035 +4227 @@
-    }
-    elsif ( $evento eq "meetmemute" || $evento eq "meetmeunmute" ) {
-$nada
+undef
-        $estado_final = $evento;
-        push @return, "$canal|$evento||$unico_id|$canalid";
@@ -4066 +4258 @@
-    }
-    elsif ( $evento eq "join" ) {
-        my $qclidnum  = "";
-        my $qclidname = "";
-        $canal = "QUEUE/" . $hash_temporal{Queue};
-        my $position = $hash_temporal{Position};
@@ -4077 +4267 @@
-        $unico_id = "$canal-$server";
-
-        if ( defined( $hash_temporal{CallerIDName} ) ) {
-            $qclidnum  = $hash_temporal{CallerID};
-            $qclidname = $hash_temporal{CallerIDName};
-        }
-        elsif ( defined( $hash_temporal{CalleridName} ) ) {
-            $qclidnum  = $hash_temporal{Callerid};
-            $qclidname = $hash_temporal{CalleridName};
-        }
-        else {
-            ( $qclidnum, $qclidname ) = split_callerid( $hash_temporal{CallerID} );
-        }
-        my $texto_pos = "[$qclidname $qclidnum]";
-
-        push @return, "$canal|$estado_final|$texto|$unico_id|$canalid";
-
-
+
+
+
+
-        $evento = "";
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    }
-    elsif ( $evento eq "meetmejoin" ) {
-        my $originate        = "no";
-        my $mute_other_party = "no";
-        my $nada             = "";
-        my $contexto         = "";
-
@@ -4289 +4473 @@
-        }
-        my $canalfin = get_meetme_pos( $server, $canal, $position );
+        my ( $ca1, $se1 ) = separate_session_from_channel( $hash_temporal{Channel} );
+        push @return, "$ca1|$estado_final|$texto_pos|YYYY-$server|$hash_temporal{Channel}";
-        push @return, "$canalfin|$estado_final|$texto_pos|YYYY-$server|$hash_temporal{Channel}";
-        push @return, "$canalfin|meetmeuser|$hash_temporal{Usernum},$hash_temporal{Meetme}|YYYY-$server|$hash_temporal{Channel}";
@@ -4314 +4500 @@
-        }
-
-$nada1
+undef
-        push @return, "$canal1|unsetlink|$canal|$unico_id|$canalid";
-        $evento = "";
@@ -4321 +4507 @@
-        delete $meetme_pos{"$server^$canal"}{ $hash_temporal{Usernum} };
-        push @return, "$canalfin|corto||$hash_temporal{Uniqueid}-$server|$canaleja";
-    }
-    elsif ( $evento eq "leave" ) {
-        $canal = "QUEUE/" . $hash_temporal{"Queue"};
-        $canal =~ tr/a-z/A-Z/;
-        $estado_final = "ocupado";
-        my $plural = "";
-        if ( $hash_temporal{"Count"} > 1 )  { $plural       = "s"; }
-        if ( $hash_temporal{"Count"} == 0 ) { $estado_final = "corto"; }
-        $texto    = "&waitingonqueue," . $hash_temporal{"Count"} . ",$plural&";
-        $unico_id = "$canal-$server";
-        push @return, "$canal|$estado_final|$texto|$unico_id|$canalid";
-        $evento = "";
-
-        print_sesbot(1);
-        my @queue_events = recompute_queues($canalid);
-        foreach my $valor (@queue_events) {
-            push @return, $valor;
-        }
-        print_sesbot(2);
-    }
-    elsif ( $evento eq "voicemail" ) {
@@ -4355 +4522 @@
-            $unico_id = $canal;
-            $canalid  = $canal . "-XXXX";
-
+
+
-                $estado_final = "voicemail";
-
-
-
-
-
-
+
+
+
+
+
-                    send_command_to_manager( "Action: MailboxCount\r\nMailbox: $hash_temporal{Mailbox}\r\n\r\n",
-                        $socket, 0, $astmanproxy_server );
-                }
+                else {
+
+                    # If it has new voicemail, look for the New and Old headers
+                    if ( defined( $hash_temporal{New} ) ) {
+                        my $nuevos = $hash_temporal{"New"};
+                        my $viejos = $hash_temporal{"Old"};
+                        push @return, "$canal|voicemailcount|&newold,$nuevos,$viejos|$unico_id-$server|$canal-XXXX";
+                    }
+                    else {
+                        send_command_to_manager( "Action: MailboxCount\r\nMailbox: $hash_temporal{Mailbox}\r\n\r\n",
+                            $socket, 0, $astmanproxy_server );
+                    }
+                }
-            }
-            else {
+
+                # This is the actual message count event
-                $estado_final = "voicemailcount";
-                my $nuevos = $hash_temporal{"NewMessages"};
@@ -4534 +4716 @@
-
-        if ( $nuevo_nombre =~ /<ZOMBIE>/ ) {
-
-
+
+
+
-            push @return, "$canalnuevo|corto||$unico_id|$nuevo_nombre";
-        }
@@ -4579 +4762 @@
-
-                    if ( defined($canalcambiado) ) {
-$nada
+undef
-                        push @return, "$canalito|$estado_final|$nuevo_nombre|$unico_id|$canalcambiado";
-$nada
+undef
-                        push @return, "$canalito|$estado_final|$canalcambiado|$unico_id|$nuevo_nombre";
-                        $canal = $canalito;
@@ -4631 +4814 @@
-            $texto        = "&unreachable,$tiempo";
-        }
+        elsif ( $state eq "Unregistered" ) {
+            $estado_final = "noregistrado";
+            $texto        = "&notregistered";
+        }
-        elsif ( $state eq "Lagged" ) {
-            $estado_final = "noregistrado";
@@ -4667 +4854 @@
-            my $hay_activos = 0;
-
-
-
-
-
+
+
+
-                if ( "$server" ne "$current_server" ) {
-                    next;
-                }
-
-_
-_
+dkey
+dkey
-                my $myevent = "Newexten";
-_
+dkey
-                    log_debug( "$heading STATUSCOMPLETE datos { $key } = $val", 128 ) if DEBUG;
-
-                    if ( defined($val) ) {
-                        $hay_activos = 1;
@@ -4756 +4941 @@
-        $estado_final = "meetmeuser";
-        $texto        = $hash_temporal{Usernum} . "," . $hash_temporal{Meetme};
-$nada1
+undef
-        push @return, "$hash_temporal{Meetme}|setlink|$hash_temporal{Channel}||$hash_temporal{Channel}";
-        push @return, "$chan1|setlink|$hash_temporal{Meetme}||$hash_temporal{Channel}";
@@ -4764 +4949 @@
-    elsif ( $evento eq "newexten" ) {
-
-#        print "newexten\n";
-
-        # If its a new extension without state and priority 1, defaults to 'Up' and set setlid
+        if ( !defined( $hash_temporal{'Priority'} ) ) {
+            $hash_temporal{'Priority'} = 1;
+        }
-        if ( !defined( $datos{$unico_id}{'State'} ) && $hash_temporal{Priority} == 1 ) {
-            $datos{$unico_id}{'State'} = "Up";
-            log_debug( "$heading POPULATES datos($unico_id){ State } = Up", 128 ) if DEBUG;
-            ( $canal, $sesion ) = separate_session_from_channel( $hash_temporal{Channel} );
-
-
-
-
-
-
-
+
+
+
+
-        }
-
@@ -4801 +4984 @@
-            log_debug( "Save " . $hash_temporal{Channel} . " as pending", 16 ) if DEBUG;
-        }
-
-
-    }
@@ -4878 +5060 @@
-    }
-    elsif ( $evento eq "parkedcall" ) {
-
+
+
+
+
+
+
+
+
-        $estado_final = "ocupado3";
-$nada
+undef
-        my $textid   = "";
-        my $timeout  = "";
-        my $unidchan = find_uniqueid( $hash_temporal{'Channel'}, $server );
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-        $textid =~ s/\"//g;
-        $textid =~ s/\<//g;
-        $textid =~ s/\>//g;
-        push @return, "$canal|ocupado3|$texto|$unidchan|$canalid";
-hash_temporal{'Exten'}
-
-hash_temporal{'Exten'}
-hash_temporal{'Exten'}
+parksl
+
+parksl
+parksl
-        $evento = "";    #NEW
-    }
@@ -4922 +5116 @@
-    # Dont check for $evento bellow this line!
-
-#    print "AFTER IF ELSE IF evento = $evento\n";
-
-    if ( $evento ne "" ) {
-
+, estadofinal $estado_final
-
-        # De acuerdo a los datos de la extension genera
@@ -5022 +5214 @@
-            if ( $clidnum ne "" ) {
-                my $base64_clidnum = encode_base64( $clidnum . " " );
-'Channel'
+Channel
-                push @return, $ret;
-            }
-            if ( defined($clidname) ) {
-                my $base64_clidname = encode_base64( $clidname . " " );
-'Channel'
+Channel
-                push @return, $ret;
-            }
+            foreach my $var ( keys %{ $passvar{ $hash_temporal{Uniqueid} } } ) {
+                my $base64_var = encode_base64( $passvar{ $hash_temporal{Uniqueid} }{$var} );
+                $ret = "$canal|setvar|$var=$base64_var|$unico_id|$hash_temporal{Channel}";
+                push @return, $ret;
+            }
+            delete $passvar{ $hash_temporal{Uniqueid} };
-        }
-
@@ -5037 +5235 @@
-
-        if ( $state eq "Ring" ) {
-#            print "RING $canalid $texto\n"
-texto                      = $canalid
-
-
-
+            $texto        = $canalid
+estado_final = "ring"
+
+#
+#
-        }
-
@@ -5214 +5412 @@
-
-    my $cuantos = $#return + 1;
-log_debug( "$heading returns $cuantos", 16 ) if DEBUG;
-foreach (@return) {
-if DEBUG
+if (DEBUG) {
+    log_debug( "$heading returns $cuantos", 16 );
+foreach (@return)
-    }
-    $tab = substr( $tab, 0, -1 );
@@ -5260 +5458 @@
-    $canal =~ s/(.*)&(.*)/$1/g;
-
-    # if( $canal =~ m/^CLID/ ) {
-    #       my $extr = $extension_transfer{"$server^$canal"};
-    #   $extr =~ s/\d+\^(.*)/$1/g;
-    #   $canal = "Local/$extr";
-    # }
-
-    log_debug( "** LOCAL_CHANNELS devuelvo $server canal $canal", 32 ) if DEBUG;
+
+    # If channel has a pipe due to REGEXP button, replace it with something else because
+    # procesa_bloque use pipes to return data to digest_event_block
+    $canal =~ s/\|/~/g;
-    push @return, $server;
-    push @return, $canal;
@@ -5296 +5492 @@
-    $tab = $tab . "\t" if DEBUG;
-
-1
+25
-
-    @fake_bloque = ();
-
-    # delete $datos{""};
-    foreach my $blaque (@blique) {
-
@@ -5317 +5512 @@
-        }
-        @mensajes = procesa_bloque( $blaque, $socket, $astmanproxy_server );
+
-        foreach my $mensaje (@mensajes) {
-            if ( defined($mensaje) && $mensaje ne "" ) {
-32
+256
-                delete $datos{""};    # Erase the hash with no uniqueid
-                ( $canal, $quehace, $dos, $uniqueid, $canalid ) = split( /\|/, $mensaje );
-
+                # change back newflo into pipes
+                $canal   =~ s/~/\|/g;
+                $canalid =~ s/~/\|/g;
-                $canalid =~ s/(.*),(\d)/$1/g;    # discard ,2 on Local channels
-
@@ -5329 +5528 @@
-
-                if ( $canal =~ /\/PSEUDO/ ) {
-32
+256
-                    next;
-                }
-
-                if ( $dos eq "skip" ) {
-32
+256
-                    next;
-                }
-
-                if ( $quehace eq "" ) {
-
-
+
-                    next;
-                }
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-                if ( $canal =~ /^vpb\//i ) {
@@ -5366 +5562 @@
-                $server =~ s/(.*)-(.*)/$2/g;
-
-                log_debug( "$heading Quehace $quehace", 64 ) if DEBUG;
-
-                my $buttontext = $dos;
-                if ( $buttontext =~ /\Q[\E/ ) {
@@ -5379 +5573 @@
-                my $cuantos  = @canaleja;
-
-       
+                
-
-                if ( $quehace eq "corto" || $quehace eq "info" ) {
@@ -5388 +5582 @@
-                        $toda .= "$key = $val\n"
-                          if ( $key ne "E" ) && ( defined($val) );
-128
+256
-                    }
-                    $toda .= " ";
@@ -5394 +5588 @@
-
-                    if ( $quehace eq "corto" ) {
+                        log_debug( "$heading erasing datos{$uniqueid}", 256 ) if DEBUG;
-                        delete $datos{$uniqueid};
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-                    # Remove the agent from the agents_on_queue hash
@@ -5438 +5634 @@
-
-                foreach $canal (@canaleja) {
-32
-32
+256
+256
-
-                    if ( $dosoriginal ne "" ) {
@@ -5451 +5647 @@
-
-                    if ( !defined( $buttons{"$server^$canal"} ) && !defined( $buttons{"-1^$canal"} ) ) {
-128
+256
-                        if (DEBUG) {
-                            for ( keys %buttons ) {
-128
+256
-                            }
-                        }
@@ -5463 +5659 @@
-                    # except ocupado*, corto, setlink and unsetlink
-                    if ( $canal =~ /^_/ ) {
-32
+256
-
-                        if (   $quehace =~ /registr/
@@ -5469 +5665 @@
-                            || $quehace =~ /^inf/ )
-                        {
-32
+256
-                            next;
-                        }
@@ -5488 +5684 @@
-                            && $quehace !~ /^unsetlink/ )
-                        {
-$nada
+undef
-                            if ( !defined($elcontexto) ) { $elcontexto = ""; }
-                            if ( $elcontexto ne "" ) {
@@ -5495 +5691 @@
-                            my ( $canalsolo, $nrotrunk ) = split( /=/, $canal );
-                            $canal = $canalsolo . "=1" . $elcontexto;
-32
+256
-
-                            #next;
-                        }
-
-wildcard
+regexp
-                        # and change led_color (the 1 after changelabel)
-                        # change it so to not change the led color.
-                        if ( $quehace =~ /changelabel1/ ) {
-el regexp tiene changelabel1, lo cambio por changelabel0!", 32
+regexp has changelabel1, lets change it to changelabel0!", 256
-                              if DEBUG;
-                            $quehace = "changelabel0";
@@ -5513 +5709 @@
-
-                    if ( $canal eq "" ) {
-
-
-
-
+
+
+
+
+
+
-
-                        $interno = $buttons{"$server^$canal"};
-
-                        if ( !defined($interno) ) {
-                            $interno     = $buttons{"-1^$canal"};
@@ -5538 +5735 @@
-                        }
-
-           
-           
+                        
+                        
-
-                        if ( $quehace eq 'corto' || $quehace eq 'info' ) {
-
-                            my @linked = erase_all_sessions_from_channel( $canalid, $canal, $server );
+
-                            push @linked, $canal;
-                            my $btnorinum = "";
@@ -5553 +5750 @@
-                                    $btnorinum = $buttons{"$serverindex^$canaleje"};
-                                }
-32
+256
-                                my $listabotones = generate_linked_buttons_list( $canaleje, $server );
-                                push @respuestas, "$btnorinum|linked|$listabotones";
@@ -5559 +5756 @@
-
-                            delete $datos{$uniqueid};
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-                            if ( !defined($contexto1) ) { $contexto1 = ""; }
-                            my $listabotones = "";
@@ -5571 +5771 @@
-                                push @{ $linkbot{"$server^$canal"} }, "";
-                                pop @{ $linkbot{"$server^$canal"} };
-32
+256
-                            }
-
@@ -5577 +5777 @@
-                            my @linkbotones = find_panel_buttons( $canal1, $dos, $server );
-                            foreach (@linkbotones) {
-$nada2
+undef
-                                if ( !defined($contexto2) ) { $contexto2 = ""; }
-                                if ( $contexto1 eq $contexto2 ) {
-                                    push @{ $linkbot{"$server^$canal"} }, $dos;
-32
+256
-                                      if DEBUG;
-                                }
@@ -5590 +5790 @@
-
-                            foreach my $valorad (@uniq) {
-32
+256
-                            }
-                            my $btnorinum = $buttons{"$serverindex^$canal"};
-32
+256
-                            $listabotones = generate_linked_buttons_list( $canal, $server );
-                            push @respuestas, "$btnorinum|linked|$listabotones";
+                            push @respuestas, "$btnorinum|bridgepeer|$dos";
-                            $botonlinked{$btnorinum} = $listabotones;
-
-
-
-
-
+
+
+
+
+
+
-                            my @final = ();
-                            foreach my $msesion ( @{ $linkbot{"$server^$canal"} } ) {
@@ -5609 +5811 @@
-                            }
-                            $linkbot{"$server^$canal"} = [@final];
-
-
-
+
+
+
+
-
-                            delete $botonvoicemail{$interno};
@@ -5627 +5830 @@
-                        }
-
-           
+                        
-                        if ( $interno eq "" ) {
-32
+256
-                            next;
-                        }
-                        else {
-32
+256
-                        }
-
@@ -5656 +5859 @@
-                        #
-                        if ( $canalid eq "" || $canalid =~ /zombie/i || $canalid =~ /(.*)-XXXX$/ ) {
-
+
+
+
+
+
+
+
+
+
+
+
+
-                        }
-                        else {
@@ -5662 +5876 @@
-                            if ( $quehace eq "corto" ) {
-
-
+
+
-
-                                delete $botonpark{$interno};
@@ -5689 +5904 @@
-                                if ( $cuantos == 0 ) {
-                                    log_debug( "$heading CORTO y SE DESOCUPO estadoboton($interno) = free, sesbot($interno) esta vacio",
-32
+256
-                                      if DEBUG;
-                                    $cambiaron{$interno}   = 1;
@@ -5696 +5911 @@
-                                else {
-                                    log_debug( "$heading CORTO y SIGUE OCUPADO estadoboton($interno) = busy, sesbot($interno) tiene algo",
-32
+256
-                                      if DEBUG;
-                                    &print_sesbot(3);
@@ -5709 +5924 @@
-
-                                        log_debug(
-32
+256
-                                          if DEBUG;
-                                    }
@@ -5730 +5945 @@
-
-                                # quehace no es "corto"
-                                #
-
-                                # MAINTAINS SESBOT HASH
@@ -5743 +5957 @@
-                                    push @{ $sesbot{$interno} }, "$canalid";
-
-32
+256
-
-                                    my @uniq = unique( @{ $sesbot{$interno} } );
@@ -5749 +5963 @@
-
-                                    foreach my $vavi ( @{ $sesbot{$interno} } ) {
-32
-32
+256
+256
-                                    }
-                                }
-
-                                if ( $canal =~ /^_/ && $quehace =~ /^ring/ ) {
-TENGO UN WILDCARD ORIGINANDO LLAMADO! $canal $quehace $canalid", 32
+have a regexp originating a call $canal $quehace $canalid, rename label", 256
-                                      if DEBUG;
-
-
-
-
+
-                                    if ( $ren_wildcard == 1 ) {
-                                        push @respuestas, "$interno|changelabel0|$canalid";
@@ -5766 +5977 @@
-                                    }
-                                }
-
-                                if ( $quehace eq "ringing" ) {
-                                    if ( $laststatus{$interno} ne "ringing|${buttontext}" ) {
@@ -5788 +5998 @@
-
-                                }
-
+|| $quehace eq 'ring' 
-
-                                    if ( defined( $group_count{$interno} ) ) {
-                                        my $plural = "";
-                                        if ( $group_count{$interno} == 1 ) {
-
-
-
-
-
-
-
-
-
-
+
+
-                                        }
-                                    }
@@ -5809 +6010 @@
-                                    }
-                                    $estadoboton{$interno} = "busy|${buttontext}";
-
-                                }
-                            }
-                        }
-
-32
-
+256
+
-                        if ( $quehace =~ /changelabel/ ) {
-32
+256
-
-                            # Mantains state of label and led
@@ -5856 +6056 @@
-                            }
-
-
-
-
+
+
+
+
-                            $dos =~ m/(.*)\((.*)\)/;
-                            my $texto   = $1;
@@ -5864 +6065 @@
-                            $timeout = time() + $timeout;
-                            $botonpark{$interno} = "$texto|$timeout";
-
+
+
-                            $botonmeetme{$interno} = $dos;
-
+
+
-                            $botonqueue{$interno} = $dos;
-
+
+
-                            $botonqueue_count{$interno} = $dos;
-
+
+
-                            my $mcola = $quehace;
-                            $mcola =~ s/^info//g;
@@ -5891 +6096 @@
-                            }
-
-
+
+
-                            if ( !defined( $group_count{$interno} ) ) {
-                                push @respuestas, "$interno|settext|$dos";
-                            }
-
+
+
+
+
+
+
-                            if ( !defined( $group_count{$interno} ) ) {
-                                $botonpermanenttext{$interno} = $dos;
-#                                print "vino settext a digest permanent $interno = -$dos-\n";
-                                push @respuestas, "$interno|settext|$dos";
-                            }
-
+
+
+
+
+
+
+
-                            $botonledcolor{$interno} = $dos;
-
+
+
-                            $botonalpha{$interno} = $dos;
-                            push @respuestas, "$interno|setalpha|$dos";
-
+
+
-                            push @respuestas, "$interno|flip|$dos";
-
+
+
-                            if (   $dos ne "."
-                                && $dos ne "original"
@@ -5916 +6135 @@
-                                push @respuestas, "$interno|setlabel|$dos";
-                            }
-
+
+
-                            $botonvoicemail{$interno} = $dos;
-
+
+
-                            $botonvoicemailcount{$interno} = $dos;
-
+
+
-
-                            # This block is for the voicemail client
@@ -5926 +6148 @@
-                            $canalsincontexto =~ s/(.*)&(.*)/$1/g;
-                            push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$dos";
-
+
+
-
-                            # This block is for the voicemail client, popups
@@ -5936 +6159 @@
-                            $calleridpop =~ s/\s+//g;
-                            push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$calleridpop";
+                            if ( defined( $group_count{$interno} ) && $group_count{$interno} == 1 ) {
+
+                                # Ignore ringing because of groupcount
+                                $quehace = "";
+                            }
-                        }
-
@@ -5946 +6174 @@
-                            && ( $quehace !~ /link/ ) )
-                        {
-
-
+
+
+
+
+
-                        }
-
@@ -5956 +6187 @@
-
-                        if ( @{ $sesbot{$interno} } > 0 && $quehace eq 'corto' ) {
- ignoring hangup", 32
+ignore hangup", 256
-                              if DEBUG;
+                            if ( defined( $group_count{$interno} ) ) {
+                                if ( $group_count{$interno} == 1 ) {
+                                    $buttontext = group_count( $interno, $canal );
+                                    push @respuestas, $buttontext;
+                                }
+                            }
-                        }
-                        else {
@@ -5964 +6201 @@
-                                my $canalsincontexto = $canal;
-                                $canalsincontexto =~ s/(.*)&(.*)/$1/g;
-
+
+
+
+
+
+
+
-                            }
-
-                            my $quehace2 = $quehace;
-
-                            if ( $quehace2 eq "ring" ) {
-
-                                #$quehace2 = "ocupado";
-                            }
-
-                            next unless ( $quehace2 ne "setlink" );
-                            next unless ( $quehace2 ne "unsetlink" );
-
-32
+256
-
-                            if ( $quehace2 eq "isagent" && $dos == -1 ) {
-32
+256
-                                push @mensajefinal, "$interno|changelabel1|original";
-                                push @mensajefinal, "$interno|settimer|0\@STOP";
-                                push @mensajefinal, "$interno|settext|";
-
+$canalid
-                            }
-
@@ -5990 +6228 @@
-
-                                # clear the agent helper hashes. We do it here because we first need to map
-32
+256
-                                my $canalag = $canalid;
-                                $canalag = substr( $canalag, 0, -5 );
@@ -6001 +6239 @@
-                                    if ( $val eq $canalag ) {
-                                        delete $channel_to_agent{$key};
-64
+256
-                                    }
-                                }
@@ -6008 +6246 @@
-                                if ( defined( $agent_to_channel{"$server^$canalag"} ) ) {
-                                    delete $agent_to_channel{"$server^$canalag"};
-64
+256
-                                }
-
@@ -6023 +6261 @@
-
-                            if ( $quehace2 !~ /isagent/ && $quehace2 !~ /^agentlogoff/ && $quehace2 !~ /^setclid/ ) {
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                                    }
-                                }
@@ -6041 +6288 @@
-
-                            if ( $quehace2 =~ /ocupado/ ) {
-
-
-
+
+
+
+
-                                }
-
-
-
+
+
+
+
+
+
+
+
+
-                            }
-                            if ( $quehace2 eq "settimer" ) {
-
-
+
+
+
-                                if ( $tiempo =~ /\@/ ) {
-nada
+timer_type
-                                }
-
-
-
+
+
+
+
+
+
-                                }
-                                $botontimer{$interno} = time() - $tiempo;
-nada
+timer_type
-                            }
-
@@ -6077 +6335 @@
-                            }
-                            if ( $quehace2 =~ /corto/ ) {
-32
+256
-
-                                my $canalsincontexto = $canal;
@@ -6101 +6359 @@
-                                        $iniagent = $channel_to_agent{"$server^$canalsincontexto"};
-                                    }
-
+
+
-                                    $botontimer{$interno}     = time();
-                                    $botontimertype{$interno} = "IDLE";
@@ -6114 +6373 @@
-                                else {
-                                    my $valip = "";
-
+
+
-
-                                    push @mensajefinal, "$interno|settimer|0\@STOP";
@@ -6125 +6385 @@
-                                        if ( defined( $botonpermanenttext{$interno} ) ) {
-                                            push @mensajefinal, "$interno|settext|$botonpermanenttext{$interno}";
-
-
-
+
+
-                                        }
-                                        $botonclid{$interno} = "";
@@ -6141 +6400 @@
-                            }
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-                                    }
-
-
-
+
-                                }
-                            }
-
-                            if ( $quehace eq "registrado" || $quehace eq "noregistrado" || $quehace eq "unreachable" ) {
-                                $botonregistrado{$interno} = "$quehace|$dos";
-                            }
-
@@ -6159 +6421 @@
-                                $boton_paused{$interno} = $dos;
-                            }
-
+els
-                                $boton_agentpaused{$interno} = $dos;
-                            }
-
+els
-                                $boton_agentready{$interno} = $dos;
-                            }
-
+els
-                                $boton_agentbusy{$interno} = $dos;
-                            }
-
+els
-                                $boton_agentlogedof{$interno} = $dos;
-                            }
-
-32
+256
-
-                            #if (defined($mensajefinal) && $interno ne "")
@@ -6179 +6441 @@
-                                if ( exists $cambiaron{$interno} ) {
-
-32
+256
-                                      if DEBUG;
-
-
-
-
+
+
+
+
+
+
-                                    }
-                                }
-                                else {
-
-
-
-
-
-
-
+
-                                }
-                                if ( $toda ne "" ) {
@@ -6213 +6472 @@
-    @respuestas = unique(@respuestas);
-    $cuantas    = $#respuestas + 1;
-1
+25
-    foreach my $valor (@respuestas) {
-32
+256
-    }
-    $tab = substr( $tab, 0, -1 ) if DEBUG;
-    return @respuestas;
+}
+
+sub group_count {
+    my $interno = shift;
+    my $canal   = shift;
+    my $plural  = "";
+    my $return  = "";
+    if ( @{ $sesbot{$interno} } > 1 ) {
+        $plural = "s";
+    }
+    if ( @{ $sesbot{$interno} } > 0 ) {
+        my $cuantos = @{ $sesbot{$interno} };
+        my ( $text, $textriginal, $buttontext ) = translate( $canal, "&channels,$cuantos,$plural", "", "" );
+        $return = "$interno|settext|$text";
+        $botonpermanenttext{$interno} = $text;
+    }
+    else {
+        $botonpermanenttext{$interno} = "";
+        $return = "$interno|corto|";
+    }
+    return $return;
-}
-
@@ -6274 +6554 @@
-}
-
-sub nonblock {
-    my $socket = shift;
-    my $flags;
-
-    $flags = fcntl( $socket, F_GETFL, 0 )
-      or die "Can't get flags for socket: $!\n";
-    fcntl( $socket, F_SETFL, $flags | O_NONBLOCK )
-      or die "Can't make socket nonblocking: $!\n";
-}
-
-sub clean_inmemory_state_for_server {
-
@@ -6424 +6694 @@
-
-        # The closed connections belong to an asterisk manager port
-        my @partes  = split( /\|/, $manager_socket{$socket} );
-        my @pp      = ();
-        my $counter = 0;
@@ -6461 +6730 @@
-collect_includes( "op_buttons.cfg", "buttons" );
-collect_includes( "op_style.cfg",   "style" );
+collect_includes( "op_server.cfg",  "server" );
-read_buttons_config();
-read_server_config();
@@ -6468 +6738 @@
-
-# Tries to open the listening socket
-
+
+
+
+
+
+
+
-  or die "\nCan't listen to port $listen_port\n";
-$O = new IO::Select();
@@ -6506 +6782 @@
-                push( @flash_clients, $C );
-                $O->add($C);
-nonblock($C
+$C->blocking(0
-            }
-            else {
@@ -6624 +6900 @@
-                                        || $bloque_final =~ /Message: Mailbox/
-                                        || $bloque_final =~ /SIP-CanReinvite/
+                                        || $bloque_final =~ /ActionID: monitor-/
-                                        || $bloque_final =~ /Message: Timeout/ )
-                                    {
@@ -6634 +6911 @@
-                                                $block_count++;
-                                                $bloque[$block_count]{Event} = "sippeerentrylong";
+                                            }
+                                            elsif ( $p =~ /ActionID: monitor-/ ) {
+                                                my ( undef, $quemonitor, $quecana ) = split( /-/, $p, 3 );
+                                                $block_count++;
+                                                $bloque[$block_count]{Event}   = "response-$quemonitor";
+                                                $bloque[$block_count]{Channel} = $quecana;
-                                            }
-                                            my $my_event = "";
@@ -6718 +7001 @@
-                                        send_initial_status($C);
-                                    }
+                                    elsif ( $bloque_final =~ /<policy-file-request\/>/ ) {
+                                        send_policy_to_flash($C);
+                                    }
-                                    else {
-
+
+
-
-                                        # No Event in the block. Lets clear it up...
@@ -6788 +7075 @@
-    my $res   = syswrite( $socket, $encriptadofinal, $largo );
-
+    # select( undef, undef, undef, 0.01 );
+
-    if ( defined $res && $res > 0 ) {
-        if ( $res != $largo ) {
@@ -6869 +7158 @@
-        @cuales_transferir = extraer_todos_los_enlaces_de_un_canal( $origin_channel, $button_server{$datosflash} );
-        if ( @cuales_transferir == 0 ) {
-
+
+
-            if ( $sesbot{$datosflash} ) {
-                if ( @{ $sesbot{$datosflash} } ) {
@@ -6957 +7247 @@
-    $elementname =~ s/\d//g;
-
-
-
-
-
-
-
+
+
-
-    log_debug( "$heading datosflash before context $datosflash", 128 ) if DEBUG;
@@ -6992 +7278 @@
-    if ( $accion =~ /^contexto\d+/ ) {
-
-$nada
+undef
-
-        if ( defined($contextoenviado) ) {
@@ -7076 +7362 @@
-                @pedazos = split( /&/, $canal );
-                $origin_context = $pedazos[1];
-
-
-
+
-            }
-            else {
-
-
-
+
-            }
-        }
@@ -7140 +7422 @@
-        if ( defined( $buttons{$indice} ) ) {
-            $btn_num = $buttons{$indice};
-
+
+
-        }
-        if ( $btn_num ne "0" ) {
@@ -7244 +7527 @@
-                if ( $destino ne "0" ) {
-                    log_debug( "$heading destino es igual a $destino", 32 ) if DEBUG;
-
-
-
-
+
+
-                    log_debug( "$heading El boton de destino es $destino en el server $destin_server", 64 ) if DEBUG;
-                }
-            }
-
-
-
+
-                my @cuales_transferir = get_transfer_channel( $origin_channel, $datosflash );
-                my $cuantos           = @cuales_transferir;
-
-voicemail
-
-voicemail
+spy
+
+spy
-                    # trasnfer
-                    if ( $cuantos > 0 ) {
@@ -7269 +7549 @@
-                }
-                else {
-
-                    my $keyext  = "$origin_server^$origin_channel";
-voicemail
+spy
-                    my ( $extx, $contextx ) = split( /\@/, $exttran, 2 );
-
@@ -7290 +7569 @@
-                        $comando .= "Priority: 1\r\n\r\n";
-                    }
-
-
+
+
+
+
+
+
+
-
-                    $tab = substr( $tab, 0, -1 ) if DEBUG;
-                    return;
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-                if ( defined( $config->{$panelcontext}{voicemail_extension} ) ) {
-                    my $voicemailext = $config->{$panelcontext}{voicemail_extension};
-
+
+
-                }
-                else {
@@ -7309 +7648 @@
-                    $tab = substr( $tab, 0, -1 ) if DEBUG;
-                    return;
+                }
+
+                if ( !defined($orichannel) ) {
+                    $orichannel = $origin_channel;
-                }
-
@@ -7319 +7662 @@
-
-                $comando = "Action: Originate\r\n";
-gin_
+
-                $comando .= "Callerid: $vclid <$vclid>\r\n";
-                $comando .= "Async: True\r\n";
@@ -7329 +7672 @@
-                $comando .= "\r\n";
-
-
-
+
+
+
+
+
+
+
-                $tab = substr( $tab, 0, -1 ) if DEBUG;
-                return;
@@ -7354 +7702 @@
-            }
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                my $buton_number = $datosflash;
-                log_debug( "$heading Will try to hangup channel para el boton $buton_number", 16 ) if DEBUG;
@@ -7363 +7744 @@
-                    $comando .= "Channel: $_\r\n\r\n";
-                    log_debug( "-- Command received: $accion chan $_", 32 ) if DEBUG;
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-                }
-            }
@@ -7381 +7764 @@
-                $comando .= "ActionID: meetmemute$boton_con_contexto\r\n";
-                $comando .= "Command: meetme mute $conference $meetmemember\r\n\r\n";
-
-
+
+
+
+
+
+
+
+
-            }
-            elsif ( $accion =~ /^meetmeunmute/ ) {
@@ -7394 +7783 @@
-                $comando .= "ActionID: meetmeunmute$boton_con_contexto\r\n";
-                $comando .= "Command: meetme unmute $conference $meetmemember\r\n\r\n";
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-            elsif ( $accion =~ /^conference/ ) {
-                log_debug( "$heading CONFERENCE extension_transfer($origin_channel)", 1 ) if DEBUG;
@@ -7403 +7862 @@
-                my $indice    = $origin_server . "^" . $origin_channel;
-                my $originate = $extension_transfer{$indice};
-
+-?
-                foreach ( keys(%buttons) ) {
-                    log_debug( "$heading comparo $buttons{$_} con btn_destino $btn_destino", 1 ) if DEBUG;
@@ -7467 +7926 @@
-                            }
-                        }
-
-
+
+
+
+
+
+
+
-                        last;
-                    }
@@ -7480 +7944 @@
-                    $comando .= "Command: database put clid $destino ";
-                    $comando .= "\"$clid\"\r\n\r\n";
-
-
+
+
+
+
+
+
+
-                }
-
@@ -7495 +7964 @@
-                if ( $canal_destino ne "-1" ) {
-                    if ( $canal_destino =~ /\@/ ) {
-
-
-
+
-                    }
-
-                    my @cuales_transferir = get_transfer_channel( $origin_channel, $datosflash );
-
-
-
+
+
-                          if DEBUG;
-$comando = "Action: Redirect\r\n"
-$comando .= "Channel: $valor\r\n"
-$comando .= "Exten: $canal_destino\r\n";
-if ( $contexto ne "" ) {
-$comando .= "Context: $contexto\r\n"
+my @links
+my @canal1
+if ( $reverse_transfer == 1 ) {
+    @links = @{ $sesbot{$datosflash} };
+@canal1 = extraer_todos_los_enlaces_de_un_canal( $links[0], $button_server{$datosflash} )
-                        }
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                            $comando .= "Channel: $valor\r\n";
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                        }
-
-                    }
-                }
@@ -7543 +8046 @@
-                    $comando .= "Command: database put clid $destino ";
-                    $comando .= "\"$clid\"\r\n\r\n";
-
-
+
+
+
+
+
+
+
-                }
-
@@ -7593 +8101 @@
-
-                    if ( $extension_destino =~ /\@/ ) {
-
-
-
-
-
-
+
+
+
+
+
-                    my $keyext = "$origin_server^$origin_channel";
-
@@ -7625 +8132 @@
-                    $comando .= "\r\n";
-                }
-
-
+
+
+
+
+
+
+
-            }
-            elsif ( $accion =~ /^dial/ ) {
@@ -7646 +8158 @@
-                $comando .= "Priority: 1\r\n";
-                $comando .= "\r\n";
-
+
+
+
+
+
+
-            }
-        }
@@ -7659 +8176 @@
-    }
-    $tab = substr( $tab, 0, -1 ) if DEBUG;
+}
+
+sub compute_monitoring_filename {
+    my $unique       = shift;
+    my $panelcontext = shift;
+    my $filename     = "";
+    my $format       = "";
+    my @return;
+    my %hasha;
+
+    if ( !defined( $config->{$panelcontext}{monitor_filename} ) ) {
+        $filename = $config->{GENERAL}{monitor_filename};
+    }
+    else {
+        $filename = $config->{$panelcontext}{monitor_filename};
+    }
+    if ( !defined( $config->{$panelcontext}{monitor_format} ) ) {
+        $format = $config->{GENERAL}{monitor_format};
+    }
+    else {
+        $format = $config->{$panelcontext}{monitor_format};
+    }
+
+    while ( my ( $key, $val ) = each( %{ $datos{$unique} } ) ) {
+        $key =~ tr/a-z/A-Z/;
+        if ( $key eq "CALLERID" ) {
+            $key = "CLID";
+        }
+        elsif ( $key eq "CALLERIDNUM" ) {
+            $key = "CLIDNUM";
+        }
+        elsif ( $key eq "CALLERIDNAME" ) {
+            $key = "CLIDNAME";
+        }
+        elsif ( $key eq "UNIQUEID" ) {
+            my ( $realunique, undef ) = split( /-/, $val, 2 );
+            $val = $realunique;
+        }
+        $hasha{$key} = $val;
+    }
+    $filename =~ s/\${CLIDNAME}/$hasha{CLIDNAME}/gi;
+    $filename =~ s/\${CLIDNUM}/$hasha{CLIDNUM}/gi;
+    $filename =~ s/\${CLID}/$hasha{CLID}/gi;
+    $filename =~ s/\${UNIQUEID}/$hasha{UNIQUEID}/gi;
+    $filename =~ s/\${CHANNEL}/$hasha{CHANNEL}/gi;
+    $filename =~ s/\${LINK}/$hasha{LINK}/gi;
+    $filename = formatdate($filename);
+    $filename =~ s/\//-/gi;
+    push @return, $filename;
+    push @return, $format;
+    return @return;
-}
-
@@ -7713 +8281 @@
-    log_debug( "$heading canal_destino =  $canal_destino", 32 ) if DEBUG;
-    $canal_destino =~ s/\d+\^(.*)/$1/g;
+    $canal_destino =~ s/^-//g;
-    log_debug( "$heading La extension para $param es $canal_destino", 32 ) if DEBUG;
-    return $canal_destino;
@@ -7752 +8321 @@
-    my $canalid    = shift;
-    my $member     = "";
-    my $nada       = "";
-    my $showagents = 0;
-
@@ -7762 +8330 @@
-        }
-        else {
-$nada
+undef
-        }
-    }
@@ -7779 +8347 @@
-
-            if ( $showagents == 1 ) {
-
+
+
+
-            }
-            if ( defined($member) ) {
@@ -7911 +8481 @@
-            for $interno ( keys %botonpermanenttext ) {
-                if ( $botonpermanenttext{$interno} ne "" ) {
-                    print "permanente $interno -$botonpermanenttext{$interno}-\n";
-                    send_status_to_flash( $socket, "$interno|settext|$botonpermanenttext{$interno}", 0 );
-                }
@@ -8008 +8577 @@
-
-        if ( defined($socket) && $socket ne "" ) {
-@pedazos
-pedazos[0]
+($ipactual)
+ipactual
-                my $contador = 0;
-                foreach my $valor (@manager_host) {
-pedazos[0]
+ipactual
-                        $nro_servidor = $contador;
-                    }
@@ -8033 +8602 @@
-            send_command_to_manager( "Action: Command\r\nActionID: parkedcalls\r\nCommand: show parkedcalls\r\n\r\n", $socket );
-
-       
+
-            # Send commands to check the mailbox status for each mailbox defined
-            while ( my ( $key, $val ) = each(%mailbox) ) {
-
-
+
-                if ( "$servidormbox" eq "$nro_servidor" ) {
-                    log_debug( "$heading mailbox $ip_addy{$socket} $key $val", 32 ) if DEBUG;
@@ -8065 +8633 @@
-
-                if ( $valor =~ /\^/ ) {
-
-
-
+
-                }
-                else {
@@ -8102 +8668 @@
-    my $interno    = "";
-    my $estado     = "";
-    my $nada       = "";
-    my $conference = 0;
-    my $usernum    = 0;
@@ -8158 +8723 @@
-        }
-    }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    elsif ( $texto =~ /ActionID: astdb-/ ) {
-        log_debug( "$heading process astdb", 16 ) if DEBUG;
@@ -8258 +8824 @@
-        }
-        my $canal_a_mutear = $buttons_reverse{$quecanal};
-
-
+
-        $canal_a_mutear =~ s/(.*)\&(.*)/$1/g;
-        $bloque[$contador]{"Event"}   = $quecomando;
@@ -8282 +8847 @@
-            my $estado = substr( $valor, $statPos );
-            $valor =~ s/\s+/ /g;
-
-
+
-
-            if ( $interno =~ /\// ) {
-
-
-
-
+
+
-
-            if ( defined($estado) && $estado ne "" ) {
@@ -8376 +8938 @@
-            $valor =~ s/\s+/ /g;
-            if ( $valor eq "" ) { next; }
-
-
-
-
+
+
-
-            if ( defined($interno) ) {
@@ -8521 +9081 @@
-                    $match++;
-                }
-$val eq $server
+( $val eq $server || $server eq "-1" )
-                    $match++;
-                }
@@ -8588 +9148 @@
-        if ( defined($_) && $_ ne "" ) {
-            log_debug( "$heading Enviando status a " . $ip_addy{$_}, 16 ) if DEBUG;
-@pedazos
-
-pedazos[0]
+($ip)
+
+ip
-                my $contador = 0;
-                foreach my $valor (@manager_host) {
-pedazos[0]
+ip
-                        $nro_servidor = $contador;
-                    }
@@ -8618 +9178 @@
-                # Send commands to check the mailbox status for each mailbox defined
-                while ( my ( $key, $val ) = each(%mailbox) ) {
-
-
+
-                    if ( "$servidormbox" eq "$nro_servidor" ) {
-                        log_debug( "$heading mailbox $ip_addy{$_} $key $val", 32 ) if DEBUG;
@@ -8629 +9188 @@
-    }
-    alarm($poll_interval);
+}
+
+sub send_policy_to_flash {
+    my $socket = shift;
+    if ( !defined($socket) ) {
+        log_debug( "POLICY socket $socket not open!!!", 64 ) if DEBUG;
+    }
+    my $policy =
+"<?xml version=\"1.0\"?>\r\n<!DOCTYPE cross-domain-policy SYSTEM \"http://www.macromedia.com/xml/dtds/cross-domain-policy.dtd\">\r\n<cross-domain-policy>\r\n<allow-access-from domain=\"*\" to-ports=\"$listen_port\" />\r\n</cross-domain-policy>\r\n\0";
+    actual_syswrite( $socket, $policy, "isclient", "policy enviado\n" );
-}
-
@@ -8651 +9220 @@
-    if ( $encriptado =~ /key\|0/ ) {
-        $but_no = '0';
-
-
-
-
+
-    }
-    else {
-        $but_no = $status;
-(.*)\|(.*)
+.*\|.*
-        $contexto = $status;
-        $contexto =~ s/([^\|]*).*/$1/g;
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-        if ( $contexto ne "" && $cmd ne "restrict" ) {
@@ -8727 +9285 @@
-}
-
+sub send_command_to_managers {
+    my $comando = shift;
+    foreach (@p) {
+        send_command_to_manager( $comando, $_ );
+    }
+}
+
-sub send_command_to_manager {
-    my $comando            = shift;
@@ -8734 +9299 @@
-    my @todos_sockets      = ();
-
-
-
-
-
+#    
+#    
+#    
+#    
-
-    if ( !defined($noneedtoauth) ) {
@@ -8756 +9321 @@
-        return;
-    }
-
-    #    my @partes = split( /\|/, $manager_socket{$socket} );
-
-    #    $comando = "";
-
-    if ( $comando eq "" ) {
@@ -8784 +9345 @@
-}
-
-
+
+
-    my $canalid = shift;
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    my $maxtime = 0;
-
-
+
+
+
+
-
-    my $header = "**RECOMP QUEUE";
@@ -8801 +9467 @@
-
-    if ( $queue_hide == 1 ) {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-    delete $cola->{$canalid};
-    my $save_id;
-
-    foreach my $id ( keys %{$cola} ) {
-if ( !defined( $cola->{$id}{QUEUE} )
+unless ( $cola->{$id}{QUEUE}
-            delete( $cola->{$id} );
-            next;
-        }
-
-        #foreach ( keys %{ $cola->{$id} } ) {
-        #    print "key de cola $_\n";
-        #}
-        if ( $queue_to_recompute eq $cola->{$id}{QUEUE} ) {
-            $save_id = $id;
-time()
+$time
-            if ( $diftime > $maxtime ) {
-                $maxtime = $diftime;
@@ -8838 +9489 @@
-                my $clidtext = $cola->{$id}{CLIDNAME} . " " . $cola->{$id}{CLID};
-                if ( $queue_hide == 1 ) {
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-                $cola->{$id}{POSITION}--;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-            }
-        }
-    }
-    if ( defined($save_id) ) {
-return_
+
-          $cola->{$save_id}{QUEUE} . "|settimer|$maxtime\@UP|" . $cola->{$save_id}{QUEUE} . "-" . $cola->{$save_id}{SERVER} . "|$save_id";
-    }
@@ -8885 +9510 @@
-
-    delete $cola->{$canalid};
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-}
-
@@ -8955 +9576 @@
-}
-
-sub inArray {
-    my $val = shift;
-    for my $elem (@_) {
-        if ( $val eq $elem ) {
-            return 1;
-        }
-    }
-    return 0;
-}
-
-sub encode_base64 {
-    my $res = "";
@@ -8996 +9607 @@
-    my $devuelve     = "";
-
+    if ( !defined($name) ) { $name = "" }
+
-    if ( $name eq "<unknown>" ) { $name = ""; }
-
@@ -9007 +9620 @@
-
-    @chars_number = split( //, $numero );
-
-
-
+
-
-    my $parate = 0;
@@ -9035 +9646 @@
-    }
-
-
-
+
-    $devuelve =~ s/\${CLIDNAME}/$name/gi;
-    return $devuelve;
@@ -9105 +9715 @@
-
-    if ( !$keys_socket{$socket} ) {
-        print "nocrypt = 1\n";
-        $nocrypt = 1;
-    }
@@ -9877 +10486 @@
-}
-
+sub formatdate {
+    my $format = shift;
+    @_ = localtime( shift || time );
+    my $h = sprintf( "%02d", $_[2] );
+    my $i = sprintf( "%02d", $_[1] );
+    my $s = sprintf( "%02d", $_[0] );
+    my $m = sprintf( "%02d", $_[4] + 1 );
+    my $d = sprintf( "%02d", $_[3] );
+    my $y = sprintf( "%02d", ( $_[5] + 1900 ) % 100 );
+    my $Y = sprintf( "%04d", $_[5] + 1900 );
+
+    $format =~ s/%Y/$Y/g;
+    $format =~ s/%y/$y/g;
+    $format =~ s/%h/$h/g;
+    $format =~ s/%i/$i/g;
+    $format =~ s/%s/$s/g;
+    $format =~ s/%m/$m/g;
+    $format =~ s/%d/$d/g;
+    return $format;
+}
+
-sub add_queueobject {
-    my $server = shift;
@@ -9884 +10514 @@
-    my @return;
-
-    print "add queueobject $server $queue $agent\n";
-    $queue_object->{$server}{$queue}{$agent}{status} = 1;
-    @return = compute_queueobject($server);
@@ -9897 +10526 @@
-    my @return;
-
-    print "delete queueobject $server $queue $agent\n";
-    delete( $queue_object->{$server}{$queue}{$agent} );
-    @return = compute_queueobject($server);
@@ -9918 +10546 @@
-                        if ( $iagent eq $agent ) {
-                            $queue_object->{$iserver}{$iqueue}{$iagent}{$property} = $value;
-                            print "property set!\n";
-                        }
-                    }