1 files changed, 115 insertions, 0 deletions
diff --git a/main.go b/main.go
new file mode 100644
index 0000000..952802a
--- /dev/null
+++ b/main.go
@@ -0,0 +1,115 @@
+package main
+
+import (
+	"flag"
+	"html/template"
+	"log"
+	"net/http"
+	"time"
+)
+
+var porn EarthPorn
+var weather Weather
+var sun Sun
+
+func trylater(ch chan<- bool) {
+	log.Println("Will try again later...")
+	time.Sleep(1 * time.Minute)
+	ch <- true
+}
+
+func earthPornUpdater(ch chan bool) {
+	for _ = range ch {
+		newporn, err := GetEarthPorn()
+		if err != nil {
+			log.Printf("Failed getting fap material: %s", err)
+			go trylater(ch)
+		}
+
+		porn = newporn
+		log.Println("New fap material!")
+	}
+}
+
+func weatherUpdater(ch chan bool) {
+	for _ = range ch {
+		newW, newS, err := CurrentWeather()
+		if err != nil {
+			log.Printf("Failed getting latest weather data: %s", err)
+			go trylater(ch)
+		}
+
+		weather = newW
+		sun = newS
+		log.Println("New weather data")
+	}
+}
+
+func intervalUpdates(d time.Duration, stopch <-chan bool, chans ...chan<- bool) {
+	send := func(chans ...chan<- bool) {
+		for _, ch := range chans {
+			go func(ch chan<- bool) {
+				ch <- true
+			}(ch)
+		}
+	}
+
+	send(chans...)
+
+	tick := time.NewTicker(d)
+	for {
+		select {
+		case <-tick.C:
+			send(chans...)
+		case <-stopch:
+			tick.Stop()
+			for _, ch := range chans {
+				close(ch)
+			}
+			return
+		}
+	}
+}
+
+func main() {
+	laddr := flag.String("laddr", ":25145", "Listen on this port")
+	flag.Parse()
+
+	pornch := make(chan bool)
+	weatherch := make(chan bool)
+	stopch := make(chan bool)
+
+	go intervalUpdates(30*time.Minute, stopch, pornch, weatherch)
+	go weatherUpdater(weatherch)
+	go earthPornUpdater(pornch)
+
+	defer func(stopch chan<- bool) {
+		stopch <- true
+	}(stopch)
+
+	http.HandleFunc("/", startpage)
+	log.Fatal(http.ListenAndServe(*laddr, nil))
+}
+
+var tpl = template.Must(template.ParseFiles("template.html"))
+
+type TplData struct {
+	Porn    *EarthPorn
+	Weather *Weather
+	Links   []Link
+	LCols   int
+}
+
+func startpage(rw http.ResponseWriter, req *http.Request) {
+	links := GetLinks()
+	lcols := len(links) / 3
+	if lcols < 1 {
+		lcols = 1
+	} else if lcols > 4 {
+		lcols = 4
+	}
+
+	if err := tpl.Execute(rw, &TplData{&porn, &weather, links, lcols}); err != nil {
+		log.Printf("Failed executing template: %s\n", err)
+	}
+}