You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
252 lines
11 KiB
252 lines
11 KiB
#!/usr/bin/perl -w
|
|
#use lib '/media/sf_/usr/share/VMHost/ngcp-panel/lib';
|
|
use strict;
|
|
|
|
use Getopt::Long;
|
|
use DBI;
|
|
use Data::Dumper;
|
|
use DateTime::TimeZone;
|
|
use Test::MockObject;
|
|
use Email::MIME;
|
|
use Email::Sender::Simple qw(sendmail);
|
|
use Email::Sender::Transport::SMTP;
|
|
#use IO::All;
|
|
|
|
#apt-get install libemail-send-perl
|
|
#apt-get install libemail-sender-perl
|
|
#apt-get install libtest-mockobject-perl
|
|
|
|
#apt-get install libnet-smtp-ssl-perl
|
|
#apt-get install libio-all-perl
|
|
|
|
|
|
|
|
use Sipwise::Base;
|
|
|
|
use NGCP::Panel;
|
|
use NGCP::Panel::Utils::DateTime;
|
|
use NGCP::Panel::Utils::Contract;
|
|
use NGCP::Panel::Utils::InvoiceTemplate;
|
|
use NGCP::Panel::View::SVG;
|
|
|
|
my $opt = {};
|
|
Getopt::Long::GetOptions($opt, 'reseller_id:i@', 'client_contact_id:i@', 'stime:s', 'etime:s', 'help|?')
|
|
or die 'could not process command-line options';
|
|
|
|
my $debug = 0;
|
|
|
|
my ($dbuser, $dbpass);
|
|
my $mfile = '/etc/mysql/sipwise.cnf';
|
|
if(-f $mfile) {
|
|
open my $fh, "<", $mfile
|
|
or die "failed to open '$mfile': $!\n";
|
|
$_ = <$fh>; chomp;
|
|
s/^SIPWISE_DB_PASSWORD='(.+)'$/$1/;
|
|
$dbuser = 'sipwise'; $dbpass = $_;
|
|
} else {
|
|
$dbuser = 'root';
|
|
$dbpass = '';
|
|
}
|
|
print "using user '$dbuser' with pass '$dbpass'\n"
|
|
if($debug);
|
|
|
|
my $dbh = DBI->connect('dbi:mysql:billing;host=localhost', $dbuser, $dbpass)
|
|
or die "failed to connect to billing DB\n";
|
|
|
|
my $email_transport = Email::Sender::Transport::SMTP->new({
|
|
sasl_username => 'ipeshinskaya',
|
|
|
|
#host => 'mail.sipwise.com',
|
|
#port => 587,
|
|
#sasl_password => 'KfC4pXuV',
|
|
#ssl => 0,
|
|
|
|
host => 'smtp.googlemail.com',
|
|
port => 465,
|
|
ssl => 1,
|
|
sasl_password => '',
|
|
});
|
|
|
|
|
|
my $c_mock = Test::MockObject->new();
|
|
$c_mock->set_false(qw/debug/);
|
|
my $view = NGCP::Panel::View::SVG->new($c_mock,{});
|
|
|
|
|
|
my $stime = $opt->{stime}
|
|
? NGCP::Panel::Utils::DateTime::new_local(split(/\D+/,$opt->{stime}))
|
|
: NGCP::Panel::Utils::DateTime::current_local()->truncate( to => 'month' );
|
|
my $etime = $opt->{etime}
|
|
? NGCP::Panel::Utils::DateTime::new_local(split(/\D+/,$opt->{etime}))
|
|
: $stime->clone->add( months => 1 )->subtract( seconds => 1 );
|
|
|
|
my $svg_default = $view->getTemplateContent(undef,'invoice/invoice_template_svg.tt');
|
|
NGCP::Panel::Utils::InvoiceTemplate::preprocessInvoiceTemplateSvg( {no_fake_data => 1}, \$svg_default);
|
|
|
|
foreach my $provider_contract( @{$dbh->selectall_arrayref('select contracts.*,resellers.id as reseller_core_id from resellers inner join contracts on resellers.contract_id=contracts.id where resellers.status != "terminated"'.ify('and resellers.id', @{$opt->{reseller_id}}), { Slice => {} }, @{$opt->{reseller_id}} ) } ){
|
|
my $provider_contact = $dbh->selectrow_hashref('select * from contacts where id=?', undef, $provider_contract->{contact_id} );
|
|
|
|
#according to /reseller/ajax_reseller_filter
|
|
foreach my $client_contact (@{ $dbh->selectall_arrayref('select contacts.* from contacts where reseller_id = ?'.ify(' and contacts.id', @{$opt->{client_contact_id}}), { Slice => {} }, $provider_contract->{reseller_core_id}, @{$opt->{client_contact_id}} ) } ){
|
|
my $client_contract = $dbh->selectrow_hashref('select contracts.* from contracts where contracts.contact_id=? ', undef, $client_contact->{id} );
|
|
|
|
if( my $billing_profile = $dbh->selectrow_hashref('select distinct billing_profiles.*
|
|
from billing_mappings
|
|
inner join billing_profiles on billing_mappings.billing_profile_id=billing_profiles.id
|
|
inner join contracts on contracts.id=billing_mappings.contract_id
|
|
inner join products on billing_mappings.product_id=products.id and products.class in("sipaccount","pbxaccount")
|
|
where
|
|
contracts.status != "terminated"
|
|
and contracts.contact_id=?
|
|
and (billing_mappings.start_date <= ? OR billing_mappings.start_date IS NULL)
|
|
and (billing_mappings.end_date >= ? OR billing_mappings.end_date IS NULL)'
|
|
, undef, $client_contact->{id}, $etime->epoch, $stime->epoch
|
|
) ){
|
|
my ($contract_balance,$invoice)=({},{});
|
|
($contract_balance,$invoice) = get_contract_balance($client_contract,$billing_profile,$contract_balance,$invoice,$stime,$etime);
|
|
|
|
my $invoice_details_calls = $dbh->selectall_arrayref('select cdr.*,bzh.zone, bzh.detail as zone_detail
|
|
from accounting.cdr
|
|
LEFT JOIN billing.billing_zones_history bzh ON bzh.id = cdr.source_customer_billing_zone_id
|
|
where
|
|
cdr.source_user_id != 0
|
|
and cdr.call_status="ok"
|
|
and cdr.source_account_id=?
|
|
and cdr.start_time >= ?
|
|
and cdr.start_time <= ?
|
|
order by cdr.start_time
|
|
-- limit 25'
|
|
, { Slice => {} }
|
|
, $client_contract->{id},$stime->epoch,$etime->epoch
|
|
);
|
|
my $invoice_details_zones = $dbh->selectall_arrayref('select SUM(cdr.source_customer_cost) AS cost, COUNT(*) AS number, SUM(cdr.duration) AS duration,sum(cdr.source_customer_free_time) as free_time, bzh.zone
|
|
from accounting.cdr
|
|
LEFT JOIN billing.billing_zones_history bzh ON bzh.id = cdr.source_customer_billing_zone_id
|
|
where
|
|
cdr.source_user_id != 0
|
|
and cdr.call_status="ok"
|
|
and cdr.source_account_id=?
|
|
and cdr.start_time >= ?
|
|
and cdr.start_time <= ?
|
|
group by bzh.zone
|
|
order by bzh.zone'
|
|
, {Slice => {} }
|
|
, $client_contract->{id},$stime->epoch,$etime->epoch
|
|
);
|
|
my $i = 1;
|
|
$invoice_details_calls = [map{[$i++,$_]} (@$invoice_details_calls) x 1];
|
|
$i = 1;
|
|
$invoice_details_zones = [map{[$i++,$_]} (@$invoice_details_zones) x 1];
|
|
my ($in, $out);
|
|
#tt_id used only as part in temporary directory
|
|
$in = {
|
|
no_fake_data => 1,
|
|
provider_id => $provider_contract->{reseller_core_id},
|
|
tt_type => 'svg',
|
|
tt_sourcestate => 'saved',
|
|
tt_id => $provider_contract->{reseller_core_id},
|
|
};
|
|
$out = {
|
|
tt_id => $provider_contract->{reseller_core_id},
|
|
};
|
|
my $stash = {
|
|
provider => $provider_contact,
|
|
client => $client_contact,
|
|
invoice => $invoice,
|
|
invoice_details_zones => $invoice_details_zones,
|
|
invoice_details_calls => $invoice_details_calls,
|
|
};
|
|
my $svg = $dbh->selectrow_array('select base64_saved from invoice_templates where is_active = 1 and type = "svg" and reseller_id=?',undef,$provider_contract->{reseller_core_id});
|
|
if($svg){
|
|
NGCP::Panel::Utils::InvoiceTemplate::preprocessInvoiceTemplateSvg($in,\$svg);
|
|
}else{
|
|
$svg = $svg_default;
|
|
}
|
|
$svg = $view->getTemplateProcessed($c_mock,\$svg, $stash );
|
|
#print $svg;
|
|
#die();
|
|
NGCP::Panel::Utils::InvoiceTemplate::convertSvg2Pdf(undef,\$svg,$in,$out);
|
|
|
|
#binmode(STDOUT);
|
|
#print $out->{tt_string_pdf};
|
|
#die;
|
|
$dbh->do('update invoices set data=? where id=?',undef,$out->{tt_string_pdf},$invoice->{id});
|
|
email($provider_contact,$client_contact,$invoice,\$out->{tt_string_pdf});
|
|
}
|
|
}
|
|
}
|
|
sub get_contract_balance{
|
|
my($client_contract,$billing_profile,$contract_balance,$invoice,$stime,$etime) = @_;
|
|
if(!($contract_balance = $dbh->selectrow_hashref('select * from contract_balances where contract_id=? and date(start)=? and date(end)=?',undef,$client_contract->{id},$stime->ymd,$etime->ymd))){
|
|
@$contract_balance{qw/cash_balance cash_balance_interval free_time_balance free_time_balance_interval/} = NGCP::Panel::Utils::Contract::get_contract_balance_values(
|
|
%$billing_profile,
|
|
stime => $stime,
|
|
etime => $etime,
|
|
);
|
|
$dbh->do('insert into contract_balances(contract_id,cash_balance,cash_balance_interval,free_time_balance,free_time_balance_interval,start,end,invoice_id)values(?,?,?,?,?,?,?,?)',undef,$client_contract->{id},@$contract_balance{qw/cash_balance cash_balance_interval free_time_balance free_time_balance_interval/},$stime->datetime, $etime->datetime,undef );
|
|
$invoice = create_invoice($client_contract->{id},$stime, $etime);
|
|
$contract_balance = $dbh->selectrow_hashref('select * from contract_balances where id=?',undef,$dbh->last_insert_id(undef,'billing','contract_balances','id'));
|
|
}else{
|
|
if(!$contract_balance->{invoice_id} || !( $invoice = $dbh->selectrow_hashref('select * from invoices where id=?',undef,$contract_balance->{invoice_id} ))){
|
|
$invoice = create_invoice($client_contract->{id},$stime, $etime);
|
|
}
|
|
}
|
|
return ($contract_balance,$invoice);
|
|
}
|
|
sub create_invoice{
|
|
my($contract_id, $stime, $etime) = @_;
|
|
#my $invoice_serial = $dbh->selectrow_array('select max(invoices.serial) from invoices inner join contract_balances on invoices.id=contract_balances.invoice_id where contract_balances.contract_id=?',undef,$contract_id );
|
|
my $invoice_serial = $dbh->selectrow_array('select max(invoices.serial) from invoices');
|
|
$invoice_serial += 1;
|
|
$dbh->do('insert into invoices(year,month,serial)values(?,?,?)', undef, $stime->year, $stime->month,$invoice_serial );
|
|
my $invoice_id = $dbh->last_insert_id(undef,'billing','invoices','id');
|
|
$dbh->do('update contract_balances set invoice_id = ? where contract_id=? and start=? and end=?', undef, $invoice_id,$contract_id, $stime->datetime, $etime->datetime );
|
|
return $dbh->selectrow_hashref('select * from invoices where id=?',undef, $invoice_id);
|
|
}
|
|
|
|
sub ify{
|
|
my $key = shift;
|
|
return ( $#_ == 0 ) ? ' '.$key.' = ? ': ( ( $#_ > 0 ) ? ( ' '.$key. 'in('.('?'x($#_+1)).') ') : '' );
|
|
}
|
|
|
|
sub email{
|
|
#todo: repeat my old function based on templates and store into utils
|
|
my($provider_contact,$client_contact,$invoice,$pdf_ref)=@_;
|
|
$client_contact->{email} //= '';
|
|
if(1 or $client_contact->{email}){
|
|
my $email = Email::MIME->create(
|
|
header => [
|
|
From => $provider_contact->{email},
|
|
#To => $client_contact->{email},
|
|
To => 'ipeshinskaya@gmail.com',
|
|
#To => 'ipeshinskaya@sipwise.com',
|
|
Subject => 'Invoice #'.$invoice->{serial},
|
|
],
|
|
parts => [
|
|
Email::MIME->create(
|
|
attributes => {
|
|
filename => "invoice_$invoice->{serial}.pdf",
|
|
content_type => "application/pdf",
|
|
encoding => "base64",
|
|
#encoding => "quoted-printable",
|
|
disposition => "attachment",
|
|
},
|
|
#body => io( $pdf_ref )->all,
|
|
body => $pdf_ref,
|
|
),
|
|
Email::MIME->create(
|
|
attributes => {
|
|
encoding => "quoted-printable",
|
|
content_type => "text/plain",
|
|
charset => "US-ASCII",
|
|
},
|
|
body_str => "Dear Customer!\n\nEmail:$client_contact->{email}\n\nSome text from sales here. Using loc somehow?\n Best regards,",
|
|
),
|
|
]
|
|
);
|
|
sendmail($email, { transport => $email_transport });
|
|
#sendmail($email);
|
|
print "Error sending email: $@" if $@;
|
|
}
|
|
}
|