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 | |
parent | d746dfce2e320169ec8217cb09b9dbb0d403675d (diff) |
time-based prepaid cards, session monitor. woop!
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/fs-setup | 9 | ||||
-rwxr-xr-x | bin/generate-prepay | 5 |
2 files changed, 11 insertions, 3 deletions
diff --git a/bin/fs-setup b/bin/fs-setup index 2c31ff667..1df46d342 100755 --- a/bin/fs-setup +++ b/bin/fs-setup @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: fs-setup,v 1.32 2000-12-04 00:13:02 ivan Exp $ +# $Id: fs-setup,v 1.33 2001-02-03 14:03:50 ivan Exp $ # # ivan@sisd.com 97-nov-8,9 # @@ -32,7 +32,10 @@ # fix radius attributes ivan@sisd.com 98-sep-27 # # $Log: fs-setup,v $ -# Revision 1.32 2000-12-04 00:13:02 ivan +# Revision 1.33 2001-02-03 14:03:50 ivan +# time-based prepaid cards, session monitor. woop! +# +# Revision 1.32 2000/12/04 00:13:02 ivan # fix nas.last type # # Revision 1.31 2000/12/01 18:34:53 ivan @@ -658,6 +661,7 @@ sub tables_hash_hack { 'shell', 'varchar', 'NULL', $char_d, 'quota', 'varchar', 'NULL', $char_d, 'slipip', 'varchar', 'NULL', 15, #four TINYINTs, bah. + 'seconds', 'int', 'NULL', '', #uhhhh ], 'primary_key' => 'svcnum', 'unique' => [ [] ], @@ -739,6 +743,7 @@ sub tables_hash_hack { 'prepaynum', 'int', '', '', 'identifier', 'varchar', '', $char_d, 'amount', @money_type, + 'seconds', 'int', 'NULL', '', ], 'primary_key' => 'prepaynum', 'unique' => [ ['identifier'] ], 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"; } |