Changeset 10

Timestamp:

03/16/07 11:45:11 (2 years ago)

Author:

root

Message:

refactoring of digest_event_block, first pass...

Files:

• trunk/op_server.pl (modified) (29 diffs)

trunk/op_server.pl

@@ -4742 +4742 @@
-            ( $canal, $sesion ) = separate_session_from_channel( $hash_temporal{Channel} );
-            $texto        = $hash_temporal{Extension};
-
+
+
+
-        }
-        else {
@@ -5289 +5291 @@
-                log_debug( "$heading GOT $mensaje", 32 ) if DEBUG;
-                delete $datos{""};    # Erase the hash with no uniqueid
-
-
+
-
-                $canalid =~ s/(.*),(\d)/$1/g;    # discard ,2 on Local channels
@@ -5303 +5304 @@
-
-                if ( $dos eq "skip" ) {
-SALTEO $canal tiene skip
+skipping $canal $quehace (has skip)
-                    next;
-                }
+
-                if ( $quehace eq "" ) {
-
+
+
-                    next;
-                }
@@ -5317 +5320 @@
-                log_debug( "$heading canalid:  $canalid",  32 ) if DEBUG;
-
-
-
-
-
-
+
-                my $real_canal    = $canalid;
-                my $canalidzombie = $canalid;    # Removes whitespace from CHANNEL-ID
@@ -5349 +5348 @@
-                my @canaleja = find_panel_buttons( $canal, $canalid, $server );
-                my $cuantos  = @canaleja;
+
+                                # Perform some pre processing...
-
-                if ( $quehace eq "corto" || $quehace eq "info" ) {
@@ -5376 +5377 @@
-                    }
-
-
-
-
+
-
-                    # Remove the agent from the agents_on_queue hash
@@ -5422 +5421 @@
-
-                    if ( !defined( $buttons{"$server^$canal"} ) && !defined( $buttons{"-1^$canal"} ) ) {
-No tengo botones para $server^$canal, END FUNCTION
+There are no buttons for $server^$canal, skipping...
-                        if (DEBUG) {
-                            for ( keys %buttons ) {
@@ -5434 +5433 @@
-                    # except ocupado*, corto, setlink and unsetlink
-                    if ( $canal =~ /^_/ ) {
-es un WILD y quehace vale
+is regexp, quehace value =
-
-                        if (   $quehace =~ /registr/
@@ -5440 +5439 @@
-                            || $quehace =~ /^inf/ )
-                        {
-O $quehace porque es un wildcard
+ING $quehace because it is a regexp match
-                            next;
-                        }
@@ -5466 +5465 @@
-                            my ( $canalsolo, $nrotrunk ) = split( /=/, $canal );
-                            $canal = $canalsolo . "=1" . $elcontexto;
-elijo el 1ero del
+select 1st from
-
-                            #next;
@@ -5475 +5474 @@
-                        # change it so to not change the led color.
-                        if ( $quehace =~ /changelabel1/ ) {
-wildcard
+regexp
-                              if DEBUG;
-                            $quehace = "changelabel0";
@@ -5483 +5482 @@
-                    my $serverindex = $server;    # Save the server in another var
-
-
+
+
+
+
+
-
-                        $interno = $buttons{"$server^$canal"};
@@ -5504 +5507 @@
-                            }
-                        }
+
+                                                # The following block cleans internal op_server states. no matter if we
+                                                # have a button defined or not.
-
-                        if ( $quehace eq 'corto' || $quehace eq 'info' ) {
@@ -5525 +5531 @@
-                            log_debug( "$heading REMOVING datos { $uniqueid }", 32 ) if DEBUG;
-
-
-
+
-
-                            log_debug( "$heading IF quehace = SETLINK", 32 ) if DEBUG;
@@ -5565 +5570 @@
-                            log_debug( "$heading ENDIF quehace = SETLINK",    32 ) if DEBUG;
-
-
-
+
-                            log_debug( "$heading IF quehace = UNSETLINK", 32 ) if DEBUG;
-                            my @final = ();
@@ -5577 +5581 @@
-                            log_debug( "$heading ENDIF quehace = UNSETLINK", 32 ) if DEBUG;
-
-
-
+
-
-                            delete $botonvoicemail{$interno};
@@ -5594 +5597 @@
-                        }
-
+                                                # Continue after cleaning internal state...
-                        if ( $interno eq "" ) {
-NO HAY INTERNO buttons($server^$canal), ABORTO
+MISSING buttons($server^$canal), skipping...
-                            next;
-                        }
-                        else {
-EL INTERNO es
+INTERNO =
-                        }
-
@@ -5622 +5626 @@
-                        #
-                        if ( $canalid eq "" || $canalid =~ /zombie/i || $canalid =~ /(.*)-XXXX$/ ) {
-CION canalid es $canalid, NO PROCESAR?
+TION canalid = '$canalid', skipping...
-                        }
-                        else {
@@ -5781 +5785 @@
-
-                        log_debug( "$heading Continuo proceso...", 32 ) if DEBUG;
-
+
-                        if ( $quehace =~ /changelabel/ ) {
-                            log_debug( "$heading quehace = changelabel", 32 ) if DEBUG;
@@ -5822 +5826 @@
-                            }
-
-
-
+
-
-                            log_debug( "$heading quehace = park", 32 ) if DEBUG;
@@ -5831 +5834 @@
-                            $timeout = time() + $timeout;
-                            $botonpark{$interno} = "$texto|$timeout";
-
-
+
-                            $botonmeetme{$interno} = $dos;
-
-
+
-                            $botonqueue{$interno} = $dos;
-
-
+
-                            $botonqueue_count{$interno} = $dos;
-
-
+
-                            my $mcola = $quehace;
-                            $mcola =~ s/^info//g;
@@ -5852 +5851 @@
-                                        $quehace = "";
-                                    }
-                                    else {
-
-                                        # print "PERO ES DISTINTO\n$val\n$mcola|$dos\n\n";
-                                    }
-                                }
-                                else {
@@ -5864 +5859 @@
-                            if ( $estaba == 0 ) {
-                                push @{ $botonqueuemember{$interno} }, "$mcola|$dos";
-
-                                #print "NICO botonqueuemember ($interno) = $mcola y $dos\n";
-                            }
-
-
-
+
-                            if ( !defined( $group_count{$interno} ) ) {
-                                push @respuestas, "$interno|settext|$dos";
-                            }
-
-
+
-                            if ( !defined( $group_count{$interno} ) ) {
-                                $botonpermanenttext{$interno} = $dos;
@@ -5880 +5871 @@
-                                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"
@@ -5899 +5886 @@
-                                push @respuestas, "$interno|setlabel|$dos";
-                            }
-
-
+
-                            $botonvoicemail{$interno} = $dos;
-
-
+
-                            $botonvoicemailcount{$interno} = $dos;
-
-
+
-
-                            # This block is for the voicemail client
@@ -5912 +5896 @@
-                            $canalsincontexto =~ s/(.*)&(.*)/$1/g;
-                            push @mensajefinal, "$canalsincontexto\@$canalsincontexto|$quehace|$dos";
-
-
+
-
-                            # This block is for the voicemail client, popups
@@ -6009 +5992 @@
-                            }
-
-
+&& $quehace2 !~ /^setclid/ 
-                                log_debug( "$heading pushing respuestas $interno|$quehace2|$dos", 32 ) if DEBUG;
-
@@ -6022 +6005 @@
-                                    if ( $quehace2 ne "" ) {
-                                        push @respuestas, "$interno|$quehace2|$dos";
-
-
+
-                                    }
-                                }
@@ -6193 +6175 @@
-
-                        $laststatus{$interno} = $estadoboton{$interno};
-                    }
-                    else {    # endif canal distinto de nada
-                        log_debug( "$heading There is no command defined", 32 ) if DEBUG;
-                    }
-                }