delete_domain.pl: do not try to delete an nonexistent domain.

delete_domain.pl

@@ -15,6 +15,12 @@ die usage() unless ($#ARGV == 0);
 
 sub main {
     my ($bprov) = @_;
+
+    call_prov_exists( $bprov, 'get_domain',
+               {
+                    domain => $ARGV[0]
+               }
+             );
     call_prov( $bprov, 'delete_domain',
                {
                     domain => $ARGV[0]
@@ -23,6 +29,35 @@ sub main {
     exit;
 }
 
+sub call_prov_exists {
+    #   scalar,    scalar,    hash-ref
+    my ($bprov, $function, $parameter) = @_;
+    my $result;
+
+    eval {
+        $result = $bprov->handle_request( $function,
+                                          {
+                                            authentication => {
+                                                                type     => 'admin',
+                                                                username => $CONFIG{admin},
+                                                                password => $CONFIG{password},
+                                                              },
+                                            parameters => $parameter,
+                                        });
+    };
+
+    if($@) {
+        if(ref $@ eq 'SOAP::Fault') {
+            exit 0 if($@->faultstring =~ 'unknown domain');
+            die "Billing\::$function failed: ". $@->faultstring;
+        } else {
+            die "Billing\::$function failed: $@";
+        }
+    }
+
+    return $result;
+}
+
 sub call_prov {
     #   scalar,    scalar,    hash-ref
     my ($bprov, $function, $parameter) = @_;