bin/svc_domain.erase

   1 #!/usr/bin/perl -w
   2 #
   3 # $Id: svc_domain.erase,v 1.1 2002-04-20 11:57:35 ivan Exp $
   4
   5 use strict;
   6 use FS::UID qw(adminsuidsetup);
   7 use FS::Record qw(qsearch);
   8
   9 use FS::domain_record;
  10 use FS::svc_domain;
  11
  12 adminsuidsetup(shift @ARGV) or die "Usage: svc_domain.erase user\n";
  13
  14 foreach my $record ( qsearch('domain_record',{}), qsearch('svc_domain', {} ) ) {
  15   my $error = $record->delete;
  16   die $error if $error;
  17 }