1//
  2// Copyright (c) 2019 Ted Unangst <tedu@tedunangst.com>
  3//
  4// Permission to use, copy, modify, and distribute this software for any
  5// purpose with or without fee is hereby granted, provided that the above
  6// copyright notice and this permission notice appear in all copies.
  7//
  8// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  9// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 10// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 11// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 12// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 13// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 14// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 15
 16package main
 17
 18import (
 19	"fmt"
 20	"io"
 21	"log"
 22	"net/http"
 23	"os"
 24	"regexp"
 25	"strings"
 26
 27	"github.com/andybalholm/cascadia"
 28	"golang.org/x/net/html"
 29	"humungus.tedunangst.com/r/webs/htfilter"
 30)
 31
 32var tweetsel = cascadia.MustCompile("p.tweet-text")
 33var linksel = cascadia.MustCompile(".time a.tweet-timestamp")
 34var authorregex = regexp.MustCompile("twitter.com/([^/]+)")
 35
 36func hootfetcher(hoot string) string {
 37	url := hoot[5:]
 38	if url[0] == ' ' {
 39		url = url[1:]
 40	}
 41	url = strings.Replace(url, "mobile.twitter.com", "twitter.com", -1)
 42	log.Printf("hooterizing %s", url)
 43	req, err := http.NewRequest("GET", url, nil)
 44	if err != nil {
 45		log.Printf("error: %s", err)
 46		return hoot
 47	}
 48	req.Header.Set("User-Agent", "OpenBSD ftp")
 49	req.Header.Set("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
 50	req.Header.Set("Accept-Language", "en-US,en;q=0.9")
 51	resp, err := http.DefaultClient.Do(req)
 52	if err != nil {
 53		log.Printf("error: %s", err)
 54		return hoot
 55	}
 56	defer resp.Body.Close()
 57	if resp.StatusCode != 200 {
 58		log.Printf("error getting %s: %d", url, resp.StatusCode)
 59		return hoot
 60	}
 61	ld, _ := os.Create("lasthoot.html")
 62	r := io.TeeReader(resp.Body, ld)
 63	return hootfixer(r, url)
 64}
 65
 66func hootfixer(r io.Reader, url string) string {
 67	root, err := html.Parse(r)
 68	if err != nil {
 69		log.Printf("error parsing hoot: %s", err)
 70		return url
 71	}
 72	divs := tweetsel.MatchAll(root)
 73
 74	wantmatch := authorregex.FindStringSubmatch(url)
 75	if len(wantmatch) < 2 {
 76		log.Printf("no wanted author?")
 77	}
 78	wanted := wantmatch[1]
 79	var buf strings.Builder
 80
 81	var htf htfilter.Filter
 82	fmt.Fprintf(&buf, "%s\n", url)
 83	for _, div := range divs {
 84		twp := div.Parent.Parent.Parent
 85		alink := linksel.MatchFirst(twp)
 86		if alink == nil {
 87			log.Printf("missing link")
 88			continue
 89		}
 90		link := "https://twitter.com" + htfilter.GetAttr(alink, "href")
 91		authormatch := authorregex.FindStringSubmatch(link)
 92		if len(authormatch) < 2 {
 93			log.Printf("no author?")
 94			continue
 95		}
 96		author := authormatch[1]
 97		if author != wanted {
 98			continue
 99		}
100		text := htf.TextOnly(div)
101		text = strings.Replace(text, "\n", " ", -1)
102		text = strings.Replace(text, "pic.twitter.com", "https://pic.twitter.com", -1)
103
104		fmt.Fprintf(&buf, "> @%s: %s\n", author, text)
105	}
106	return buf.String()
107}
108
109var re_hoots = regexp.MustCompile(`hoot: ?https://\S+`)
110
111func hooterize(noise string) string {
112	return re_hoots.ReplaceAllStringFunc(noise, hootfetcher)
113}