From 968a5afd42ee7bbde7076ec10d3c16fb7353e89a Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Thu, 7 Oct 2021 14:07:30 +0200
Subject: [PATCH] Initial commit

---
 README.md |  8 ++++++++
 upload.pl | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 README.md
 create mode 100644 upload.pl

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..21397f1
--- /dev/null
+++ b/README.md
@@ -0,0 +1,8 @@
+# weechat scripts
+
+There are some weechat scripts i've written for fun, or because i was
+lazy to open another terminal to run a command and they save time so
+they can be useful. They are all written in Perl, so to install them,
+just run `/perl load <script>` and it should work.
+
+
diff --git a/upload.pl b/upload.pl
new file mode 100644
index 0000000..8c2ecd9
--- /dev/null
+++ b/upload.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+# upload.pl
+#
+# weechat pluging for uploading files to a lainsafe instance
+# license: WTFPL
+
+use LWP::UserAgent;
+
+our $returned_link;
+
+weechat::register("upload.pl","qorg11","0.1","WTFPL","Uploads a file to a lainsafe instance","","");
+
+my $hook = weechat::hook_command("upload","Uploads a file to lainsafe instance","file path","Does that","","upload_file_cb","");
+
+sub upload_file_cb($$$) {
+	my $instance = "https://ls.qorg11.net";
+	my ($data, $buffer, $file_path) = @_;
+	my @chars = split("",$file_path);
+	if($chars[0] eq "~") {
+		my $home = $ENV{HOME};
+		$file_path =~ s/~/$home/;
+	}
+	my $ua = LWP::UserAgent->new;
+	$ua->agent("weechat :D");
+	my $req = $ua->post($instance,
+					Content_Type=>'form-data',
+					Content => ["file"=>[$file_path],]
+				    );
+	$returned_link = $req->{_content};
+	weechat::command($buffer,$returned_link);
+	return weechat::WEECHAT_RC_OK;
+}