fix quotations, RT#21103
[freeside.git] / bin / svc_domain.erase
1 #!/usr/bin/perl -w
2
3 use strict;
4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw(qsearch);
6
7 use FS::domain_record;
8 use FS::svc_domain;
9
10 adminsuidsetup(shift @ARGV) or die "Usage: svc_domain.erase user\n";
11
12 foreach my $record ( qsearch('domain_record',{}), qsearch('svc_domain', {} ) ) {
13   my $error = $record->delete;
14   die $error if $error;
15 }