[Astpp-commit] SF.net SVN: astpp:[2317] trunk/freeswitch/astpp-callingcards.pl

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

Revision: 2317
          http://astpp.svn.sourceforge.net/astpp/?rev=2317&view=rev
Author:   darrenkw
Date:     2010-09-13 04:14:22 +0000 (Mon, 13 Sep 2010)

Log Message:
-----------
Corrected capitalization errors and added code to correct urlencoding issues.

Modified Paths:
--------------
    trunk/freeswitch/astpp-callingcards.pl

Modified: trunk/freeswitch/astpp-callingcards.pl
===================================================================
--- trunk/freeswitch/astpp-callingcards.pl	2010-09-13 04:13:05 UTC (rev 2316)
+++ trunk/freeswitch/astpp-callingcards.pl	2010-09-13 04:14:22 UTC (rev 2317)
@@ -428,13 +428,14 @@
             trunk_name         => $route->{trunk}
         );
         my ( $dialedtime, $uniqueid, $answeredtime, $clid );
-        $session->execute( "export", "CALLINGCARDS=1" );
         if ( $cc == 1 ) {
-            $session->execute( "export", "ACCOUNTCODE=CC:$cardinfo->{number}" );
+            $session->execute( "export", "accountcode=CC:$cardinfo->{number}" );
+            $session->execute( "export", "callingcard=$cardinfo->{number}" );
         }
         else {
             $session->execute( "export",
-                "ACCOUNTCODE=CC:$cardinfo->{cardnumber}" );
+                "accountcode=CC:$cardinfo->{cardnumber}" );
+            $session->execute( "export", "callingcard=$cardinfo->{cardnumber}" );
         }
         $session->execute( "bridge", "$data_string" );
         return 1;
@@ -462,20 +463,22 @@
             verbosity => $verbosity
         );
         if ( $cc == 1 ) {
-            $session->execute( "export", "CARDNUMBER=$cardinfo->{number}" );
+            $session->execute( "export", "cardnumber=$cardinfo->{number}" );
+            $session->execute( "export", "callingcard=$cardinfo->{number}" );
         }
         else {
-            $session->execute( "export", "CARDNUMBER=$cardinfo->{cardnumber}" );
+            $session->execute( "export", "cardnumber=$cardinfo->{cardnumber}" );
+            $session->execute( "export", "callingcard=$cardinfo->{cardnumber}" );
         }
-        $session->execute( "export", "PIN=$cardinfo->{pin}" );
+        $session->execute( "export", "pin=$cardinfo->{pin}" );
         if ( $whatnow == 1 ) {
-            $session->execute( "export", "NEWCALL=1" );
-            $session->execute( "export", "DESTINATION=$stats{destination}" );
+            $session->execute( "export", "newcall=1" );
+            $session->execute( "export", "destination=$stats{destination}" );
             &exit_program();
         }
         elsif ( $whatnow == 2 ) {
-            $session->execute( "export", "NEWCALL=1" );
-            $session->execute( "export", "DESTINATION=" );
+            $session->execute( "export", "newcall=1" );
+            $session->execute( "export", "destination=" );
             &exit_program();
         }
         elsif ( $whatnow == 3 ) {


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