1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
package FS::part_pkg::flat;
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch);
use FS::part_pkg;
@ISA = qw(FS::part_pkg);
%info = (
'name' => 'Flat rate (anniversary billing)',
'fields' => {
'setup_fee' => { 'name' => 'Setup fee for this package',
'default' => 0,
},
'recur_fee' => { 'name' => 'Recurring fee for this package',
'default' => 0,
},
'unused_credit' => { 'name' => 'Credit the customer for the unused portion'.
' of service at cancellation',
'type' => 'checkbox',
},
'externalid' => { 'name' => 'Optional External ID',
'default' => '',
},
'seconds' => { 'name' => 'Time limit for this package',
'default' => '',
},
'upbytes' => { 'name' => 'Upload limit for this package',
'default' => '',
},
'downbytes' => { 'name' => 'Download limit for this package',
'default' => '',
},
'totalbytes' => { 'name' => 'Transfer limit for this package',
'default' => '',
},
'recharge_amount' => { 'name' => 'Cost of recharge for this package',
'default' => '',
},
'recharge_seconds' => { 'name' => 'Recharge time for this package',
'default' => '',
},
'recharge_upbytes' => { 'name' => 'Recharge upload for this package',
'default' => '',
},
'recharge_downbytes' => { 'name' => 'Recharge download for this package',
'default' => '',
},
'recharge_totalbytes' => { 'name' => 'Recharge transfer for this package',
'default' => '',
},
},
'fieldorder' => [ 'setup_fee', 'recur_fee', 'unused_credit',
'seconds', 'upbytes', 'downbytes', 'totalbytes',
'recharge_amount', 'recharge_seconds', 'recharge_upbytes',
'recharge_downbytes', 'recharge_totalbytes',
'externalid' ],
'weight' => 10,
);
sub calc_setup {
my($self, $cust_pkg, $sdate, $details ) = @_;
my $i = 0;
my $count = $self->option( 'additional_count', 'quiet' ) || 0;
while ($i < $count) {
push @$details, $self->option( 'additional_info' . $i++ );
}
$self->option('setup_fee');
}
sub calc_recur {
my($self, $cust_pkg) = @_;
$self->reset_usage($cust_pkg);
$self->base_recur($cust_pkg);
}
sub base_recur {
my($self, $cust_pkg) = @_;
$self->option('recur_fee');
}
sub calc_remain {
my ($self, $cust_pkg) = @_;
my $time = time; #should be able to pass this in for credit calculation
my $next_bill = $cust_pkg->getfield('bill') || 0;
my $last_bill = $cust_pkg->last_bill || 0;
return 0 if ! $self->base_recur
|| ! $self->option('unused_credit', 1)
|| ! $last_bill
|| ! $next_bill
|| $next_bill < $time;
my %sec = (
'h' => 3600, # 60 * 60
'd' => 86400, # 60 * 60 * 24
'w' => 604800, # 60 * 60 * 24 * 7
'm' => 2629744, # 60 * 60 * 24 * 365.2422 / 12
);
$self->freq =~ /^(\d+)([hdwm]?)$/
or die 'unparsable frequency: '. $self->freq;
my $freq_sec = $1 * $sec{$2||'m'};
return 0 unless $freq_sec;
sprintf("%.2f", $self->base_recur * ( $next_bill - $time ) / $freq_sec );
}
sub is_free_options {
qw( setup_fee recur_fee );
}
sub is_prepaid {
0; #no, we're postpaid
}
sub reset_usage {
my($self, $cust_pkg) = @_;
my %values = map { $_, $self->option($_) }
grep { $self->option($_, 'hush') }
qw(seconds upbytes downbytes totalbytes);
$cust_pkg->set_usage(\%values);
}
1;
|