5 use FS::UID qw( adminsuidsetup );
6 #use FS::Record qw( qsearchs );
9 my $user = shift or die &usage;
10 my $dbh = adminsuidsetup($user);
12 my $pkgnum = shift or die &usage;
13 my $svcpart = shift or die &usage;
15 #$FS::cust_pkg::DEBUG = 3;
16 $FS::cust_svc::ignore_quantity = 1;
20 my $svc_phone = new FS::svc_phone {
22 'phonenum' => '3125550000' + $_,
24 'svcpart' => $svcpart,
26 my $error = $svc_phone->insert;
28 print '.' unless $_ % 50 # % 1000;
32 print $dbh->sprintProfile;
36 die "Usage:\n svc_phone-bulk_insert-profile user pkgnum svcpart\n";