stayhydrated23/copabot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

doc

Browse source
This commit is contained in:
silva guimaraes 2025-06-28 17:20:12 -03:00
parent cd650991bc
commit 88456e17ca
3 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/rentry.ml
View file

@ -20,8 +20,8 @@ let update_page content =
Cohttp_lwt.Body.of_form
[
("csrfmiddlewaretoken", [ value ]);
("edit_code", [ "foo perro bar caca" ]);
("metadata", ["ACCESS_RECOMMENDED_THEME=dark"]);
("edit_code", [ "foo perro bar caca" ]); (* TODO: use environmental variables *)
("metadata", [ "ACCESS_RECOMMENDED_THEME=dark" ]);
("text", [ content ]);
]
in
@ -31,7 +31,7 @@ let update_page content =
let h0 = init () in
let h1 = add h0 "Referer" "https://rentry.org" in
let h2 = add h1 "Content-Type" "application/x-www-form-urlencoded" in
let h3 = add h2 "User-Agent" "copabot/v0.1.0" in
let h3 = add h2 "User-Agent" "copabot/0.1.0" in
let hname, hvalue =
cookies
|> List.map (fun (x : string * Cookie.Set_cookie_hdr.t) ->