diff options
author | ivan <ivan> | 2002-04-20 11:57:36 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-20 11:57:36 +0000 |
commit | 4d5485150720c91d9945c3ae3cad9427ece23833 (patch) | |
tree | e38f52fc945486474cd66d55ed6ce7951c01bec2 /bin/svc_domain.erase | |
parent | cb63b8c06cdf912ce61b4b459a238dadfd9c64fc (diff) |
working BIND import
Diffstat (limited to 'bin/svc_domain.erase')
-rwxr-xr-x | bin/svc_domain.erase | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/bin/svc_domain.erase b/bin/svc_domain.erase new file mode 100755 index 000000000..c0236614b --- /dev/null +++ b/bin/svc_domain.erase @@ -0,0 +1,17 @@ +#!/usr/bin/perl -w +# +# $Id: svc_domain.erase,v 1.1 2002-04-20 11:57:35 ivan Exp $ + +use strict; +use FS::UID qw(adminsuidsetup); +use FS::Record qw(qsearch); + +use FS::domain_record; +use FS::svc_domain; + +adminsuidsetup(shift @ARGV) or die "Usage: svc_domain.erase user\n"; + +foreach my $record ( qsearch('domain_record',{}), qsearch('svc_domain', {} ) ) { + my $error = $record->delete; + die $error if $error; +} |