Changeset 4263

Timestamp:

06/28/07 14:41:22 (6 years ago)

Author:

p_lindheimer

Message:

#2022: bring fop up to version 0.27

Files:

• freepbx/branches/2.3/amp_conf/htdocs_panel/op_server.pl (modified) (203 diffs)
• freepbx/branches/2.3/amp_conf/htdocs_panel/operator_panel.swf (modified) (previous)

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

@@ -34 +34 @@
-use POSIX qw(setsid EWOULDBLOCK);
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-my %botonled                   = ();
-my %botonalpha                 = ();
+my %botonledcolor              = ();
-my %botonregistrado            = ();
-my %boton_ip                   = ();
@@ -52 +60 @@
-my %botonmeetme                = ();
-my %botonclid                  = ();
+my %botonpermanenttext         = ();
-my %botonqueue                 = ();
-my %botonqueue_count           = ();
@@ -63 +72 @@
-my %autenticado                = ();
-my %auto_conference            = ();
+my %attendant_transfer         = ();
+my %attendant_pending          = ();
+my %pending_uniqueid_attendant = ();
+my %mute_other                 = ();
+my %autosip                    = ();
+my %cnt_auto_pos               = ();
+my $cnt_autosip                = 0;
+my %autosip_detail             = ();
-my %buttons                    = ();
-my %buttons_queue              = ();
-my %buttons_queue_reverse      = ();
-my %buttons_preserve_case      = ();
+my %buttons_astdbkey           = ();
-my %button_server              = ();
-my %buttons_reverse            = ();
@@ -72 +90 @@
-my %iconos                     = ();
-my %urls                       = ();
+my %alarms                     = ();
-my %targets                    = ();
-my %remote_callerid            = ();
@@ -92 +111 @@
-my %client_queue_nocrypt       = ();
-my %ip_addy                    = ();
-
+
+
-my %is_agent                   = ();
-my %agents_on_queue            = ();
@@ -107 +127 @@
-my $bloque_final;
-my $todo;
+my $reload_pending     = 0;
-my $regexp_buttons     = 0;
+my $auto_buttons       = 0;
+my @auto_config        = ();
-my $queueagent_buttons = 0;
-my $defaultlanguage;
@@ -161 +184 @@
-my $clid_privacy;
-my %clid_private;
+my %group_count;
-my $show_ip;
-my $queue_hide;
@@ -175 +199 @@
-my $first_room;
-my $last_room;
-my $meetme_context;
-my $clid_format;
-my $directorio       = "";
@@ -185 +208 @@
-my %shapes;
-my %legends;
+my %images;
-my %no_encryption = ();
-my %total_shapes;
-my %total_legends;
+my %total_images;
-my @btninclude   = ();
-my @styleinclude = ();
@@ -309 +334 @@
-}
-
-open STDIN, '/dev/null'   or die "Can't read /dev/null: $!";
-
-if ( $logdir ne "" ) {
-    open( STDOUT, ">>$logdir/output.log" )
@@ -316 +339 @@
-    open( STDERR, ">>$logdir/error.log" )
-      or die "Can't open output log $logdir/error.log";
-} else {
-    open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
-    open STDERR, '>/dev/null' or die "Can't write to /dev/null: $!";
-}
-
@@ -325 +345 @@
-    exit if $pid;
-    setsid or die "Can't start a new session: $!";
-
+
+
-    print MYPIDFILE $$;
-    close MYPIDFILE;
@@ -513 +534 @@
-    %barge_rooms = map { $todos_los_rooms[$_], 0 } 0 .. $#todos_los_rooms;
-
-
-
+
-
-    $flash_file = $flash_dir . "/variables.txt";
@@ -761 +781 @@
-                next unless ( $contador >= 0 );
-                my ( $key, $val ) = split( /=/, $_, 2 );
+                if ( !defined($val) ) { $val = ""; }
-                $key =~ tr/A-Z/a-z/;
-                $key =~ s/^\s+//g;
@@ -781 +802 @@
-
-        close(CONFIG);
+    }
+
+    # Read now the auto_sip button config files
+    foreach my $papi ( sort keys %autosip ) {
+        if ( !defined( $autosip{$papi}{channel} ) ) { next; }
+
+        $contador++;
+        log_debug( "-----", 16 ) if DEBUG;
+        $btn_cfg[$contador]{'channel_preserve_case'} = $autosip{$papi}{channel};
+        $btn_cfg[$contador]{'channel'}               = $autosip{$papi}{channel};
+        if ( defined( $cnt_auto_pos{ $autosip{$papi}{autonumber} } ) ) {
+            $cnt_auto_pos{ $autosip{$papi}{autonumber} }++;
+        }
+        else {
+            $cnt_auto_pos{ $autosip{$papi}{autonumber} } = 0;
+        }
+
+        my $pos = $autosip{$papi}{starting_position} + $cnt_auto_pos{ $autosip{$papi}{autonumber} };
+        $btn_cfg[$contador]{'position'} = $pos;
+        $btn_cfg[$contador]{'channel'}  = $autosip{$papi}{channel};
+        my $logblock = "\n[" . $autosip{$papi}{channel} . "]\n";
+        log_debug( $autosip{$papi}{channel} . " at position $pos", 16 ) if DEBUG;
+
+        while ( my ( $key, $val ) = each( %{ $autosip{$papi} } ) ) {
+            if ( $val eq "" ) {
+                log_debug( "** Empty value for autosip for key $key, button $papi", 1 ) if DEBUG;
+                next;
+            }
+            $btn_cfg[$contador]{$key} = $val;
+            $logblock .= "$key=$val\n";
+            if ( $key eq "panel_context" ) {
+                push @contextos, $val;
+            }
+        }
+        log_debug( "$logblock", 1 ) if DEBUG;
-    }
-
@@ -817 +873 @@
-    my %rectangles_counter;
-    my %legends_counter;
-
+
+
+
-  CONFIG:
-    foreach (@btn_cfg) {
@@ -831 +889 @@
-            }
-        }
+        if ( $tmphash{channel} =~ /^AUTO/i ) {
+            $auto_buttons = 1;
+            while ( my ( $key, $val ) = each(%tmphash) ) {
+                $auto_config[$cont_auto]{$key} = $val;
+            }
+            $cont_auto++;
+            next CONFIG;
+        }
+
-        if ( $tmphash{channel} =~ /^_/ ) {
-            $regexp_buttons = 1;
@@ -836 +903 @@
-        elsif ( $tmphash{channel} =~ /^QUEUEAGENT\//i ) {
-            $queueagent_buttons = 1;
+        }
+        elsif ( $tmphash{channel} =~ /^image$/i ) {
+
+            # Image config primitive
+
+            if ( defined( $tmphash{panel_context} ) ) {
+                $tmphash{panel_context} =~ tr/a-z/A-Z/;
+                $tmphash{panel_context} =~ s/^DEFAULT$//xms;
+            }
+            else {
+                $tmphash{panel_context} = "";
+            }
+            my $conttemp = $tmphash{panel_context};
+            if ( $conttemp eq "" ) { $conttemp = "GENERAL"; }
+
+            if ( !defined( $tmphash{src} ) ) {
+                next CONFIG;
+            }
+            if ( !defined( $tmphash{url} ) ) {
+                $tmphash{url} = "no";
+            }
+            if ( !defined( $tmphash{target} ) ) {
+                $tmphash{target} = "NONTARFOP";
+            }
+            $images_counter{$conttemp}++;
+            if ( $images_counter{$conttemp} > 1 ) {
+                $images{$conttemp} .= "&";
+            }
+            $total_images{$conttemp}++;
+            $images{$conttemp} .= "image_$images_counter{$conttemp}=" . $tmphash{x} . ",";
+            $images{$conttemp} .= $tmphash{y} . ",";
+            $images{$conttemp} .= $tmphash{src} . ",";
+            $images{$conttemp} .= $tmphash{url} . ",";
+            $images{$conttemp} .= $tmphash{target};
+            next CONFIG;
+
-        }
-        elsif ( $tmphash{channel} =~ /^legend$/i ) {
@@ -972 +1075 @@
-        }
-
+        if ( !defined( $tmphash{alarm} ) ) {
+            $tmphash{alarm} = "0";
+
+        }
-        if ( !defined( $tmphash{url} ) ) {
-            $tmphash{url} = "0";
@@ -984 +1091 @@
-        }
-        else {
+            if ( $tmphash{server} eq "*" ) { $tmphash{server} = 0; }
-            $tmphash{server} = $tmphash{server} - 1;
-        }
@@ -1101 +1209 @@
-                }
-                $buttons_preserve_case{"$tmphash{server}^$chan_trunk_case"} = $pos;
-
-
+
+
+
+
+
-                if ( $no_counter == 0 ) {
-                    $textos{$indice_contexto} .= " " . $count;
@@ -1108 +1219 @@
-                $iconos{$indice_contexto}  = $tmphash{icon};
-                $urls{$indice_contexto}    = $tmphash{url};
+                $alarms{$indice_contexto}  = $tmphash{alarm};
-                $targets{$indice_contexto} = $tmphash{target};
-                $button_server{$pos}       = $tmphash{server};
@@ -1140 +1252 @@
-                $buttons{"$tmphash{server}^$canal_key"}                    = $lastpos . "\@" . $tmphash{panel_context};
-                $buttons_preserve_case{"$tmphash{server}^$canal_key_case"} = $lastpos . "\@" . $tmphash{panel_context};
+                if ( defined( $tmphash{astdbkey} ) ) {
+                    $buttons_astdbkey{"$tmphash{server}^$canal_key_case"} = $tmphash{astdbkey};
+                }
-
-                $textos{"$lastpos\@$tmphash{panel_context}"}              = $tmphash{label};
-                $iconos{"$lastpos\@$tmphash{panel_context}"}              = $tmphash{icon};
-                $urls{"$lastpos\@$tmphash{panel_context}"}                = $tmphash{url};
+                $alarms{"$lastpos\@$tmphash{panel_context}"}              = $tmphash{alarm};
-                $targets{"$lastpos\@$tmphash{panel_context}"}             = $tmphash{target};
-                $button_server{ $buttons{"$tmphash{server}^$canal_key"} } = $tmphash{server};
@@ -1157 +1273 @@
-                $buttons{"$tmphash{server}^$canal_key"}                    = $lastpos;
-                $buttons_preserve_case{"$tmphash{server}^$canal_key_case"} = $lastpos;
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-            }
-        }
-
-        @positions = unique(@positions);
+
+        if ( defined( $tmphash{groupcount} ) ) {
+            my $count = @positions;
+            if ( $count == 0 ) {
+                push @positions, $lastposition{ $tmphash{panel_context} };
+            }
+            if ( $tmphash{groupcount} eq "true" || $tmphash{groupcount} eq "1" ) {
+                my $agre_context = "";
+                if ( $tmphash{panel_context} ne "" ) {
+                    $agre_context = "\@" . $tmphash{panel_context};
+                }
+                foreach my $pos (@positions) {
+                    $group_count{"$pos$agre_context"} = 1;
+                }
+            }
+        }
-
-        if ( defined( $tmphash{privacy} ) ) {
@@ -1330 +1466 @@
-        my $flash_context_file = $directorio . "/variables" . $append_filename . ".txt";
-        push @all_flash_files, $flash_context_file;
+        no warnings "io";
-        open( VARIABLES, ">$flash_context_file" )
-          or die("Could not write configuration data $flash_context_file.\nCheck your file permissions\n");
@@ -1381 +1518 @@
-        }
-        while ( my ( $key, $val ) = each(%legends) ) {
+            if ( $key eq $contexto_iterate ) {
+                print VARIABLES "&$val";
+            }
+        }
+        while ( my ( $key, $val ) = each(%images) ) {
-            if ( $key eq $contexto_iterate ) {
-                print VARIABLES "&$val";
@@ -1462 +1604 @@
-            }
-        }
+        while ( my ( $key, $val ) = each(%alarms) ) {
+            $val =~ s/\"(.*)\"/$1/g;
+            if ( $val ne "0" ) {
+                my $base64_url    = encode_base64($val);
+                my $contextoboton = $key;
+                if ( $contextoboton =~ m/\@/ ) {
+                    my @parte = split( /\@/, $contextoboton, 2 );
+                    $contextoboton = $parte[1];
+                    $contextoboton =~ tr/a-z/A-Z/;
+                }
+                else {
+                    $contextoboton = "GENERAL";
+                }
+
+                if ( $contextoboton eq $contexto_iterate ) {
+                    $key =~ s/(\d+)\@.+/$1/g;
+                    print VARIABLES "&alarm$key=$base64_url\n";
+                }
+            }
+        }
+
-        if ( !defined( $style_variables{$contextlower} ) ) {
-            $style_variables{$contextlower} = $style_variables{"general"};
@@ -1473 +1636 @@
-            $total_legends{$contexto_iterate} = 0;
-        }
+        if ( !defined( $total_images{$contexto_iterate} ) ) {
+            $total_images{$contexto_iterate} = 0;
+        }
+
-        print VARIABLES "&total_legends=" . $total_legends{$contexto_iterate};
+        print VARIABLES "&total_images=" . $total_images{$contexto_iterate};
-
-        foreach my $val (@textsclients) {
@@ -1488 +1656 @@
-    }
-    $/ = "\0";
+
+}
+
+sub send_reload_to_flash() {
+    if ( $reload_pending == 1 ) {
+        log_debug( "Pending Reload!", 32 ) if DEBUG;
+        foreach my $socket ( keys %keys_socket ) {
+            &sends_reload($socket);
+        }
+        $reload_pending = 0;
+    }
-}
-
@@ -1533 +1712 @@
-
-sub generate_configs_onhup {
+
+    %autosip        = ();
+    %autosip_detail = ();
+    %cnt_auto_pos   = ();
+    $cnt_autosip    = 0;
+
-    %buttons            = ();
-    %background         = ();
@@ -1555 +1740 @@
-    %botonvoicemailcount = ();
-    %botonalpha          = ();
+    %botonledcolor       = ();
-    %botonqueue          = ();
-    %botonqueuemember    = ();
@@ -1715 +1901 @@
-    }
-    if ( $elemento =~ /^mISDN/i ) {
-
+
+
+
-
-        #    $elemento =~ s/(.*)\/(.*)/\U$1\E\/${2}-${2}/g;
-    }
-
+els
-        $elemento =~ s/(.*)\/(.*)/\U$1\E\/${2}-1/g;
-    }
+    elsif ( $elemento =~ /^CAPI\//i ) {
+        $elemento =~ s/(CAPI\/)(.*)\/(.*)-(.*)/$1$2-$4/g;
+    }
+
-    $elemento =~ s/(.*)[-\/](.*)/$1\t$2/g;
-    log_debug( "$heading elemento2 $elemento", 32 ) if DEBUG;
@@ -1760 +1952 @@
-
-sub erase_instances_for_trunk_buttons {
+
-    my $canalid          = shift;
-    my $canal            = shift;
@@ -1794 +1987 @@
-
-    my $sesiontemp = $canalid;
-    if ( $canalid =~ /^Zap/i && $canal =~ /\*/ ) {
-
-        # Si es un Zap y ademas wildcard, cambio el canalid para
-        # que tenga la sesion modificada
-        # $sesiontemp =~ s/Zap/ZAP/g;
-        $sesiontemp =~ s/(.*)\/(.*)-(.*)/\U$1\/$2-${2}\E${3}/g;
-    }
-    if ( $canalid =~ /^MGCP/i && $canal =~ /\*/ ) {
-
-        # Si es un MGCP y ademas wildcard, cambio el canalid para
-        # que tenga la sesion modificada
-        my $sesiontemp2 = $sesiontemp;
-        $sesiontemp2 =~ s/(.*)\@(.*)-(.*)/$2/g;
-        $sesiontemp2 = substr( $sesiontemp2, -3 );
-        $sesiontemp =~ s/(.*)\/(.*)-(.*)/\U$1\E\/${2}-${sesiontemp2}${3}/g;
-    }
-
-    log_debug( "$heading looking for $canalid on instancias to erase it", 128 ) if DEBUG;
@@ -1915 +2092 @@
-    my @return;
-    my $heading = "** ERASE_ALL_SESS_FROM";
-
+ server $server
-
-    my $indice_cache = $canalid . "-" . $canal . "-" . $server;
@@ -2138 +2315 @@
-            $todo .= "$key = $val\n";
-            log_debug( "$heading buscando $canal en $key=$val", 128 ) if DEBUG;
-
+i
-                log_debug( "$heading canal coincide $canal = $val\n", 16 ) if DEBUG;
-                $canalaqui = 1;
@@ -2285 +2462 @@
-                @multicanal = ($canal);
-            }
-            print_agents();
-        }
-    }
@@ -2309 +2485 @@
-    my $indice_cache = "";
-    @multicanal = unique(@multicanal);
+    my $server_original = $server;
-
-    foreach my $canal (@multicanal) {
@@ -2317 +2494 @@
-            log_debug( "$heading CACHE MISS $indice_cache", 32 ) if DEBUG;
-            for ( keys %buttons ) {
+                $server     = $server_original;
-                $canalfinal = "";
-                my ( $nada, $contexto ) = split( "\&", $_ );
-                if ( !defined($contexto) ) { $contexto = ""; }
-                if ( $contexto ne "" ) { $contexto = "&" . $contexto; }
+                log_debug( "$heading trying $_", 32 ) if DEBUG;
+                if ( $_ =~ /^\Q-1^\E/ ) {
+                    log_debug( "$heading IGNORE SERVER! $_", 32 ) if DEBUG;
+                    $server = "-1";
+                }
-                if ( $_ =~ /^\Q$server^$canal\E$/i ) {
-
@@ -2525 +2708 @@
-    if ( $hash_temporal{"Event"} =~ /^UserEvent/ ) {
-
+        if ( $hash_temporal{"Event"} eq "UserEvent" ) {
+
+            # Asterisk 1.4 Issues a separate header for UserEvent, merge it
+            # to make it compatible with the way older versions worked
+            $hash_temporal{"Event"} = "UserEvent" . $hash_temporal{UserEvent};
+        }
+
-        # This blocks checks if we have an UserEvent
-        # and splits every key value pair if it haves
@@ -2553 +2743 @@
-
-    if ( defined( $hash_temporal{"Uniqueid"} ) ) {
-
-
+
+
+
+
-    }
-    else {
@@ -2619 +2811 @@
-                        $val = "";
-                    }
-"$key"
+$key
-                    log_debug( "$heading POPULATES datos($unico_id){ $key } = $val", 128 ) if DEBUG;
-                }
@@ -2644 +2836 @@
-    elsif ( $evento =~ /^Unlink/ )              { $evento = "unlink"; }
-    elsif ( $evento =~ /QueueParams/ )          { $evento = "queueparams"; }
+    elsif ( $evento =~ /PeerEntry/ )            { $evento = "peerentry"; }
-    elsif ( $evento =~ /QueueEntry/ )           { $evento = "queueentry"; }
-    elsif ( $evento =~ /^QueueMember$/ )        { $evento = "queuemember"; }
@@ -2677 +2870 @@
-    elsif ( $evento =~ /^ZapShowChannels$/ )    { $evento = "zapdndstate"; }
-    elsif ( $evento =~ /^ExtensionStatus$/ )    { $evento = "extensionstatus"; }
+    elsif ( $evento =~ /^OriginateSuccess$/ )   { $evento = "originatesuccess"; }
+    elsif ( $evento =~ /^OriginateFailure$/ )   { $evento = "originatefailure"; }
+    elsif ( $evento =~ /^ChannelReload$/ )      { $evento = "channelreload"; }
-    else { log_debug( "$heading No event match ($evento)", 32 ); }
-
@@ -2695 +2891 @@
-    }
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-        # Hook for queue statistics?
@@ -2708 +3029 @@
-        my ( $canal, $nada ) = separate_session_from_channel( $hash_temporal{Channel} );
-        request_queue_status( $socket, $canal );
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-        # We use this event to send the ringing state for an Agent
@@ -2719 +3169 @@
-        $clidnum  = $hash_temporal{"CallerID"};
-        $clidname = $hash_temporal{"CallerIDName"};
-
+name, $clid
-        my $base64_clidnum  = encode_base64( $clidnum . " " );
-        my $base64_clidname = encode_base64( $clidname . " " );
@@ -2727 +3177 @@
-        $evento = "";
-    }
-
-
+
-
-        # We use this event to fake the ringing state
-        $estado_final = "ocupado";
-$hash_temporal{\"Queue\"}"
+" . $hash_temporal{Queue}
-        $canal        = $hash_temporal{"Channel"};
-        $canal =~ tr/a-z/A-Z/;
-        $canalid = $canal . "-XXXX";
-
+
+
+
+
+
+
+
+
+
+
-        $evento = "";
-    }
-
-
+
-
-        # We use this hashes to store the remote callerid for CVS-HEAD
@@ -2750 +3207 @@
-        $remote_callerid_name{$key} = $hash_temporal{"CallerIDName"};
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        $canal = $hash_temporal{"Channel"};
-        my $zstatus = "";
@@ -2791 +3251 @@
-
-        $evento = "";
-
-
-
+
+
+
+
-        my $valor = "";
-        $estado_final = "astdb";
@@ -2799 +3260 @@
-        $canalid = $hash_temporal{"Channel"} . "-XXXX";
-        my $clave = $hash_temporal{"Family"};
-Stat
+Valu
-            $valor = "";
-        }
-        else {
-Stat
+Valu
-        }
-
-        foreach my $item ( @{ $astdbcommands{$clave} } ) {
-            my $item_temp = $item;
+            my $datoon    = "";
+            my $datooff   = "";
-            $item_temp =~ s/\${value}/$valor/g;
-            my ( $comando, $datos ) = split( /=/, $item_temp );
+            if ( $datos =~ /\|/ ) {
+                ( $datoon, $datooff ) = split( /\|/, $datos );
+            }
+            else {
+                $datoon  = $datos;
+                $datooff = "";
+            }
+
-            if ( $valor ne "" ) {
-s
+on
-            }
-            else {
-
+$datooff
-            }
-        }
-        $evento = "";
-    }
-
-
+
-        $estado_final = "timeout";
-        $texto        = $timeout;
@@ -2830 +3300 @@
-        $evento = "";
-    }
-
-
+
-
-        # Sends the IP address of the peer to the flash client
@@ -2849 +3318 @@
-        }
-    }
-
-
+
-        my $color = "";
-        my $state = "";
@@ -2860 +3328 @@
-        $evento = "";
-    }
-
-
+
-        ( $canal, my $nada ) = separate_session_from_channel( $hash_temporal{"Channel"} );
-        my $url    = $hash_temporal{"URL"};
@@ -2872 +3339 @@
-        $evento = "";
-    }
-
-
+
-        ( $canal, my $nada ) = separate_session_from_channel( $hash_temporal{"Channel"} );
-
@@ -2884 +3350 @@
-        $evento = "";
-    }
-
-
+
-        my $canal      = "";
-        my $canallocal = "";
@@ -2893 +3358 @@
-        if ( $canalid eq "" ) {
-            $canalid = "Agent/$texto-XXXX";
+        }
+        my @respuestas = set_queueobject( $server, "AGENT/$texto", "status", 1 );
+        foreach (@respuestas) {
+            push @return, $_;
-        }
-
@@ -2964 +3433 @@
-            $agent_to_channel{"$server^Agent/$texto"} = $canal;
-
-            print_agents();
-
-            $estado_final = "changelabel" . $change_led;
-            if ( $ren_cbacklogin == 1 ) {
@@ -3000 +3467 @@
-        $evento = "";
-    }
-
-
+
-        my $canal   = $hash_temporal{Location};
-        my $cola    = $hash_temporal{Queue};
-        my $canalid = $canal . "-XXXX";
-
@@ -3023 +3488 @@
-
-        my $color = "";
-eq "1
+ne "0
-            my ( $text, $textriginal, $buttontext ) = translate( $canal, "&paused", "", "" );
-            $texto = $text;
@@ -3034 +3499 @@
-            $texto = "&idle";
-            $color = "ledcolor_agent";
+        }
+        my $canset = "";
+        $canset = uc($canal);
+        my @respuestas = set_queueobject( $server, $canset, "paused", $hash_temporal{Paused} );
+        foreach my $item (@respuestas) {
+            push @return, $item;
-        }
-        $boton_ip{$canalid} = $texto;
@@ -3041 +3512 @@
-        push @return, "$canal|fopledcolor|$color^2|$unico_id|$canalid";
-        push @return, "$canal|state|free|$unico_id|$canalid";
+        push @return, "$canal|paused|$hash_temporal{Paused}|$unico_id|$canalid";
-        $evento = "";
-
-    }
-
-
-
-
+
+
+
+
+
+
+
+
-        $fake_bloque[$fakecounter]{Event}   = "Agentlogoff";
-        $fake_bloque[$fakecounter]{Channel} = $canal . "-XXXX";
-        $fake_bloque[$fakecounter]{Agent}   = $canal;
-
+r
-        $fake_bloque[$fakecounter]{Fake}    = "removed";
-        $fake_bloque[$fakecounter]{Server}  = $hash_temporal{Server};
@@ -3057 +3533 @@
-        $evento = "";
-    }
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-        $fake_bloque[$fakecounter]{Event}   = "Agentlogin";
-        $fake_bloque[$fakecounter]{Channel} = $canal . "-XXXX";
-        $fake_bloque[$fakecounter]{Agent}   = $canal;
-
+r
-        $fake_bloque[$fakecounter]{Server}  = $hash_temporal{Server};
-        $fake_bloque[$fakecounter]{Addhash} = 1;
@@ -3085 +3564 @@
-
-    }
-
-
+
-
-        my $labeltext = ".";
@@ -3099 +3577 @@
-            $agent_to_channel{"$server^Agent/$texto"} = $canalreal;
-            log_debug( "channel_to_agent($server^$canalreal) = " . $channel_to_agent{"$server^$canalreal"}, 64 ) if DEBUG;
+            if ( !defined( $hash_temporal{Fake} ) || $hash_temporal{Fake} ne "init" ) {
+                my @respuestas = set_queueobject( $server, "AGENT/$texto", "status", 1 );
+                foreach (@respuestas) {
+                    push @return, $_;
+                }
+            }
-        }
-
@@ -3207 +3691 @@
-
-        if ( defined( $hash_temporal{Queue} ) ) {
-count
+agents_available_on
-                my $contaconta = 0;
-                my %temp_queue = ();
-                my $valor      = "$server^$hash_temporal{Queue}";
-
-count
+agents_available_on
-
-                my %count;
-count
-count
-
-count_queue{$valor} ) && $count
+agents_available_on
+agents_available_on
+
+agents_available_on_queue{$valor} ) && $agents_available_on
-                    my $texto3 = "";
-count
+agents_available_on
-                        $texto3 .= "$qmem\n";
-                    }
-count
+agents_available_on
-                    my $texto2 = "Agents Logged: $contaconta\n" . $texto3 . "  ";
-                    $texto2 = encode_base64($texto2);
@@ -3232 +3716 @@
-        }
-    }
-
-
+
-
-        $canal = "Agent/" . $hash_temporal{Agent};
@@ -3240 +3723 @@
-        }
-
+        if ( !defined( $hash_temporal{Fake} ) || $hash_temporal{Fake} ne "init" ) {
+            my @respuestas = set_queueobject( $server, "AGENT/$canal", "status", 5 );
+            foreach (@respuestas) {
+                push @return, $_;
+            }
+        }
+
-        my $texto = $hash_temporal{Agent};
-        $canalid = $canal . "-XXXX";
@@ -3248 +3738 @@
-            if ( defined( $agent_to_channel{"$server^Agent/$canal"} ) || defined( $channel_to_agent{"$server^$canal"} ) ) {
-                if ( defined( $agent_to_channel{"$server^Agent/$canal"} ) ) {
-
-                    #                    ( $canal, my $nada ) = separate_session_from_channel( $agent_to_channel{"$server^Agent/$canal"} );
-                    $canal = $agent_to_channel{"$server^Agent/$canal"};
-                }
-                else {
-
-                    #                    ( $canal, my $nada ) = separate_session_from_channel( $channel_to_agent{"$server^$canal"} );
-                    $canal = $channel_to_agent{"$server^$canal"};
-                }
@@ -3266 +3752 @@
-                }
-
-                #delete $agent_to_channel{"$server^$canal"};
-                #delete $agent_to_channel{"$server^$agente"};
-                delete $reverse_agents{$texto};
-                delete $reverse_agents{$canal};
@@ -3306 +3790 @@
-        delete( $is_agent{ uc("$server^$texto") } );
-
-count
-count
+agents_available_on
+agents_available_on
-            my $contaconta = 0;
-            my %temp_queue = ();
-            my $valor      = "";
-count
-count
+agents_available_on
+agents_available_on
-                    if ( $vvalor !~ /^$server\^$canal$/i && $vvalor !~ /^$server\^AGENT\/$texto$/i ) {
-                        push @{ $temp_queue{$valor} }, $vvalor;
@@ -3321 +3805 @@
-                }
-            }
-count
+agents_available_on
-            if ( defined( $hash_temporal{Queue} ) ) {
-                $valor = $hash_temporal{Queue};
-count_queue{"$server^$valor"} ) && $count
+agents_available_on_queue{"$server^$valor"} ) && $agents_available_on
-                    my $texto3 = "";
-count
+agents_available_on
-                        $texto3 .= "$qmem\n";
-                    }
-count
+agents_available_on
-                    my $texto2 = "Agents Logged: $contaconta\n" . $texto3 . "  ";
-                    $texto2 = encode_base64($texto2);
@@ -3339 +3823 @@
-
-    }
-
-
+
-
-        if ( defined( $max_queue_waiting_time_for{"$hash_temporal{Queue}-$hash_temporal{Server}"} ) ) {
@@ -3364 +3847 @@
-        $fakecounter++;
-    }
-
-
+
-        for my $cola_server ( keys %max_queue_waiting_time_for ) {
-            my ( $cola, $server ) = ( $cola_server =~ m/(.*)-(.*)/ );
@@ -3377 +3859 @@
-        }
-        $evento = "";
-
-
-
+
+
+
+
+
+
-
-        my $canalag = $hash_temporal{"Location"};
@@ -3387 +3872 @@
-        $canal = $hash_temporal{"Location"};
-
+        # $agent_status{$hash_temporal{Queue}}{$canalag}=$hash_temporal{Status}; XXXXXXXX NUEVO
+
-        ( $server, $canal ) = local_channels_are_driving_me_mad( $server, $canal );
-
@@ -3400 +3887 @@
-                    $fake_bloque[$fakecounter]{Agent}  = $temp;
-                    $fake_bloque[$fakecounter]{Server} = $server;
-1
+init
-                    $fakecounter++;
-
@@ -3411 +3898 @@
-                    $fake_bloque[$fakecounter]{Channel} = $canal . "-XXXX";
-                    $fake_bloque[$fakecounter]{Agent}   = $canal;
-1
+init
-                    $fake_bloque[$fakecounter]{Server}  = $server;
-                    $fakecounter++;
@@ -3418 +3905 @@
-                }
-            }
+
+            if ( defined( $hash_temporal{Paused} ) ) {
+                if ( $evento eq "queuemember" ) {
+                    push @return, "$canalag|paused|$hash_temporal{Paused}|$unicoag_id|$canal-XXXX";
+                }
+            }
+
-        }
-
@@ -3426 +3920 @@
-            reserve_next_available_agent_button( $server, $canal, $hash_temporal{Queue} );
-            $is_agent{ uc("$server^$canalag") } = 1;
-
-            #if ( $agent_status == 1 ) {
-            #    if ( $hash_temporal{Paused} eq "1" ) {
-            #        push @return, "$canal|settext|&paused|$unico_id|$canalid";
-            #        push @return, "$canal|settimer|0\@IDLE|$unico_id|$canalid";
-            #    }
-            #    else {
-            #        push @return, "$canal|settext|&idle|$unico_id|$canalid";
-            #        push @return, "$canal|settimer|0\@IDLE|$unico_id|$canalid";
-            #    }
-            #}
-
-        }
-        if ( $canal !~ /^Local/ ) {
@@ -3451 +3933 @@
-        while ( ( $key, $val ) = each(%hash_temporal) ) {
-            if ( !defined($val) ) { $val = " "; }
-
+
+
+
+
-            if ( $key eq "Status" && $val != 5 ) {
-                $estado_final .= $vval;
-count
+agents_available_on
-                $has_status_ast_12 = 1;
+            }
+            if ( $key eq "Status" ) {
+                $queue_object->{$server}->{$vval}->{$canal}->{status} = $val;
+            }
+            if ( $key eq "Paused" ) {
+                $queue_object->{$server}->{$vval}->{$canal}->{paused} = $val;
-            }
-        }
@@ -3462 +3953 @@
-            # If there is no status on the events, is asterisk stable, count the agent in
-            $estado_final .= $vval;
-count
+agents_available_on
-        }
-        my %count;
-count
-count
-count
+agents_available_on
+agents_available_on
+agents_available_on
-
-        my $texto3 = "";
-count
+agents_available_on
-            $texto3 .= "$qmem\n";
-        }
@@ -3485 +3976 @@
-            push @return, "$canalag|$estado_final|$texto|$unicoag_id|$canalagid";
-        }
-
+
+
+
+
+
+
+
+
-
-        if ( $canal !~ /^Local/i && $canal !~ /^Agent/i && $evento eq "queuemember" ) {
@@ -3515 +4013 @@
-        $evento = "";
-    }
-
-
+
-        $canal   = $hash_temporal{Queue};
-        $canalid = $canal . "-XXXX";
@@ -3533 +4030 @@
-        $evento = "";
-    }
-
-
+
-        my ( $canal, $nada ) = separate_session_from_channel($canalid);
-        $estado_final = $evento;
@@ -3540 +4036 @@
-        $evento = "";
-    }
-
-
+
-        $canal = $hash_temporal{Queue};
-        $canal =~ tr/a-z/A-Z/;
@@ -3566 +4061 @@
-        $evento = "";
-    }
-
-
+
-        my $qclidnum  = "";
-        my $qclidname = "";
@@ -3610 +4104 @@
-
-    }
-
-if ( $evento eq "meetmejoin" ) {
-originate
-
-
+
+    my $originate        = "no";
+mute_other_party
+       
+       
-
-        if ( $hash_temporal{Channel} =~ /^Local/ ) {
@@ -3632 +4126 @@
-
-        for $quehay ( keys %auto_conference ) {
-
-            if ( $quehay eq $hash_temporal{Channel} ) {
-                $originate = $auto_conference{"$quehay"};
-                $contexto  = $barge_context{$canal};
-            }
+        }
+
+        for $quehay ( keys %attendant_transfer ) {
+            if ( $quehay eq $hash_temporal{Channel} ) {
+                $originate        = $attendant_transfer{$quehay};
+                $mute_other_party = $mute_other{$quehay};
+                $contexto         = $barge_context{$canal};
+
+                # delete mute_other($channel) and set it to mute_other(room)
+                # so we can use that for redirecting when attendant_pending
+                # hangs up.
+                delete $mute_other{$quehay};
+                my $indice = $canal . "@" . $config->{$contexto}{'conference_context'};
+                $mute_other{$indice} = $mute_other_party;
+            }
+        }
+
+        my $callerid_attendant   = "";
+        my $callerid_attendant_n = "";
+        if ( $mute_other_party ne "no" ) {
+            my $extendest = $canal;
+            my $contedest = $config->{$contexto}{'conference_context'};
+
+            if ( defined( $config->{$contexto}{'attendant_hold_extension'} ) ) {
+                $extendest = $config->{$contexto}{'attendant_hold_extension'};
+            }
+
+            if ( defined( $config->{$contexto}{'attendant_hold_context'} ) ) {
+                $contedest = $config->{$contexto}{'attendant_hold_context'};
+            }
+
+            log_debug( "** ATTENDANT Redirect $mute_other_party to MUSIC on HOLD extension", 16 ) if DEBUG;
+            for $quehay ( keys %datos ) {
+                if ( defined( $datos{$quehay}{Channel} ) ) {
+                    if ( $datos{$quehay}{Channel} eq $mute_other_party ) {
+                        $callerid_attendant   = $datos{$quehay}{CallerID};
+                        $callerid_attendant_n = $datos{$quehay}{CallerIDName};
+                    }
+                }
+            }
+            my $comando = "Action: Redirect\r\n";
+            $comando .= "Channel: $mute_other_party\r\n";
+            $comando .= "Exten: " . $extendest . "\r\n";
+            $comando .= "Context: " . $contedest . "\r\n";
+            $comando .= "ActionID: 1234attendant\r\n";
+            $comando .= "Priority: 1\r\n\r\n";
+            send_command_to_manager( $comando, $socket, 0, $astmanproxy_server );
-        }
-
@@ -3646 +4186 @@
-            $comando .= "Context: " . $config->{$contexto}{'conference_context'} . "\r\n";
-            $comando .= "Priority: 1\r\n";
+            if ( $callerid_attendant ne "" ) {
+                $comando .= "CallerID: $callerid_attendant_n <$callerid_attendant>\r\n";
+            }
+            if ( $mute_other_party ne "no" ) {
+                $comando .= "Async: True\r\n";
+                $comando .= "ActionID: attendant-$contexto\r\n";
+            }
-            $comando .= "\r\n";
-            send_command_to_manager( $comando, $socket, 0, $astmanproxy_server );
-
-
+
-                $start_muted{"$server^$originate"} = 1;
-            }
@@ -3726 +4272 @@
-        else {
-            print_datos(99);
-
+
+
+
+
+
+
+
-        }
-        my $texto_pos = "[$qclidnum]";
@@ -3736 +4288 @@
-        push @return, "$canalfin|meetmeuser|$hash_temporal{Usernum},$hash_temporal{Meetme}|YYYY-$server|$hash_temporal{Channel}";
-    }
-
-
+
-        $canal = $hash_temporal{Meetme};
-        $canal =~ tr/a-z/A-Z/;
@@ -3767 +4318 @@
-        push @return, "$canalfin|corto||$hash_temporal{Uniqueid}-$server|$canaleja";
-    }
-
-
+
-        $canal = "QUEUE/" . $hash_temporal{"Queue"};
-        $canal =~ tr/a-z/A-Z/;
@@ -3787 +4337 @@
-        print_sesbot(2);
-    }
-
-
+
-        my @canalesvoicemail = ();
-
@@ -3825 +4374 @@
-        $evento = "";
-    }
-
-
+
-        my $uniqueid1 = $hash_temporal{"Uniqueid1"};
-        my $uniqueid2 = $hash_temporal{"Uniqueid2"};
@@ -3846 +4394 @@
-
-        my $channel1conses = $channel1;
-
+&& $channel1 !~ /^mISDN/i 
-            $channel1conses = "$canal1-$sesion1";
-        }
-
-        my $channel2conses = $channel2;
-
+&& $channel2 !~ /^mISDN/i 
-            my $channel2conses = "$canal2-$sesion2";
-        }
@@ -3899 +4447 @@
-            $clid2 = $datos{$uniqueid1}{"CallerID"};
-        }
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        push @return, "$canal1|setlink|$channel2|$uniqueid1|$channel1conses";
-        push @return, "$canal2|setlink|$channel1|$uniqueid2|$channel2conses";
-        $evento = "";    #NEW
-    }
-
-
+
-        my $uniqueid1 = $hash_temporal{Uniqueid1};
-        my $uniqueid2 = $hash_temporal{Uniqueid2};
@@ -3956 +4514 @@
-        $evento = "";    #NEW
-    }
-
-
+
-        my $nuevo_nombre = "";
-        my $viejo_nombre = "";
@@ -3978 +4535 @@
-        }
-
-        # Directamente borra la sesion que se debe renombrar
-        #if ( ( $nuevo_nombre !~ /</ ) && ( $viejo_nombre !~ /</ ) ) {
-        my @final = ();
-
@@ -4050 +4605 @@
-        $evento = "";    #NEW
-    }
-
-
+
-        my $tiempo = 0;
-        $canal = $hash_temporal{Peer};
@@ -4081 +4635 @@
-        $evento = "";
-    }
-
-
+
-        $canal = $hash_temporal{"Exten"};
-        $canal =~ s/(\d+)/SCCP\/$1/g;
@@ -4097 +4650 @@
-        $evento = "";
-    }
-
-
+
-        $evento = "";
-    }
-
-
+
-
-        # When done with the status retrieval, generate events to send to
@@ -4196 +4747 @@
-        $evento = "";    #NEW (estaba comentado)
-    }
-
-
+
-        my @bot1 = ();
-        my $bot2 = 0;
-        $estado_final = "meetmeuser";
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-            $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} );
+            $texto        = $hash_temporal{Extension};
+      if($texto ne "s") {
+              $estado_final = "setclid";
+      }
+        }
+        else {
+            print "Newexten pero otro priority?\n";
-        }
-
@@ -4226 +4786 @@
-            log_debug( "$heading NO EXISTE parked{$server^$canalid}", 128 ) if DEBUG;
-        }
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        if ( exists( $datos{$unico_id} ) ) {
-            $datos{$unico_id}{'State'} = "Down";
+            $hash_temporal{'State'} = "Down";
-            log_debug( "$heading POPULATES datos($unico_id){ State } = down", 128 ) if DEBUG;
-        }
-        else {
-            $hash_temporal{'State'} = "Down";
-        }
-
@@ -4248 +4860 @@
-        }
-    }
-
-
+
-        my $channel1 = $hash_temporal{"Channel"};
-
@@ -4262 +4873 @@
-        }
-    }
-
-
+
-        $texto        = "&parked," . $hash_temporal{'Exten'} . "&";
-        $estado_final = "ocupado3";
@@ -4285 +4895 @@
-        $evento = "";    #NEW
-    }
-
-
+
-        $estado_final = "setstatus";
-        $state        = "Newcallerid";
@@ -4309 +4918 @@
-    # Dont check for $evento bellow this line!
-
+    print "AFTER IF ELSE IF evento = $evento\n";
+
-    if ( $evento ne "" ) {
-        log_debug( "$heading Event $evento, canal '$canal'", 32 ) if DEBUG;
@@ -4363 +4974 @@
-            }
-
-            if ( exists( $datos{$unico_id}{'State'} ) ) {
-                log_debug( "$heading EXISTE datos($unico_id){state}", 32 ) if DEBUG;
-                $state = $datos{$unico_id}{'State'};
-            }
-
-            if ( exists( $datos{$unico_id}{'Callerid'} ) ) {
-                $clid = $datos{$unico_id}{'Callerid'};
@@ -4395 +5001 @@
-        }
-
+        # print "clidnum $clidnum clidname $clidname\n";
+
-        if ( $state eq "" ) {
-            if ( defined( $hash_temporal{'State'} ) ) {
@@ -4404 +5012 @@
-        }
-
-
+name, $clid
-
-        if ( $state eq "Ringing" ) {
@@ -4425 +5033 @@
-
-        if ( $state eq "Ring" ) {
-
+
+
-            $estado_final               = "ring";
-            $datos{$unico_id}{'Origin'} = "true";
@@ -4521 +5130 @@
-        my $exten_clid = "";
-        if ( $state eq "Up" ) {
+
+            if ( defined( $hash_temporal{CallerIDName} ) ) {
+                $saved_clidname{"$server^$hash_temporal{'Channel'}"} = $hash_temporal{CallerIDName};
+            }
+
-            if ( $exten ne "" ) {
-                if ( is_number($exten) ) {
-
+'', 
-                    if ( defined( $saved_clidnum{"$server^$canalid"} ) ) {
-
+saved_clidname{"$server^$canalid"}, $
-                    }
-                    if ($clid_privacy) {
@@ -4533 +5147 @@
-                }
-                else {
-
-
-
-
-
+
+
-                    }
-else
-onquien = $exten
+if ( defined( $saved_clidnum{"$server^$hash_temporal{Channel}"} ) )
+lidnum = $saved_clidnum{"$server^$hash_temporal{Channel}"}
-                    }
+                    $conquien = format_clid( $clidnum, $clidname, $clid_format );
+
+                    #if ( length($exten) == 1 ) {
+                    #    $conquien = $exten;
+                    #    $exclude  = 1;        # We ignore events that have letter extensions 's', 'h', etc
+                    #    $exclude  = 0;        # Do we? UserEvent fake events dont work if we ignore them
+                    #    log_debug( "$heading CLID is not a number! $exten", 32 ) if DEBUG;
+                    #}
+                    #else {
+                    #    $conquien = $exten;
+                    #}
-                }
-            }
@@ -4562 +5184 @@
-                    }
-                    else {
+                        if ( $exten_clid eq "" ) { $exten_clid = $conquien; }
-                        $texto = "&calling,[$exten_clid]";
-                    }
@@ -4610 +5233 @@
-        my $local_channel = $canal;
-        $local_channel =~ s/Local\///gi;
+        if ( $local_channel =~ m/\/n$/ ) {
+            $local_channel = substr( $local_channel, 0, -2 );
+        }
+
-        if ( defined( $extension_transfer_reverse{"$server^$local_channel"} ) ) {
-            if ( $extension_transfer_reverse{"$server^$local_channel"} !~ /\d+\^CLID/ ) {
@@ -4656 +5283 @@
-    my @mensajes           = ();
-    my $interno            = "";
-o
+a
-    my @mensajefinal;
-    my $cuantas;
@@ -4668 +5295 @@
-
-    @fake_bloque = ();
-
+
+
-    foreach my $blaque (@blique) {
-
@@ -4689 +5317 @@
-                log_debug( "$heading GOT $mensaje", 32 ) if DEBUG;
-                delete $datos{""};    # Erase the hash with no uniqueid
-
-
+
+
+
-
-                if ( !defined($dos) )     { $dos     = ""; }
@@ -4701 +5330 @@
-
-                if ( $dos eq "skip" ) {
-SALTEO $canal tiene skip
+skipping $canal $quehace (has skip)
-                    next;
-                }
+
-                if ( $quehace eq "" ) {
-
+
+
-                    next;
-                }
@@ -4715 +5346 @@
-                log_debug( "$heading canalid:  $canalid",  32 ) if DEBUG;
-
-
-
-
-
-
+
+
-                my $canalidzombie = $canalid;    # Removes whitespace from CHANNEL-ID
-                $canalid =~ s/(.*)<(.*)>/$1/g;   # discards ZOMBIE or MASQ
@@ -4747 +5375 @@
-                my $cuantos  = @canaleja;
-
+        # Perform some pre processing...
+
-                if ( $quehace eq "corto" || $quehace eq "info" ) {
-
-                    # We collect the last state of the channel on hangup
+                    $toda = "";
-                    while ( my ( $key, $val ) = each( %{ $datos{$uniqueid} } ) ) {
-o
+a
-                          if ( $key ne "E" ) && ( defined($val) );
-                        log_debug( "$heading \tAgrego $key = $val", 128 ) if DEBUG;
-                    }
-
-
-
-
-
+
+
+
+
+
+
+
-                    log_debug( "$heading erasing datos{$uniqueid}", 128 ) if DEBUG;
-
@@ -4769 +5402 @@
-                        erase_all_sessions_from_channel( $canalid, $canal, $server );
-                    }
-
-
-
+
+
-
-                    # Remove the agent from the agents_on_queue hash
@@ -4814 +5446 @@
-                    }
-
-
-
-
-
+
+
+
+
+
+
-                        }
-                        next;
@@ -4825 +5459 @@
-                    # except ocupado*, corto, setlink and unsetlink
-                    if ( $canal =~ /^_/ ) {
-es un WILD y quehace vale
+is regexp, quehace value =
-
-                        if (   $quehace =~ /registr/
@@ -4831 +5465 @@
-                            || $quehace =~ /^inf/ )
-                        {
-O $quehace porque es un wildcard
+ING $quehace because it is a regexp match
-                            next;
-                        }
@@ -4839 +5473 @@
-                            && $quehace !~ /^state/
-                            && $quehace !~ /^settext/
+                            && $quehace !~ /^setclid/
-                            && $quehace !~ /^setlabel/
-                            && $quehace !~ /^setlink/
@@ -4856 +5491 @@
-                            my ( $canalsolo, $nrotrunk ) = split( /=/, $canal );
-                            $canal = $canalsolo . "=1" . $elcontexto;
-elijo el 1ero del
+select 1st from
-
-                            #next;
@@ -4865 +5500 @@
-                        # change it so to not change the led color.
-                        if ( $quehace =~ /changelabel1/ ) {
-wildcard
+regexp
-                              if DEBUG;
-                            $quehace = "changelabel0";
@@ -4871 +5506 @@
-                    }
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-                        if ( $quehace eq 'corto' || $quehace eq 'info' ) {
@@ -4883 +5547 @@
-                                }
-                                else {
-
+index
-                                }
-                                log_debug( "$heading call GEN_LINKED 1", 32 ) if DEBUG;
@@ -4892 +5556 @@
-                            delete $datos{$uniqueid};
-                            log_debug( "$heading REMOVING datos { $uniqueid }", 32 ) if DEBUG;
-
-
-
+
+
+
-                            log_debug( "$heading IF quehace = SETLINK", 32 ) if DEBUG;
-                            my ( $nada1, $contexto1 ) = split( /\&/, $canal );
@@ -4918 +5582 @@
-                            }
-
-                            #my %seen = ();
-                            #my @uniq =
-                            #  grep { !$seen{$_}++ } @{ $linkbot{"$server^$canal"} };
-                            #$linkbot{"$server^$canal"} = \@uniq;
-                            my @uniq = unique( @{ $linkbot{"$server^$canal"} } );
-                            $linkbot{"$server^$canal"} = \@uniq;
@@ -4928 +5588 @@
-                                log_debug( "$heading linkbot ($server^$canal) = $valorad", 32 ) if DEBUG;
-                            }
-
+index
-                            log_debug( "$heading llamo a GENERATE_LINKED", 32 ) if DEBUG;
-                            $listabotones = generate_linked_buttons_list( $canal, $server );
@@ -4935 +5595 @@
-                            log_debug( "$heading linkeado con $listabotones", 32 ) if DEBUG;
-                            log_debug( "$heading ENDIF quehace = SETLINK",    32 ) if DEBUG;
-
-
-
+
+
-                            log_debug( "$heading IF quehace = UNSETLINK", 32 ) if DEBUG;
-                            my @final = ();
@@ -4947 +5606 @@
-                            $linkbot{"$server^$canal"} = [@final];
-                            log_debug( "$heading ENDIF quehace = UNSETLINK", 32 ) if DEBUG;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-                            delete $botonvoicemail{$interno};
-                            delete $botonvoicemailcount{$interno};
@@ -4975 +5623 @@
-                        }
-
+            # Continue after cleaning internal state...
-                        if ( $interno eq "" ) {
-NO HAY INTERNO buttons($server^$canal), ABORTO
+MISSING buttons($server^$canal), skipping...
-                            next;
-                        }
-
+
+
+
-
-                        if ( !defined( $laststatus{$interno} ) ) {
@@ -5001 +5652 @@
-                        #
-                        if ( $canalid eq "" || $canalid =~ /zombie/i || $canalid =~ /(.*)-XXXX$/ ) {
-CION canalid es $canalid, NO PROCESAR?
+TION canalid = '$canalid', skipping...
-                        }
-                        else {
@@ -5044 +5695 @@
-                                      if DEBUG;
-                                    &print_sesbot(3);
+                                    &print_datos(1);
+
-                                    if ( $laststatus{$interno} ne "busy|${buttontext}" ) {
-                                        $cambiaron{$interno} = 1;
@@ -5049 +5702 @@
-                                        push @respuestas, "$interno|state|busy";
-
-                                        # Justin from Fry's has prolems with callerid being cleared while a call is connected
-                                        # from a queue using Local channels, so commnet these out
-                                        #push @respuestas, "$interno|settext|";
-                                        #push @respuestas, "$interno|setstatus|";
-                                        $laststatus{$interno} = "busy|${buttontext}";
-
@@ -5059 +5708 @@
-                                          if DEBUG;
-                                    }
-
+
+
+
+
+
+
+
+
+
+
+
+
-                                }
-
@@ -5107 +5767 @@
-                                        $cambiaron{$interno} = 1;
-                                    }
+                                    if ( $estadoboton{$interno} =~ /^busy/ ) {
+
+                                        # If we were busy before the ringing, save the callerid so we can restore it
+                                        # if this call is not answered, discarded, or whatever.
+                                        $preestadoboton{$interno} = $estadoboton{$interno};
+                                    }
-                                    $estadoboton{$interno} = "ringing|${buttontext}";
-                                    if ( $dos =~ m/(.*)?\[(.*)\].*?/ ) {
@@ -5115 +5781 @@
-                                    # We dont want a timer when ringing - Local channels
-                                    # generate a previous state and timer
-
+## 
-
-                                }
-                                elsif ( $quehace =~ /^ocupado/ ) {
+
+                                    if ( defined( $group_count{$interno} ) ) {
+                                        my $plural = "";
+                                        if ( $group_count{$interno} == 1 ) {
+                                            if ( @{ $sesbot{$interno} } > 1 ) {
+                                                $plural = "s";
+                                            }
+                                            if ( @{ $sesbot{$interno} } > 0 ) {
+                                                my $cuantos = @{ $sesbot{$interno} };
+                                                my ( $text, $textriginal, $buttontext ) =
+                                                  translate( $canal, "&channels,$cuantos,$plural", "", "" );
+                                                $buttontext = $text;
+                                                $dos        = "[" . $buttontext . "]";
+                                            }
+                                        }
+                                    }
-                                    if ( $laststatus{$interno} ne "busy|${buttontext}" ) {
-                                        $cambiaron{$interno} = 1;
-                                    }
-                                    $estadoboton{$interno} = "busy|${buttontext}";
+
-                                }
-                            }
@@ -5128 +5811 @@
-
-                        log_debug( "$heading Continuo proceso...", 32 ) if DEBUG;
+            
-                        if ( $quehace =~ /changelabel/ ) {
-                            log_debug( "$heading quehace = changelabel", 32 ) if DEBUG;
@@ -5157 +5841 @@
-                            }
-                            else {
-
-
-
+
+
+
+
+
+
+
+
+
-                            }
-
-
-
+ elsif ( $quehace eq "park" ) {
+
-                            log_debug( "$heading quehace = park", 32 ) if DEBUG;
-                            $dos =~ m/(.*)\((.*)\)/;
@@ -5170 +5860 @@
-                            $timeout = time() + $timeout;
-                            $botonpark{$interno} = "$texto|$timeout";
-
-
+
-                            $botonmeetme{$interno} = $dos;
-
-
-
+
-                            $botonqueue{$interno} = $dos;
-
-
+
-                            $botonqueue_count{$interno} = $dos;
-
-
+
-                            my $mcola = $quehace;
-                            $mcola =~ s/^info//g;
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                            $botonalpha{$interno} = $dos;
-                            push @respuestas, "$interno|setalpha|$dos";
-
-
+
-                            push @respuestas, "$interno|flip|$dos";
-
-
+
-                            if (   $dos ne "."
-                                && $dos ne "original"
@@ -5206 +5912 @@
-                                push @respuestas, "$interno|setlabel|$dos";
-                            }
-
-
+
-                            $botonvoicemail{$interno} = $dos;
-
-
+
-                            $botonvoicemailcount{$interno} = $dos;
+                        } elsif ( $quehace =~ "^voicemail" ) {
+
+                            # This block is for the voicemail client
+                            my $canalsincontexto = $canal;
+                            $canalsincontexto =~ s/(.*)&(.*)/$1/g;
+                            push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$dos";
+                        } elsif ( $quehace =~ "^ringing" ) {
+
+                            # This block is for the voicemail client, popups
+                            my $canalsincontexto = $canal;
+                            $canalsincontexto =~ s/(.*)&(.*)/$1/g;
+                            my $calleridpop = $dos;
+                            $calleridpop =~ s/(.*)\Q[\E(.*)/$2/g;
+                            $calleridpop =~ s/\]//g;
+                            $calleridpop =~ s/\s+//g;
+                            push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$calleridpop";
-                        }
-
@@ -5237 +5957 @@
-                        else {
-
-                            # This block is for the voicemail client
-                            if ( $quehace =~ "^voicemail" ) {
-                                my $canalsincontexto = $canal;
-                                $canalsincontexto =~ s/(.*)&(.*)/$1/g;
-                                push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$dos";
-                            }
-
-                            # This block is for the voicemail client, popups
-                            if ( $quehace =~ "^ringing" ) {
-                                my $canalsincontexto = $canal;
-                                $canalsincontexto =~ s/(.*)&(.*)/$1/g;
-                                my $calleridpop = $dos;
-                                $calleridpop =~ s/(.*)\Q[\E(.*)/$2/g;
-                                $calleridpop =~ s/\]//g;
-                                $calleridpop =~ s/\s+//g;
-                                push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$calleridpop";
-                            }
-                            if ( $quehace eq "corto" ) {
-                                my $canalsincontexto = $canal;
@@ -5289 +5992 @@
-                                    $canalag = "Agent/" . $canalag;
-                                }
-                                print_agents();
-
-                                my %temp_channel_to_agent = %channel_to_agent;
@@ -5313 +6015 @@
-                                delete $botontimer{$interno};
-                                delete $botontimertype{$interno};
+                                delete $sesbot{$interno};    # Delete all sessions for agentlogoff XXXXXXX ????
-                            }
-
-
+&& $quehace2 !~ /^setclid/ 
-                                log_debug( "$heading pushing respuestas $interno|$quehace2|$dos", 32 ) if DEBUG;
-
@@ -5322 +6025 @@
-                                # "isagent". "agentlogoff"
-                                # everything else is pushed
-
+
+
+
+
+
+
+
+
+
-                            }
-
@@ -5355 +6066 @@
-                                }
-                            }
+                            if ( $quehace eq "ocupado1" ) {
+                                push @mensajefinal, "$interno|channel|$canalid";
+                            }
-                            if ( $quehace2 eq "ring" ) {
-                                push @mensajefinal, "$interno|state|busy";
-
-                                #push @mensajefinal, "$interno|settext|$dos";
-                            }
-                            if ( $quehace2 =~ /corto/ ) {
@@ -5399 +6111 @@
-                                    my $valip = "";
-                                    log_debug( "$heading quehace2 corto, no es agente, pongo timer en cero", 1 ) if DEBUG;
-                                    print_agents();
-
-                                    push @mensajefinal, "$interno|settimer|0\@STOP";
@@ -5408 +6119 @@
-                                    }
-                                    else {
+                                        if ( defined( $botonpermanenttext{$interno} ) ) {
+                                            push @mensajefinal, "$interno|settext|$botonpermanenttext{$interno}";
+                                            print "corto! permanent $interno = -$dos-\n";
+
+                                            #$botonpermanenttext{$interno} = $dos;
+                                        }
-                                        $botonclid{$interno} = "";
+
-                                    }
-
@@ -5434 +6152 @@
-                            }
-
+                            if ( $quehace eq "paused" ) {
+                                $boton_paused{$interno} = $dos;
+                            }
+                            if ( $quehace eq "agents_paused" ) {
+                                $boton_agentpaused{$interno} = $dos;
+                            }
+                            if ( $quehace eq "agents_ready" ) {
+                                $boton_agentready{$interno} = $dos;
+                            }
+                            if ( $quehace eq "agents_busy" ) {
+                                $boton_agentbusy{$interno} = $dos;
+                            }
+                            if ( $quehace eq "agents_logedof" ) {
+                                $boton_agentlogedof{$interno} = $dos;
+                            }
+
-                            log_debug( "$heading Agrego mensaje final $interno|$quehace2|$dos", 32 ) if DEBUG;
-
@@ -5458 +6192 @@
-                                    }
-                                }
-o
-o
+a
+a
-                                    push( @respuestas, $otromensajefinal );
+                                    $toda = "";
-                                }
-                            }
@@ -5466 +6201 @@
-
-                        $laststatus{$interno} = $estadoboton{$interno};
-                    }
-                    else {    # endif canal distinto de nada
-                        log_debug( "$heading There is no command defined", 32 ) if DEBUG;
-                    }
-                }
@@ -5549 +6281 @@
-
-sub clean_inmemory_state_for_server {
+
-    my $server = shift;
-    my @botones_a_limpiar;
@@ -5567 +6300 @@
-        delete $botonvoicemailcount{$_};
-        delete $botonalpha{$_};
+        delete $botonledcolor{$_};
-        delete $botonqueue{$_};
-        delete $botonqueuemember{$_};
@@ -5656 +6390 @@
-    }
-
-s
+
-    foreach (@p) {
-        if ( defined($_) ) {
@@ -5885 +6619 @@
-                                    if (   $bloque_final =~ /Event:/
-                                        || $bloque_final =~ /Message: Mailbox/
+                                        || $bloque_final =~ /SIP-CanReinvite/
-                                        || $bloque_final =~ /Message: Timeout/ )
-                                    {
@@ -5892 +6627 @@
-                                        my $block_count = -1;
-                                        foreach my $p (@lineas) {
+                                            if ( $p =~ /ActionID: autosipentry/ ) {
+                                                $block_count++;
+                                                $bloque[$block_count]{Event} = "sippeerentrylong";
+                                            }
-                                            my $my_event = "";
-
+^
-                                                $block_count++;
-                                                log_debug( "$heading Event detected block_count = $block_count", 128 )
@@ -6117 +6856 @@
-    if ( $origin_channel =~ m/^PARK/i || $origin_channel =~ m/^QUEUE/i || $origin_channel =~ m/^\d/ ) {
-        $local_reverse = 0;
-"** GET TRANSFER Disable reverse transfer for $origin_channel!",16
+ "** GET TRANSFER Disable reverse transfer for $origin_channel!", 16 
-    }
-
@@ -6125 +6864 @@
-        # Transfer the session from the *other* button
-        @cuales_transferir = extraer_todos_los_enlaces_de_un_canal( $origin_channel, $button_server{$datosflash} );
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-    }
-    else {
@@ -6136 +6877 @@
-
-        # Transfer the session from the same button
-
-
+
+
+
+
+
+
+
-        }
-        else {
@@ -6260 +7006 @@
-        sends_version($socket);
-
-        # send_initial_status();
-        first_client_status($socket);
-        $tab = substr( $tab, 0, -1 ) if DEBUG;
@@ -6408 +7153 @@
-        log_debug( "$heading origin_channel = $origin_channel", 64 ) if DEBUG;
-
+        my $no_security_code = "";
-        if ( defined( $config->{$panelcontext}{security_code} ) ) {
-            $myclave = $config->{$panelcontext}{security_code} . $keys_socket{$socket};
-            log_debug( "$heading usando key " . $keys_socket{$socket}, 16 ) if DEBUG;
+            $no_security_code = $config->{$panelcontext}{security_code};
-        }
-        else {
@@ -6416 +7163 @@
-            $myclave = $config->{GENERAL}{security_code} . $keys_socket{$socket};
-            log_debug( "$heading usando key " . $keys_socket{$socket}, 16 ) if DEBUG;
+            $no_security_code = $config->{GENERAL}{security_code};
-        }
-
@@ -6423 +7171 @@
-
-        if (   ( "$password" eq "$md5clave" )
-
+
+
-        {
-            sends_correct($socket);
@@ -6501 +7250 @@
-            if ( $accion =~ /^tovoicemail/ ) {
-
-                my $keyext = "$origin_server^$origin_channel";
-                my $exttran = $tovoicemail{$btn_destino};
-                my ( $extx, $contextx ) = split( /\@/, $exttran, 2 );
-
-                my @cuales_transferir = get_transfer_channel( $origin_channel, $datosflash );
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-                }
-                else {
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-            }
-            if ( $accion =~ /^voicemail/ ) {
@@ -6629 +7393 @@
-                    0, $astmanproxy_servers[ $button_server{$boton_con_contexto} ] );
-            }
+
-            elsif ( $accion =~ /^conference/ ) {
-                log_debug( "$heading CONFERENCE extension_transfer($origin_channel)", 1 ) if DEBUG;
@@ -6647 +7412 @@
-                        log_debug( "$heading coincidencia para btn_destino $btn_destino el canal es $canal", 1 )
-                          if DEBUG;
-
-
+
-                        my @canal_transferir = @{ $sesbot{$btn_destino} };
-
@@ -6684 +7448 @@
-                                $comando .= "Context: $conference_context\r\n";
-                                $comando .= "Priority: 1\r\n\r\n";
-
+
+
+
+
+
+
+
+
+
-                            }
-                            else {
@@ -6698 +7470 @@
-            }
-            elsif ( $accion =~ /transferir/ ) {
-
-                if ( $accion =~ /^ctransferir/ ) {
-
@@ -6790 +7561 @@
-
-                    my $member = 0;
-count
+agents_available_on
-                        if ( $key eq "$button_server{$datosflash}^$destino" ) {
-                            foreach my $qmember (@$val) {
@@ -6954 +7725 @@
-                    my $canalito = $2;
-                    if ( $canalito !~ m/^_/ && $nro_servidor == $servidor && $canalito !~ m/=/ ) {
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-                            }
-                        }
@@ -6999 +7773 @@
-    foreach my $socket2 (@todos) {
-        if ( defined($socket2) && $socket2 ne "" ) {
+
-            if ( $showagents == 1 ) {
-                send_command_to_manager( "Action: Command\r\nActionId: agents\r\nCommand: show agents\r\n\r\n", $socket2 );
@@ -7016 +7791 @@
-                send_command_to_manager( "Action: QueueStatus\r\nActionID: QueueStatus\r\n", $socket2 );
-            }
-
-            #   if($showagents==1) {
-            #           send_command_to_manager( "Action: Command\r\nActionId: agents\r\nCommand: show agents\r\n\r\n", $socket2 );
-            #   }
-        }
-    }
@@ -7047 +7818 @@
-            if ( $botonled{$interno} == 1 ) {
-                send_status_to_flash( $socket, "$interno|changelabel1|$botonlabel{$interno}", 0 );
+            }
+        }
+        for $interno ( keys %botonledcolor ) {
+            if ( $botonledcolor{$interno} ne "" ) {
+                send_status_to_flash( $socket, "$interno|fopledcolor|$botonledcolor{$interno}", 0 );
+                if ( $estadoboton{$interno} =~ /^free/ || $estadoboton{$interno} eq "" ) {
+                    send_status_to_flash( $socket, "$interno|state|free", 0 );
+                }
-            }
-        }
@@ -7087 +7866 @@
-            }
-        }
+
+        if ( keys(%boton_paused) ) {
+            for $interno ( keys %boton_paused ) {
+                send_status_to_flash( $socket, "$interno|paused|$boton_paused{$interno}", 0 );
+            }
+        }
+        if ( keys(%boton_agentpaused) ) {
+            for $interno ( keys %boton_agentready ) {
+                send_status_to_flash( $socket, "$interno|agents_paused|$boton_agentpaused{$interno}", 0 );
+            }
+        }
+        if ( keys(%boton_agentready) ) {
+            for $interno ( keys %boton_agentready ) {
+                send_status_to_flash( $socket, "$interno|agents_ready|$boton_agentready{$interno}", 0 );
+            }
+        }
+        if ( keys(%boton_agentbusy) ) {
+            for $interno ( keys %boton_agentbusy ) {
+                send_status_to_flash( $socket, "$interno|agents_busy|$boton_agentbusy{$interno}", 0 );
+            }
+        }
+        if ( keys(%boton_agentlogedof) ) {
+            for $interno ( keys %boton_agentlogedof ) {
+                send_status_to_flash( $socket, "$interno|agents_logedof|$boton_agentlogedof{$interno}", 0 );
+            }
+        }
+
-        if ( keys(%botonpark) ) {
-            for $interno ( keys %botonpark ) {
@@ -7098 +7904 @@
-            }
-        }
+        if ( keys(%botonpermanenttext) ) {
+            for $interno ( keys %botonpermanenttext ) {
+                if ( $botonpermanenttext{$interno} ne "" ) {
+                    print "permanente $interno -$botonpermanenttext{$interno}-\n";
+                    send_status_to_flash( $socket, "$interno|settext|$botonpermanenttext{$interno}", 0 );
+                }
+            }
+        }
-        for $interno ( keys %estadoboton ) {
-
-            #if ( $estadoboton{$interno} !~ /^free/ ) {
-            if ( $estadoboton{$interno} =~ /^busy/ ) {
-                send_status_to_flash( $socket, "$interno|state|busy", 0 );
@@ -7111 +7924 @@
-            }
-            if ( defined( $botonclid{$interno} ) ) {
+                my $texti = "";
-                if ( $botonclid{$interno} ne "" ) {
-                    send_status_to_flash( $socket, "$interno|settext|$botonclid{$interno}", 0 );
@@ -7116 +7930 @@
-            }
-
-            #}
-        }
-        if ( keys(%botonlinked) ) {
@@ -7174 +7987 @@
-    my $heading      = "** SEND INITIAL STATUS";
-    my $cual         = shift;
+    my $skip_autosip = shift;
-    my @socket_manager;
-
-
+
+
+
-        push @socket_manager, $cual;
-    }
@@ -7184 +8000 @@
-
-    log_debug( "$heading START SUB", 16 ) if DEBUG;
-
-    request_astdb_status();
-
-    foreach my $socket (@socket_manager) {
@@ -7209 +8023 @@
-            send_command_to_manager( "Action: ZapShowChannels\r\n\r\n", $socket );
-
+            if ( $skip_autosip == 0 ) {
+                send_command_to_manager( "Action: SIPPeers\r\nActionID: autosip\r\n\r\n", $socket );
+            }
+
-            send_command_to_manager( "Action: Command\r\nActionID: parkedcalls\r\nCommand: show parkedcalls\r\n\r\n", $socket );
-
@@ -7265 +8083 @@
-        }
-    }
+    request_astdb_status();
-    alarm(2);
-}
@@ -7351 +8170 @@
-                $agent_state                          = $3;
-                $agents_name{"$server^$agent_number"} = $agent_name;
+                set_queueobject( $server, "AGENT/$agent_number", "name", $agent_name );
-            }
-
@@ -7966 +8786 @@
-    my $maxtime = 0;
-
+    print_recomputequeues();
+
-    my $header = "**RECOMP QUEUE";
-    log_debug( "$header canalid $canalid", 1 ) if DEBUG;
@@ -7994 +8816 @@
-
-    foreach my $id ( keys %{$cola} ) {
+        if ( !defined( $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;
@@ -8047 +8877 @@
-    }
-
+    # Remove the item from the hash, recompute_queues is only called
+    # from the Leave event
+
+    delete $cola->{$canalid};
-    @return_ocupado = unique(@return_ocupado);
-
@@ -8151 +8985 @@
-
-    my $numero       = shift;
+    my $name         = shift;
-    my $format       = shift;
-    my @chars_number = ();
@@ -8157 +8992 @@
-    my $devuelve     = "";
-
+    if ( $name eq "<unknown>" ) { $name = ""; }
+
-    if ( !is_number($numero) ) {
-        return $numero;
@@ -8196 +9033 @@
-    @result = reverse @result;
-    $devuelve = join( "", @result );
+    $devuelve =~ s/\${CLIDNAME}/$name/gi;
-    return $devuelve;
-}
@@ -8244 +9082 @@
-    my $randomkey = generate_random_password($keylen);
-    my $mandakey  = "$randomkey|key|0";
-"$socket"
+$socket
-        $nocrypt = 1;
-    }
@@ -8251 +9089 @@
-    }
-    send_status_to_flash( $socket, $mandakey, $nocrypt );
+}
+
+sub sends_reload {
+    my $socket   = shift;
+    my $nocrypt  = 0;
+    my $contexto = $flash_contexto{$socket};
+    my $boton    = "0";
+    if ( $contexto ne "" ) {
+        $boton .= "\@$contexto";
+    }
+
+    if ( !$keys_socket{$socket} ) {
+        print "nocrypt = 1\n";
+        $nocrypt = 1;
+    }
+    my $mensaje = "<response btn=\"0\" cmd=\"reload\" data=\"0\"/>\0";
+    log_debug( "Sending reload to flash client at " . $ip_addy{$socket}, 1 ) if DEBUG;
+    push( @{ $client_queue_nocrypt{$socket} }, $mensaje );
+    push( @{ $client_queue{$socket} },         $mensaje );
-}
-
@@ -8860 +9717 @@
-# End TEA
-
+sub print_recomputequeues {
+
+    foreach my $paso1 ( keys %{$cola} ) {
+        print "-----------------\n";
+        foreach my $it ( keys %{ $cola->{$paso1} } ) {
+            print "cola($paso1)($it) = " . $cola->{$paso1}{$it} . "\n";
+        }
+    }
+}
+
-sub print_agentonqueue {
-    my $valor = shift;
@@ -8874 +9741 @@
-sub print_countqueue {
-    my $valor = shift;
-count
-count
-count
-count
+agents_available_on
+agents_available_on
+agents_available_on
+agents_available_on
-            }
-        }
@@ -9006 +9873 @@
-}
-
+sub add_queueobject {
+    my $server = shift;
+    my $queue  = shift;
+    my $agent  = shift;
+
+    my @return;
+
+    print "add queueobject $server $queue $agent\n";
+    $queue_object->{$server}{$queue}{$agent}{status} = 1;
+    @return = compute_queueobject($server);
+    return @return;
+}
+
+sub delete_queueobject {
+    my $server = shift;
+    my $queue  = shift;
+    my $agent  = shift;
+
+    my @return;
+
+    print "delete queueobject $server $queue $agent\n";
+    delete( $queue_object->{$server}{$queue}{$agent} );
+    @return = compute_queueobject($server);
+    return @return;
+}
+
+sub set_queueobject {
+    my $server   = shift;
+    my $agent    = shift;
+    my $property = shift;
+    my $value    = shift;
+
+    my @return;
+
+    foreach my $val ($queue_object) {
+        foreach my $iserver ( keys %{$val} ) {
+            if ( $server eq $iserver ) {
+                foreach my $iqueue ( keys %{ $queue_object->{$iserver} } ) {
+                    foreach my $iagent ( keys %{ $queue_object->{$iserver}{$iqueue} } ) {
+                        if ( $iagent eq $agent ) {
+                            $queue_object->{$iserver}{$iqueue}{$iagent}{$property} = $value;
+                            print "property set!\n";
+                        }
+                    }
+                }
+            }
+        }
+    }
+    @return = compute_queueobject($server);
+    return @return;
+}
+
+sub compute_queueobject {
+    my $server = shift;
+
+    my $head = "** compute queueboject: ";
+    log_debug( "$head", 16 );
+
+    my $queueagent_counter = {};
+    my @return;
+    my $canalid;
+    my $ready;
+    my $busy;
+    my $logedof;
+    my $paused;
+
+    if ( !defined($server) ) { $server = -1; }
+    foreach my $val ($queue_object) {
+        foreach my $iserver ( keys %{$val} ) {
+            if ( $server eq $iserver || $server == -1 ) {
+                foreach my $iqueue ( keys %{ $queue_object->{$iserver} } ) {
+                    $queueagent_counter->{$iserver}->{$iqueue}->{ready}   = 0;
+                    $queueagent_counter->{$iserver}->{$iqueue}->{logedof} = 0;
+                    $queueagent_counter->{$iserver}->{$iqueue}->{busy}    = 0;
+                    $queueagent_counter->{$iserver}->{$iqueue}->{paused}  = 0;
+                    foreach my $iagent ( keys %{ $queue_object->{$iserver}{$iqueue} } ) {
+                        if ( $queue_object->{$iserver}{$iqueue}{$iagent}{paused} > 0 ) {
+                            $queueagent_counter->{$iserver}->{$iqueue}->{paused}++;
+                        }
+                        if ( $queue_object->{$iserver}{$iqueue}{$iagent}{status} == 1 ) {
+                            $queueagent_counter->{$iserver}->{$iqueue}->{ready}++;
+                        }
+                        elsif ( $queue_object->{$iserver}{$iqueue}{$iagent}{status} == 5 ) {
+                            $queueagent_counter->{$iserver}->{$iqueue}->{logedof}++;
+                        }
+                        elsif ($queue_object->{$iserver}{$iqueue}{$iagent}{status} == 2
+                            || $queue_object->{$iserver}{$iqueue}{$iagent}{status} == 3
+                            || $queue_object->{$iserver}{$iqueue}{$iagent}{status} == 6 )
+                        {
+                            $queueagent_counter->{$iserver}->{$iqueue}->{busy}++;
+                        }
+                    }
+                    $canalid = "QUEUE/$iqueue-XXXX";
+                    $ready   = $queueagent_counter->{$server}->{$iqueue}{ready};
+                    $busy    = $queueagent_counter->{$server}->{$iqueue}{busy};
+                    $logedof = $queueagent_counter->{$server}->{$iqueue}{logedof};
+                    $paused  = $queueagent_counter->{$server}->{$iqueue}{paused};
+
+                    push @return, "QUEUE/$iqueue|agents_ready|$ready|$canalid-$server|$canalid";
+                    push @return, "QUEUE/$iqueue|agents_busy|$busy|$canalid-$server|$canalid";
+                    push @return, "QUEUE/$iqueue|agents_logedof|$logedof|$canalid-$server|$canalid";
+                    push @return, "QUEUE/$iqueue|agents_paused|$paused|$canalid-$server|$canalid";
+
+                }
+            }
+        }
+    }
+    return @return;
+}
+
-sub print_cola_write {
-    my $socket = shift;
@@ -9013 +9990 @@
-            foreach my $val ( @{ $client_queue{$_} } ) {
-                $contame++;
-                print "cola $contame $_ comando $val\n";
-            }
-        }
@@ -9021 +9997 @@
-        foreach my $val ( @{ $client_queue{$socket} } ) {
-            $contame++;
-            print "cola $contame $socket comando $val\n";
-        }
-    }
@@ -9088 +10063 @@
-            }
-        }
-count
+agents_available_on
-            print "Count on queue: \n";
-
-
+
+
+
+
-            }
-        }
@@ -9183 +10160 @@
-=head1 DESCRIPTION
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-=cut