WIP: Send a tweet

This commit is contained in:
Mylloon 2023-05-15 15:05:34 +02:00
parent 62b04965c3
commit fba2d3b4f9
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
2 changed files with 7 additions and 1 deletions

View file

@ -38,7 +38,11 @@ let rec check ctx =
in
if 0 = timeout
then (
print_endline "TODO: We are tweeting here. :)";
(* Tweet and returns to profile page *)
tweet
ctx
"This tweet is for the Twitter's CTO: Don't suspend my account for inactivity.";
go_to_profile ctx;
(* Wait the maximum time since we just tweeted *)
recheck max_time)
else (* Wait the amount of time calculated from the post *)

View file

@ -133,3 +133,5 @@ let find_latest_tweet ctx =
(* Returns the most recent date *)
Some (List.fold_left max min_int datetimes)
;;
let tweet _ctx _msg = ()