Changeset 64

Timestamp:

11/29/07 11:35:14 (1 year ago)

Author:

root

Message:

Add parkexten and parktimeout to op_server.cfg and support for Park command via manager together with updates for Asterisk 1.4 compatibility.

Files:

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

trunk/op_server.pl

@@ -172 +172 @@
-my $web_hostname;
-my $listen_port;
+my $park_exten;
+my $parktimeout;
-my $listen_addr;
-my $security_code;
@@ -529 +531 @@
-    $defaultlanguage  = $config->{GENERAL}{language};
-    $passvars         = $config->{GENERAL}{passvars};
+    $park_exten       = $config->{GENERAL}{parkexten};
+    $parktimeout      = $config->{GENERAL}{parktimeout};
-
-    if ( $debuglevel == -1 ) {
@@ -678 +682 @@
-    if ( !defined $passvars ) {
-        $passvars = "";
+    }
+
+    if ( !defined $park_exten ) {
+        $park_exten = "700";
+    }
+
+    if ( !defined $parktimeout ) {
+        $parktimeout = 45000;
+    }
+    else {
+        $parktimeout = $parktimeout * 1000;
-    }
-
@@ -2910 +2925 @@
-            $evento = "OriginateFailure";
-        }
+    }
+
+    # Convert Asterisk 1.4 ParkedCalltimeout to UnParkedCall
+    if ( $evento eq "ParkedCallTimeOut" ) {
+        $evento = "UnParkedCall";
-    }
-
@@ -7746 +7766 @@
-
-                    my @cuales_transferir = get_transfer_channel( $origin_channel, $datosflash );
-
-
-
+
+
-                          if DEBUG;
-$comando = "Action: Redirect\r\n"
-$comando .= "Channel: $valor\r\n"
-$comando .= "Exten: $canal_destino\r\n";
-if ( $contexto ne "" ) {
-$comando .= "Context: $contexto\r\n"
+my @links
+my @canal1
+if ( $reverse_transfer == 1 ) {
+    @links = @{ $sesbot{$datosflash} };
+@canal1 = extraer_todos_los_enlaces_de_un_canal( $canal1[0], $button_server{$datosflash} )
-                        }
-
+
+
+
+
+
+
+
+
-                        send_command_to_manager( $comando, $p[ $button_server{$datosflash} ],
-                            0, $astmanproxy_servers[ $button_server{$datosflash} ] );
-
-
-
+
+
+
+
+
+
-                            $comando .= "Channel: $valor\r\n";
-
-
-
+
+
+
+
+
-                            send_command_to_manager( $comando, $p[ $button_server{$datosflash} ],
-
+
+
+
+
+
+
+
+
+
+
+
+
-                        }
-
-                    }
-                }