diff options
author | ivan <ivan> | 2001-02-03 14:03:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-02-03 14:03:50 +0000 |
commit | d220c8a4bfa1aee8f17ed71c2dba655160dd3595 (patch) | |
tree | 67e5270d4dbe6d98bf1d6f6213c057997d877e31 /bin/generate-prepay | |
parent | d746dfce2e320169ec8217cb09b9dbb0d403675d (diff) |
time-based prepaid cards, session monitor. woop!
Diffstat (limited to 'bin/generate-prepay')
-rwxr-xr-x | bin/generate-prepay | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/generate-prepay b/bin/generate-prepay index 6fb615ab1..cb4ba7fc6 100755 --- 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 $seconds = 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, + 'seconds' => $seconds, }; my $error = $prepay_credit->insert; die $error if $error; @@ -27,6 +30,6 @@ for ( 1 .. $num_entries ) { } 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"; } |