@@ -115,6 +115,18 @@ EOS

   # Validator

   my $validator = Validator::Custom->new;

   $self->validator($validator);

+  $validator->register_constraint(

+    user_name => sub {

+      my $value = shift;

+      

+      return ($value || '') =~ /^[a-zA-Z0-9_\-]+$/

+    },

+    project_name => sub {

+      my $value = shift;

+      

+      return ($value || '') =~ /^[a-zA-Z0-9_\-]+$/

+    }

+  );

   # Helper

   $self->helper(gitprep_api => sub { Gitprep::API->new(shift) });

@@ -93,5 +93,13 @@ sub default_branch {

   return $config->{default_branch};

 }

+

+sub delete_project {

+  my ($self, $user, $project) = @_;

+  

+  my $c = $self->cntl;

+  my $dbi = $c->app->dbi;

+  $dbi->model('project')->delete(id => [$user, $project]);

+}

 1;

@@ -332,6 +332,15 @@ sub commits_number {

   return $commits_num;

 }

+sub delete_project {

+  my ($self, $user, $project) = @_;

+  

+  croak "Invalid user name or project"

+    unless defined $user && defined $project;

+  my $rep = $self->rep($user, $project);

+  rmtree($rep);

+}

+

 sub exists_repository {

   my ($self, $user, $project) = @_;

@@ -574,14 +583,6 @@ sub path_by_id {

   return;

 }

-sub rep {

-  my ($self, $user, $project) = @_;

-  

-  my $home = $self->rep_home;

-  

-  return "$home/$user/$project.git";

-}

-

 sub description {

   my ($self, $user, $project, $description) = @_;

@@ -671,35 +672,6 @@ sub project_urls {

   return \@urls;

 }

-sub references {

-  my ($self, $user, $project, $type) = @_;

-  

-  $type ||= '';

-  

-  # Get references

-  my @cmd = $self->_cmd(

-    $user,

-    $project,

-    'show-ref',

-    '--dereference',

-    ($type ? ('--', "refs/$type") : ())

-  );

-  open my $fh, '-|', @cmd or return;

-  

-  # Parse references

-  my %refs;

-  while (my $line = $self->dec(scalar <$fh>)) {

-    chomp $line;

-    if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {

-      if (defined $refs{$1}) { push @{$refs{$1}}, $2 }

-      else { $refs{$1} = [$2] }

-    }

-  }

-  close $fh or return;

-  

-  return \%refs;

-}

-

 sub projects {

   my ($self, $user, $opts) = @_;

@@ -734,6 +706,43 @@ sub projects {

   return \@reps;

 }

+sub references {

+  my ($self, $user, $project, $type) = @_;

+  

+  $type ||= '';

+  

+  # Get references

+  my @cmd = $self->_cmd(

+    $user,

+    $project,

+    'show-ref',

+    '--dereference',

+    ($type ? ('--', "refs/$type") : ())

+  );

+  open my $fh, '-|', @cmd or return;

+  

+  # Parse references

+  my %refs;

+  while (my $line = $self->dec(scalar <$fh>)) {

+    chomp $line;

+    if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {

+      if (defined $refs{$1}) { push @{$refs{$1}}, $2 }

+      else { $refs{$1} = [$2] }

+    }

+  }

+  close $fh or return;

+  

+  return \%refs;

+}

+

+sub rep {

+  my ($self, $user, $project) = @_;

+  

+  my $home = $self->rep_home;

+  

+  return "$home/$user/$project.git";

+}

+

 sub short_id {

   my ($self, $project) = (shift, shift);

@@ -17,13 +17,49 @@

     $self->render(json => {ok => 1});

     return $self->res->body;

   }

+  elsif ($op eq 'delete-project') {

+    my $params = $api->params;

+    

+    my $rule = [

+      user => [

+        'user_name'

+      ],

+      project => [

+        'project_name'

+      ]

+    ];

+    my $vresult = app->validator->validate($params, $rule);

+    

+    if ($vresult->is_ok) {

+      my $data = $vresult->data;

+      my $user = $data->{user};

+      my $project = $data->{project};

+      

+      eval { $git->delete_project($user, $project) };

+      my $error1 = $@;

+      eval { $api->delete_project($user, $project) };

+      my $error2 = $@;

+      

+      if (!$error1 && !$error2) {

+        $self->render(json => {ok => 1});

+      }

+      else {

+        app->log->fatal($error1) if $error1;

+        app->log->fatal($error2) if $error2;

+        $self->render(json => {ok => 0});

+      }

+      return $self->res->body;

+    }

+    else { $api->croak('Invalid') }

+  }

 %>

 % layout 'common';

   %= javascript begin

-  

+    

     $(document).ready(function () {

+    

       // Change description

       $('a[href="#description"]').on('click', function () {

         var description = $('input[name="description"]').val();

@@ -36,6 +72,38 @@

         });

       });

+      // Check matching deleted project

+      $('input[name="deleted-project"]').on('keyup', function () {

+        var deleted_project = $(this).val();

+        var project = "<%= $project %>";

+        

+        if (deleted_project == project) {

+          $('#delete').attr('class', 'btn btn-danger')

+            .removeAttr('disabled');

+        }

+        else {

+          $('#delete').attr('class', 'btn btn-danger disabled')

+            .attr('disabled', 'disabled');

+        }

+      });

+      

+      // Delete project

+      $('#delete').on('click', function () {

+        var deleted_project = $('input[name="deleted-project"]').val();

+        var url = "<%= url_for %>";

+        var data = {

+          op : "delete-project",

+          user: "<%= $user %>",

+          project: "<%= $project %>",

+          "deleted-project" : deleted_project,

+        };

+        $.post(url, data, function (result) {

+          if (result.ok) {

+            location.href = "<%= url_for("/$user") %>";

+          }

+        });

+      });

+      

       // Select default branch

       var default_branch = "<%= $api->default_branch($user, $project) %>";

       $('select[name="default_branch"]').val(default_branch);

@@ -86,7 +154,9 @@

         <span class="muted">

           Once you delete a repository, there is no going back.

         </span>

-        <a style="color:red" class="btn" href="#delete">Delete this repository</a>

+        <a style="color:red" href="#delete-confirm" role="button" class="btn" data-toggle="modal">

+          Delete this repository

+        </a>

     </div>

   </div>

@@ -98,5 +168,30 @@

       <button class="btn" data-dismiss="modal" aria-hidden="true">OK</button>

     </div>

   </div>

+  

+  <div id="delete-confirm" class="modal hide" tabindex="-1" role="dialog" aria-labelledby="delete-confirm-label" aria-hidden="true">

+    <div class="modal-header">

+      <button type="button" class="close" data-dismiss="modal" aria-hidden="true">×</button>

+      <div id="modal-message" style="font-weight:bold">Are you ABSOLUTELY sure?</div>

+    </div>

+    <div class="modal-body">

+      <p>

+        Unexpected bad things will happen if you don't read this.

+      </p>

+      <p>

+        This action <b>CANNOT</b> be undone. This will delete the <b><%= "$user/$project" %></b>

+        repository, wiki, issues, and comments permanently.

+      </p>

+      <p>

+        Please type in the name of the repository(<b><%= $project %></b>) to confirm.

+      </p>

+      %= text_field 'deleted-project', class => 'span5';

+    </div>

+    <div class="modal-footer">

+      <button id="delete" class="btn btn-danger disabled" disabled data-dismiss="modal" aria-hidden="true">

+        I understand the consequences, delete this repository

+      </button>

+    </div>

+  </div>

   %= include '/include/footer';

@@ -15,6 +15,12 @@

         /

         <li><a href="<%= url_for %>"><%= $user %></a></li>

       </ul>

+      % if (my $message = flash('delete_message')) {

+        <div class="alert alert-success">

+          <button type="button" class="close" data-dismiss="alert">&times;</button>

+          <strong><%= $message %></strong>

+        </div>

+      % }

       <h3>Repositories</h3>