DomainName add delete method for admin users

simoncozens · Sep 16, 2010 · 4097d79 · 4097d79
1 parent a458ff7
commit 4097d79
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 2 deletions.
diff --git a/Kirin/Plugin/DomainName.pm b/Kirin/Plugin/DomainName.pm
@@ -30,8 +30,12 @@ my @fieldmap = (
 
 sub list {
     my ($self, $mm) = @_;
-    my (@names) = Kirin::DB::DomainName->search(customer => $mm->{customer});
-    $mm->respond("plugins/domain_name/list", names => \@names);
+    my %args = ();
+    $args{names} = [Kirin::DB::DomainName->search(customer => $mm->{customer})];
+    if ( $mm->{user}->is_root ) {
+        $args{admin}++;
+    }
+    $mm->respond("plugins/domain_name/list", %args);
 }
 
 sub view {
@@ -605,6 +609,29 @@ sub _setup_db {
     );
 }
 
+sub delete {
+    my ($self, $mm, $id) = @_;
+    if (!$mm->{user}->is_root) { return $mm->respond("403handler") }
+    my %rv = $self->_get_domain($mm, $id);
+    return $rv{response} if exists $rv{response};
+
+    my ($domain, $handle) = ($rv{object}, $rv{reghandle});
+    if (!$domain) {
+        $mm->message('That domain is not in the database.');
+        return $self->list($mm);
+    }
+    my $registered = undef;
+    eval { $registered = $handle->domain_info($domain->domain); };
+    if ( $registered ) {
+        # XXX check whether the domain is actually still registered with us.
+        #     if so do NOT delete it
+    }
+    else {
+        $domain->delete;
+    }
+    return $self->list($mm);
+}
+
 sub admin {
     my ($self, $mm) = @_;
     if (!$mm->{user}->is_root) { return $mm->respond("403handler") }

diff --git a/templates/plugins/domain_name/list b/templates/plugins/domain_name/list
@@ -6,9 +6,11 @@
 [% FOR n = names %]
     <tr> <th> [%n.domain%] </th>
         <td> Expires [% n.expires.ymd %] </td>
+        <td> <a href="/domain_name/view/[%n.id%]">View Domain</a></td>
         <td> <a href="/domain_name/change_contacts/[%n.id%]">Change contacts</a></td>
         <td> <a href="/domain_name/change_nameservers/[%n.id%]">Change nameservers</a></td>
         <td> <a href="/domain_name/renew/[%n.id%]">Renew</a></td>
+        [% IF admin %]<td> <a href="/domain_name/delete/[%n.id%]">Delete</a></td>[%END%]
     </tr>
 [% END %]
 </table>