mail: navigation links to earlier files

[minimedit.git] / mail / index.php

diff --git a/mail/index.php b/mail/index.php
index d4d4c29a2131ac54e8e779b164ad2c6e5aacd3bf..d8195f689f3eaa5f9eb1fa4f628581582512e363 100644 (file)
--- a/mail/index.php
+++ b/mail/index.php
@@ -60,7 +60,13 @@ $rows = glob("$mailbox/*");
 if (!$rows) {
        throw new Exception('Kon inbox niet openen.');
 }
-array_splice($rows, 0, -50);
+
+$nav = [
+       'start' => $_GET['start'] ?? 0,
+       'n'     => $_GET['n'] ?? 10,
+       'total' => count($rows),
+];
+$rows = array_slice(array_reverse($rows), $nav['start'], $nav['n']);
 
 ob_start();
 print '<ul>';
@@ -86,4 +92,9 @@ foreach (array_reverse($rows) as $filename) {
        print "</a></li>\n";
 }
 print "</ul>\n";
+
+print $Page->widget('nav', [
+       "start=$nav[start]", "n=$nav[n]", "total=$nav[total]",
+]);
+
 $Page->place['maillist'] = ob_get_clean();