projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc
[freeside.git]
/
bin
/
generate-prepay
diff --git
a/bin/generate-prepay
b/bin/generate-prepay
index
6fb615a
..
cb4ba7f
100755
(executable)
--- a/
bin/generate-prepay
+++ b/
bin/generate-prepay
@@
-11,6
+11,8
@@
my $user = shift or die &usage;
my $amount = shift or die &usage;
my $amount = shift or die &usage;
+my $seconds = shift or die &usage;
+
my $num_digits = shift or die &usage;
my $num_entries = shift or die &usage;
my $num_digits = shift or die &usage;
my $num_entries = shift or die &usage;
@@
-20,6
+22,7
@@
for ( 1 .. $num_entries ) {
my $prepay_credit = new FS::prepay_credit {
'identifier' => $identifier,
'amount' => $amount,
my $prepay_credit = new FS::prepay_credit {
'identifier' => $identifier,
'amount' => $amount,
+ 'seconds' => $seconds,
};
my $error = $prepay_credit->insert;
die $error if $error;
};
my $error = $prepay_credit->insert;
die $error if $error;
@@
-27,6
+30,6
@@
for ( 1 .. $num_entries ) {
}
sub usage {
}
sub usage {
- die "Usage:\n\n generate-prepay user amount num_digits num_entries";
+ die "Usage:\n\n generate-prepay user amount
seconds
num_digits num_entries";
}
}