Overview
| Comment: | make vip prefix argument in sbbs-compose-create work in /mona/ |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | ben-hotfixes |
| Files: | files | file ages | folders |
| SHA3-256: |
c19493c97a88c56190d1e974b78f71c0 |
| User & Date: | anon on 2023-09-09 09:54:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-09-09
| ||
| 10:02 | add the "ornamentum" hash to allow posting out of the box (should be in a variable instead) Leaf check-in: 93422a4832 user: anon tags: ben-hotfixes | |
| 09:54 | make vip prefix argument in sbbs-compose-create work in /mona/ check-in: c19493c97a user: anon tags: ben-hotfixes | |
| 09:17 | fix VIP/sage function check-in: d9a94adf9b user: anon tags: ben-hotfixes | |
Changes
Modified sbbs.el from [bf2e481917] to [fca4400146].
708 709 710 711 712 713 714 715 716 717 718 719 720 721 |
'(("Content-Type" . "application/x-www-form-urlencoded")))
(url-request-data
(url-build-query-string
`((epistula ,(buffer-string))
(ornamentum "") (name "") (message "")
(frontpage ,(if sbbs--thread-id "true" "false"))
,(if vip `(vip "on") nil)
. ,(and (not sbbs--thread-id)
`((titulus ,(read-string "Headline: ")))))))
(url (if sbbs--thread-id
(sbbs--board-url (format "%d/post" sbbs--thread-id))
(sbbs--board-url "/post"))))
(url-retrieve url (lambda (status buf)
(if (plist-get status :error)
|
> |
708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 |
'(("Content-Type" . "application/x-www-form-urlencoded")))
(url-request-data
(url-build-query-string
`((epistula ,(buffer-string))
(ornamentum "") (name "") (message "")
(frontpage ,(if sbbs--thread-id "true" "false"))
,(if vip `(vip "on") nil)
(inscriptio ,(if vip "sage" ""))
. ,(and (not sbbs--thread-id)
`((titulus ,(read-string "Headline: ")))))))
(url (if sbbs--thread-id
(sbbs--board-url (format "%d/post" sbbs--thread-id))
(sbbs--board-url "/post"))))
(url-retrieve url (lambda (status buf)
(if (plist-get status :error)
|