diff --git a/.gitignore b/.gitignore index 74b59e4..4b464f1 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ ~* +index.html \ No newline at end of file diff --git a/generate/end.html b/generate/end.html new file mode 100644 index 0000000..e1cda8c --- /dev/null +++ b/generate/end.html @@ -0,0 +1,21 @@ + + +
+ Services: + +
Description
+ + site by Magdalunaa :3 + Click / space to skip + + + \ No newline at end of file diff --git a/generate/genuserdescs.scm b/generate/genuserdescs.scm new file mode 100755 index 0000000..8b13df2 --- /dev/null +++ b/generate/genuserdescs.scm @@ -0,0 +1,15 @@ +#!/home/afiw/opt/bin/csi -s + +(import (chicken file) + (chicken format) + (chicken io) + (chicken pathname)) + +(for-each print (find-files "/home" + #:limit 0 + #:test (lambda (s) (not (string=? s "/home/!common"))) + #:action (lambda (homedir acc) + (let* ((path (sprintf "~a/.config/tilde/description" homedir)) + (username (pathname-file homedir)) + (desc (if (file-exists? path) (apply string-append (with-input-from-file path read-lines)) "Description file not found"))) + (cons (sprintf "
  • ~~~a

    ~a

    • " username username desc) acc))))) diff --git a/generate/make-site.sh b/generate/make-site.sh new file mode 100755 index 0000000..4c884bd --- /dev/null +++ b/generate/make-site.sh @@ -0,0 +1,13 @@ +#!/usr/bin/bash + +cd /var/lib/caddy/tilde/ + +rm ../index.html + +descs=$(./genuserdescs.scm) + +echo "$descs" > users.html + +cat start.html users.html end.html > ../index.html + +rm users.html \ No newline at end of file diff --git a/generate/start.html b/generate/start.html new file mode 100644 index 0000000..5462148 --- /dev/null +++ b/generate/start.html @@ -0,0 +1,46 @@ + + + + + + Linuxposting Tilde + + + + + + + + +
    +

    Connecting.

    +

    Connecting..

    +

    Connecting...

    +
    +
    │. . +│ ├┐ ─┐/┌┐┌┐┌ ├ ├┐┌┐ ─┐/ ─┐ ┌─┐ ╷ +││││││ │ ││││└┐│ │││││ │ ││┌┘ ╵ └─┘ +└ └┘/└─├┘└┘─┘└─ └┤./└─└┤└─ + ┘ ┘
    +