Adding upstream version 20231031.upstream/20231031upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 47 insertions, 0 deletions

diff --git a/scripts/tinyurl.pl b/scripts/tinyurl.pl
new file mode 100644
index 0000000..30e4b5b
--- /dev/null
+++ b/scripts/tinyurl.pl
@@ -0,0 +1,47 @@
+#
+# by Atoms
+
+use strict;
+use WWW::Shorten::TinyURL;
+use WWW::Shorten 'TinyURL';
+
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind active_win);
+$VERSION = '1.1';
+%IRSSI = (
+    authors	=> 'Atoms',
+    contact	=> 'atoms@tups.lv',
+    patch   => 'spowers@dimins.com',
+    name	=> 'tinyurl',
+    description	=> 'create a tinyurl from a long one',
+    license	=> 'GPL',
+);
+
+command_bind(
+    tinyurl => sub {
+        my ($msg, $server, $witem) = @_;
+        my $answer = tinyurl($msg);
+        
+        if ($answer) {
+            print CLIENTCRAP "$answer";
+
+            if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
+  	            $witem->command("MSG " . $witem->{name} ." ". $answer);
+            }
+        }
+    }
+);
+
+sub tinyurl {
+    my $url = shift;
+
+    my $res = makeashorterlink($url);
+
+    if (defined $res) {
+        return $res;
+    } else {
+        print CLIENTCRAP "ERROR: tinyurl: tinyurl is down or not pingable";
+        return "";
+    }
+}