astpp-commit Mailing List for ASTPP - Open Source Voip Billing (Page 3)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 2288
          http://astpp.svn.sourceforge.net/astpp/?rev=2288&view=rev
Author:   darrenkw
Date:     2009-10-09 14:59:42 +0000 (Fri, 09 Oct 2009)

Log Message:
-----------
This file can be run as an apache module.

Added Paths:
-----------
    trunk/freeswitch/ASTPP.pm

Added: trunk/freeswitch/ASTPP.pm
===================================================================

--- trunk/freeswitch/ASTPP.pm	                        (rev 0)
+++ trunk/freeswitch/ASTPP.pm	2009-10-09 14:59:42 UTC (rev 2288)
@@ -0,0 +1,559 @@
+package ModPerl::ASTPP;
+
+#
+# ASTPP - Open Source Voip Billing
+#
+# Copyright (C) 2008, Aleph Communications
+#
+# Darren Wiebe (da...@al...)
+#
+# This program is Free Software and is distributed under the
+# terms of the GNU General Public License version 2.
+############################################################
+#
+# Usage-example:
+#
+
+use Apache2::Const qw(:common);
+use Apache2::Request;
+use Apache::DBI;
+use DBI;
+use CGI;
+use CGI qw/:standard Vars/;
+use ASTPP;
+use XML::Simple;
+use Data::Dumper;
+use URI::Escape;
+use Time::HiRes qw( gettimeofday tv_interval );
+
+use POSIX;
+use POSIX qw(strftime);
+
+use strict;
+$Apache::DBI::DEBUG = 2;
+
+use vars
+  qw( $cdr_db $ASTPP @output $config $freeswitch_db $astpp_db $verbosity );
+use Locale::gettext_pp qw(:locale_h);
+my $starttime = [gettimeofday];
+require "/usr/local/astpp/astpp-common.pl";
+$ENV{LANGUAGE} = "en";    # de, es, br - whatever
+print STDERR "Interface language is set to: " . $ENV{LANGUAGE} . "\n";
+bindtextdomain( "astpp", "/usr/local/share/locale" );
+textdomain("astpp");
+$verbosity = 2;
+@output    = ("STDERR");
+$ASTPP     = ASTPP->new;
+$ASTPP->set_verbosity(4);    #Tell ASTPP debugging how verbose we want to be.
+
+sub initialize() {
+    $config = &load_config();
+    $astpp_db = &connect_db( $config, @output );
+    $ASTPP->set_astpp_db($astpp_db);
+    $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};
+}
+
+################# Programs start here #######################################
+&initialize;
+
+sub handler { 
+	my $r = shift;
+my ( $ipinfo, $params,$xml, $maxlength, $maxmins, $callstatus,$astppdid,$didinfo );
+my $starttime = [gettimeofday];
+my	$q = new CGI;
+
+
+foreach my $param ( $q->param()  ) {
+    $params->{$param} = $q->param($param);
+    $ASTPP->debug( debug => "$param $params->{$param}" );
+}
+
+$xml = header( -type => 'text/plain' );
+
+$ASTPP->debug(
+    debug => "Destination = $params->{'Caller-Destination-Number'}" );
+
+if ( $params->{section} eq "dialplan" ) {
+    # Check to see if this is a DID.  If it is we handle it differently.
+    #
+    $didinfo = &get_did($astpp_db, $params->{'Caller-Destination-Number'});
+    if ($didinfo->{number}) {
+	$astppdid = "ASTPP-DID";
+        $ASTPP->debug( debug => "This is a call for a DID: ");
+	$params->{variable_accountcode} = $didinfo->{account};
+    }
+
+
+    if ( !$params->{variable_accountcode} ) {
+
+      # First we strip off X digits to see if this account is prepending numbers
+      # as authentications
+        $ASTPP->debug( debug => "Checking CC Number: "
+              . $params->{'Caller-Destination-Number'} );
+        my $cc = substr( $params->{'Caller-Destination-Number'},
+            0, $config->{cardlength} );
+        my $sql =
+          $astpp_db->prepare("SELECT number FROM accounts WHERE cc = $cc");
+        $sql->execute;
+        my $record = $sql->fetchrow_hashref;
+        $sql->finish;
+        $params->{variable_accountcode} = $record->{cardnum}
+          if ( $record->{cardnum} );
+    }
+    if ( !$params->{variable_accountcode} ) {
+        $ASTPP->debug(
+            debug => "Checking IP Address:" . $params->{'Hunt-Network-Addr'} );
+        $ipinfo = $ASTPP->ip_address_authenticate(
+            ip_address  => $params->{'Hunt-Network-Addr'},
+            destination => $params->{'Caller-Destination-Number'}
+        );
+        if ($ipinfo->{account} ne "") {
+            $params->{variable_accountcode} = $ipinfo->{account};
+            $params->{'Caller-Destination-Number'} =~ s/$ipinfo->{prefix}//g;
+        }
+    }
+print STDERR "IP ACCOUNT: $ipinfo->{account} \n";
+
+    $xml = $ASTPP->fs_dialplan_xml_header(
+        xml                => $xml,
+        destination_number => $params->{'Caller-Destination-Number'},
+	DID		   => $didinfo->{number},
+	IP		   => 123	#$ipinfo->{account}
+    );
+
+    $ASTPP->debug( debug =>
+"$params->{variable_accountcode}, $params->{'Caller-Destination-Number'}"
+    );
+
+    my $carddata =
+      &get_account( $astpp_db, $params->{variable_accountcode} )
+      ;    # Fetch all the account info from the db.
+
+    if ( !$carddata->{number} )
+    {      # Check to see if the account exists.  If not then exit.
+        $ASTPP->debug( debug => "CALLSTATUS 2" );
+        $ASTPP->debug( debug => "CANNOT RETRIEVE CARD" );
+        $xml .=
+          "<action application=\"reject\" data=\"CANNOT RETRIEVE ACCOUNT\"/>\n";
+        $xml = $ASTPP->fs_dialplan_xml_footer( xml => $xml );
+#        print $xml;
+        $ASTPP->debug( debug => "Returning nothing so dialplan can continue." );
+	$r->print("");
+
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+
+        exit(1);
+#        return OK;
+    }
+
+    if ( $carddata->{dialed_modify} ) {
+        my @regexs = split( m/,/m, $carddata->{dialed_modify} );
+        foreach my $regex (@regexs) {
+            $regex =~ s/"//g;    #Strip off quotation marks
+            my ( $grab, $replace ) = split( m!/!i, $regex )
+              ; # This will split the variable into a "grab" and "replace" as needed
+            $ASTPP->debug( debug => "Grab: $grab" );
+            $ASTPP->debug( debug => "Replacement: $replace" );
+            $ASTPP->debug( debug =>
+                  "Phone Before: $params->{'Caller-Destination-Number'}" );
+            $$params->{'Caller-Destination-Number'} =~ s/$grab/$replace/is;
+            $ASTPP->debug( debug =>
+                  "Phone After: $params->{'Caller-Destination-Number'}" );
+        }
+    }
+
+    $ASTPP->debug( debug => "FINDING LIMIT FOR: " . $carddata->{number} );
+    ( $callstatus, $maxlength ) =
+      &max_length( $astpp_db, $config, $carddata,
+        $params->{'Caller-Destination-Number'} );
+
+    my $routeinfo = &get_route(
+        $astpp_db, $config,
+        $params->{'Caller-Destination-Number'},
+        $carddata->{pricelist}, $carddata,$astppdid
+    );
+
+    $ASTPP->debug( debug => "Cost: " . $routeinfo->{cost} );
+    $ASTPP->debug( debug => "Pricelist: " . $routeinfo->{pricelist} );
+    my $minimumcharge = $routeinfo->{cost};
+    my @reseller_list;
+    $ASTPP->debug( debug => "CALLSTATUS: $callstatus MAX_LENGTH: $maxlength" );
+
+    if (!$routeinfo->{cost} && !$routeinfo->{pricelist}) {
+        $ASTPP->debug( debug => "COULD NOT FIND ROUTE.  EXITING SO DIALPLAN CAN TAKE OVER" );
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+	$r->print($xml);
+        exit(1);
+#	return OK;
+    }
+    while ( $carddata->{reseller} && $maxlength > 1 && $callstatus == 1 ) {
+        $ASTPP->debug( debug => "FINDING LIMIT FOR: $carddata->{reseller}" );
+        $carddata = &get_account( $astpp_db, $carddata->{reseller} );
+        push @reseller_list, $carddata->{number};
+        $ASTPP->debug( debug =>
+"ADDING $carddata->{number} to the list of resellers for this account"
+        );
+        my ( $resellercallstatus, $resellermaxlength ) =
+          &max_length( $astpp_db, $config, $carddata,
+            $params->{'Caller-Destination-Number'} );
+        my $routeinfo = &get_route(
+            $astpp_db, $config,
+            $params->{'Caller-Destination-Number'},
+            $carddata->{pricelist}, $carddata
+        );
+        if ( $resellercallstatus != 1 ) {
+            $carddata->{reseller} = "";
+            $callstatus = $resellercallstatus;
+        }
+        elsif ( $resellermaxlength < $maxlength ) {
+            $maxlength = $resellermaxlength;
+        }
+        $ASTPP->debug( debug =>
+"Reseller cost = $routeinfo->{cost} and minimum charge is $minimumcharge"
+        );
+        if ( $resellermaxlength < 1 || $routeinfo->{cost} > $minimumcharge ) {
+            $ASTPP->debug( debug =>
+                  "Reseller call is priced too cheap!  Call being barred!" );
+            $xml .=
+"<action application=\"reject\" data=\"Reseller call is priced too cheap!  Call being barred!\"/>\n";
+            $xml = $ASTPP->fs_dialplan_xml_footer( xml => $xml );
+            $r->print( $xml);
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+        exit(1);
+        }
+        $ASTPP->debug( debug => "RESELLER Max Length: $resellermaxlength" );
+        $ASTPP->debug( debug => "RESELLER Call Status: $resellercallstatus" );
+    }
+
+    if ( $config->{debug} == 1 ) {
+        $ASTPP->debug( debug => "PRINTING LIST OF RESELLERS FOR THIS ACCOUNT" );
+        foreach my $reseller (@reseller_list) {
+            $ASTPP->debugb( debug => "RESELLER: $reseller" );
+        }
+    }
+
+    $ASTPP->debug("Max Call Length: $maxlength minutes");
+    $ASTPP->debug("Call Status: $callstatus");
+
+    if ( $maxlength <= 1 ) {
+        $ASTPP->debug( debug => "NOT ENOUGH CREDIT" );
+        $xml .= "<action application=\"reject\" data=\"NOT ENOUGH CREDIT\"/>\n";
+        $xml = $ASTPP->fs_dialplan_xml_footer( xml => $xml );
+        $r->print( $xml);
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+        exit(1);
+    } elsif ($config->{call_max_length} && $maxlength < $config->{call_max_length} / 1000){
+	$maxlength = $config->{call_max_length} / 1000;
+    }
+
+    $xml = $ASTPP->fs_dialplan_xml_timelimit(
+        xml        => $xml,
+        max_length => $maxlength,
+	accountcode => $carddata->{number}
+    );
+
+# Set the timelimit as well as other variables which are needed in the dialplan.
+    my $timelimit =
+      "L(" . sprintf( "%.0f", $maxlength * 60 * 1000 ) . ":60000:30000)";
+
+    $ASTPP->debug( debug => "Looking for outbound Route" );
+    $routeinfo = &get_route(
+        $astpp_db, $config,
+        $params->{'Caller-Destination-Number'},
+        $carddata->{pricelist}, $carddata, $astppdid
+    );
+
+    if ($didinfo->{number} ) {
+	$ASTPP->debug( debug => "THIS IS A DID CALL: $xml");
+        my ($returned_data) = $ASTPP->fs_dialplan_xml_did(
+		did		   => $params->{'Caller-Destination-Number'}
+       );
+	$xml .= $returned_data;
+    } else {
+    # Get the list of routes for the phone number.
+    my @outboundroutes =
+      &get_outbound_routes( $astpp_db, $params->{'Caller-Destination-Number'},
+        $carddata, $routeinfo, @reseller_list );
+    foreach my $route (@outboundroutes) {
+        $ASTPP->debug( debug =>
+              "$route->{trunk}: cost $route->{cost}\t $route->{pattern}" );
+        if ( $route->{cost} > $routeinfo->{cost} ) {
+            $ASTPP->debug( debug =>
+"$route->{trunk}: $route->{cost} > $routeinfo->{cost}, skipping"
+            );
+        }
+        else {
+            my ($returned_data,$junk) = $ASTPP->fs_dialplan_xml_bridge(
+                destination_number => $params->{'Caller-Destination-Number'},
+                route_prepend      => $route->{prepend},
+                trunk_name         => $route->{trunk},
+                route_id	   => $route->{id}
+            );
+	    $xml .= $returned_data;
+        }
+    }
+    }
+    $xml = $ASTPP->fs_dialplan_xml_footer( xml => $xml );
+    $ASTPP->debug( debug => $xml );
+    print $xml;
+    exit(1);
+}
+if ( $params->{section} eq "directory" ) {
+
+    #hostname darren-laptop
+    #section directory
+    #tag_name domain
+    #key_name name
+    #key_value 192.168.2.119
+    #action sip_auth
+    #sip_profile internal
+    #sip_user_agent Zoiper rev.1118
+    #sip_auth_username 1000
+    #sip_auth_realm 192.168.2.119
+    #sip_auth_nonce 83005e62-7e13-11dd-9eb1-25560b0691a8
+    #sip_auth_uri sip:192.168.2.119;transport=UDP
+    #sip_auth_qop auth
+    #sip_auth_cnonce a79169d2656f292a
+    #sip_auth_nc 00000001
+    #sip_auth_response 4475154556879ec2017978f1347192a6
+    #sip_auth_method REGISTER
+    #key id
+    #user 1000
+    #domain 192.168.2.119
+    #ip 192.168.2.119
+
+    if ($params->{'user'}) {
+       $xml = $ASTPP->fs_directory_xml_header( xml => $xml );
+       $xml = $ASTPP->fs_directory_xml(
+           xml    => $xml,
+           ip     => $params->{'ip'},
+           user   => $params->{'user'},
+           domain => $params->{'domain'}
+       );
+       $xml = $ASTPP->fs_directory_xml_footer( xml => $xml );
+    }
+    $ASTPP->debug( debug => $xml );
+    $r->print ($xml);
+    exit(1);
+}
+if ( $params->{cdr} ) {
+
+$r->print(header( -type => 'text/plain' ));
+    
+# create object
+my $xml = new XML::Simple;
+
+# read XML file
+my $data = $xml->XMLin($params->{cdr});
+
+# print output
+#print STDERR Dumper($data);
+
+
+my $tmp = "INSERT INTO " . $config->{freeswitch_cdr_table} . "(accountcode,src,dst,dcontext,clid,channel,dstchannel,lastapp,"
+	. "lastdata,calldate,answerdate,enddate,duration,billsec,disposition,amaflags,uniqueid,userfield,read_codec,"
+	. "write_codec,cost,vendor,provider,trunk,outbound_route,progressmsec,answermsec,progress_mediamsec) VALUES ("
+	. "'"
+	. $data->{variables}->{accountcode}
+	. "'"
+	. ","
+	. "'"
+	. $data->{callflow}->{caller_profile}->{username}
+	. "'"
+	. ","
+#	. $cdr_db->quote($data->{callflow}->{caller_profile}->{originatee}->{originatee_caller_profile}->{destination_number})
+	. "'"
+	. $data->{callflow}->{caller_profile}->{destination_number}
+	. "'"
+	. ","
+#	. $cdr_db->quote($data->{callflow}->{caller_profile}->{originatee}->{originatee_caller_profile}->{context})
+	. "'"
+	. $data->{callflow}->{caller_profile}->{context}
+	. "'"
+	. ","
+	. "'"
+	. uri_unescape($data->{variables}->{caller_id})
+	. "'"
+#	. "\"" . $cdr_db->quote($data->{callflow}->{caller_profile}->{originatee}->{originatee_caller_profile}->{caller_id_name}) . "\""
+#	. "<" . $cdr_db->quote($data->{callflow}->{caller_profile}->{originatee}->{originatee_caller_profile}->{caller_id_number}) . ">"
+#	. "\"" . $data->{callflow}->{caller_profile}->{caller_id_name} . "\""
+#	. "<" . $data->{callflow}->{caller_profile}->{caller_id_number} . ">"
+	. ","
+	. "'"
+	. uri_unescape($data->{variables}->{channel_name})
+	. "'"
+	. ","
+	. "''"
+	. ","
+	. "'" . $data->{variables}->{last_app} . "'"
+	. ","
+	. "'" . uri_unescape($data->{variables}->{last_arg}) . "'"
+	. ","
+	. "'"
+	. uri_unescape($data->{variables}->{start_stamp})
+	. "'"
+	. ","
+	. "'" . uri_unescape($data->{variables}->{answer_stamp}) . "'"
+	. ","
+	. "'"
+	. uri_unescape($data->{variables}->{end_stamp})
+	. "'"
+	. ","
+	. "'"
+	. $data->{variables}->{duration}
+	. "'"
+	. ","
+	. "'"
+	. $data->{variables}->{billsec}
+	. "'"
+	. ","
+	. "'"
+	. $data->{variables}->{hangup_cause}
+	. "'"
+	. ","
+	. "''"
+	. ","
+	. "'"
+	. $data->{callflow}->{caller_profile}->{uuid}
+	. "'"
+	. ","
+	. "''"
+	. ","
+	. "'" . $data->{variables}->{read_code} . "'"
+	. ","
+	. "'" . $data->{variables}->{write_code} . "'"
+	. ",'none','none'"
+	. ","
+	. "'" . $data->{variables}->{provider} . "'"
+	. ","
+	. "'" . $data->{variables}->{trunk} . "'"
+	. ","
+	. "'" . $data->{variables}->{outbound_route} . "'"
+	. ","
+	. "'" . $data->{variables}->{progressmsec} . "'"
+	. ","
+	. "'" . $data->{variables}->{answermsec} . "'"
+	. ","
+	. "'" . $data->{variables}->{progress_mediamsec} . "'"
+	. ")";
+
+print STDERR "\n" . $tmp . "\n";
+$cdr_db->do($tmp);
+$r->print( "Wrote CDR");
+my (@chargelist);
+push @chargelist, $data->{callflow}->{caller_profile}->{uuid};
+&processlist( $astpp_db, $cdr_db, $config, \@chargelist );
+print STDERR "VENDOR CHARGES: " . $config->{trackvendorcharges} . "\n";
+if ($config->{trackvendorcharges} == 1 && $data->{variables}->{accountcode}) {
+	&vendor_process_rating_fs( $astpp_db, $cdr_db, $config, "none",  $data->{callflow}->{caller_profile}->{uuid},"");
+}
+
+&process_callingcard_cdr if $data->{variables}->{callingcard};    
+	
+sub process_callingcard_cdr() {
+	my ( $cardinfo, $brandinfo, $numberinfo, $pricelistinfo,$cc );
+	my $destination = $data->{callflow}->{caller_profile}->{destination_number};
+	$destination =~ s/@.*//g;
+        my $cardnumber = $data->{variables}->{callingcard};
+        $cardinfo = &get_callingcard( $astpp_db, $cardnumber, $config );
+        if ( !$cardinfo ) {
+                $cardinfo = &get_account_cc( $astpp_db, $cardnumber );
+                $cc = 1 if $cardinfo;
+        }
+	$brandinfo = &get_cc_brand( $astpp_db, $cardinfo->{brand} ) if $cc == 0;
+	if ($brandinfo->{reseller}) {
+	        $config     = &load_config_db_reseller($astpp_db,$config,$brandinfo->{reseller});
+	}
+	$config     = &load_config_db_brand($astpp_db,$config,$cardinfo->{brand});
+	$pricelistinfo = &get_pricelist( $astpp_db, $brandinfo->{pricelist} )
+	  if $cc == 0;
+	$pricelistinfo = &get_pricelist( $astpp_db, $cardinfo->{pricelist} )
+	  if $cc == 1;
+
+                    print STDERR "THIS IS A CALLINGCARD CALL! \n";
+                    print STDERR "CARD: $cardinfo->{cardnumber} \n";
+                    print STDERR "CARD: $cardnumber \n";
+                    $numberinfo = &get_route(
+                        $astpp_db, $config,
+                        $destination,
+                        $brandinfo->{pricelist}, $cardinfo
+                    );
+                    if ( $data->{variables}->{billsec} > 0 )
+                    {
+                        $ASTPP->debug(
+                            debug     => "CALL ANSWERED",
+                            verbosity => $verbosity
+                        );
+                        my $increment;
+                        if ( $numberinfo->{inc} > 0 ) {
+                            $increment = $numberinfo->{inc};
+                        }
+                        else {
+                            $increment = $pricelistinfo->{inc};
+                        }
+                        $ASTPP->debug(
+                            debug =>
+"$numberinfo->{connectcost}, $numberinfo->{cost}, $data->{variables}->{billsec}, $increment, $numberinfo->{includedseconds}",
+                            verbosity => $verbosity
+                        );
+                        my $charge = &calc_call_cost(
+                            $numberinfo->{connectcost},
+                            $numberinfo->{cost},
+                            $data->{variables}->{billsec},
+                            $increment,
+                            $numberinfo->{includedseconds}
+                        );
+                        $ASTPP->debug(
+                            debug     => "Cost $charge ",
+                            verbosity => $verbosity
+                        );
+                        if ( $cardinfo->{minute_fee_pennies} > 0 ) {
+                            $charge =
+                              ( ( $cardinfo->{minute_fee_pennies} * 100 ) +
+                                  $charge )
+                              if $cardinfo->{timeused} +
+                                   $data->{variables}->{billsec} =>
+                                  $cardinfo->{minute_fee_minutes};
+                        }
+                        if ( $cardinfo->{min_length_pennies} > 0
+                            && ( $cardinfo->{min_length_minutes} * 60 ) >
+                             $data->{variables}->{billsec} )
+                        {
+                            $charge =
+                              ( ( $cardinfo->{min_length_pennies} * 100 ) +
+                                  $charge );
+                        }
+			print STDERR "CARDNUMBER: " . $cardinfo->{cardnumber};
+                        &write_callingcard_cdr(
+                            $astpp_db,
+                            $config,
+                            $cardinfo,
+                            uri_unescape($data->{variables}->{caller_id}),
+                             $destination,
+                            uri_unescape($data->{variables}->{hangup_cause}),
+                            uri_unescape($data->{variables}->{start_stamp}),
+                            $charge,
+                             $data->{variables}->{billsec}
+                        );
+                        &callingcard_set_in_use($astpp_db,$cardinfo,0);
+                        &callingcard_update_balance($astpp_db,$cardinfo,$charge);
+            }
+                }
+
+    
+}
+
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+}
+my $generation_time = tv_interval($starttime);
+print STDERR "TOOK: " . $generation_time ;
+1;


Property changes on: trunk/freeswitch/ASTPP.pm
___________________________________________________________________
Added: svn:executable
   + *


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




2007	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep (8)	Oct (1)	Nov (34)	Dec (3)
2008	Jan (1)	Feb	Mar	Apr	May (9)	Jun (3)	Jul (1)	Aug (3)	Sep (8)	Oct (3)	Nov (11)	Dec (6)
2009	Jan (9)	Feb (11)	Mar (6)	Apr (3)	May (3)	Jun	Jul	Aug	Sep (14)	Oct (32)	Nov (2)	Dec
2010	Jan (1)	Feb (11)	Mar (2)	Apr	May	Jun (1)	Jul	Aug	Sep (6)	Oct (1)	Nov	Dec (5)
2011	Jan (7)	Feb	Mar (1)	Apr (3)	May (2)	Jun	Jul	Aug	Sep	Oct	Nov	Dec

astpp-commit Mailing List for ASTPP - Open Source Voip Billing (Page 3)

astpp-commit — ASTPP SVN commits go to this list