From 49fc802575556130184fd9a8dc85296ed9ec3835 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Wed, 6 Jan 2021 23:56:27 +0100
Subject: [PATCH] functional front page

---
 index.cgi | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/index.cgi b/index.cgi
index a1b6a08..c5a8143 100755
--- a/index.cgi
+++ b/index.cgi
@@ -13,6 +13,7 @@ LOCATION="${LOCATION#/}"
 LOCATION="${LOCATION%%/*}"
 
 NICK_REGISTRATION="${NICK_REGISTRATION:-on}"
+CHANNEL_LIST="${ALLOW_LIST:-off}"
 
 # ToDo:
 # COOKIE_NICK_EXPIRE=$((86400 * 14))
@@ -97,9 +98,24 @@ case ${LOCATION} in
       REDIRECT /
     fi
     ;;
-  '') yield_page front <<-EOF
-	Front
+  '')
+    if [ "$(POST action)" = join ]; then
+      REDIRECT "./&$(POST channel |URL)"
+    else
+      yield_page front <<-EOF
+	[h1 Webchat]
+	[form method=POST
+	  [label Join Channel: [input name=channel value='' placeholder="Name of Channel"][button type=submit name=action value=join Join]]
+	]
+	$(if [ "$CHANNEL_LIST" = on ]; then
+	  printf '[h2 Existing channels][div #channels'
+	  $(for chan in "$_DATA/&"*; do
+	    printf '[a href="./%s" . %s]\n' "$(HTML "${chan##*/}")" "$(HTML "${chan##*/}")"
+	  done)
+	  printf ']'
+	fi)
 	EOF
+    fi
     ;;
   *) REDIRECT /
     ;;
-- 
2.39.2