Current time: 11-01-2024, 11:04 AM Hello There, Guest! (LoginRegister)


Thread Closed 
[DEVEL] Billing System
Author Message
ceco91 Offline
Moderator
*****
Moderators

Posts: 95
Joined: Jan 2009
Reputation: 0
Post: #1
[DEVEL] Billing System
Hi!
Here is billing system development Smile
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.


Attached File(s)
.txt  billing.pl.txt (Size: 3.41 KB / Downloads: 301)
(This post was last modified: 01-28-2009 05:23 AM by ceco91.)
01-28-2009 05:20 AM
Find all posts by this user
DiXeoN Offline
Member
***

Posts: 284
Joined: Feb 2008
Reputation: 2
Post: #2
RE: [DEVEL] Billing System
It looks okay to me.. But with my knowledge of PERL, you better ask someone else Smile

But i'll be a happy beta-tester, when a alpha version comes out!
01-28-2009 05:36 AM
Find all posts by this user
ceco91 Offline
Moderator
*****
Moderators

Posts: 95
Joined: Jan 2009
Reputation: 0
Post: #3
RE: [DEVEL] Billing System
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


Attached File(s)
.txt  billing.sql.txt (Size: 7.56 KB / Downloads: 193)
.zip  billing.zip (Size: 122.02 KB / Downloads: 210)
(This post was last modified: 01-28-2009 11:06 PM by ceco91.)
01-28-2009 05:45 AM
Find all posts by this user
DiXeoN Offline
Member
***

Posts: 284
Joined: Feb 2008
Reputation: 2
Post: #4
RE: [DEVEL] Billing System
Of course Smile

Im just about setting up a testserver, so will reply with some data later tonight or tomorrow.
01-28-2009 05:48 AM
Find all posts by this user
ceco91 Offline
Moderator
*****
Moderators

Posts: 95
Joined: Jan 2009
Reputation: 0
Post: #5
RE: [DEVEL] Billing System
I have a testing server but i haven't install ispCP yet. So any testing result will be good Smile

--------------
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);
(This post was last modified: 01-28-2009 06:02 AM by ceco91.)
01-28-2009 05:50 AM
Find all posts by this user
DiXeoN Offline
Member
***

Posts: 284
Joined: Feb 2008
Reputation: 2
Post: #6
RE: [DEVEL] Billing System
by the way.. Where should i put the PERL file?
01-28-2009 06:22 AM
Find all posts by this user
ceco91 Offline
Moderator
*****
Moderators

Posts: 95
Joined: Jan 2009
Reputation: 0
Post: #7
RE: [DEVEL] Billing System
Cron Tab. Auto disable accouns and generate a new invoices..
01-28-2009 03:04 PM
Find all posts by this user
DiXeoN Offline
Member
***

Posts: 284
Joined: Feb 2008
Reputation: 2
Post: #8
RE: [DEVEL] Billing System
Could you please explain further, as i didnt quite get that?
01-28-2009 05:44 PM
Find all posts by this user
lepetitalbert Offline
Junior Member
*

Posts: 17
Joined: Jun 2008
Reputation: 0
Post: #9
RE: [DEVEL] Billing System
Hi ceco91,

you should just add :
Code:
use strict;
use warnings;

NEVER write a Perl script without these !

Not tested but seems cool Smile

Thanks.

Have a nice day.
01-28-2009 10:24 PM
Visit this user's website Find all posts by this user
ceco91 Offline
Moderator
*****
Moderators

Posts: 95
Joined: Jan 2009
Reputation: 0
Post: #10
RE: [DEVEL] Billing System
I mean that this script will disable account and generate invoices. It's an automatic system.
01-28-2009 11:05 PM
Find all posts by this user
Thread Closed 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)