[Astpp-commit] SF.net SVN: astpp:[2194] trunk/astpp-update-balance.pl

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

Revision: 2194
          http://astpp.svn.sourceforge.net/astpp/?rev=2194&view=rev
Author:   darrenkw
Date:     2008-09-02 05:15:21 +0000 (Tue, 02 Sep 2008)

Log Message:
-----------
Split the invoice generation code off of astpp-update-balance.pl.

Modified Paths:
--------------
    trunk/astpp-update-balance.pl

Modified: trunk/astpp-update-balance.pl
===================================================================
--- trunk/astpp-update-balance.pl	2008-09-02 05:09:49 UTC (rev 2193)
+++ trunk/astpp-update-balance.pl	2008-09-02 05:15:21 UTC (rev 2194)
@@ -215,74 +215,5 @@
         }
     }
 }
-
-### Deal with external billing.  This will create the appropriate invoices in the external apps.
-if ( $config->{externalbill} eq "oscommerce" ) {
-    my @cardlist;
-    if ( $params->{sweep} ) {
-        @cardlist = &update_list_cards( $astpp_db, $config, $params->{sweep} );
-    }
-    foreach (@cardlist) {
-        my $cardno = $_;
-        my $carddata = &get_account( $astpp_db, $cardno );
-        if ( $carddata->{posttoexternal} == 1 ) {
-            foreach my $handle (@output) {
-                print $handle "Card: $cardno \n";
-            }
-            &osc_charges( $astpp_db, $osc_db, $config, $cardno );
-        }
-    }
-}
-elsif ( $config->{externalbill} eq "agile" ) {
-    my @cardlist = &list_cards($astpp_db);
-    foreach my $cardno (@cardlist) {
-        my $carddata = &get_account( $astpp_db, $cardno );
-        if ( $carddata->{posttoexternal} == 1 ) {
-            my @recordlist = &get_charges( $astpp_db, $config, $cardno );
-            foreach my $record (@recordlist) {
-                my $cdrinfo = &get_charge($record);
-                my $cost;
-                if ( $cdrinfo->{debit} ne "" ) {
-                    $cost = $cdrinfo->{debit};
-                }
-                else {
-                    $cost = $cdrinfo->{credit} * -1;
-                }
-                &agilesavecdr(
-                    $agile_db, $astpp_db,
-                    $config,   
-                    @output,   $carddata,
-                    $cost,     $config->{agile_site_id},
-                    $cdrinfo,  $config->{agile_dbprefix}
-                );
-            }
-        }
-    }
-}
-elsif ( $config->{externalbill} eq "optigold" ) {
-    my @cardlist = &list_cards($astpp_db);
-    foreach my $cardno (@cardlist) {
-        my $carddata = &get_account( $astpp_db, $cardno );
-        if ( $carddata->{posttoexternal} == 1 ) {
-            my @recordlist = &get_charges( $astpp_db, $config, $cardno );
-            foreach my $record (@recordlist) {
-                my $cdrinfo = &get_charge($record);
-                my $cost;
-                if ( $cdrinfo->{debit} ne "" ) {
-                    $cost = $cdrinfo->{debit};
-                }
-                else {
-                    $cost = $cdrinfo->{credit} * -1;
-                }
-                &ogsavecdr(
-                    $carddata->{number},  $cdrinfo->{disposition},
-                    $cdrinfo->{calldate}, $cdrinfo->{dst},
-                    $cdrinfo->{billsec},  $cost,
-                    $cdrinfo->{src}
-                );
-            }
-        }
-    }
-}
 &shutdown;
 exit(0);


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