4 use FS::UID qw(adminsuidsetup);
7 require 5.004; #srand(time|$$);
9 my $user = shift or die &usage;
10 &adminsuidsetup( $user );
12 my $amount = shift or die &usage;
14 my $num_digits = shift or die &usage;
16 my $num_entries = shift or die &usage;
18 for ( 1 .. $num_entries ) {
19 my $identifier = join( '', map int(rand(10)), ( 1 .. $num_digits ) );
20 my $prepay_credit = new FS::prepay_credit {
21 'identifier' => $identifier,
24 my $error = $prepay_credit->insert;
26 print "$identifier\n";
30 die "Usage:\n\n generate-prepay user amount num_digits num_entries";