scripts: Do not use soap-invoke*.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 10:10:53 +0000 (12:10 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 10:10:53 +0000 (12:10 +0200)
* scripts/mumi.in (update-state!): Use extract-bug-numbers instead of
connecting to the Debbugs SOAP service.

scripts/mumi.in

index e20fc4e5e130b2eba2a07710baeae56a0294ef6f..67dad78ff15928ba486adb107aa192f2058e18cf 100644 (file)
@@ -27,6 +27,8 @@
              (ice-9 match)
              (ice-9 format)
              (mumi config)
+             ((mumi debbugs)
+              #:select (extract-bug-numbers))
              ((mumi bugs)
               #:select (db-create! update-bug-database!))
              ((mumi jobs)
              ((mumi web server)
               #:select (start-mumi-web-server))
              ((mumi xapian)
-              #:select (index!))
-             ((debbugs soap)
-              #:select (soap-invoke*))
-             ((debbugs operations)
-              #:select (get-bugs)))
+              #:select (index!)))
 
 (db-create!)
 
             (display "Starting full indexing." (current-error-port))
             (newline (current-error-port)))
           (index! #:full? (zero? count))
-          (let ((nums (sort (append-map (lambda (package)
-                                          (soap-invoke* (%config 'debbugs)
-                                                        get-bugs
-                                                        `((package . ,package))))
-                                        (%config 'packages)) >)))
+          (let* ((packages (%config 'packages))
+                 (nums (append (extract-bug-numbers packages)
+                               (extract-bug-numbers packages #:archived? #t))))
             (update-bug-database! nums))
           (and loop?
                (begin