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

webapps.pastebin: Fix the url

fix-linux
Doug Coleman 2019-12-07 10:29:07 -08:00
parent 6bbdb5c12e
commit 1cb00c6f61
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/webapps/pastebin/pastebin.factor
View File

@ -4,7 +4,8 @@ USING: accessors calendar db db.tuples db.types furnace.actions
furnace.auth furnace.boilerplate furnace.recaptcha furnace.auth furnace.boilerplate furnace.recaptcha
furnace.redirection furnace.syndication html.forms furnace.redirection furnace.syndication html.forms
http.server.dispatchers http.server.responses kernel math.parser http.server.dispatchers http.server.responses kernel math.parser
namespaces sequences smtp sorting urls validators xmode.catalog ; namespaces present sequences smtp sorting urls validators
xmode.catalog ;
IN: webapps.pastebin IN: webapps.pastebin
TUPLE: pastebin < dispatcher ; TUPLE: pastebin < dispatcher ;
@ -156,6 +157,11 @@ M: annotation entity-url
pastebin-email-list get-global [ pastebin-email-list get-global [
drop drop
] [ ] [
clone
"https" >>protocol
"paste.factorcode.org" >>host
[ "$pastebin" ?head drop ] change-path
present
<email> swap >>to <email> swap >>to
swap >>body swap >>body
"factor-builds2@gmail.com" >>from "factor-builds2@gmail.com" >>from