database.go (view raw)
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 "bytes"
20 "database/sql"
21 "encoding/json"
22 "fmt"
23 "log"
24 "sort"
25 "strconv"
26 "strings"
27 "time"
28
29 "humungus.tedunangst.com/r/webs/cache"
30 "humungus.tedunangst.com/r/webs/httpsig"
31 "humungus.tedunangst.com/r/webs/login"
32)
33
34func userfromrow(row *sql.Row) (*WhatAbout, error) {
35 user := new(WhatAbout)
36 var seckey, options string
37 err := row.Scan(&user.ID, &user.Name, &user.Display, &user.About, &user.Key, &seckey, &options)
38 if err == nil {
39 user.SecKey, _, err = httpsig.DecodeKey(seckey)
40 }
41 if err != nil {
42 return nil, err
43 }
44 if user.ID > 0 {
45 user.URL = fmt.Sprintf("https://%s/%s/%s", serverName, userSep, user.Name)
46 err = unjsonify(options, &user.Options)
47 if err != nil {
48 log.Printf("error processing user options: %s", err)
49 }
50 } else {
51 user.URL = fmt.Sprintf("https://%s/%s", serverName, user.Name)
52 }
53 if user.Options.Reaction == "" {
54 user.Options.Reaction = "none"
55 }
56 return user, nil
57}
58
59var somenamedusers = cache.New(cache.Options{Filler: func(name string) (*WhatAbout, bool) {
60 row := stmtUserByName.QueryRow(name)
61 user, err := userfromrow(row)
62 if err != nil {
63 return nil, false
64 }
65 return user, true
66}})
67
68var somenumberedusers = cache.New(cache.Options{Filler: func(userid int64) (*WhatAbout, bool) {
69 row := stmtUserByNumber.QueryRow(userid)
70 user, err := userfromrow(row)
71 if err != nil {
72 return nil, false
73 }
74 return user, true
75}})
76
77func getserveruser() *WhatAbout {
78 var user *WhatAbout
79 ok := somenumberedusers.Get(serverUID, &user)
80 if !ok {
81 log.Panicf("lost server user")
82 }
83 return user
84}
85
86func butwhatabout(name string) (*WhatAbout, error) {
87 var user *WhatAbout
88 ok := somenamedusers.Get(name, &user)
89 if !ok {
90 return nil, fmt.Errorf("no user: %s", name)
91 }
92 return user, nil
93}
94
95var honkerinvalidator cache.Invalidator
96
97func gethonkers(userid int64) []*Honker {
98 rows, err := stmtHonkers.Query(userid)
99 if err != nil {
100 log.Printf("error querying honkers: %s", err)
101 return nil
102 }
103 defer rows.Close()
104 var honkers []*Honker
105 for rows.Next() {
106 h := new(Honker)
107 var combos, meta string
108 err = rows.Scan(&h.ID, &h.UserID, &h.Name, &h.XID, &h.Flavor, &combos, &meta)
109 if err == nil {
110 err = unjsonify(meta, &h.Meta)
111 }
112 if err != nil {
113 log.Printf("error scanning honker: %s", err)
114 continue
115 }
116 h.Combos = strings.Split(strings.TrimSpace(combos), " ")
117 honkers = append(honkers, h)
118 }
119 return honkers
120}
121
122func getdubs(userid int64) []*Honker {
123 rows, err := stmtDubbers.Query(userid)
124 return dubsfromrows(rows, err)
125}
126
127func getnameddubs(userid int64, name string) []*Honker {
128 rows, err := stmtNamedDubbers.Query(userid, name)
129 return dubsfromrows(rows, err)
130}
131
132func dubsfromrows(rows *sql.Rows, err error) []*Honker {
133 if err != nil {
134 log.Printf("error querying dubs: %s", err)
135 return nil
136 }
137 defer rows.Close()
138 var honkers []*Honker
139 for rows.Next() {
140 h := new(Honker)
141 err = rows.Scan(&h.ID, &h.UserID, &h.Name, &h.XID, &h.Flavor)
142 if err != nil {
143 log.Printf("error scanning honker: %s", err)
144 return nil
145 }
146 honkers = append(honkers, h)
147 }
148 return honkers
149}
150
151func allusers() []login.UserInfo {
152 var users []login.UserInfo
153 rows, _ := opendatabase().Query("select userid, username from users where userid > 0")
154 defer rows.Close()
155 for rows.Next() {
156 var u login.UserInfo
157 rows.Scan(&u.UserID, &u.Username)
158 users = append(users, u)
159 }
160 return users
161}
162
163func getxonk(userid int64, xid string) *Honk {
164 row := stmtOneXonk.QueryRow(userid, xid)
165 return scanhonk(row)
166}
167
168func getbonk(userid int64, xid string) *Honk {
169 row := stmtOneBonk.QueryRow(userid, xid)
170 return scanhonk(row)
171}
172
173func getpublichonks() []*Honk {
174 dt := time.Now().UTC().Add(-7 * 24 * time.Hour).Format(dbtimeformat)
175 rows, err := stmtPublicHonks.Query(dt, 100)
176 return getsomehonks(rows, err)
177}
178func geteventhonks(userid int64) []*Honk {
179 rows, err := stmtEventHonks.Query(userid, 25)
180 honks := getsomehonks(rows, err)
181 sort.Slice(honks, func(i, j int) bool {
182 var t1, t2 time.Time
183 if honks[i].Time == nil {
184 t1 = honks[i].Date
185 } else {
186 t1 = honks[i].Time.StartTime
187 }
188 if honks[j].Time == nil {
189 t2 = honks[j].Date
190 } else {
191 t2 = honks[j].Time.StartTime
192 }
193 return t1.After(t2)
194 })
195 now := time.Now().Add(-24 * time.Hour)
196 for i, h := range honks {
197 t := h.Date
198 if tm := h.Time; tm != nil {
199 t = tm.StartTime
200 }
201 if t.Before(now) {
202 honks = honks[:i]
203 break
204 }
205 }
206 reversehonks(honks)
207 return honks
208}
209func gethonksbyuser(name string, includeprivate bool, wanted int64) []*Honk {
210 dt := time.Now().UTC().Add(-7 * 24 * time.Hour).Format(dbtimeformat)
211 limit := 50
212 whofore := 2
213 if includeprivate {
214 whofore = 3
215 }
216 rows, err := stmtUserHonks.Query(wanted, whofore, name, dt, limit)
217 return getsomehonks(rows, err)
218}
219func gethonksforuser(userid int64, wanted int64) []*Honk {
220 dt := time.Now().UTC().Add(-7 * 24 * time.Hour).Format(dbtimeformat)
221 rows, err := stmtHonksForUser.Query(wanted, userid, dt, userid, userid)
222 return getsomehonks(rows, err)
223}
224func gethonksforuserfirstclass(userid int64, wanted int64) []*Honk {
225 dt := time.Now().UTC().Add(-7 * 24 * time.Hour).Format(dbtimeformat)
226 rows, err := stmtHonksForUserFirstClass.Query(wanted, userid, dt, userid, userid)
227 return getsomehonks(rows, err)
228}
229
230func gethonksforme(userid int64, wanted int64) []*Honk {
231 dt := time.Now().UTC().Add(-7 * 24 * time.Hour).Format(dbtimeformat)
232 rows, err := stmtHonksForMe.Query(wanted, userid, dt, userid)
233 return getsomehonks(rows, err)
234}
235func getsavedhonks(userid int64, wanted int64) []*Honk {
236 rows, err := stmtHonksISaved.Query(wanted, userid)
237 return getsomehonks(rows, err)
238}
239func gethonksbyhonker(userid int64, honker string, wanted int64) []*Honk {
240 rows, err := stmtHonksByHonker.Query(wanted, userid, honker, userid)
241 return getsomehonks(rows, err)
242}
243func gethonksbyxonker(userid int64, xonker string, wanted int64) []*Honk {
244 rows, err := stmtHonksByXonker.Query(wanted, userid, xonker, xonker, userid)
245 return getsomehonks(rows, err)
246}
247func gethonksbycombo(userid int64, combo string, wanted int64) []*Honk {
248 combo = "% " + combo + " %"
249 rows, err := stmtHonksByCombo.Query(wanted, userid, userid, combo, userid, wanted, userid, combo, userid)
250 return getsomehonks(rows, err)
251}
252func gethonksbyconvoy(userid int64, convoy string, wanted int64) []*Honk {
253 rows, err := stmtHonksByConvoy.Query(wanted, userid, userid, convoy)
254 honks := getsomehonks(rows, err)
255 return honks
256}
257func gethonksbysearch(userid int64, q string, wanted int64) []*Honk {
258 var queries []string
259 var params []interface{}
260 queries = append(queries, "honks.honkid > ?")
261 params = append(params, wanted)
262 queries = append(queries, "honks.userid = ?")
263 params = append(params, userid)
264
265 terms := strings.Split(q, " ")
266 for _, t := range terms {
267 negate := " "
268 if t[0] == '-' {
269 t = t[1:]
270 negate = " not "
271 }
272 if t == "" {
273 continue
274 }
275 if strings.HasPrefix(t, "site:") {
276 site := t[5:]
277 site = "%" + site + "%"
278 queries = append(queries, "xid"+negate+"like ?")
279 params = append(params, site)
280 continue
281 }
282 if strings.HasPrefix(t, "honker:") {
283 honker := t[7:]
284 xid := fullname(honker, userid)
285 if xid != "" {
286 honker = xid
287 }
288 queries = append(queries, negate+"(honks.honker = ? or honks.oonker = ?)")
289 params = append(params, honker)
290 params = append(params, honker)
291 continue
292 }
293 t = "%" + t + "%"
294 queries = append(queries, "noise"+negate+"like ?")
295 params = append(params, t)
296 }
297
298 selecthonks := "select honks.honkid, honks.userid, username, what, honker, oonker, honks.xid, rid, dt, url, audience, noise, precis, format, convoy, whofore, flags from honks join users on honks.userid = users.userid "
299 where := "where " + strings.Join(queries, " and ")
300 butnotthose := " and convoy not in (select name from zonkers where userid = ? and wherefore = 'zonvoy' order by zonkerid desc limit 100)"
301 limit := " order by honks.honkid desc limit 250"
302 params = append(params, userid)
303 rows, err := opendatabase().Query(selecthonks+where+butnotthose+limit, params...)
304 honks := getsomehonks(rows, err)
305 return honks
306}
307func gethonksbyontology(userid int64, name string, wanted int64) []*Honk {
308 rows, err := stmtHonksByOntology.Query(wanted, name, userid, userid)
309 honks := getsomehonks(rows, err)
310 return honks
311}
312
313func reversehonks(honks []*Honk) {
314 for i, j := 0, len(honks)-1; i < j; i, j = i+1, j-1 {
315 honks[i], honks[j] = honks[j], honks[i]
316 }
317}
318
319func getsomehonks(rows *sql.Rows, err error) []*Honk {
320 if err != nil {
321 log.Printf("error querying honks: %s", err)
322 return nil
323 }
324 defer rows.Close()
325 var honks []*Honk
326 for rows.Next() {
327 h := scanhonk(rows)
328 if h != nil {
329 honks = append(honks, h)
330 }
331 }
332 rows.Close()
333 donksforhonks(honks)
334 return honks
335}
336
337type RowLike interface {
338 Scan(dest ...interface{}) error
339}
340
341func scanhonk(row RowLike) *Honk {
342 h := new(Honk)
343 var dt, aud string
344 err := row.Scan(&h.ID, &h.UserID, &h.Username, &h.What, &h.Honker, &h.Oonker, &h.XID, &h.RID,
345 &dt, &h.URL, &aud, &h.Noise, &h.Precis, &h.Format, &h.Convoy, &h.Whofore, &h.Flags)
346 if err != nil {
347 if err != sql.ErrNoRows {
348 log.Printf("error scanning honk: %s", err)
349 }
350 return nil
351 }
352 h.Date, _ = time.Parse(dbtimeformat, dt)
353 h.Audience = strings.Split(aud, " ")
354 h.Public = loudandproud(h.Audience)
355 return h
356}
357
358func donksforhonks(honks []*Honk) {
359 db := opendatabase()
360 var ids []string
361 hmap := make(map[int64]*Honk)
362 for _, h := range honks {
363 ids = append(ids, fmt.Sprintf("%d", h.ID))
364 hmap[h.ID] = h
365 }
366 idset := strings.Join(ids, ",")
367 // grab donks
368 q := fmt.Sprintf("select honkid, donks.fileid, xid, name, description, url, media, local from donks join filemeta on donks.fileid = filemeta.fileid where honkid in (%s)", idset)
369 rows, err := db.Query(q)
370 if err != nil {
371 log.Printf("error querying donks: %s", err)
372 return
373 }
374 defer rows.Close()
375 for rows.Next() {
376 var hid int64
377 d := new(Donk)
378 err = rows.Scan(&hid, &d.FileID, &d.XID, &d.Name, &d.Desc, &d.URL, &d.Media, &d.Local)
379 if err != nil {
380 log.Printf("error scanning donk: %s", err)
381 continue
382 }
383 h := hmap[hid]
384 h.Donks = append(h.Donks, d)
385 }
386 rows.Close()
387
388 // grab onts
389 q = fmt.Sprintf("select honkid, ontology from onts where honkid in (%s)", idset)
390 rows, err = db.Query(q)
391 if err != nil {
392 log.Printf("error querying onts: %s", err)
393 return
394 }
395 defer rows.Close()
396 for rows.Next() {
397 var hid int64
398 var o string
399 err = rows.Scan(&hid, &o)
400 if err != nil {
401 log.Printf("error scanning donk: %s", err)
402 continue
403 }
404 h := hmap[hid]
405 h.Onts = append(h.Onts, o)
406 }
407 rows.Close()
408
409 // grab meta
410 q = fmt.Sprintf("select honkid, genus, json from honkmeta where honkid in (%s)", idset)
411 rows, err = db.Query(q)
412 if err != nil {
413 log.Printf("error querying honkmeta: %s", err)
414 return
415 }
416 defer rows.Close()
417 for rows.Next() {
418 var hid int64
419 var genus, j string
420 err = rows.Scan(&hid, &genus, &j)
421 if err != nil {
422 log.Printf("error scanning honkmeta: %s", err)
423 continue
424 }
425 h := hmap[hid]
426 switch genus {
427 case "place":
428 p := new(Place)
429 err = unjsonify(j, p)
430 if err != nil {
431 log.Printf("error parsing place: %s", err)
432 continue
433 }
434 h.Place = p
435 case "time":
436 t := new(Time)
437 err = unjsonify(j, t)
438 if err != nil {
439 log.Printf("error parsing time: %s", err)
440 continue
441 }
442 h.Time = t
443 case "mentions":
444 err = unjsonify(j, &h.Mentions)
445 if err != nil {
446 log.Printf("error parsing mentions: %s", err)
447 continue
448 }
449 case "oldrev":
450 default:
451 log.Printf("unknown meta genus: %s", genus)
452 }
453 }
454 rows.Close()
455}
456
457func donksforchonks(chonks []*Chonk) {
458 db := opendatabase()
459 var ids []string
460 chmap := make(map[int64]*Chonk)
461 for _, ch := range chonks {
462 ids = append(ids, fmt.Sprintf("%d", ch.ID))
463 chmap[ch.ID] = ch
464 }
465 idset := strings.Join(ids, ",")
466 // grab donks
467 q := fmt.Sprintf("select chonkid, donks.fileid, xid, name, description, url, media, local from donks join filemeta on donks.fileid = filemeta.fileid where chonkid in (%s)", idset)
468 rows, err := db.Query(q)
469 if err != nil {
470 log.Printf("error querying donks: %s", err)
471 return
472 }
473 defer rows.Close()
474 for rows.Next() {
475 var chid int64
476 d := new(Donk)
477 err = rows.Scan(&chid, &d.FileID, &d.XID, &d.Name, &d.Desc, &d.URL, &d.Media, &d.Local)
478 if err != nil {
479 log.Printf("error scanning donk: %s", err)
480 continue
481 }
482 ch := chmap[chid]
483 ch.Donks = append(ch.Donks, d)
484 }
485}
486
487func savefile(xid string, name string, desc string, url string, media string, local bool, data []byte) (int64, error) {
488 res, err := stmtSaveFile.Exec(xid, name, desc, url, media, local)
489 if err != nil {
490 return 0, err
491 }
492 fileid, _ := res.LastInsertId()
493 if local {
494 _, err = stmtSaveFileData.Exec(xid, media, data)
495 if err != nil {
496 return 0, err
497 }
498 }
499 return fileid, nil
500}
501
502func finddonk(url string) *Donk {
503 donk := new(Donk)
504 row := stmtFindFile.QueryRow(url)
505 err := row.Scan(&donk.FileID, &donk.XID)
506 if err == nil {
507 return donk
508 }
509 if err != sql.ErrNoRows {
510 log.Printf("error finding file: %s", err)
511 }
512 return nil
513}
514
515func savechonk(ch *Chonk) error {
516 dt := ch.Date.UTC().Format(dbtimeformat)
517 db := opendatabase()
518 tx, err := db.Begin()
519 if err != nil {
520 log.Printf("can't begin tx: %s", err)
521 return err
522 }
523
524 res, err := tx.Stmt(stmtSaveChonk).Exec(ch.UserID, ch.XID, ch.Who, ch.Target, dt, ch.Noise, ch.Format)
525 if err == nil {
526 ch.ID, _ = res.LastInsertId()
527 for _, d := range ch.Donks {
528 _, err := tx.Stmt(stmtSaveDonk).Exec(-1, ch.ID, d.FileID)
529 if err != nil {
530 log.Printf("error saving donk: %s", err)
531 break
532 }
533 }
534 err = tx.Commit()
535 } else {
536 tx.Rollback()
537 }
538 return err
539}
540
541func loadchatter(userid int64) map[string][]*Chonk {
542 duedt := time.Now().Add(-3 * 24 * time.Hour).UTC().Format(dbtimeformat)
543 rows, err := stmtLoadChonks.Query(userid, duedt)
544 if err != nil {
545 log.Printf("error loading chonks: %s", err)
546 return nil
547 }
548 defer rows.Close()
549 chonks := make(map[string][]*Chonk)
550 var allchonks []*Chonk
551 for rows.Next() {
552 ch := new(Chonk)
553 var dt string
554 err = rows.Scan(&ch.ID, &ch.UserID, &ch.XID, &ch.Who, &ch.Target, &dt, &ch.Noise, &ch.Format)
555 if err != nil {
556 log.Printf("error scanning chonk: %s", err)
557 continue
558 }
559 ch.Date, _ = time.Parse(dbtimeformat, dt)
560 chonks[ch.Target] = append(chonks[ch.Target], ch)
561 allchonks = append(allchonks, ch)
562 }
563 donksforchonks(allchonks)
564 return chonks
565}
566
567func savehonk(h *Honk) error {
568 dt := h.Date.UTC().Format(dbtimeformat)
569 aud := strings.Join(h.Audience, " ")
570
571 db := opendatabase()
572 tx, err := db.Begin()
573 if err != nil {
574 log.Printf("can't begin tx: %s", err)
575 return err
576 }
577
578 res, err := tx.Stmt(stmtSaveHonk).Exec(h.UserID, h.What, h.Honker, h.XID, h.RID, dt, h.URL,
579 aud, h.Noise, h.Convoy, h.Whofore, h.Format, h.Precis,
580 h.Oonker, h.Flags)
581 if err == nil {
582 h.ID, _ = res.LastInsertId()
583 err = saveextras(tx, h)
584 }
585 if err == nil {
586 err = tx.Commit()
587 } else {
588 tx.Rollback()
589 }
590 if err != nil {
591 log.Printf("error saving honk: %s", err)
592 }
593 honkhonkline()
594 return err
595}
596
597func updatehonk(h *Honk) error {
598 old := getxonk(h.UserID, h.XID)
599 oldrev := OldRevision{Precis: old.Precis, Noise: old.Noise}
600 dt := h.Date.UTC().Format(dbtimeformat)
601
602 db := opendatabase()
603 tx, err := db.Begin()
604 if err != nil {
605 log.Printf("can't begin tx: %s", err)
606 return err
607 }
608
609 err = deleteextras(tx, h.ID, false)
610 if err == nil {
611 _, err = tx.Stmt(stmtUpdateHonk).Exec(h.Precis, h.Noise, h.Format, h.Whofore, dt, h.ID)
612 }
613 if err == nil {
614 err = saveextras(tx, h)
615 }
616 if err == nil {
617 var j string
618 j, err = jsonify(&oldrev)
619 if err == nil {
620 _, err = tx.Stmt(stmtSaveMeta).Exec(old.ID, "oldrev", j)
621 }
622 if err != nil {
623 log.Printf("error saving oldrev: %s", err)
624 }
625 }
626 if err == nil {
627 err = tx.Commit()
628 } else {
629 tx.Rollback()
630 }
631 if err != nil {
632 log.Printf("error updating honk %d: %s", h.ID, err)
633 }
634 return err
635}
636
637func deletehonk(honkid int64) error {
638 db := opendatabase()
639 tx, err := db.Begin()
640 if err != nil {
641 log.Printf("can't begin tx: %s", err)
642 return err
643 }
644
645 err = deleteextras(tx, honkid, true)
646 if err == nil {
647 _, err = tx.Stmt(stmtDeleteHonk).Exec(honkid)
648 }
649 if err == nil {
650 err = tx.Commit()
651 } else {
652 tx.Rollback()
653 }
654 if err != nil {
655 log.Printf("error deleting honk %d: %s", honkid, err)
656 }
657 return err
658}
659
660func saveextras(tx *sql.Tx, h *Honk) error {
661 for _, d := range h.Donks {
662 _, err := tx.Stmt(stmtSaveDonk).Exec(h.ID, -1, d.FileID)
663 if err != nil {
664 log.Printf("error saving donk: %s", err)
665 return err
666 }
667 }
668 for _, o := range h.Onts {
669 _, err := tx.Stmt(stmtSaveOnt).Exec(strings.ToLower(o), h.ID)
670 if err != nil {
671 log.Printf("error saving ont: %s", err)
672 return err
673 }
674 }
675 if p := h.Place; p != nil {
676 j, err := jsonify(p)
677 if err == nil {
678 _, err = tx.Stmt(stmtSaveMeta).Exec(h.ID, "place", j)
679 }
680 if err != nil {
681 log.Printf("error saving place: %s", err)
682 return err
683 }
684 }
685 if t := h.Time; t != nil {
686 j, err := jsonify(t)
687 if err == nil {
688 _, err = tx.Stmt(stmtSaveMeta).Exec(h.ID, "time", j)
689 }
690 if err != nil {
691 log.Printf("error saving time: %s", err)
692 return err
693 }
694 }
695 if m := h.Mentions; len(m) > 0 {
696 j, err := jsonify(m)
697 if err == nil {
698 _, err = tx.Stmt(stmtSaveMeta).Exec(h.ID, "mentions", j)
699 }
700 if err != nil {
701 log.Printf("error saving mentions: %s", err)
702 return err
703 }
704 }
705 return nil
706}
707
708func deleteextras(tx *sql.Tx, honkid int64, everything bool) error {
709 _, err := tx.Stmt(stmtDeleteDonks).Exec(honkid)
710 if err != nil {
711 return err
712 }
713 _, err = tx.Stmt(stmtDeleteOnts).Exec(honkid)
714 if err != nil {
715 return err
716 }
717 if everything {
718 _, err = tx.Stmt(stmtDeleteAllMeta).Exec(honkid)
719 } else {
720 _, err = tx.Stmt(stmtDeleteSomeMeta).Exec(honkid)
721 }
722 if err != nil {
723 return err
724 }
725 return nil
726}
727
728func jsonify(what interface{}) (string, error) {
729 var buf bytes.Buffer
730 e := json.NewEncoder(&buf)
731 e.SetEscapeHTML(false)
732 e.SetIndent("", "")
733 err := e.Encode(what)
734 return buf.String(), err
735}
736
737func unjsonify(s string, dest interface{}) error {
738 d := json.NewDecoder(strings.NewReader(s))
739 err := d.Decode(dest)
740 return err
741}
742
743func cleanupdb(arg string) {
744 db := opendatabase()
745 days, err := strconv.Atoi(arg)
746 var sqlargs []interface{}
747 var where string
748 if err != nil {
749 honker := arg
750 expdate := time.Now().UTC().Add(-3 * 24 * time.Hour).Format(dbtimeformat)
751 where = "dt < ? and honker = ?"
752 sqlargs = append(sqlargs, expdate)
753 sqlargs = append(sqlargs, honker)
754 } else {
755 expdate := time.Now().UTC().Add(-time.Duration(days) * 24 * time.Hour).Format(dbtimeformat)
756 where = "dt < ? and convoy not in (select convoy from honks where flags & 4 or whofore = 2 or whofore = 3)"
757 sqlargs = append(sqlargs, expdate)
758 }
759 doordie(db, "delete from honks where flags & 4 = 0 and whofore = 0 and "+where, sqlargs...)
760 doordie(db, "delete from donks where honkid > 0 and honkid not in (select honkid from honks)")
761 doordie(db, "delete from onts where honkid not in (select honkid from honks)")
762 doordie(db, "delete from honkmeta where honkid not in (select honkid from honks)")
763
764 doordie(db, "delete from filemeta where fileid not in (select fileid from donks)")
765 for _, u := range allusers() {
766 doordie(db, "delete from zonkers where userid = ? and wherefore = 'zonvoy' and zonkerid < (select zonkerid from zonkers where userid = ? and wherefore = 'zonvoy' order by zonkerid desc limit 1 offset 200)", u.UserID, u.UserID)
767 }
768
769 filexids := make(map[string]bool)
770 blobdb := openblobdb()
771 rows, err := blobdb.Query("select xid from filedata")
772 if err != nil {
773 log.Fatal(err)
774 }
775 for rows.Next() {
776 var xid string
777 err = rows.Scan(&xid)
778 if err != nil {
779 log.Fatal(err)
780 }
781 filexids[xid] = true
782 }
783 rows.Close()
784 rows, err = db.Query("select xid from filemeta")
785 for rows.Next() {
786 var xid string
787 err = rows.Scan(&xid)
788 if err != nil {
789 log.Fatal(err)
790 }
791 delete(filexids, xid)
792 }
793 rows.Close()
794 tx, err := blobdb.Begin()
795 if err != nil {
796 log.Fatal(err)
797 }
798 for xid, _ := range filexids {
799 _, err = tx.Exec("delete from filedata where xid = ?", xid)
800 if err != nil {
801 log.Fatal(err)
802 }
803 }
804 err = tx.Commit()
805 if err != nil {
806 log.Fatal(err)
807 }
808}
809
810var stmtHonkers, stmtDubbers, stmtNamedDubbers, stmtSaveHonker, stmtUpdateFlavor, stmtUpdateHonker *sql.Stmt
811var stmtAnyXonk, stmtOneXonk, stmtPublicHonks, stmtUserHonks, stmtHonksByCombo, stmtHonksByConvoy *sql.Stmt
812var stmtHonksByOntology, stmtHonksForUser, stmtHonksForMe, stmtSaveDub, stmtHonksByXonker *sql.Stmt
813var stmtHonksByHonker, stmtSaveHonk, stmtUserByName, stmtUserByNumber *sql.Stmt
814var stmtEventHonks, stmtOneBonk, stmtFindZonk, stmtFindXonk, stmtSaveDonk *sql.Stmt
815var stmtFindFile, stmtGetFileData, stmtSaveFileData, stmtSaveFile *sql.Stmt
816var stmtAddDoover, stmtGetDoovers, stmtLoadDoover, stmtZapDoover, stmtOneHonker *sql.Stmt
817var stmtUntagged, stmtDeleteHonk, stmtDeleteDonks, stmtDeleteOnts, stmtSaveZonker *sql.Stmt
818var stmtGetZonkers, stmtRecentHonkers, stmtGetXonker, stmtSaveXonker, stmtDeleteXonker *sql.Stmt
819var stmtAllOnts, stmtSaveOnt, stmtUpdateFlags, stmtClearFlags *sql.Stmt
820var stmtHonksForUserFirstClass *sql.Stmt
821var stmtSaveMeta, stmtDeleteAllMeta, stmtDeleteSomeMeta, stmtUpdateHonk *sql.Stmt
822var stmtHonksISaved, stmtGetFilters, stmtSaveFilter, stmtDeleteFilter *sql.Stmt
823var stmtGetTracks *sql.Stmt
824var stmtSaveChonk, stmtLoadChonks *sql.Stmt
825
826func preparetodie(db *sql.DB, s string) *sql.Stmt {
827 stmt, err := db.Prepare(s)
828 if err != nil {
829 log.Fatalf("error %s: %s", err, s)
830 }
831 return stmt
832}
833
834func prepareStatements(db *sql.DB) {
835 stmtHonkers = preparetodie(db, "select honkerid, userid, name, xid, flavor, combos, meta from honkers where userid = ? and (flavor = 'presub' or flavor = 'sub' or flavor = 'peep' or flavor = 'unsub') order by name")
836 stmtSaveHonker = preparetodie(db, "insert into honkers (userid, name, xid, flavor, combos, owner, meta) values (?, ?, ?, ?, ?, ?, ?)")
837 stmtUpdateFlavor = preparetodie(db, "update honkers set flavor = ? where userid = ? and xid = ? and name = ? and flavor = ?")
838 stmtUpdateHonker = preparetodie(db, "update honkers set name = ?, combos = ?, meta = ? where honkerid = ? and userid = ?")
839 stmtOneHonker = preparetodie(db, "select xid from honkers where name = ? and userid = ?")
840 stmtDubbers = preparetodie(db, "select honkerid, userid, name, xid, flavor from honkers where userid = ? and flavor = 'dub'")
841 stmtNamedDubbers = preparetodie(db, "select honkerid, userid, name, xid, flavor from honkers where userid = ? and name = ? and flavor = 'dub'")
842
843 selecthonks := "select honks.honkid, honks.userid, username, what, honker, oonker, honks.xid, rid, dt, url, audience, noise, precis, format, convoy, whofore, flags from honks join users on honks.userid = users.userid "
844 limit := " order by honks.honkid desc limit 250"
845 smalllimit := " order by honks.honkid desc limit ?"
846 butnotthose := " and convoy not in (select name from zonkers where userid = ? and wherefore = 'zonvoy' order by zonkerid desc limit 100)"
847 stmtOneXonk = preparetodie(db, selecthonks+"where honks.userid = ? and xid = ?")
848 stmtAnyXonk = preparetodie(db, selecthonks+"where xid = ? order by honks.honkid asc")
849 stmtOneBonk = preparetodie(db, selecthonks+"where honks.userid = ? and xid = ? and what = 'bonk' and whofore = 2")
850 stmtPublicHonks = preparetodie(db, selecthonks+"where whofore = 2 and dt > ?"+smalllimit)
851 stmtEventHonks = preparetodie(db, selecthonks+"where (whofore = 2 or honks.userid = ?) and what = 'event'"+smalllimit)
852 stmtUserHonks = preparetodie(db, selecthonks+"where honks.honkid > ? and (whofore = 2 or whofore = ?) and username = ? and dt > ?"+smalllimit)
853 myhonkers := " and honker in (select xid from honkers where userid = ? and (flavor = 'sub' or flavor = 'peep' or flavor = 'presub') and combos not like '% - %')"
854 stmtHonksForUser = preparetodie(db, selecthonks+"where honks.honkid > ? and honks.userid = ? and dt > ?"+myhonkers+butnotthose+limit)
855 stmtHonksForUserFirstClass = preparetodie(db, selecthonks+"where honks.honkid > ? and honks.userid = ? and dt > ? and (what <> 'tonk')"+myhonkers+butnotthose+limit)
856 stmtHonksForMe = preparetodie(db, selecthonks+"where honks.honkid > ? and honks.userid = ? and dt > ? and whofore = 1"+butnotthose+limit)
857 stmtHonksISaved = preparetodie(db, selecthonks+"where honks.honkid > ? and honks.userid = ? and flags & 4 order by honks.honkid desc")
858 stmtHonksByHonker = preparetodie(db, selecthonks+"join honkers on (honkers.xid = honks.honker or honkers.xid = honks.oonker) where honks.honkid > ? and honks.userid = ? and honkers.name = ?"+butnotthose+limit)
859 stmtHonksByXonker = preparetodie(db, selecthonks+" where honks.honkid > ? and honks.userid = ? and (honker = ? or oonker = ?)"+butnotthose+limit)
860 stmtHonksByCombo = preparetodie(db, selecthonks+" where honks.honkid > ? and honks.userid = ? and honks.honker in (select xid from honkers where honkers.userid = ? and honkers.combos like ?) "+butnotthose+" union "+selecthonks+"join onts on honks.honkid = onts.honkid where honks.honkid > ? and honks.userid = ? and onts.ontology in (select xid from honkers where combos like ?)"+butnotthose+limit)
861 stmtHonksByConvoy = preparetodie(db, selecthonks+"where honks.honkid > ? and (honks.userid = ? or (? = -1 and whofore = 2)) and convoy = ?"+limit)
862 stmtHonksByOntology = preparetodie(db, selecthonks+"join onts on honks.honkid = onts.honkid where honks.honkid > ? and onts.ontology = ? and (honks.userid = ? or (? = -1 and honks.whofore = 2))"+limit)
863
864 stmtSaveMeta = preparetodie(db, "insert into honkmeta (honkid, genus, json) values (?, ?, ?)")
865 stmtDeleteAllMeta = preparetodie(db, "delete from honkmeta where honkid = ?")
866 stmtDeleteSomeMeta = preparetodie(db, "delete from honkmeta where honkid = ? and genus not in ('oldrev')")
867 stmtSaveHonk = preparetodie(db, "insert into honks (userid, what, honker, xid, rid, dt, url, audience, noise, convoy, whofore, format, precis, oonker, flags) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)")
868 stmtDeleteHonk = preparetodie(db, "delete from honks where honkid = ?")
869 stmtUpdateHonk = preparetodie(db, "update honks set precis = ?, noise = ?, format = ?, whofore = ?, dt = ? where honkid = ?")
870 stmtSaveOnt = preparetodie(db, "insert into onts (ontology, honkid) values (?, ?)")
871 stmtDeleteOnts = preparetodie(db, "delete from onts where honkid = ?")
872 stmtSaveDonk = preparetodie(db, "insert into donks (honkid, chonkid, fileid) values (?, ?, ?)")
873 stmtDeleteDonks = preparetodie(db, "delete from donks where honkid = ?")
874 stmtSaveFile = preparetodie(db, "insert into filemeta (xid, name, description, url, media, local) values (?, ?, ?, ?, ?, ?)")
875 blobdb := openblobdb()
876 stmtSaveFileData = preparetodie(blobdb, "insert into filedata (xid, media, content) values (?, ?, ?)")
877 stmtGetFileData = preparetodie(blobdb, "select media, content from filedata where xid = ?")
878 stmtFindXonk = preparetodie(db, "select honkid from honks where userid = ? and xid = ?")
879 stmtFindFile = preparetodie(db, "select fileid, xid from filemeta where url = ? and local = 1")
880 stmtUserByName = preparetodie(db, "select userid, username, displayname, about, pubkey, seckey, options from users where username = ? and userid > 0")
881 stmtUserByNumber = preparetodie(db, "select userid, username, displayname, about, pubkey, seckey, options from users where userid = ?")
882 stmtSaveDub = preparetodie(db, "insert into honkers (userid, name, xid, flavor) values (?, ?, ?, ?)")
883 stmtAddDoover = preparetodie(db, "insert into doovers (dt, tries, userid, rcpt, msg) values (?, ?, ?, ?, ?)")
884 stmtGetDoovers = preparetodie(db, "select dooverid, dt from doovers")
885 stmtLoadDoover = preparetodie(db, "select tries, userid, rcpt, msg from doovers where dooverid = ?")
886 stmtZapDoover = preparetodie(db, "delete from doovers where dooverid = ?")
887 stmtUntagged = preparetodie(db, "select xid, rid, flags from (select honkid, xid, rid, flags from honks where userid = ? order by honkid desc limit 10000) order by honkid asc")
888 stmtFindZonk = preparetodie(db, "select zonkerid from zonkers where userid = ? and name = ? and wherefore = 'zonk'")
889 stmtGetZonkers = preparetodie(db, "select zonkerid, name, wherefore from zonkers where userid = ? and wherefore <> 'zonk'")
890 stmtSaveZonker = preparetodie(db, "insert into zonkers (userid, name, wherefore) values (?, ?, ?)")
891 stmtGetXonker = preparetodie(db, "select info from xonkers where name = ? and flavor = ?")
892 stmtSaveXonker = preparetodie(db, "insert into xonkers (name, info, flavor, dt) values (?, ?, ?, ?)")
893 stmtDeleteXonker = preparetodie(db, "delete from xonkers where name = ? and flavor = ? and dt < ?")
894 stmtRecentHonkers = preparetodie(db, "select distinct(honker) from honks where userid = ? and honker not in (select xid from honkers where userid = ? and flavor = 'sub') order by honkid desc limit 100")
895 stmtUpdateFlags = preparetodie(db, "update honks set flags = flags | ? where honkid = ?")
896 stmtClearFlags = preparetodie(db, "update honks set flags = flags & ~ ? where honkid = ?")
897 stmtAllOnts = preparetodie(db, "select ontology, count(ontology) from onts join honks on onts.honkid = honks.honkid where (honks.userid = ? or honks.whofore = 2) group by ontology")
898 stmtGetFilters = preparetodie(db, "select hfcsid, json from hfcs where userid = ?")
899 stmtSaveFilter = preparetodie(db, "insert into hfcs (userid, json) values (?, ?)")
900 stmtDeleteFilter = preparetodie(db, "delete from hfcs where userid = ? and hfcsid = ?")
901 stmtGetTracks = preparetodie(db, "select fetches from tracks where xid = ?")
902 stmtSaveChonk = preparetodie(db, "insert into chonks (userid, xid, who, target, dt, noise, format) values (?, ?, ?, ?, ?, ?, ?)")
903 stmtLoadChonks = preparetodie(db, "select chonkid, userid, xid, who, target, dt, noise, format from chonks where userid = ? and dt > ? order by chonkid asc")
904}