2019-09-10 20:43:34 +02:00
//
// Copyright (c) 2019 Ted Unangst <tedu@tedunangst.com>
//
// Permission to use, copy, modify, and distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
//
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
package main
import (
2019-10-02 23:27:29 +02:00
"bytes"
2019-09-10 20:43:34 +02:00
"database/sql"
2019-10-02 23:27:29 +02:00
"encoding/json"
2019-09-10 20:43:34 +02:00
"fmt"
"log"
2019-10-11 02:37:03 +02:00
"sort"
2019-09-10 20:43:34 +02:00
"strconv"
"strings"
"time"
2019-10-13 01:25:23 +02:00
"humungus.tedunangst.com/r/webs/cache"
2019-10-25 23:31:48 +02:00
"humungus.tedunangst.com/r/webs/httpsig"
2019-09-10 20:43:34 +02:00
"humungus.tedunangst.com/r/webs/login"
)
2019-10-13 01:25:23 +02:00
var someusers = cache . New ( cache . Options { Filler : func ( name string ) ( * WhatAbout , bool ) {
2019-09-10 20:43:34 +02:00
row := stmtWhatAbout . QueryRow ( name )
2019-10-07 21:47:37 +02:00
user := new ( WhatAbout )
2019-09-10 20:43:34 +02:00
var options string
err := row . Scan ( & user . ID , & user . Name , & user . Display , & user . About , & user . Key , & options )
2019-10-07 21:29:34 +02:00
if err != nil {
return nil , false
}
2019-09-10 20:43:34 +02:00
user . URL = fmt . Sprintf ( "https://%s/%s/%s" , serverName , userSep , user . Name )
user . SkinnyCSS = strings . Contains ( options , " skinny " )
2019-10-07 21:29:34 +02:00
return user , true
} } )
2019-10-25 23:31:48 +02:00
var oldserveruser * WhatAbout
func getserveruser ( ) * WhatAbout {
if oldserveruser == nil {
db := opendatabase ( )
row := db . QueryRow ( "select userid, username, displayname, about, pubkey, seckey from users where userid = ?" , serverUID )
user := new ( WhatAbout )
var seckey string
err := row . Scan ( & user . ID , & user . Name , & user . Display , & user . About , & user . Key , & seckey )
if err == nil {
user . SecKey , _ , err = httpsig . DecodeKey ( seckey )
}
if err != nil {
log . Panicf ( "trouble getting server user: %s" , err )
}
user . URL = fmt . Sprintf ( "https://%s/server" , serverName )
oldserveruser = user
}
return oldserveruser
}
2019-10-07 21:29:34 +02:00
func butwhatabout ( name string ) ( * WhatAbout , error ) {
var user * WhatAbout
ok := someusers . Get ( name , & user )
if ! ok {
return nil , fmt . Errorf ( "no user: %s" , name )
}
return user , nil
2019-09-10 20:43:34 +02:00
}
2019-10-16 05:27:30 +02:00
var honkerinvalidator cache . Invalidator
2019-09-10 20:43:34 +02:00
func gethonkers ( userid int64 ) [ ] * Honker {
rows , err := stmtHonkers . Query ( userid )
if err != nil {
log . Printf ( "error querying honkers: %s" , err )
return nil
}
defer rows . Close ( )
var honkers [ ] * Honker
for rows . Next ( ) {
2019-10-21 07:29:39 +02:00
h := new ( Honker )
2019-09-10 20:43:34 +02:00
var combos string
2019-10-21 07:29:39 +02:00
err = rows . Scan ( & h . ID , & h . UserID , & h . Name , & h . XID , & h . Flavor , & combos )
h . Combos = strings . Split ( strings . TrimSpace ( combos ) , " " )
2019-09-10 20:43:34 +02:00
if err != nil {
log . Printf ( "error scanning honker: %s" , err )
return nil
}
2019-10-21 07:29:39 +02:00
honkers = append ( honkers , h )
2019-09-10 20:43:34 +02:00
}
return honkers
}
func getdubs ( userid int64 ) [ ] * Honker {
rows , err := stmtDubbers . Query ( userid )
if err != nil {
log . Printf ( "error querying dubs: %s" , err )
return nil
}
defer rows . Close ( )
var honkers [ ] * Honker
for rows . Next ( ) {
2019-10-21 07:29:39 +02:00
h := new ( Honker )
err = rows . Scan ( & h . ID , & h . UserID , & h . Name , & h . XID , & h . Flavor )
2019-09-10 20:43:34 +02:00
if err != nil {
log . Printf ( "error scanning honker: %s" , err )
return nil
}
2019-10-21 07:29:39 +02:00
honkers = append ( honkers , h )
2019-09-10 20:43:34 +02:00
}
return honkers
}
func allusers ( ) [ ] login . UserInfo {
var users [ ] login . UserInfo
2019-10-25 23:31:48 +02:00
rows , _ := opendatabase ( ) . Query ( "select userid, username from users where userid > 0" )
2019-09-10 20:43:34 +02:00
defer rows . Close ( )
for rows . Next ( ) {
var u login . UserInfo
rows . Scan ( & u . UserID , & u . Username )
users = append ( users , u )
}
return users
}
2019-09-16 22:46:14 +02:00
func getxonk ( userid int64 , xid string ) * Honk {
row := stmtOneXonk . QueryRow ( userid , xid )
2019-09-16 22:51:47 +02:00
return scanhonk ( row )
2019-09-16 22:46:14 +02:00
}
2019-09-10 20:43:34 +02:00
func getbonk ( userid int64 , xid string ) * Honk {
row := stmtOneBonk . QueryRow ( userid , xid )
2019-09-16 22:51:47 +02:00
return scanhonk ( row )
2019-09-10 20:43:34 +02:00
}
func getpublichonks ( ) [ ] * Honk {
dt := time . Now ( ) . UTC ( ) . Add ( - 7 * 24 * time . Hour ) . Format ( dbtimeformat )
rows , err := stmtPublicHonks . Query ( dt )
return getsomehonks ( rows , err )
}
2019-10-11 02:37:03 +02:00
func geteventhonks ( userid int64 ) [ ] * Honk {
rows , err := stmtEventHonks . Query ( userid )
honks := getsomehonks ( rows , err )
sort . Slice ( honks , func ( i , j int ) bool {
var t1 , t2 time . Time
if honks [ i ] . Time == nil {
t1 = honks [ i ] . Date
} else {
t1 = honks [ i ] . Time . StartTime
}
if honks [ j ] . Time == nil {
t2 = honks [ j ] . Date
} else {
t2 = honks [ j ] . Time . StartTime
}
return t1 . After ( t2 )
} )
now := time . Now ( ) . Add ( - 24 * time . Hour )
for i , h := range honks {
if h . Time . StartTime . Before ( now ) {
honks = honks [ : i ]
break
}
}
reversehonks ( honks )
return honks
}
2019-10-20 20:36:55 +02:00
func gethonksbyuser ( name string , includeprivate bool , wanted int64 ) [ ] * Honk {
2019-09-10 20:43:34 +02:00
dt := time . Now ( ) . UTC ( ) . Add ( - 7 * 24 * time . Hour ) . Format ( dbtimeformat )
whofore := 2
if includeprivate {
whofore = 3
}
2019-10-20 20:36:55 +02:00
rows , err := stmtUserHonks . Query ( wanted , whofore , name , dt )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksforuser ( userid int64 , wanted int64 ) [ ] * Honk {
2019-09-10 20:43:34 +02:00
dt := time . Now ( ) . UTC ( ) . Add ( - 7 * 24 * time . Hour ) . Format ( dbtimeformat )
2019-10-20 20:36:55 +02:00
rows , err := stmtHonksForUser . Query ( wanted , userid , dt , userid , userid )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksforuserfirstclass ( userid int64 , wanted int64 ) [ ] * Honk {
2019-09-26 17:28:05 +02:00
dt := time . Now ( ) . UTC ( ) . Add ( - 7 * 24 * time . Hour ) . Format ( dbtimeformat )
2019-10-20 20:36:55 +02:00
rows , err := stmtHonksForUserFirstClass . Query ( wanted , userid , dt , userid , userid )
2019-09-26 17:28:05 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksforme ( userid int64 , wanted int64 ) [ ] * Honk {
2019-09-10 20:43:34 +02:00
dt := time . Now ( ) . UTC ( ) . Add ( - 7 * 24 * time . Hour ) . Format ( dbtimeformat )
2019-10-20 20:36:55 +02:00
rows , err := stmtHonksForMe . Query ( wanted , userid , dt , userid )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func getsavedhonks ( userid int64 , wanted int64 ) [ ] * Honk {
rows , err := stmtHonksISaved . Query ( wanted , userid )
2019-10-11 22:03:17 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksbyhonker ( userid int64 , honker string , wanted int64 ) [ ] * Honk {
rows , err := stmtHonksByHonker . Query ( wanted , userid , honker , userid )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksbyxonker ( userid int64 , xonker string , wanted int64 ) [ ] * Honk {
rows , err := stmtHonksByXonker . Query ( wanted , userid , xonker , xonker , userid )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksbycombo ( userid int64 , combo string , wanted int64 ) [ ] * Honk {
2019-09-10 20:43:34 +02:00
combo = "% " + combo + " %"
2019-10-20 20:36:55 +02:00
rows , err := stmtHonksByCombo . Query ( wanted , userid , combo , userid )
2019-09-10 20:43:34 +02:00
return getsomehonks ( rows , err )
}
2019-10-20 20:36:55 +02:00
func gethonksbyconvoy ( userid int64 , convoy string , wanted int64 ) [ ] * Honk {
rows , err := stmtHonksByConvoy . Query ( wanted , userid , userid , convoy )
2019-09-10 20:43:34 +02:00
honks := getsomehonks ( rows , err )
return honks
}
2019-10-20 20:36:55 +02:00
func gethonksbysearch ( userid int64 , q string , wanted int64 ) [ ] * Honk {
2019-10-16 05:27:30 +02:00
honker := ""
withhonker := 0
site := ""
withsite := 0
terms := strings . Split ( q , " " )
q = "%"
for _ , t := range terms {
if strings . HasPrefix ( t , "site:" ) {
site = t [ 5 : ]
site = "%" + site + "%"
withsite = 1
continue
}
if strings . HasPrefix ( t , "honker:" ) {
honker = t [ 7 : ]
xid := fullname ( honker , userid )
if xid != "" {
honker = xid
}
withhonker = 1
continue
}
2019-10-18 03:59:17 +02:00
if len ( q ) != 1 {
2019-10-16 05:27:30 +02:00
q += " "
}
q += t
}
q += "%"
2019-10-20 20:36:55 +02:00
rows , err := stmtHonksBySearch . Query ( wanted , userid , withsite , site , withhonker , honker , honker , q , userid )
2019-09-10 20:43:34 +02:00
honks := getsomehonks ( rows , err )
return honks
}
2019-10-20 20:36:55 +02:00
func gethonksbyontology ( userid int64 , name string , wanted int64 ) [ ] * Honk {
rows , err := stmtHonksByOntology . Query ( wanted , name , userid , userid )
2019-09-10 20:43:34 +02:00
honks := getsomehonks ( rows , err )
return honks
}
2019-10-08 06:58:42 +02:00
func reversehonks ( honks [ ] * Honk ) {
for i , j := 0 , len ( honks ) - 1 ; i < j ; i , j = i + 1 , j - 1 {
honks [ i ] , honks [ j ] = honks [ j ] , honks [ i ]
}
}
2019-09-10 20:43:34 +02:00
func getsomehonks ( rows * sql . Rows , err error ) [ ] * Honk {
if err != nil {
log . Printf ( "error querying honks: %s" , err )
return nil
}
defer rows . Close ( )
var honks [ ] * Honk
for rows . Next ( ) {
2019-09-16 22:51:47 +02:00
h := scanhonk ( rows )
if h != nil {
honks = append ( honks , h )
2019-09-10 20:43:34 +02:00
}
}
rows . Close ( )
donksforhonks ( honks )
return honks
}
2019-09-16 22:51:47 +02:00
type RowLike interface {
Scan ( dest ... interface { } ) error
}
func scanhonk ( row RowLike ) * Honk {
h := new ( Honk )
2019-09-22 23:00:14 +02:00
var dt , aud string
2019-09-16 22:51:47 +02:00
err := row . Scan ( & h . ID , & h . UserID , & h . Username , & h . What , & h . Honker , & h . Oonker , & h . XID , & h . RID ,
2019-09-22 23:00:14 +02:00
& dt , & h . URL , & aud , & h . Noise , & h . Precis , & h . Format , & h . Convoy , & h . Whofore , & h . Flags )
2019-09-16 22:51:47 +02:00
if err != nil {
if err != sql . ErrNoRows {
log . Printf ( "error scanning honk: %s" , err )
}
return nil
}
h . Date , _ = time . Parse ( dbtimeformat , dt )
h . Audience = strings . Split ( aud , " " )
h . Public = ! keepitquiet ( h . Audience )
return h
}
2019-09-10 20:43:34 +02:00
func donksforhonks ( honks [ ] * Honk ) {
db := opendatabase ( )
var ids [ ] string
hmap := make ( map [ int64 ] * Honk )
for _ , h := range honks {
ids = append ( ids , fmt . Sprintf ( "%d" , h . ID ) )
hmap [ h . ID ] = h
}
2019-09-22 23:00:14 +02:00
// grab donks
2019-09-30 03:40:37 +02:00
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)" , strings . Join ( ids , "," ) )
2019-09-10 20:43:34 +02:00
rows , err := db . Query ( q )
if err != nil {
log . Printf ( "error querying donks: %s" , err )
return
}
defer rows . Close ( )
for rows . Next ( ) {
var hid int64
2019-10-21 07:29:39 +02:00
d := new ( Donk )
2019-09-10 20:43:34 +02:00
err = rows . Scan ( & hid , & d . FileID , & d . XID , & d . Name , & d . Desc , & d . URL , & d . Media , & d . Local )
if err != nil {
log . Printf ( "error scanning donk: %s" , err )
continue
}
h := hmap [ hid ]
2019-10-21 07:29:39 +02:00
h . Donks = append ( h . Donks , d )
2019-09-10 20:43:34 +02:00
}
2019-09-22 23:00:14 +02:00
rows . Close ( )
// grab onts
q = fmt . Sprintf ( "select honkid, ontology from onts where honkid in (%s)" , strings . Join ( ids , "," ) )
rows , err = db . Query ( q )
if err != nil {
log . Printf ( "error querying onts: %s" , err )
return
}
defer rows . Close ( )
for rows . Next ( ) {
var hid int64
var o string
err = rows . Scan ( & hid , & o )
if err != nil {
log . Printf ( "error scanning donk: %s" , err )
continue
}
h := hmap [ hid ]
h . Onts = append ( h . Onts , o )
}
rows . Close ( )
2019-10-02 23:10:01 +02:00
// grab meta
q = fmt . Sprintf ( "select honkid, genus, json from honkmeta where honkid in (%s)" , strings . Join ( ids , "," ) )
2019-09-28 06:12:50 +02:00
rows , err = db . Query ( q )
if err != nil {
2019-10-02 23:10:01 +02:00
log . Printf ( "error querying honkmeta: %s" , err )
2019-09-28 06:12:50 +02:00
return
}
defer rows . Close ( )
for rows . Next ( ) {
var hid int64
2019-10-02 23:10:01 +02:00
var genus , j string
err = rows . Scan ( & hid , & genus , & j )
2019-09-28 06:12:50 +02:00
if err != nil {
2019-10-02 23:10:01 +02:00
log . Printf ( "error scanning honkmeta: %s" , err )
2019-09-28 06:12:50 +02:00
continue
}
h := hmap [ hid ]
2019-10-02 23:10:01 +02:00
switch genus {
case "place" :
p := new ( Place )
err = unjsonify ( j , p )
if err != nil {
log . Printf ( "error parsing place: %s" , err )
continue
}
h . Place = p
2019-10-03 00:20:14 +02:00
case "time" :
t := new ( Time )
err = unjsonify ( j , t )
if err != nil {
log . Printf ( "error parsing time: %s" , err )
continue
}
h . Time = t
2019-10-02 23:10:01 +02:00
case "oldrev" :
default :
log . Printf ( "unknown meta genus: %s" , genus )
}
2019-09-28 06:12:50 +02:00
}
rows . Close ( )
2019-09-10 20:43:34 +02:00
}
2019-09-30 03:40:37 +02:00
func savefile ( xid string , name string , desc string , url string , media string , local bool , data [ ] byte ) ( int64 , error ) {
res , err := stmtSaveFile . Exec ( xid , name , desc , url , media , local )
if err != nil {
return 0 , err
}
fileid , _ := res . LastInsertId ( )
2019-10-02 23:14:14 +02:00
if local {
_ , err = stmtSaveFileData . Exec ( xid , media , data )
if err != nil {
return 0 , err
}
2019-09-30 03:40:37 +02:00
}
return fileid , nil
}
2019-10-03 05:02:01 +02:00
func finddonk ( url string ) * Donk {
donk := new ( Donk )
row := stmtFindFile . QueryRow ( url )
err := row . Scan ( & donk . FileID , & donk . XID )
if err == nil {
return donk
}
if err != sql . ErrNoRows {
log . Printf ( "error finding file: %s" , err )
}
return nil
}
2019-09-11 22:20:22 +02:00
func savehonk ( h * Honk ) error {
dt := h . Date . UTC ( ) . Format ( dbtimeformat )
aud := strings . Join ( h . Audience , " " )
2019-10-08 07:23:54 +02:00
db := opendatabase ( )
tx , err := db . Begin ( )
if err != nil {
log . Printf ( "can't begin tx: %s" , err )
return err
}
res , err := tx . Stmt ( stmtSaveHonk ) . Exec ( h . UserID , h . What , h . Honker , h . XID , h . RID , dt , h . URL ,
2019-09-11 22:20:22 +02:00
aud , h . Noise , h . Convoy , h . Whofore , h . Format , h . Precis ,
2019-09-22 23:00:14 +02:00
h . Oonker , h . Flags )
2019-10-08 07:23:54 +02:00
if err == nil {
h . ID , _ = res . LastInsertId ( )
err = saveextras ( tx , h )
}
if err == nil {
err = tx . Commit ( )
} else {
tx . Rollback ( )
}
2019-09-11 22:20:22 +02:00
if err != nil {
2019-10-08 07:27:27 +02:00
log . Printf ( "error saving honk: %s" , err )
2019-10-08 07:23:54 +02:00
}
return err
}
func updatehonk ( h * Honk ) error {
old := getxonk ( h . UserID , h . XID )
oldrev := OldRevision { Precis : old . Precis , Noise : old . Noise }
dt := h . Date . UTC ( ) . Format ( dbtimeformat )
db := opendatabase ( )
tx , err := db . Begin ( )
if err != nil {
log . Printf ( "can't begin tx: %s" , err )
return err
}
err = deleteextras ( tx , h . ID )
if err == nil {
_ , err = tx . Stmt ( stmtUpdateHonk ) . Exec ( h . Precis , h . Noise , h . Format , dt , h . ID )
}
if err == nil {
err = saveextras ( tx , h )
}
if err == nil {
var j string
j , err = jsonify ( & oldrev )
if err == nil {
_ , err = tx . Stmt ( stmtSaveMeta ) . Exec ( old . ID , "oldrev" , j )
}
if err != nil {
log . Printf ( "error saving oldrev: %s" , err )
}
}
if err == nil {
err = tx . Commit ( )
} else {
tx . Rollback ( )
}
if err != nil {
log . Printf ( "error updating honk %d: %s" , h . ID , err )
}
return err
}
func deletehonk ( honkid int64 ) error {
db := opendatabase ( )
tx , err := db . Begin ( )
if err != nil {
log . Printf ( "can't begin tx: %s" , err )
2019-09-11 22:20:22 +02:00
return err
}
2019-10-08 07:23:54 +02:00
err = deleteextras ( tx , honkid )
if err == nil {
_ , err = tx . Stmt ( stmtDeleteMeta ) . Exec ( honkid , "nonsense" )
}
if err == nil {
_ , err = tx . Stmt ( stmtDeleteHonk ) . Exec ( honkid )
}
if err == nil {
err = tx . Commit ( )
} else {
tx . Rollback ( )
}
if err != nil {
log . Printf ( "error deleting honk %d: %s" , honkid , err )
}
2019-09-17 00:00:13 +02:00
return err
}
2019-10-08 07:23:54 +02:00
func saveextras ( tx * sql . Tx , h * Honk ) error {
2019-09-11 22:20:22 +02:00
for _ , d := range h . Donks {
2019-10-08 07:23:54 +02:00
_ , err := tx . Stmt ( stmtSaveDonk ) . Exec ( h . ID , d . FileID )
2019-09-11 22:20:22 +02:00
if err != nil {
2019-10-08 07:27:27 +02:00
log . Printf ( "error saving donk: %s" , err )
2019-09-11 22:20:22 +02:00
return err
}
}
for _ , o := range h . Onts {
2019-10-08 07:23:54 +02:00
_ , err := tx . Stmt ( stmtSaveOnt ) . Exec ( strings . ToLower ( o ) , h . ID )
2019-09-11 22:20:22 +02:00
if err != nil {
log . Printf ( "error saving ont: %s" , err )
return err
}
}
2019-09-29 22:07:35 +02:00
if p := h . Place ; p != nil {
2019-10-02 23:10:01 +02:00
j , err := jsonify ( p )
2019-10-03 00:20:14 +02:00
if err == nil {
2019-10-08 07:23:54 +02:00
_ , err = tx . Stmt ( stmtSaveMeta ) . Exec ( h . ID , "place" , j )
2019-10-02 23:10:01 +02:00
}
2019-09-28 06:12:50 +02:00
if err != nil {
2019-09-29 22:07:35 +02:00
log . Printf ( "error saving place: %s" , err )
2019-09-28 06:12:50 +02:00
return err
}
}
2019-10-03 00:20:14 +02:00
if t := h . Time ; t != nil {
j , err := jsonify ( t )
if err == nil {
2019-10-08 07:23:54 +02:00
_ , err = tx . Stmt ( stmtSaveMeta ) . Exec ( h . ID , "time" , j )
2019-10-02 23:29:02 +02:00
}
if err != nil {
log . Printf ( "error saving time: %s" , err )
return err
}
}
2019-09-11 22:20:22 +02:00
return nil
}
2019-10-08 07:23:54 +02:00
func deleteextras ( tx * sql . Tx , honkid int64 ) error {
_ , err := tx . Stmt ( stmtDeleteDonks ) . Exec ( honkid )
2019-09-16 23:00:50 +02:00
if err != nil {
2019-10-08 07:23:54 +02:00
return err
2019-09-16 23:00:50 +02:00
}
2019-10-08 07:23:54 +02:00
_ , err = tx . Stmt ( stmtDeleteOnts ) . Exec ( honkid )
2019-09-28 06:12:50 +02:00
if err != nil {
2019-10-08 07:23:54 +02:00
return err
2019-10-07 04:53:58 +02:00
}
2019-10-08 07:23:54 +02:00
_ , err = tx . Stmt ( stmtDeleteMeta ) . Exec ( honkid , "oldrev" )
2019-09-16 23:00:50 +02:00
if err != nil {
2019-10-08 07:23:54 +02:00
return err
2019-09-16 23:00:50 +02:00
}
2019-10-08 07:23:54 +02:00
return nil
2019-09-16 23:00:50 +02:00
}
2019-10-02 23:10:01 +02:00
func jsonify ( what interface { } ) ( string , error ) {
var buf bytes . Buffer
e := json . NewEncoder ( & buf )
e . SetEscapeHTML ( false )
e . SetIndent ( "" , "" )
err := e . Encode ( what )
return buf . String ( ) , err
}
func unjsonify ( s string , dest interface { } ) error {
d := json . NewDecoder ( strings . NewReader ( s ) )
err := d . Decode ( dest )
return err
}
2019-09-10 20:43:34 +02:00
func cleanupdb ( arg string ) {
db := opendatabase ( )
days , err := strconv . Atoi ( arg )
2019-09-30 22:43:51 +02:00
var sqlargs [ ] interface { }
var where string
2019-09-10 20:43:34 +02:00
if err != nil {
honker := arg
expdate := time . Now ( ) . UTC ( ) . Add ( - 3 * 24 * time . Hour ) . Format ( dbtimeformat )
2019-10-11 22:03:17 +02:00
where = "dt < ? and honker = ?"
2019-09-30 22:43:51 +02:00
sqlargs = append ( sqlargs , expdate )
sqlargs = append ( sqlargs , honker )
2019-09-10 20:43:34 +02:00
} else {
expdate := time . Now ( ) . UTC ( ) . Add ( - time . Duration ( days ) * 24 * time . Hour ) . Format ( dbtimeformat )
2019-10-11 22:03:17 +02:00
where = "dt < ? and convoy not in (select convoy from honks where flags & 4 or whofore = 2 or whofore = 3)"
2019-09-30 22:43:51 +02:00
sqlargs = append ( sqlargs , expdate )
2019-09-10 20:43:34 +02:00
}
2019-10-11 22:03:17 +02:00
doordie ( db , "delete from honks where flags & 4 = 0 and whofore = 0 and " + where , sqlargs ... )
2019-09-30 22:43:51 +02:00
doordie ( db , "delete from donks where honkid not in (select honkid from honks)" )
doordie ( db , "delete from onts where honkid not in (select honkid from honks)" )
2019-10-02 23:10:01 +02:00
doordie ( db , "delete from honkmeta where honkid not in (select honkid from honks)" )
2019-09-30 22:43:51 +02:00
2019-09-30 03:40:37 +02:00
doordie ( db , "delete from filemeta where fileid not in (select fileid from donks)" )
2019-09-10 20:43:34 +02:00
for _ , u := range allusers ( ) {
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 )
}
2019-09-30 22:43:51 +02:00
filexids := make ( map [ string ] bool )
blobdb := openblobdb ( )
rows , err := blobdb . Query ( "select xid from filedata" )
if err != nil {
log . Fatal ( err )
}
for rows . Next ( ) {
var xid string
err = rows . Scan ( & xid )
if err != nil {
log . Fatal ( err )
}
filexids [ xid ] = true
}
rows . Close ( )
rows , err = db . Query ( "select xid from filemeta" )
for rows . Next ( ) {
var xid string
err = rows . Scan ( & xid )
if err != nil {
log . Fatal ( err )
}
delete ( filexids , xid )
}
rows . Close ( )
tx , err := blobdb . Begin ( )
if err != nil {
log . Fatal ( err )
}
for xid , _ := range filexids {
_ , err = tx . Exec ( "delete from filedata where xid = ?" , xid )
if err != nil {
log . Fatal ( err )
}
}
err = tx . Commit ( )
if err != nil {
log . Fatal ( err )
}
2019-09-10 20:43:34 +02:00
}
2019-10-07 03:45:58 +02:00
var stmtHonkers , stmtDubbers , stmtSaveHonker , stmtUpdateFlavor , stmtUpdateHonker * sql . Stmt
2019-10-07 21:22:10 +02:00
var stmtAnyXonk , stmtOneXonk , stmtPublicHonks , stmtUserHonks , stmtHonksByCombo , stmtHonksByConvoy * sql . Stmt
2019-09-10 20:43:34 +02:00
var stmtHonksByOntology , stmtHonksForUser , stmtHonksForMe , stmtSaveDub , stmtHonksByXonker * sql . Stmt
2019-09-30 03:40:37 +02:00
var stmtHonksBySearch , stmtHonksByHonker , stmtSaveHonk , stmtWhatAbout * sql . Stmt
2019-10-11 02:37:03 +02:00
var stmtEventHonks , stmtOneBonk , stmtFindZonk , stmtFindXonk , stmtSaveDonk * sql . Stmt
2019-09-30 03:40:37 +02:00
var stmtFindFile , stmtGetFileData , stmtSaveFileData , stmtSaveFile * sql . Stmt
2019-09-10 20:43:34 +02:00
var stmtAddDoover , stmtGetDoovers , stmtLoadDoover , stmtZapDoover , stmtOneHonker * sql . Stmt
2019-09-16 23:00:50 +02:00
var stmtThumbBiters , stmtDeleteHonk , stmtDeleteDonks , stmtDeleteOnts , stmtSaveZonker * sql . Stmt
2019-09-10 20:43:34 +02:00
var stmtGetZonkers , stmtRecentHonkers , stmtGetXonker , stmtSaveXonker , stmtDeleteXonker * sql . Stmt
2019-10-13 07:58:01 +02:00
var stmtAllOnts , stmtSaveOnt , stmtUpdateFlags , stmtClearFlags * sql . Stmt
2019-10-02 23:10:01 +02:00
var stmtHonksForUserFirstClass , stmtSaveMeta , stmtDeleteMeta , stmtUpdateHonk * sql . Stmt
2019-10-11 22:03:17 +02:00
var stmtHonksISaved , stmtGetFilters , stmtSaveFilter , stmtDeleteFilter * sql . Stmt
2019-09-10 20:43:34 +02:00
func preparetodie ( db * sql . DB , s string ) * sql . Stmt {
stmt , err := db . Prepare ( s )
if err != nil {
log . Fatalf ( "error %s: %s" , err , s )
}
return stmt
}
func prepareStatements ( db * sql . DB ) {
2019-10-09 21:56:06 +02:00
stmtHonkers = preparetodie ( db , "select honkerid, userid, name, xid, flavor, combos from honkers where userid = ? and (flavor = 'presub' or flavor = 'sub' or flavor = 'peep' or flavor = 'unsub') order by name" )
2019-09-10 20:43:34 +02:00
stmtSaveHonker = preparetodie ( db , "insert into honkers (userid, name, xid, flavor, combos) values (?, ?, ?, ?, ?)" )
stmtUpdateFlavor = preparetodie ( db , "update honkers set flavor = ? where userid = ? and xid = ? and flavor = ?" )
2019-10-07 03:45:58 +02:00
stmtUpdateHonker = preparetodie ( db , "update honkers set name = ?, combos = ? where honkerid = ? and userid = ?" )
2019-09-10 20:43:34 +02:00
stmtOneHonker = preparetodie ( db , "select xid from honkers where name = ? and userid = ?" )
stmtDubbers = preparetodie ( db , "select honkerid, userid, name, xid, flavor from honkers where userid = ? and flavor = 'dub'" )
2019-09-22 23:00:14 +02:00
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 "
2019-09-10 20:43:34 +02:00
limit := " order by honks.honkid desc limit 250"
butnotthose := " and convoy not in (select name from zonkers where userid = ? and wherefore = 'zonvoy' order by zonkerid desc limit 100)"
stmtOneXonk = preparetodie ( db , selecthonks + "where honks.userid = ? and xid = ?" )
2019-10-07 21:22:10 +02:00
stmtAnyXonk = preparetodie ( db , selecthonks + "where xid = ? order by honks.honkid asc" )
2019-09-10 20:43:34 +02:00
stmtOneBonk = preparetodie ( db , selecthonks + "where honks.userid = ? and xid = ? and what = 'bonk' and whofore = 2" )
stmtPublicHonks = preparetodie ( db , selecthonks + "where whofore = 2 and dt > ?" + limit )
2019-10-11 02:37:03 +02:00
stmtEventHonks = preparetodie ( db , selecthonks + "where (whofore = 2 or honks.userid = ?) and what = 'event'" + limit )
2019-10-20 20:36:55 +02:00
stmtUserHonks = preparetodie ( db , selecthonks + "where honks.honkid > ? and (whofore = 2 or whofore = ?) and username = ? and dt > ?" + limit )
2019-10-11 17:03:29 +02:00
myhonkers := " and honker in (select xid from honkers where userid = ? and (flavor = 'sub' or flavor = 'peep' or flavor = 'presub') and combos not like '% - %')"
2019-10-20 20:36:55 +02:00
stmtHonksForUser = preparetodie ( db , selecthonks + "where honks.honkid > ? and honks.userid = ? and dt > ?" + myhonkers + butnotthose + limit )
stmtHonksForUserFirstClass = preparetodie ( db , selecthonks + "where honks.honkid > ? and honks.userid = ? and dt > ? and (what <> 'tonk')" + myhonkers + butnotthose + limit )
stmtHonksForMe = preparetodie ( db , selecthonks + "where honks.honkid > ? and honks.userid = ? and dt > ? and whofore = 1" + butnotthose + limit )
stmtHonksISaved = preparetodie ( db , selecthonks + "where honks.honkid > ? and honks.userid = ? and flags & 4 order by honks.honkid desc" )
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 )
stmtHonksByXonker = preparetodie ( db , selecthonks + " where honks.honkid > ? and honks.userid = ? and (honker = ? or oonker = ?)" + butnotthose + limit )
stmtHonksByCombo = preparetodie ( db , selecthonks + "join honkers on honkers.xid = honks.honker where honks.honkid > ? and honks.userid = ? and honkers.combos like ?" + butnotthose + limit )
stmtHonksBySearch = preparetodie ( db , selecthonks + "where honks.honkid > ? and honks.userid = ? and (? = 0 or xid like ?) and (? = 0 or honks.honker = ? or honks.oonker = ?) and noise like ?" + butnotthose + limit )
stmtHonksByConvoy = preparetodie ( db , selecthonks + "where honks.honkid > ? and (honks.userid = ? or (? = -1 and whofore = 2)) and convoy = ?" + limit )
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 )
2019-09-10 20:43:34 +02:00
2019-10-02 23:10:01 +02:00
stmtSaveMeta = preparetodie ( db , "insert into honkmeta (honkid, genus, json) values (?, ?, ?)" )
2019-10-02 23:29:02 +02:00
stmtDeleteMeta = preparetodie ( db , "delete from honkmeta where honkid = ? and genus <> ?" )
2019-09-22 23:00:14 +02:00
stmtSaveHonk = preparetodie ( db , "insert into honks (userid, what, honker, xid, rid, dt, url, audience, noise, convoy, whofore, format, precis, oonker, flags) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" )
2019-09-16 23:00:50 +02:00
stmtDeleteHonk = preparetodie ( db , "delete from honks where honkid = ?" )
2019-09-18 19:46:42 +02:00
stmtUpdateHonk = preparetodie ( db , "update honks set precis = ?, noise = ?, format = ?, dt = ? where honkid = ?" )
2019-09-16 23:00:50 +02:00
stmtSaveOnt = preparetodie ( db , "insert into onts (ontology, honkid) values (?, ?)" )
stmtDeleteOnts = preparetodie ( db , "delete from onts where honkid = ?" )
stmtSaveDonk = preparetodie ( db , "insert into donks (honkid, fileid) values (?, ?)" )
stmtDeleteDonks = preparetodie ( db , "delete from donks where honkid = ?" )
2019-09-30 03:40:37 +02:00
stmtSaveFile = preparetodie ( db , "insert into filemeta (xid, name, description, url, media, local) values (?, ?, ?, ?, ?, ?)" )
2019-09-30 22:43:51 +02:00
blobdb := openblobdb ( )
2019-09-30 03:40:37 +02:00
stmtSaveFileData = preparetodie ( blobdb , "insert into filedata (xid, media, content) values (?, ?, ?)" )
stmtGetFileData = preparetodie ( blobdb , "select media, content from filedata where xid = ?" )
2019-09-10 20:43:34 +02:00
stmtFindXonk = preparetodie ( db , "select honkid from honks where userid = ? and xid = ?" )
2019-10-03 05:02:01 +02:00
stmtFindFile = preparetodie ( db , "select fileid, xid from filemeta where url = ? and local = 1" )
2019-10-25 23:31:48 +02:00
stmtWhatAbout = preparetodie ( db , "select userid, username, displayname, about, pubkey, options from users where username = ? and userid > 0" )
2019-09-10 20:43:34 +02:00
stmtSaveDub = preparetodie ( db , "insert into honkers (userid, name, xid, flavor) values (?, ?, ?, ?)" )
stmtAddDoover = preparetodie ( db , "insert into doovers (dt, tries, username, rcpt, msg) values (?, ?, ?, ?, ?)" )
stmtGetDoovers = preparetodie ( db , "select dooverid, dt from doovers" )
stmtLoadDoover = preparetodie ( db , "select tries, username, rcpt, msg from doovers where dooverid = ?" )
stmtZapDoover = preparetodie ( db , "delete from doovers where dooverid = ?" )
2019-09-28 23:40:24 +02:00
stmtThumbBiters = preparetodie ( db , "select userid, name, wherefore from zonkers" )
2019-09-10 20:43:34 +02:00
stmtFindZonk = preparetodie ( db , "select zonkerid from zonkers where userid = ? and name = ? and wherefore = 'zonk'" )
stmtGetZonkers = preparetodie ( db , "select zonkerid, name, wherefore from zonkers where userid = ? and wherefore <> 'zonk'" )
stmtSaveZonker = preparetodie ( db , "insert into zonkers (userid, name, wherefore) values (?, ?, ?)" )
stmtGetXonker = preparetodie ( db , "select info from xonkers where name = ? and flavor = ?" )
stmtSaveXonker = preparetodie ( db , "insert into xonkers (name, info, flavor) values (?, ?, ?)" )
stmtDeleteXonker = preparetodie ( db , "delete from xonkers where name = ? and flavor = ?" )
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" )
stmtUpdateFlags = preparetodie ( db , "update honks set flags = flags | ? where honkid = ?" )
stmtClearFlags = preparetodie ( db , "update honks set flags = flags & ~ ? where honkid = ?" )
2019-10-13 07:58:01 +02:00
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" )
2019-10-04 22:30:33 +02:00
stmtGetFilters = preparetodie ( db , "select hfcsid, json from hfcs where userid = ?" )
2019-10-07 02:26:21 +02:00
stmtSaveFilter = preparetodie ( db , "insert into hfcs (userid, json) values (?, ?)" )
stmtDeleteFilter = preparetodie ( db , "delete from hfcs where userid = ? and hfcsid = ?" )
2019-09-10 20:43:34 +02:00
}