added repo remove from admin page

[gwvp-mini.git] / gwvpmini / gwvpmini_gitrepo.php

diff --git a/gwvpmini/gwvpmini_gitrepo.php b/gwvpmini/gwvpmini_gitrepo.php
index a120da4..2b41228 100644 (file)
--- a/gwvpmini/gwvpmini_gitrepo.php
+++ b/gwvpmini/gwvpmini_gitrepo.php
@@ -186,4 +186,40 @@ function gwvpmini_HaveRepo($reponame)
        if(file_exists("$repo_base/$reponame.git")) return true;
 }
 
+
+function gwvpmini_RemoveRepo($rid)
+{
+       $repo_base = gwvpmini_getConfigVal("repodir");
+       
+       $repdet = gwvpmini_getRepo(null, null, $rid);
+       
+       $rname = $repdet["name"];
+       
+       error_log("FROM PANTS:".print_r($repdet,true)." ----------- ".print_r($rname, true));
+       
+       if($repdet != false && $rname != "") {
+               if(file_exists("$repo_base/$rname.git")) {
+                       // recursive remove - frightening
+                       if(gwvpmini_RecursiveDelete("$repo_base/$rname.git")) {
+                               gwvpmini_RemoveRepoDB($rid);
+                       }
+               }
+       } return false;
+}
+
+function gwvpmini_RecursiveDelete($fpath)
+{
+       error_log("RECURSEDETELE: ".$fpath);
+       if(is_file($fpath)){\r
+               return @unlink($fpath);\r
+       }\r
+       elseif(is_dir($fpath)){\r
+               $scan = glob(rtrim($fpath,'/').'/*');\r
+               foreach($scan as $index=>$path){\r
+                       gwvpmini_RecursiveDelete($path);\r
+               }\r
+               return @rmdir($fpath);\r
+       }
+}
+       
 ?>
\ No newline at end of file