1 files changed, 59 insertions, 0 deletions
diff --git a/pkg/app/list/messages.go b/pkg/app/list/messages.go
new file mode 100644
index 0000000..383e891
--- /dev/null
+++ b/pkg/app/list/messages.go
@@ -0,0 +1,59 @@
+package list
+
+import (
+	"archives/pkg/database"
+	"archives/pkg/models"
+	"github.com/go-pg/pg/v10/orm"
+	"math"
+	"net/http"
+	"strconv"
+	"strings"
+)
+
+func Messages(w http.ResponseWriter, r *http.Request) {
+
+	urlParts := strings.Split(r.URL.Path, "/messages/")
+	if len(urlParts) != 2 {
+		http.NotFound(w, r)
+		return
+	}
+
+	listName := strings.ReplaceAll(urlParts[0], "/", "")
+
+	trailingUrlParts := strings.Split(urlParts[1], "/")
+	combinedDate := trailingUrlParts[0]
+	currentPage := 1
+	if len(trailingUrlParts) > 1 {
+		parsedCurrentPage, err := strconv.Atoi(trailingUrlParts[1])
+		if err == nil {
+			currentPage = parsedCurrentPage
+		}
+	}
+	offset := (currentPage - 1) * 50
+
+	var messages []*models.Message
+	query := database.DBCon.Model(&messages).
+		Column("id", "headers", "date").
+		Where("to_char(date, 'YYYY-MM') = ?", combinedDate).
+		WhereGroup(func(q *orm.Query) (*orm.Query, error) {
+			q = q.WhereOr(`(headers::jsonb->>'Subject')::jsonb->>0 LIKE '[` + listName + `]%'`).
+				WhereOr(`(headers::jsonb->>'Subject')::jsonb->>0 LIKE 'Re: [` + listName + `]%'`)
+			return q, nil
+		}).
+		WhereGroup(func(q *orm.Query) (*orm.Query, error) {
+			q = q.WhereOr(`headers::jsonb->>'To' LIKE '%` + listName + `@lists.gentoo.org%'`).
+				WhereOr(`headers::jsonb->>'Cc' LIKE '%` + listName + `@lists.gentoo.org%'`).
+				WhereOr(`headers::jsonb->>'To' LIKE '%` + listName + `@gentoo.org%'`).
+				WhereOr(`headers::jsonb->>'Cc' LIKE '%` + listName + `@gentoo.org%'`)
+			return q, nil
+		}).
+		Order("date DESC")
+
+	messagesCount, _ := query.Count()
+	query.Limit(50).Offset(offset).Select()
+
+	maxPages := int(math.Ceil(float64(messagesCount) / float64(50)))
+
+	renderMessagesTemplate(w, listName, combinedDate, currentPage, maxPages, messages)
+
+}