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