From d220c8a4bfa1aee8f17ed71c2dba655160dd3595 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 3 Feb 2001 14:03:50 +0000
Subject: time-based prepaid cards, session monitor.  woop!

---
 bin/generate-prepay | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'bin/generate-prepay')

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";
 }
 
-- 
cgit v1.2.1