Merge branch 'master' of github.com:R-unic/cosmo

Author: R-unic

src/cosmo/runtime/interpreter.cr

@@ -54,6 +54,7 @@ class Cosmo::Interpreter
     importable("system", Intrinsic::SystemLib.new(self))
     importable("file", Intrinsic::FileLib.new(self))
     importable("socket", Intrinsic::SocketLib.new(self))
+    importable("webhook", Intrinsic::WebhookLib.new(self))
   end
 
   private def importable(name : String, library : Intrinsic::Lib)

src/cosmo/runtime/intrinsic.cr

@@ -53,4 +53,4 @@ require "./intrinsic/lib/json"
 require "./intrinsic/lib/system"
 require "./intrinsic/lib/socket"
 require "./intrinsic/lib/file"
-
+require "./intrinsic/lib/webhook"

src/cosmo/runtime/intrinsic/lib/webhook.cr

@@ -0,0 +1,39 @@
+require "http/client"
+require "uri"
+require "json"
+
+module Cosmo
+  module Intrinsic
+    class WebhookLib < Lib
+      def inject : Nil
+        discord_webhook = {} of String => IFunction
+        discord_webhook["send"] = Send.new(@i)
+
+        @i.declare_intrinsic("string->Function", "DiscordWebhook", discord_webhook)
+      end
+
+      class Send < IFunction
+        def arity : Range(UInt32, UInt32)
+          2.to_u .. 2.to_u
+        end
+
+        def call(args : Array(ValueType)) : String
+          webhook_url = args[0].to_s
+          payload = { "content" => args[1].to_s }
+
+          headers = HTTP::Headers{"Content-Type" => "application/json"}
+          response = HTTP::Client.post(url: webhook_url, form: payload, headers: headers, tls: true)
+
+          if response.status_code == 301
+            new_location = response.headers["Location"]
+            return call([new_location, args[1]])
+          elsif response.status_code == 204
+            return "Message sent successfully!"
+          else
+            Logger.report_error("Failed to send webhook message", "Status code #{response.status_code}", token("Webhook->send"))
+          end
+        end
+      end
+    end
+  end
+end