Adding upstream version 20231031.upstream/20231031upstream

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

1 files changed, 71 insertions, 0 deletions

diff --git a/scripts/urlgrab.pl b/scripts/urlgrab.pl
new file mode 100644
index 0000000..5f83a30
--- /dev/null
+++ b/scripts/urlgrab.pl
@@ -0,0 +1,71 @@
+#!/usr/bin/perl -w
+#
+# Settings:
+#   /SET urlgrab_command <command>
+#     Command to execute when opening URLs
+#     Default: xdg-open '%s' > /dev/null 2>&1
+#
+
+use strict;
+use Time::Piece;
+use Irssi 20010120.0250 ();
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.5";
+%IRSSI = (
+    authors     => 'David Leadbeater, Thorsten Scherf',
+    contact     => 'dgl@dgl.cx, tscherf@redhat.com',
+    name        => 'urlgrab',
+    description => 'Captures urls said in channel and private messages and saves them to a file, also adds a /url command which loads the last said url into a browser.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.cx/',
+);
+
+my $lasturl;
+
+# Change the file path below if needed
+my $file = "$ENV{HOME}/.urllog";
+
+sub url_public{
+   my($server,$text,$nick,$hostmask,$channel)=@_;
+   my $url = find_url($text);
+   url_log($nick, $channel, $url) if defined $url;
+}
+
+sub url_private{
+   my($server,$text,$nick,$hostmask)=@_;
+   my $url = find_url($text);
+   url_log($nick, $server->{nick}, $url) if defined $url;
+}
+
+sub url_cmd{
+   if(!$lasturl){
+	  Irssi::print("No url captured yet");
+	  return;
+   }
+   system(sprintf(Irssi::settings_get_str("urlgrab_command"), $lasturl));
+}
+
+sub find_url {
+   my $text = shift;
+   if($text =~ /((ftp|http|https):\/\/[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
+	  return $1;
+   }elsif($text =~ /(www\.[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
+	  return "http://".$1;
+   }
+   return undef;
+}
+
+sub url_log{
+   my $t = localtime;
+   my($where,$channel,$url) = @_;
+   return if lc $url eq lc $lasturl; # a tiny bit of protection from spam/flood
+   $lasturl = $url;
+   open(URLLOG, ">>", $file) or return;
+   print URLLOG $t->datetime . " $where $channel $lasturl\n";
+   close(URLLOG);
+}
+
+Irssi::settings_add_str("misc", "urlgrab_command", "xdg-open '%s' > /dev/null 2>&1");
+Irssi::signal_add_last("message public", "url_public");
+Irssi::signal_add_last("message private", "url_private");
+Irssi::command_bind("url", "url_cmd");