35 lines
1.2 KiB
Forth
35 lines
1.2 KiB
Forth
// For more information see https://aka.ms/fsharp-console-apps
|
|
|
|
open System
|
|
open System.Net.Http
|
|
open System.Threading
|
|
open System.Threading.Tasks
|
|
open PublishHelperBot.Handlers
|
|
open PublishHelperBot.Environment
|
|
open Telegram.Bot
|
|
open Telegram.Bot.Polling
|
|
open Telegram.Bot.Types
|
|
open Telegram.Bot.Types.Enums
|
|
|
|
let CreateBot (config: BotConfig, http: HttpClient) = TelegramBotClient(config.token, http)
|
|
let config = CreateConfig <| "SBPB_CONFIG_PATH";
|
|
let botClient = CreateBot <| (config, new HttpClient())
|
|
let startDate = DateTime.UtcNow
|
|
let isObsoleteUpdate (u: Update) = u.Type = UpdateType.Message && u.Message.Date < startDate;
|
|
|
|
let updateHandle (bc: ITelegramBotClient) (u: Update) (ct: CancellationToken): Task =
|
|
match u with
|
|
| _ when isObsoleteUpdate u -> Task.CompletedTask
|
|
| _ when RelayMatch <| (u, config) -> RelayHandler <| (u, config, bc)
|
|
| _ -> Task.CompletedTask
|
|
|
|
let handlePollingError (bc: ITelegramBotClient) (e: Exception) (t: CancellationToken) =
|
|
printfn $"{e.Message}\n{e.StackTrace}"
|
|
Task.CompletedTask
|
|
|
|
let receiverOptions = ReceiverOptions(AllowedUpdates = Array.zeroCreate<UpdateType> 0)
|
|
|
|
botClient.StartReceiving(updateHandle,handlePollingError,receiverOptions)
|
|
|
|
printf "Я родился"
|
|
Console.ReadKey() |> ignore |