Changeset 17

Timestamp:

03/19/07 21:03:56 (2 years ago)

Author:

root

Message:

Trunkify CLID buttons

Files:

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

trunk/op_server.pl

@@ -2498 +2498 @@
-                    }
-                }
+                elsif ( $_ =~ /^$server\^CLID\/\Q$calleridnum\E=/ ) {
+                                        my ($ccanal, $ssesion) = separate_session_from_channel($canalsesion);
+                                        my $tcanal = "CLID/".$calleridnum."-".$ssesion;
+                                        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^$canal"} = 1;
+                            $canalfinal =~ s/(.*)\^(.*)/$2/g;
+                        }
+                    }
+                                }
-                elsif ( $_ =~ /^$server\^CLID\/\Q$calleridnum\E\&?/ ) {
-
-                    log_debug( "$heading clid match ( $_ )  $canal $contexto", 32 ) if DEBUG;
-                    $canalfinal = "CLID/$calleridnum";
@@ -4892 +4903 @@
-    # 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;
@@ -6005 +6014 @@
-                                    if ( $quehace2 ne "" ) {
-                                        push @respuestas, "$interno|$quehace2|$dos";
-
+#
-                                    }
-                                }