bin/svc_phone-bulk_insert-profile

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBIx::Profile;
   5 use FS::UID qw( adminsuidsetup );
   6 #use FS::Record qw( qsearchs );
   7 use FS::svc_phone;
   8
   9 my $user = shift or die &usage;
  10 my $dbh = adminsuidsetup($user);
  11
  12 my $pkgnum = shift or die &usage;
  13 my $svcpart = shift or die &usage;
  14
  15 #$FS::cust_pkg::DEBUG = 3;
  16 $FS::cust_svc::ignore_quantity = 1;
  17
  18 #for ( 1..50000 ) {
  19 for ( 1..5000 ) {
  20   my $svc_phone = new FS::svc_phone {
  21     'countrycode' => 1,
  22     'phonenum'    => '3125550000' + $_,
  23     'pkgnum'      => $pkgnum,
  24     'svcpart'     => $svcpart,
  25   };
  26   my $error = $svc_phone->insert;
  27   die $error if $error;
  28   print '.' unless $_ % 50 # % 1000;
  29 }
  30
  31 print "\n";
  32 print $dbh->sprintProfile;
  33 #$dbh->printProfile;
  34
  35 sub usage {
  36   die "Usage:\n svc_phone-bulk_insert-profile user pkgnum svcpart\n";
  37 }
  38
  39 1;