tasks: always display list in sorted order (oldest first)

tpl_Tasks.go

@@ -3,9 +3,29 @@ package webcmd
 import (
 	"fmt"
 	"net/http"
+	"sort"
 	"time"
 )
 
+type TaskListItem struct {
+	ref   string
+	start int64
+}
+
+type TaskList []TaskListItem
+
+func (tl TaskList) Len() int {
+	return len(tl)
+}
+
+func (tl TaskList) Swap(i, j int) {
+	tl[i], tl[j] = tl[j], tl[i]
+}
+
+func (tl TaskList) Less(i, j int) bool {
+	return tl[i].start < tl[j].start
+}
+
 func (this *App) Serve_Tasks(w http.ResponseWriter) {
 	w.Header().Set("Content-Type", "text/html;charset=UTF-8")
 
@@ -26,7 +46,19 @@ func (this *App) Serve_Tasks(w http.ResponseWriter) {
 
 	this.tasksMtx.RLock()
 	defer this.tasksMtx.RUnlock()
+
+	tl := make(TaskList, 0, len(this.tasks))
 	for ref, t := range this.tasks {
+		tl = append(tl, TaskListItem{ref, t.started})
+	}
+	sort.Sort(tl)
+
+	for _, tlRef := range tl {
+		ref := tlRef.ref
+		t := this.tasks[ref]
+
+		startTime := time.Unix(t.started, 0)
+
 		fmt.Fprintf(w,
 			`<tr>
 				<td><a href="/task/%s">%s</td>