From: bw1 <redacted>
Date: Mon, 8 Jul 2019 09:58:24 +0000 (+0200)
Subject: [0x0st] add 0x0st.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=fd50a5006e70a7f46df125cad807fee01da10ac7;p=irssi-scripts.irssi.org.git

[0x0st] add 0x0st.pl
---

diff --git a/scripts/0x0st.pl b/scripts/0x0st.pl
new file mode 100644
index 0000000..be09c93
--- /dev/null
+++ b/scripts/0x0st.pl
@@ -0,0 +1,178 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use HTTP::Request::Common;
+use LWP::UserAgent;
+use Storable qw/store_fd fd_retrieve/;
+use File::Glob qw/:bsd_glob/;
+
+$VERSION = '0.01';
+%IRSSI = (
+    authors	=> 'bw1',
+    contact	=> 'bw1@aol.at',
+    name	=> '0x0st',
+    description	=> 'upload file to https://0x0.st/',
+    license	=> 'ISC',
+    url		=> 'https://scripts.irssi.org/',
+    changed	=> '2019-07-08',
+    modules => 'HTTP::Request::Common LWP::UserAgent Storable File::Glob',
+    commands=> '0x0st',
+);
+
+my $help = << "END";
+%9Name%9
+  $IRSSI{name}
+%9Version%9
+  $VERSION
+%9Syntax%9
+  /0x0st [-p] [-s|-u] [URL|file]
+%9Description%9
+  $IRSSI{description}
+    -p past url to channel
+    -s shorten url
+    -u file from url
+%9See also%9
+  https://0x0.st/
+  https://github.com/lachs0r/0x0
+END
+
+my $test_str;
+
+my $base_uri;
+
+my %bg_process= ();
+
+sub background {
+	my ($cmd) =@_;
+	my ($fh_r, $fh_w);
+	pipe $fh_r, $fh_w;
+	my $pid = fork();
+	if ($pid ==0 ) {
+		my @res;
+		@res= &{$cmd->{cmd}}(@{$cmd->{args}});
+		store_fd \@res, $fh_w;
+		close $fh_w;
+		POSIX::_exit(1);
+	} else {
+		$cmd->{fh_r}=$fh_r;
+		Irssi::pidwait_add($pid);
+		$bg_process{$pid}=$cmd;
+	}
+}
+
+sub sig_pidwait {
+	my ($pid, $status) = @_;
+	if (exists $bg_process{$pid}) {
+		my @res= @{ fd_retrieve($bg_process{$pid}->{fh_r})};
+		$bg_process{$pid}->{res}=[@res];
+		if (exists $bg_process{$pid}->{last}) {
+			foreach my $p (@{$bg_process{$pid}->{last}}) {
+				&$p($bg_process{$pid});
+			}
+		} else {
+			Irssi::print(join(" ",@res), MSGLEVEL_CLIENTCRAP);
+		}
+		delete $bg_process{$pid};
+	}
+}
+
+sub upload {
+	my ($filename) = @_;
+	my $ua = LWP::UserAgent->new(agent=>'wget');
+	my $filename = bsd_glob $filename;
+	if (-e $filename) {
+		my $re = $ua->request(POST $base_uri,
+			Content_Type => 'form-data',
+			Content =>
+				{file=>[$filename]}
+		);
+		my $res= $re->content;
+		chomp $res;
+		return $res;
+	}
+}
+
+sub url {
+	my ($url) = @_;
+	my $ua = LWP::UserAgent->new(agent=>'wget');
+	my $re = $ua->request(POST $base_uri,
+			{url=> $url}
+	);
+	my $res= $re->content;
+	chomp $res;
+	return $res;
+}
+
+sub shorten {
+	my ($url) = @_;
+	my $ua = LWP::UserAgent->new(agent=>'wget');
+	my $re = $ua->request(POST $base_uri,
+			{shorten=> $url}
+	);
+	my $res= $re->content;
+	chomp $res;
+	return $res;
+}
+
+sub past2channel {
+	my ($cmd) = @_;
+	my $witem = $cmd->{witem};
+	if (defined $witem) {
+		$witem->command("msg * $cmd->{res}[0]");
+	} else {
+		Irssi::print($cmd->{res}[0],MSGLEVEL_CLIENTCRAP);
+	}
+}
+
+sub cmd {
+	my ($args, $server, $witem)=@_;
+	my ($opt, $arg) = Irssi::command_parse_options($IRSSI{'name'}, $args);
+
+	if (length($args) >0 ) {
+		my $cmd;
+		if (exists $opt->{p}) {
+			$cmd->{last}=[\&past2channel];
+			$cmd->{witem}=$witem;
+		}
+		if (exists $opt->{u}) {
+			$cmd->{cmd}=\&url;
+			$cmd->{args}=[$arg];
+			background( $cmd );
+		} elsif (exists $opt->{s}) {
+			$cmd->{cmd}=\&shorten;
+			$cmd->{args}=[$arg];
+			background( $cmd );
+		} else {
+			$cmd->{cmd}=\&upload;
+			$cmd->{args}=[$arg];
+			background( $cmd );
+		}
+	} else {
+		cmd_help($IRSSI{'name'});
+	}
+}
+
+sub cmd_help {
+	my ($args, $server, $witem)=@_;
+	$args=~ s/\s+//g;
+	if ($IRSSI{name} eq $args) {
+		Irssi::print($help, MSGLEVEL_CLIENTCRAP);
+		Irssi::signal_stop();
+	}
+}
+
+sub sig_setup_changed {
+	$base_uri= Irssi::settings_get_str($IRSSI{name}.'_base_uri');
+}
+
+Irssi::signal_add('setup changed', \&sig_setup_changed);
+Irssi::signal_add('pidwait', \&sig_pidwait);
+
+Irssi::settings_add_str($IRSSI{name} ,$IRSSI{name}.'_base_uri', 'https://0x0.st/');
+
+Irssi::command_bind($IRSSI{name}, \&cmd);
+Irssi::command_bind('help', \&cmd_help);
+Irssi::command_set_options($IRSSI{name},"p u s");
+
+sig_setup_changed();