[Astpp-commit] SF.net SVN: astpp:[2275] trunk/freeswitch/astpp-fs-xml.pl

[<dar...@us...>]

Revision: 2275
          http://astpp.svn.sourceforge.net/astpp/?rev=2275&view=rev
Author:   darrenkw
Date:     2009-10-04 20:27:10 +0000 (Sun, 04 Oct 2009)

Log Message:
-----------
Finish merging .pl files into one for freeswitch.  This makes mod_perl support much, much simpler.

Modified Paths:
--------------
    trunk/freeswitch/astpp-fs-xml.pl

Modified: trunk/freeswitch/astpp-fs-xml.pl
===================================================================
--- trunk/freeswitch/astpp-fs-xml.pl	2009-10-04 20:16:28 UTC (rev 2274)
+++ trunk/freeswitch/astpp-fs-xml.pl	2009-10-04 20:27:10 UTC (rev 2275)
@@ -17,9 +17,13 @@
 use CGI;
 use CGI qw/:standard Vars/;
 use ASTPP;
+use XML::Simple;
+use Data::Dumper;
+use URI::Escape;
 use strict;
+
 use vars
-  qw($params $ASTPP @output $config $freeswitch_db $astpp_db $verbosity );
+  qw($cdr_db $params $ASTPP @output $config $freeswitch_db $astpp_db $verbosity );
 use Locale::gettext_pp qw(:locale_h);
 require "/usr/local/astpp/astpp-common.pl";
 $ENV{LANGUAGE} = "en";    # de, es, br - whatever
@@ -38,6 +42,7 @@
     $config = &load_config_db( $astpp_db, $config ) if $astpp_db;
     $freeswitch_db = &connect_freeswitch_db( $config, @output );
     $ASTPP->set_freeswitch_db($freeswitch_db);
+    $cdr_db = &cdr_connect_db( $config, @output );
     $config->{cdr_table} = $config->{freeswitch_cdr_table};
 }
 
@@ -304,6 +309,7 @@
     $ASTPP->debug( debug => $xml );
     print $xml;
 } elsif ( $params->{cdr} ) {
+print header( -type => 'text/plain' );
     
 # create object
 my $xml = new XML::Simple;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.