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 }