1 files changed, 83 insertions, 0 deletions

diff --git a/hipis/services/goaccess.scm b/hipis/services/goaccess.scm
new file mode 100644
index 0000000..e71ca2b
--- /dev/null
+++ b/hipis/services/goaccess.scm
@@ -0,0 +1,83 @@
+(define-module (hipis services goaccess)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix profiles)
+  #:use-module (guix gexp)
+  #:use-module (guix records)
+  #:use-module (guix download)
+
+  #:use-module (gnu packages)
+  #:use-module (gnu packages web)
+  #:use-module (gnu services)
+  #:use-module (gnu services web)
+  #:use-module (gnu services guix)
+  #:use-module (gnu services mcron)
+  #:export (goaccess-service-type
+            goaccess-configuration
+            %goaccess-nginx-server-configuration))
+
+(define %goaccess-nginx-server-configuration
+  (nginx-server-configuration
+   (root "/var/www/raport/")
+   (listen '("80"))
+   (ssl-certificate #f)
+   (ssl-certificate-key #f)))
+
+(define-record-type* <goaccess-configuration>
+  goaccess-configuration make-goaccess-configuration
+  goaccess-configuration-configuration?
+  (nginx-log-access                    goaccess-configuration-nginx-log-access
+                                       (default "/var/log/nginx/access.log"))
+  (goaccess-run-script-dir             goaccess-configuration-goaccess-run-script
+                                       (default "/var/lib/goaccess/"))
+  (goaccess-run-script-name            goaccess-configuration-goaccess-run-script-name
+                                       (default "generate-raport"))
+  (goaccess-additional-args            goaccess-configuration-goaccess-additional-args
+                                       (default '()))
+  (goaccess-nginx-server-configuration goaccess-configuration-goaccess-nginx-server-configuration
+                                       (default %goaccess-nginx-configuration)))
+
+(define (goaccess-run-script config)
+  (match-record config <goaccess-configuration>
+                (goaccess-additional-args goaccess-nginx-server-configuration goaccess-run-script-name)
+                (program-file goaccess-run-script-name
+                 #~(begin
+                     (use-modules (guix build utils))
+                     (system* (string-append #$goaccess "/bin/goaccess")
+                              "/var/log/nginx/access.log"
+                              "--log-format" "COMBINED"
+                              "-o" #$(string-append (nginx-server-configuration-root
+                                                     goaccess-nginx-server-configuration)
+                                                    "index.html")
+                              #$@goaccess-additional-args)))))
+
+(define (goaccess-activation config)
+  (match-record config <goaccess-configuration>
+                (goaccess-run-script-dir goaccess-run-script-name goaccess-nginx-server-configuration)
+                #~(begin
+                    (use-modules (guix build utils))
+
+                    (format #t "creating goaccess run script at '~a'~%" #$goaccess-run-script-dir)
+                    (mkdir-p #$goaccess-run-script-dir)
+                    (mkdir-p #$(nginx-server-configuration-root
+                                goaccess-nginx-server-configuration))
+                    (copy-file #$(goaccess-run-script config)
+                               #$(string-append goaccess-run-script-dir
+                                                goaccess-run-script-name)))))
+
+(define goaccess-service-type
+  (service-type
+   (name 'goaccess)
+   (extensions
+    (list (service-extension activation-service-type
+                             goaccess-activation)
+          (service-extension nginx-service-type
+                             (lambda (config)
+                               (list  (goaccess-configuration-goaccess-nginx-server-configuration
+                                       config))))
+          (service-extension mcron-service-type
+                             (lambda (config)
+                               (list  #~(job '(next-hour '(0 12))
+                                             #$(goaccess-run-script config)))))))
+   (description
+    "Create static raports for various types of web server using goaccess.")))