Changeset 39

Timestamp:

04/27/07 00:11:01 (2 years ago)

Author:

root

Message:

More split optimizations

Files:

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

trunk/op_server.pl

@@ -6129 +6129 @@
-                                        if ( defined( $botonpermanenttext{$interno} ) ) {
-                                            push @mensajefinal, "$interno|settext|$botonpermanenttext{$interno}";
-"interno $interno tenia permanente $botonpermanenttext{$interno}", 128
+ "interno $interno tenia permanente $botonpermanenttext{$interno}", 128 
-                                        }
-                                        $botonclid{$interno} = "";
@@ -7984 +7984 @@
-
-        if ( defined($socket) && $socket ne "" ) {
-@pedazos
-pedazos[0]
+($ipactual)
+ipactual
-                my $contador = 0;
-                foreach my $valor (@manager_host) {
-pedazos[0]
+ipactual
-                        $nro_servidor = $contador;
-                    }
@@ -8009 +8009 @@
-            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;
@@ -8041 +8040 @@
-
-                if ( $valor =~ /\^/ ) {
-
-
-
+
-                }
-                else {
@@ -8233 +8230 @@
-        }
-        my $canal_a_mutear = $buttons_reverse{$quecanal};
-
-
+
-        $canal_a_mutear =~ s/(.*)\&(.*)/$1/g;
-        $bloque[$contador]{"Event"}   = $quecomando;