sbbs.el

Check-in [93422a4832]
Login
Overview
Comment:add the "ornamentum" hash to allow posting out of the box (should be in a variable instead)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | ben-hotfixes
Files: files | file ages | folders
SHA3-256: 93422a4832c133e73138e44d7c37dea4cf8167b44bbb010cb790bb80ff9bfc93
User & Date: anon on 2023-09-09 10:02:00
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
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [fca4400146] to [8483c098a2].

   705    705     (let ((board sbbs--board)
   706    706           (url-request-method "POST")
   707    707           (url-request-extra-headers
   708    708            '(("Content-Type" . "application/x-www-form-urlencoded")))
   709    709           (url-request-data
   710    710            (url-build-query-string
   711    711             `((epistula ,(buffer-string))
   712         -            (ornamentum "") (name "") (message "")
          712  +            (ornamentum "3b3738ae1c9295d272cec84ecf7af5c8") (name "") (message "")
   713    713               (frontpage ,(if sbbs--thread-id "true" "false"))
   714    714               ,(if vip `(vip "on") nil)
   715    715               (inscriptio ,(if vip "sage" ""))
   716    716               . ,(and (not sbbs--thread-id)
   717    717                       `((titulus ,(read-string "Headline: ")))))))
   718    718           (url (if sbbs--thread-id
   719    719                    (sbbs--board-url (format "%d/post" sbbs--thread-id))