steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lookup userid before putting into db

master
Steve Ayerhart 2022-01-29 12:25:36 -05:00
parent 5f4a3b7397
commit 41c092846d
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bonerbonerboner/services/link-logger/link-logger.factor
View File

@ -29,7 +29,7 @@ link "links"
[ f ] 2dip dup 0 now dup link boa ; [ f ] 2dip dup 0 now dup link boa ;
: <repost> ( link who -- link ) : <repost> ( link who -- link )
[ dup repost-count>> 1 + >>repost-count ] dip >>updated-by now >>date-updated ; slack-lookup-user [ dup repost-count>> 1 + >>repost-count ] dip >>updated-by now >>date-updated ;
: add-link ( url who -- ) : add-link ( url who -- )
ensure-link-logger [ <link> insert-tuple ] with-bbb-db ; ensure-link-logger [ <link> insert-tuple ] with-bbb-db ;

11
bonerbonerboner/services/mississippis/mississippis.factor
View File

@ -21,14 +21,13 @@ mississippis "mississippis"
{ "requested-on" "requested_on" TIMESTAMP } { "requested-on" "requested_on" TIMESTAMP }
} define-persistent } define-persistent
: parse-mississippi-request ( str -- standard? terminal )
>lower integer-parser " standard" token optional [ >boolean ] action 2seq parse
[ second ] [ first ] bi ;
: <mississippis> ( event -- mississippis ) : <mississippis> ( event -- mississippis )
[ f ] dip [ f ] dip
[ [ "text" of parse-mississippi-request ]
"text" of
>lower
integer-parser " standard" token [ >boolean ] action optional 2seq parse
[ second ] [ first ] bi
]
[ "user" of slack-lookup-user ] [ "user" of slack-lookup-user ]
[ "event_ts" of string>number unix-time>timestamp ] tri [ "event_ts" of string>number unix-time>timestamp ] tri
mississippis boa ; mississippis boa ;