3 # $Id: svc_domain.erase,v 1.1 2002-04-20 11:57:35 ivan Exp $
6 use FS::UID qw(adminsuidsetup);
7 use FS::Record qw(qsearch);
12 adminsuidsetup(shift @ARGV) or die "Usage: svc_domain.erase user\n";
14 foreach my $record ( qsearch('domain_record',{}), qsearch('svc_domain', {} ) ) {
15 my $error = $record->delete;