--- /var/www/html/op_panel-0.19/op_server.pl	2004-11-04 15:30:38.000000000 -0800
+++ /var/www/html/op_panel-0.19-working/op_server.pl	2004-11-12 15:10:50.000000000 -0800
@@ -20,6 +20,8 @@
 #  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 #  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+require '/var/www/html/op_panel-0.19-working/dialer.pl';
+
 use strict;
 use integer;
 
@@ -249,7 +251,7 @@
     $ren_queuemember = $config->{"GENERAL"}{"rename_queue_member"};
     $change_led      = $config->{"GENERAL"}{"change_led_agent"};
     $cdial_nosecure  = $config->{"GENERAL"}{"clicktodial_insecure"};
-
+ 
     my @todos_los_rooms;
     foreach my $val ($config)
     {
@@ -652,7 +654,7 @@
     # swf movie on load, with info about buttons, layout, etc.
 
     $/ = "\n";
-    my %style_variables;
+    my %style_variables = {};
     my @contextos       = ();
     my @uniq            = ();
     my $contextoactual  = "";
@@ -2318,6 +2320,7 @@
             elsif ($val =~ /QueueStatus/)     { $evento = "queuestatus"; }
             elsif ($val =~ /Link/)            { $evento = "link"; }
             elsif ($val =~ /^Join/)           { $evento = "join"; }
+            elsif ($val =~ /^Gencall/)        { $evento = "gencall"; }
             elsif ($val =~ /^MeetmeJoin/)     { $evento = "meetmejoin"; }
             elsif ($val =~ /^MeetmeLeave/)    { $evento = "meetmeleave"; }
             elsif ($val =~ /^Agentlogin/)     { $evento = "agentlogin"; }
@@ -2543,6 +2546,12 @@
         $evento   = "";
     }
 
+    if ($evento eq "gencall")
+    {
+        generate_outbound_call();
+        $evento = "";
+    }
+
     if ($evento eq "meetmejoin")
     {
         my $originate = "no";