04/04: hydra/goggles: Index all logs upon request.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 8f5f57b97fd7f1e8a8f2b214e64c2a179c5a2cac
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Fri Apr 24 14:03:42 2020 +0200

    hydra/goggles: Index all logs upon request.
    
    * hydra/goggles.scm (main): Handle "index" argument.
---
 hydra/goggles.scm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 02b76e4..b235138 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -358,9 +358,15 @@ freenode." channel))
                  (cons (request-method request)
                        (request-path-components request)))))
 
-(define (main . args)
-  (let ((port (assoc-ref %config 'port)))
-    (run-server handler
-                'http
-                `(#:addr ,INADDR_ANY
-                  #:port ,port))))
+(define (main args)
+  (match args
+    ((_ "index")
+     (for-each index-channel-logs
+               (assoc-ref %config 'channels))
+     #t)
+    (_
+     (let ((port (assoc-ref %config 'port)))
+       (run-server handler
+                   'http
+                   `(#:addr ,INADDR_ANY
+                     #:port ,port))))))