commit 968a5afd42ee7bbde7076ec10d3c16fb7353e89a
Author: qorg11 <qorg@vxempire.xyz>
Date:   Thu Oct 7 14:07:30 2021 +0200

    Initial commit

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;
+}