Re: [Flash Operator Panel] CallerID not functional on Asterisk 1.4.3 - p

[Caio Zanolla <caio@xxxxxxxxxx>]

Sorry for the lack information. anyway, I'm running a res_ldap trunk 
based on asterisk 1.4, not 1.4.3 as stated bebore.

Here's an excerpt of its CHANGES file:

AMI - The manager (TCP/TLS/HTTP)
--------------------------------
 * Added the URI redirect option for the built-in HTTP server
 * The output of CallerID in Manager events is now more consistent.
    CallerIDNum is used for number and CallerIDName for name.


As for the delay patch, I just tested on a 1.2 asterisk, different 
machine, and it solves disconnection problems w astdb there too (i had 
to bump it to 100msec though). I also noticed the disconnection 
happening when lots of mailboxes are checked (30+), that is solved by 
the delay as well...

My knowledge of the innerworkings of FOP are very limited but code here 
doesnt seem to do any harm when used on previous asterisk versions, 
althoug Im not sure it will solve the CallerID issue for changed 
CallerIDNum on other implementations.


--- /home/caio/op_panel-0.27/op_server.pl       2007-03-19 
11:26:50.000000000 -0300
+++ /usr/sbin/op_server.pl      2007-06-16 09:08:12.000000000 -0300
@@ -3177,7 +3177,10 @@
        my $dorigen  = "";
        my $ddestino = "";
        my $dnada    = "";
-        $remote_callerid{$key}      = $hash_temporal{"CallerID"};
+        $remote_callerid{$key}      = $hash_temporal{"CallerID"};       
+        if ( defined( $hash_temporal{"CallerIDNum"} ) ) {
+           $remote_callerid{$key}      = $hash_temporal{"CallerIDNum"};
+        }       
        $remote_callerid_name{$key} = $hash_temporal{"CallerIDName"};

        if ( $hash_temporal{'Source'} =~ m/^Local/i ) {
@@ -4414,12 +4417,18 @@
        if ( defined( $datos{$uniqueid2}{"CallerID"} ) ) {
            $clid1 = $datos{$uniqueid2}{"CallerID"};
        }
+        if ( defined( $datos{$uniqueid2}{"CallerIDNum"} ) ) {
+            $clid1 = $datos{$uniqueid2}{"CallerIDNum"};
+        }       
        if ( defined( $datos{$uniqueid1}{"Callerid"} ) ) {
            $clid2 = $datos{$uniqueid1}{"Callerid"};
        }
        if ( defined( $datos{$uniqueid1}{"CallerID"} ) ) {
            $clid2 = $datos{$uniqueid1}{"CallerID"};
        }
+        if ( defined( $datos{$uniqueid1}{"CallerIDNum"} ) ) {
+            $clid2 = $datos{$uniqueid1}{"CallerIDNum"};
+        }
        my $sclidname1 = "";
        my $sclidname2 = "";

@@ -6756,7 +6765,8 @@
    my ( $socket, $encriptadofinal, $whom, $log ) = @_;
    my $largo = length($encriptadofinal);
    my $res   = syswrite( $socket, $encriptadofinal, $largo );
-
+#sleep 0.01 secs
+select(undef, undef, undef, 0.01);
    if ( defined $res && $res > 0 ) {
        if ( $res != $largo ) {


--
Atenciosamente,

Caio Zanolla
Coordenador de TI - LPJ Editora
www.lpj.com.br - (31) 2121-0000