fix quotations, RT#21103
[freeside.git] / bin / generate-prepay
1 #!/usr/bin/perl -w
2
3 use strict;
4 use FS::UID qw(adminsuidsetup);
5 use FS::prepay_credit;
6
7 require 5.004; #srand(time|$$);
8
9 my $user = shift or die &usage;
10 &adminsuidsetup( $user );
11
12 my $amount = shift or die &usage;
13
14 my $seconds = shift or die &usage;
15
16 my $num_digits = shift or die &usage;
17
18 my $num_entries = shift or die &usage;
19
20 for ( 1 .. $num_entries ) {
21   my $identifier = join( '', map int(rand(10)), ( 1 .. $num_digits ) );
22   my $prepay_credit = new FS::prepay_credit {
23     'identifier' => $identifier,
24     'amount'     => $amount,
25     'seconds'    => $seconds,
26   };
27   my $error = $prepay_credit->insert;
28   die $error if $error;
29   print "$identifier\n";
30 }
31
32 sub usage {
33   die "Usage:\n\n  generate-prepay user amount seconds num_digits num_entries";
34 }
35