From 1ece3cdaea5e682ddd261f6b4f8e25810079cc59 Mon Sep 17 00:00:00 2001 From: Kirill Poletaev Date: Thu, 6 Apr 2023 21:10:42 +0300 Subject: [PATCH] Initial commit --- .gitignore | 564 ++++++++++++++++++ .../.idea/.gitignore | 13 + .../.idea/encodings.xml | 4 + .../.idea/indexLayout.xml | 8 + .../.idea.Keroosha.SilencerBot/.idea/misc.xml | 7 + .../.idea.Keroosha.SilencerBot/.idea/vcs.xml | 7 + Keroosha.SilencerBot.sln | 16 + Keroosha.SilencerBot/Database.fs | 71 +++ Keroosha.SilencerBot/Env.fs | 32 + .../Keroosha.SilencerBot.fsproj | 26 + Keroosha.SilencerBot/Program.fs | 25 + Keroosha.SilencerBot/Telegram.fs | 2 + README.md | 0 13 files changed, 775 insertions(+) create mode 100644 .gitignore create mode 100644 .idea/.idea.Keroosha.SilencerBot/.idea/.gitignore create mode 100644 .idea/.idea.Keroosha.SilencerBot/.idea/encodings.xml create mode 100644 .idea/.idea.Keroosha.SilencerBot/.idea/indexLayout.xml create mode 100644 .idea/.idea.Keroosha.SilencerBot/.idea/misc.xml create mode 100644 .idea/.idea.Keroosha.SilencerBot/.idea/vcs.xml create mode 100644 Keroosha.SilencerBot.sln create mode 100644 Keroosha.SilencerBot/Database.fs create mode 100644 Keroosha.SilencerBot/Env.fs create mode 100644 Keroosha.SilencerBot/Keroosha.SilencerBot.fsproj create mode 100644 Keroosha.SilencerBot/Program.fs create mode 100644 Keroosha.SilencerBot/Telegram.fs create mode 100644 README.md diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..c7ad158 --- /dev/null +++ b/.gitignore @@ -0,0 +1,564 @@ +# Created by https://www.toptal.com/developers/gitignore/api/csharp,fsharp,node,visualstudiocode +# Edit at https://www.toptal.com/developers/gitignore?templates=csharp,fsharp,node,visualstudiocode + +### Csharp ### +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/main/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.tlog +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio 6 auto-generated project file (contains which files were open etc.) +*.vbp + +# Visual Studio 6 workspace and project file (working project files containing files to include in project) +*.dsw +*.dsp + +# Visual Studio 6 technical files + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# Visual Studio History (VSHistory) files +.vshistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd + +# VS Code files for those working on multiple tools +.vscode/* +!.vscode/settings.json +!.vscode/tasks.json +!.vscode/launch.json +!.vscode/extensions.json +*.code-workspace + +# Local History for Visual Studio Code +.history/ + +# Windows Installer files from build outputs +*.cab +*.msi +*.msix +*.msm +*.msp + +# JetBrains Rider +*.sln.iml + +### fsharp ### +lib/debug +lib/release +Debug +obj +bin +/build/ +*.exe +!.paket/paket.bootstrapper.exe +.fake + +### Node ### +# Logs +logs +npm-debug.log* +yarn-debug.log* +yarn-error.log* +lerna-debug.log* +.pnpm-debug.log* + +# Diagnostic reports (https://nodejs.org/api/report.html) +report.[0-9]*.[0-9]*.[0-9]*.[0-9]*.json + +# Runtime data +pids +*.pid +*.seed +*.pid.lock + +# Directory for instrumented libs generated by jscoverage/JSCover +lib-cov + +# Coverage directory used by tools like istanbul +coverage +*.lcov + +# nyc test coverage +.nyc_output + +# Grunt intermediate storage (https://gruntjs.com/creating-plugins#storing-task-files) +.grunt + +# Bower dependency directory (https://bower.io/) +bower_components + +# node-waf configuration +.lock-wscript + +# Compiled binary addons (https://nodejs.org/api/addons.html) +build/Release + +# Dependency directories +jspm_packages/ + +# Snowpack dependency directory (https://snowpack.dev/) +web_modules/ + +# TypeScript cache +*.tsbuildinfo + +# Optional npm cache directory +.npm + +# Optional eslint cache +.eslintcache + +# Optional stylelint cache +.stylelintcache + +# Microbundle cache +.rpt2_cache/ +.rts2_cache_cjs/ +.rts2_cache_es/ +.rts2_cache_umd/ + +# Optional REPL history +.node_repl_history + +# Output of 'npm pack' +*.tgz + +# Yarn Integrity file +.yarn-integrity + +# dotenv environment variable files +.env +.env.development.local +.env.test.local +.env.production.local +.env.local + +# parcel-bundler cache (https://parceljs.org/) +.cache +.parcel-cache + +# Next.js build output +.next +out + +# Nuxt.js build / generate output +.nuxt +dist + +# Gatsby files +.cache/ +# Comment in the public line in if your project uses Gatsby and not Next.js +# https://nextjs.org/blog/next-9-1#public-directory-support +# public + +# vuepress build output +.vuepress/dist + +# vuepress v2.x temp and cache directory +.temp + +# Docusaurus cache and generated files +.docusaurus + +# Serverless directories +.serverless/ + +# FuseBox cache +.fusebox/ + +# DynamoDB Local files +.dynamodb/ + +# TernJS port file +.tern-port + +# Stores VSCode versions used for testing VSCode extensions +.vscode-test + +# yarn v2 +.yarn/cache +.yarn/unplugged +.yarn/build-state.yml +.yarn/install-state.gz +.pnp.* + +### Node Patch ### +# Serverless Webpack directories +.webpack/ + +# Optional stylelint cache + +# SvelteKit build / generate output +.svelte-kit + +### VisualStudioCode ### +!.vscode/*.code-snippets + +# Local History for Visual Studio Code + +# Built Visual Studio Code Extensions +*.vsix + +### VisualStudioCode Patch ### +# Ignore all local history of files +.history +.ionide + +# End of https://www.toptal.com/developers/gitignore/api/csharp,fsharp,node,visualstudiocode \ No newline at end of file diff --git a/.idea/.idea.Keroosha.SilencerBot/.idea/.gitignore b/.idea/.idea.Keroosha.SilencerBot/.idea/.gitignore new file mode 100644 index 0000000..364d31c --- /dev/null +++ b/.idea/.idea.Keroosha.SilencerBot/.idea/.gitignore @@ -0,0 +1,13 @@ +# Default ignored files +/shelf/ +/workspace.xml +# Rider ignored files +/modules.xml +/projectSettingsUpdater.xml +/contentModel.xml +/.idea.Keroosha.SilencerBot.iml +# Editor-based HTTP Client requests +/httpRequests/ +# Datasource local storage ignored files +/dataSources/ +/dataSources.local.xml diff --git a/.idea/.idea.Keroosha.SilencerBot/.idea/encodings.xml b/.idea/.idea.Keroosha.SilencerBot/.idea/encodings.xml new file mode 100644 index 0000000..df87cf9 --- /dev/null +++ b/.idea/.idea.Keroosha.SilencerBot/.idea/encodings.xml @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/.idea/.idea.Keroosha.SilencerBot/.idea/indexLayout.xml b/.idea/.idea.Keroosha.SilencerBot/.idea/indexLayout.xml new file mode 100644 index 0000000..7b08163 --- /dev/null +++ b/.idea/.idea.Keroosha.SilencerBot/.idea/indexLayout.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/.idea/.idea.Keroosha.SilencerBot/.idea/misc.xml b/.idea/.idea.Keroosha.SilencerBot/.idea/misc.xml new file mode 100644 index 0000000..30bab2a --- /dev/null +++ b/.idea/.idea.Keroosha.SilencerBot/.idea/misc.xml @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/.idea/.idea.Keroosha.SilencerBot/.idea/vcs.xml b/.idea/.idea.Keroosha.SilencerBot/.idea/vcs.xml new file mode 100644 index 0000000..288b36b --- /dev/null +++ b/.idea/.idea.Keroosha.SilencerBot/.idea/vcs.xml @@ -0,0 +1,7 @@ + + + + + + + \ No newline at end of file diff --git a/Keroosha.SilencerBot.sln b/Keroosha.SilencerBot.sln new file mode 100644 index 0000000..9f91e88 --- /dev/null +++ b/Keroosha.SilencerBot.sln @@ -0,0 +1,16 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Keroosha.SilencerBot", "Keroosha.SilencerBot\Keroosha.SilencerBot.fsproj", "{63842445-93CE-448E-8438-EA57722BA81B}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {63842445-93CE-448E-8438-EA57722BA81B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {63842445-93CE-448E-8438-EA57722BA81B}.Debug|Any CPU.Build.0 = Debug|Any CPU + {63842445-93CE-448E-8438-EA57722BA81B}.Release|Any CPU.ActiveCfg = Release|Any CPU + {63842445-93CE-448E-8438-EA57722BA81B}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection +EndGlobal diff --git a/Keroosha.SilencerBot/Database.fs b/Keroosha.SilencerBot/Database.fs new file mode 100644 index 0000000..9a4262c --- /dev/null +++ b/Keroosha.SilencerBot/Database.fs @@ -0,0 +1,71 @@ +module Keroosha.SilencerBot.Database + +open System +open FluentMigrator +open FluentMigrator.Runner; +open LinqToDB +open LinqToDB.Data +open LinqToDB.DataProvider +open LinqToDB.Mapping +open Microsoft.Extensions.DependencyInjection + +type JobState = + | [] Failed = -1 + | [] New = 0 + | [] Downloading = 1 + | [] Executing = 2 + | [] UploadingResults = 3 + | [] Done = 4 + +[] +[] +type User = { + [] Id: Guid + [] TgId: int64 + [] Name: string +} + +[] +[] +type UserJobs = { + [] Id: Guid + [] UserId: Guid + [] State: JobState + [] Context: string +} + +type DbContext(connectionString: string, provider: IDataProvider) = + inherit DataConnection(provider, connectionString) + member this.Users = this.GetTable(); + member this.UserJobs = this.GetTable(); + +let migrateApp (connectionString: string) = + use serviceProvider = + ServiceCollection() + .AddFluentMigratorCore() + .ConfigureRunner(fun x -> + x.AddPostgres() + .WithMigrationsIn(typeof.Assembly) + .WithGlobalConnectionString(connectionString) |> ignore + ) + .BuildServiceProvider(false) + use scope = serviceProvider.CreateScope() + serviceProvider.GetRequiredService().MigrateUp() + +[] +type InitialMigration() = + inherit AutoReversingMigration() + override this.Up() = + this.Create.Table("Users") + .WithColumn("Id").AsGuid().PrimaryKey() + .WithColumn("TgId").AsInt64().NotNullable() + .WithColumn("Name").AsString().NotNullable() + |> ignore + this.Create.Table("UserJobs") + .WithColumn("Id").AsGuid().PrimaryKey() + .WithColumn("UserId").AsGuid().ForeignKey("Users", "Id") + .WithColumn("State").AsString().NotNullable().WithDefaultValue("New") + .WithColumn("Context").AsCustom("JSONB").NotNullable() + |> ignore + () + \ No newline at end of file diff --git a/Keroosha.SilencerBot/Env.fs b/Keroosha.SilencerBot/Env.fs new file mode 100644 index 0000000..9176972 --- /dev/null +++ b/Keroosha.SilencerBot/Env.fs @@ -0,0 +1,32 @@ +module Keroosha.SilencerBot.Env +open System +open System.IO +open System.Text.Json +open Serilog + +[] +module Logging = + let logger = + let config = LoggerConfiguration() + config.WriteTo.Console().CreateLogger() + +type public BotConfig = { + token: string + relayUrl: string + chanelId: int64 + adminChatId: int64 + youtubeDlUrl: string + tmpYtdlSavePath: string Option +} + +let private readConfig = + File.ReadAllText >> JsonSerializer.Deserialize + +let public createConfig (name: string) = + match Environment.GetEnvironmentVariable(name) with + | null -> + Logging.logger.Error("Missing env") + ApplicationException("Missing config path env") |> raise + | path -> + Logging.logger.Information("Read config from env") + readConfig path \ No newline at end of file diff --git a/Keroosha.SilencerBot/Keroosha.SilencerBot.fsproj b/Keroosha.SilencerBot/Keroosha.SilencerBot.fsproj new file mode 100644 index 0000000..747ed28 --- /dev/null +++ b/Keroosha.SilencerBot/Keroosha.SilencerBot.fsproj @@ -0,0 +1,26 @@ + + + + Exe + net7.0 + + + + + + + + + + + + + + + + + + + + + diff --git a/Keroosha.SilencerBot/Program.fs b/Keroosha.SilencerBot/Program.fs new file mode 100644 index 0000000..97d73fb --- /dev/null +++ b/Keroosha.SilencerBot/Program.fs @@ -0,0 +1,25 @@ +// For more information see https://aka.ms/fsharp-console-apps +open System +open Funogram.Telegram +open Funogram.Telegram.Bot +open Funogram.Tools +open Keroosha.SilencerBot + +type Config = { + connectionString: string + saveDir: string +} + +let config = Env.createConfig "SILENCER_BOT_CONFIG_PATH" + +let handleUpdate (ctx: UpdateContext) = + () + +Console.CancelKeyPress |> Event.add (fun _ -> Environment.Exit <| 0) + +async { + let config = Config.defaultConfig |> Config.withReadTokenFromFile + let! _ = Api.deleteWebhookBase () |> Api.makeRequestAsync config + return! startBot config handleUpdate None +} |> Async.RunSynchronously + diff --git a/Keroosha.SilencerBot/Telegram.fs b/Keroosha.SilencerBot/Telegram.fs new file mode 100644 index 0000000..b818d07 --- /dev/null +++ b/Keroosha.SilencerBot/Telegram.fs @@ -0,0 +1,2 @@ +module Keroosha.SilencerBot.Telegram + diff --git a/README.md b/README.md new file mode 100644 index 0000000..e69de29