Added clone for non-remote

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

diff --git a/gwvpmini/gwvpmini_debug.php b/gwvpmini/gwvpmini_debug.php
new file mode 100644 (file)
index 0000000..80cf2e0
--- /dev/null
+++ b/gwvpmini/gwvpmini_debug.php
@@ -0,0 +1,46 @@
+<?php
+
+$CALL_ME_FUNCTIONS["debug"] = "gwvpmini_DebugCallMe";
+
+$MENU_ITEMS["99debug"]["text"] = "Debug";\r
+$MENU_ITEMS["99debug"]["link"] = "$BASE_URL/debug";\r
+
+
+function gwvpmini_DebugCallMe()\r
+{\r
+\r
+       // error_log("in admin callme");\r
+       if(isset($_REQUEST["q"])) {\r
+               $query = $_REQUEST["q"];\r
+               $qspl = explode("/", $query);\r
+               if(isset($qspl[0])) {\r
+                       if($qspl[0] == "debug") {
+                               return "gwvpmini_DebugPage";
+                       }\r
+               }
+       }
+       
+       return false;
+}      \r
+\r
+function gwvpmini_DebugPage()
+{
+       gwvpmini_goMainPage("gwvpmini_DebugPageBody");
+}
+
+function gwvpmini_DebugPageBody()
+{
+       echo "Dumping perms data:";
+       
+       $db = gwvpmini_ConnectDB();
+       
+       $res = $db->query("select * from repos");
+       foreach($res as $row) {
+               $repo = $row["repos_name"];
+               $perms = $row["repos_perms"];
+               echo "<br>Repo: $repo: <pre>";
+               print_r(unserialize(base64_decode($perms)));
+               echo "</pre>";
+       }
+}
+?>
\ No newline at end of file