[DEVEL] Billing System

[ceco91]

Hi!
Here is billing system development
Later, I will post my first release.

One thing I like someone to do is to check PERL code because PERL is not my passion and by now I not as experienced as I should be to write PERL.

[DiXeoN]

It looks okay to me.. But with my knowledge of PERL, you better ask someone else

But i'll be a happy beta-tester, when a alpha version comes out!

[ceco91]

I cant guarantee that this will work. Better test on a test machine not on a real WORKING machine. Here are my files.

Up-to-date: 27 Jan 2009

[DiXeoN]

Of course

Im just about setting up a testserver, so will reply with some data later tonight or tomorrow.

[ceco91]

I have a testing server but i haven't install ispCP yet. So any testing result will be good

--------------
A fix:
In billing.pl:
Replace (~ line 54):

Code:

$SQL = "SELECT `domain` FROM `invoices` WHERE `duedate` = '".(1900 + $year)."-".$months[$mon]."-".$days[$mday]."' AND `status` = 'Unpaid'";

with:

Code:

$SQL = "SELECT `domain` FROM `clients` WHERE `paidto` = '".(1900 + $year)."-".$months[$mon]."-".$days[$mday]."'";

--------------
Another fix:
In config.php (in billing.zip):
Replace (~ line 6):

Code:

error_reporting(E_ALL);

With:

Code:

error_reporting(0);

[DiXeoN]

by the way.. Where should i put the PERL file?

[ceco91]

Cron Tab. Auto disable accouns and generate a new invoices..

[DiXeoN]

Could you please explain further, as i didnt quite get that?

[lepetitalbert]

Hi ceco91,

you should just add :

Code:

use strict;
use warnings;

NEVER write a Perl script without these !

Not tested but seems cool

Thanks.

Have a nice day.

[ceco91]

I mean that this script will disable account and generate invoices. It's an automatic system.