autolinks.pl

use strict;
use warnings;

use vars qw($VERSION %IRSSI);

$VERSION = '1.0';
%IRSSI   = (
  authors     => 'Alan Berndt',
  contact     => '[email protected]',
  description => 'Automatically opens links for lazy turds',
  license     => 'MIT',
  name        => 'autolinks',
  url         => 'https://gist.github.com/bentglasstube/d09bb4b75151c4d0d794',
);

sub privmsg {
  my ($server, $data, $nick, $address) = @_;
  my ($target, $text) = split / :/, $data, 2;

  system('xdg-open', $1) while $text =~ m{(https?://\S+)}gc;
}

Irssi::signal_add('event privmsg' => 'privmsg');