blob: 58dc6b9b6f4c1d98981b5eb90a26a4870ba22dfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/perl
use strict;
use FS::UID qw( adminsuidsetup );
use FS::Record qw( qsearchs );
use FS::cust_pkg;
my $user = shift or &usage;
adminsuidsetup $user;
my $pkgnum = shift or &usage;
my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum } )
or die "unknown pkgnum $pkgnum\n";
$cust_pkg->setup('');
my $error = $cust_pkg->replace;
die $error if $error;
sub usage {
die "usage: cust_pkg-remove_setup employee_username pkgnum\n";
}
1;
|