gosora/routes/panel/dashboard.go

package panel

import (
	"database/sql"
	"fmt"
	"net/http"
	"strconv"

	c "github.com/Azareal/Gosora/common"
	"github.com/Azareal/Gosora/common/phrases"
	"github.com/Azareal/Gosora/query_gen"
	"github.com/Azareal/gopsutil/mem"
	"github.com/pkg/errors"
)

type dashStmts struct {
	todaysPostCount         *sql.Stmt
	todaysTopicCount        *sql.Stmt
	todaysTopicCountByForum *sql.Stmt
	todaysNewUserCount      *sql.Stmt
}

// TODO: Stop hard-coding these queries
func dashMySQLStmts() (stmts dashStmts, err error) {
	db := qgen.Builder.GetConn()

	var prepareStmt = func(table string, ext string) *sql.Stmt {
		if err != nil {
			return nil
		}
		stmt, ierr := db.Prepare("select count(*) from " + table + " where createdAt BETWEEN (utc_timestamp() - interval 1 day) and utc_timestamp() " + ext)
		err = errors.WithStack(ierr)
		return stmt
	}

	stmts.todaysPostCount = prepareStmt("replies", "")
	stmts.todaysTopicCount = prepareStmt("topics", "")
	stmts.todaysNewUserCount = prepareStmt("users", "")
	stmts.todaysTopicCountByForum = prepareStmt("topics", " and parentID = ?")

	return stmts, err
}

// TODO: Stop hard-coding these queries
func dashMSSQLStmts() (stmts dashStmts, err error) {
	db := qgen.Builder.GetConn()

	var prepareStmt = func(table string, ext string) *sql.Stmt {
		if err != nil {
			return nil
		}
		stmt, ierr := db.Prepare("select count(*) from " + table + " where createdAt >= DATEADD(DAY, -1, GETUTCDATE())" + ext)
		err = errors.WithStack(ierr)
		return stmt
	}

	stmts.todaysPostCount = prepareStmt("replies", "")
	stmts.todaysTopicCount = prepareStmt("topics", "")
	stmts.todaysNewUserCount = prepareStmt("users", "")
	stmts.todaysTopicCountByForum = prepareStmt("topics", " and parentID = ?")

	return stmts, err
}

func Dashboard(w http.ResponseWriter, r *http.Request, user c.User) c.RouteError {
	basePage, ferr := buildBasePage(w, r, &user, "dashboard", "dashboard")
	if ferr != nil {
		return ferr
	}

	// We won't calculate this on the spot anymore, as the system doesn't seem to like it if we do multiple fetches simultaneously. Should we constantly calculate this on a background thread? Perhaps, the watchdog to scale back heavy features under load? One plus side is that we'd get immediate CPU percentages here instead of waiting it to kick in with WebSockets
	var cpustr = "Unknown"
	var cpuColour string

	lessThanSwitch := func(number int, lowerBound int, midBound int) string {
		switch {
		case number < lowerBound:
			return "stat_green"
		case number < midBound:
			return "stat_orange"
		}
		return "stat_red"
	}

	var ramstr, ramColour string
	memres, err := mem.VirtualMemory()
	if err != nil {
		ramstr = "Unknown"
	} else {
		totalCount, totalUnit := c.ConvertByteUnit(float64(memres.Total))
		usedCount := c.ConvertByteInUnit(float64(memres.Total-memres.Available), totalUnit)

		// Round totals with .9s up, it's how most people see it anyway. Floats are notoriously imprecise, so do it off 0.85
		var totstr string
		if (totalCount - float64(int(totalCount))) > 0.85 {
			usedCount += 1.0 - (totalCount - float64(int(totalCount)))
			totstr = strconv.Itoa(int(totalCount) + 1)
		} else {
			totstr = fmt.Sprintf("%.1f", totalCount)
		}

		if usedCount > totalCount {
			usedCount = totalCount
		}
		ramstr = fmt.Sprintf("%.1f", usedCount) + " / " + totstr + totalUnit

		ramperc := ((memres.Total - memres.Available) * 100) / memres.Total
		ramColour = lessThanSwitch(int(ramperc), 50, 75)
	}

	greaterThanSwitch := func(number int, lowerBound int, midBound int) string {
		switch {
		case number > midBound:
			return "stat_green"
		case number > lowerBound:
			return "stat_orange"
		}
		return "stat_red"
	}

	// TODO: Add a stat store for this?
	var intErr error
	var extractStat = func(stmt *sql.Stmt, args ...interface{}) (stat int) {
		err := stmt.QueryRow(args...).Scan(&stat)
		if err != nil && err != sql.ErrNoRows {
			intErr = err
		}
		return stat
	}

	var stmts dashStmts
	switch qgen.Builder.GetAdapter().GetName() {
	case "mysql":
		stmts, err = dashMySQLStmts()
	case "mssql":
		stmts, err = dashMSSQLStmts()
	default:
		return c.InternalError(errors.New("Unknown database adapter on dashboard"), w, r)
	}
	if err != nil {
		return c.InternalError(err, w, r)
	}

	// TODO: Allow for more complex phrase structures than just suffixes
	var postCount = extractStat(stmts.todaysPostCount)
	var postInterval = phrases.GetTmplPhrase("panel_dashboard_day_suffix")
	var postColour = greaterThanSwitch(postCount, 5, 25)

	var topicCount = extractStat(stmts.todaysTopicCount)
	var topicInterval = phrases.GetTmplPhrase("panel_dashboard_day_suffix")
	var topicColour = greaterThanSwitch(topicCount, 0, 8)

	var reportCount = extractStat(stmts.todaysTopicCountByForum, c.ReportForumID)
	var reportInterval = phrases.GetTmplPhrase("panel_dashboard_week_suffix")

	var newUserCount = extractStat(stmts.todaysNewUserCount)
	var newUserInterval = phrases.GetTmplPhrase("panel_dashboard_week_suffix")

	// Did any of the extractStats fail?
	if intErr != nil {
		return c.InternalError(intErr, w, r)
	}

	// TODO: Localise these
	var gridElements = []c.GridElement{
		// TODO: Implement a check for new versions of Gosora
		//c.GridElement{"dash-version", "v" + version.String(), 0, "grid_istat stat_green", "", "", "Gosora is up-to-date :)"},
		c.GridElement{"dash-version", "v" + c.SoftwareVersion.String(), 0, "grid_istat", "", "", ""},

		c.GridElement{"dash-cpu", "CPU: " + cpustr, 1, "grid_istat " + cpuColour, "", "", "The global CPU usage of this server"},
		c.GridElement{"dash-ram", "RAM: " + ramstr, 2, "grid_istat " + ramColour, "", "", "The global RAM usage of this server"},
	}
	var addElement = func(element c.GridElement) {
		gridElements = append(gridElements, element)
	}

	if c.EnableWebsockets {
		uonline := c.WsHub.UserCount()
		gonline := c.WsHub.GuestCount()
		totonline := uonline + gonline
		reqCount := 0

		var onlineColour = greaterThanSwitch(totonline, 3, 10)
		var onlineGuestsColour = greaterThanSwitch(gonline, 1, 10)
		var onlineUsersColour = greaterThanSwitch(uonline, 1, 5)

		totonline, totunit := c.ConvertFriendlyUnit(totonline)
		uonline, uunit := c.ConvertFriendlyUnit(uonline)
		gonline, gunit := c.ConvertFriendlyUnit(gonline)

		addElement(c.GridElement{"dash-totonline", phrases.GetTmplPhrasef("panel_dashboard_online", totonline, totunit), 3, "grid_stat " + onlineColour, "", "", "The number of people who are currently online"})
		addElement(c.GridElement{"dash-gonline", phrases.GetTmplPhrasef("panel_dashboard_guests_online", gonline, gunit), 4, "grid_stat " + onlineGuestsColour, "", "", "The number of guests who are currently online"})
		addElement(c.GridElement{"dash-uonline", phrases.GetTmplPhrasef("panel_dashboard_users_online", uonline, uunit), 5, "grid_stat " + onlineUsersColour, "", "", "The number of logged-in users who are currently online"})
		addElement(c.GridElement{"dash-reqs", strconv.Itoa(reqCount) + " reqs / second", 7, "grid_stat grid_end_group " + topicColour, "", "", "The number of requests over the last 24 hours"})
	}

	addElement(c.GridElement{"dash-postsperday", strconv.Itoa(postCount) + " posts" + postInterval, 6, "grid_stat " + postColour, "", "", "The number of new posts over the last 24 hours"})
	addElement(c.GridElement{"dash-topicsperday", strconv.Itoa(topicCount) + " topics" + topicInterval, 7, "grid_stat " + topicColour, "", "", "The number of new topics over the last 24 hours"})
	addElement(c.GridElement{"dash-totonlineperday", "20 online / day", 8, "grid_stat stat_disabled", "", "", "Coming Soon!" /*, "The people online over the last 24 hours"*/})

	addElement(c.GridElement{"dash-searches", "8 searches / week", 9, "grid_stat stat_disabled", "", "", "Coming Soon!" /*"The number of searches over the last 7 days"*/})
	addElement(c.GridElement{"dash-newusers", strconv.Itoa(newUserCount) + " new users" + newUserInterval, 10, "grid_stat", "", "", "The number of new users over the last 7 days"})
	addElement(c.GridElement{"dash-reports", strconv.Itoa(reportCount) + " reports" + reportInterval, 11, "grid_stat", "", "", "The number of reports over the last 7 days"})

	if false {
		addElement(c.GridElement{"dash-minperuser", "2 minutes / user / week", 12, "grid_stat stat_disabled", "", "", "Coming Soon!" /*"The average number of number of minutes spent by each active user over the last 7 days"*/})
		addElement(c.GridElement{"dash-visitorsperweek", "2 visitors / week", 13, "grid_stat stat_disabled", "", "", "Coming Soon!" /*"The number of unique visitors we've had over the last 7 days"*/})
		addElement(c.GridElement{"dash-postsperuser", "5 posts / user / week", 14, "grid_stat stat_disabled", "", "", "Coming Soon!" /*"The average number of posts made by each active user over the past week"*/})
	}

	pi := c.PanelDashboardPage{basePage, gridElements}
	return renderTemplate("panel_dashboard", w, r, basePage.Header, &pi)
}