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 $num_digits = shift or die &usage;
  15
  16 my $num_entries = shift or die &usage;
  17
  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,
  22     'amount'     => $amount,
  23   };
  24   my $error = $prepay_credit->insert;
  25   die $error if $error;
  26   print "$identifier\n";
  27 }
  28
  29 sub usage {
  30   die "Usage:\n\n  generate-prepay user amount num_digits num_entries";
  31 }
  32