Changeset 1189 in t29-www

Timestamp:

Mar 30, 2017, 11:02:21 AM (6 years ago)

Author:

sven

Message:

Wipe-Cache: Funktioniert jetzt auch auf Windows.

File:

• lib/wipe-cache.php (modified) (4 diffs)

lib/wipe-cache.php

@@ -16 +16 @@
 
 if(isset($_GET['wipe'])) {
-        $command = "rm -r $cache_dir/* 2>&1";
         print "<h3>Cache-Leerung</h3>";
-        print shell_exec($command);
+        rrmdir_sub($cache_dir);
         print "Fertig";
         print "<h3>Erneut Cache leeren?</h3>";
@@ -35 +34 @@
 
 
-<h3>Details</h3>
+<h3>Zum Cache-System</h3>
 
 <p>Die technikum29-Website wird seit Version 6 mit PHP und einem mehrstufigen
@@ -47 +46 @@
 <?php
 foreach($page_cache->test_files as $file) {
-        print "<tr><td class='left'><tt>$file</tt><td>".date ("F d Y H:i:s", filemtime($file));
+        print "<tr><td class='left'><tt>$file</tt><td>".(file_exists($file) ?
+                date ("F d Y H:i:s", filemtime($file))
+        :       "<i>does not exist</i>");
 }
 ?>
 </table>
+
+<h3>Im Cache befindliche Dateien</h3>
+<?php
+$all_cache_files = getDirContents($cache_dir);
+?>
+
+<p>Im <a href="/shared/cache">t29-Cache</a> auf diesem Host (<tt><?php print $host; ?></tt>)
+befinden sich derzeit folgende
+<strong><?php print count($all_cache_files); ?> Dateien und Ordner</strong>:</p>
+
+<table class="t29-details">
+<tr><th>Datei<th>Letzte Änderung
+<?php
+foreach($all_cache_files as $file) {
+        print "<tr><td class='left'><tt>$file</tt><td>".(file_exists($file) ?
+                date ("F d Y H:i:s", filemtime($file))
+        :       "<i>does not exist</i>");
+}
+?>
+</table>
+<?php>
 
 <?php
@@ -70 +92 @@
     return $size;
 }
+
+// Delete from $path, including $path, using an recursive iterator
+function rrmdir($path) {
+        if(is_file($path)) {
+                unlink($path);
+                return;
+        }
+
+        $i = new DirectoryIterator($path);
+        foreach($i as $f) {
+                if($f->isFile()) {
+                        unlink($f->getRealPath());
+                } else if(!$f->isDot() && $f->isDir()) {
+                        rrmdir($f->getRealPath());
+                }
+        }
+        rmdir($path);
+}
+
+// delete everything *below* path, but keep $path
+function rrmdir_sub($path) {
+        array_map('rrmdir', glob("$path/*"));
+#       print "Would delete:<pre> ";
+#       var_dump(glob("$path/*"));
+}
+
+// get a list of all files below $dir, recursively.
+function getDirContents($dir, &$results = array()){
+    $files = scandir($dir);
+
+    foreach($files as $key => $value){
+        $path = realpath($dir.DIRECTORY_SEPARATOR.$value);
+        if(!is_dir($path)) {
+            $results[] = $path;
+        } else if($value != "." && $value != "..") {
+            getDirContents($path, $results);
+            $results[] = $path;
+        }
+    }
+
+    return $results;
+}