use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '1.00';
%IRSSI = (
    authors     => 'rmrmg',
    contact     => 'rmrmg (at) wp.pl',
    name        => 'My First Script',
    description => 'This script allows ' .
                   'you to print Hello ' .
                   'World using a command.',
    license     => 'Public Domain',
);

my @glinki;
#Irssi::command_bind te => sub { print 'test' }; #dodaje komende te
Irssi::command_bind olink => sub { system("firefox -remote 'openURL($glinki[0],new-tab)'");
shift @glinki;};

Irssi::command_bind slink => sub { foreach $b (@glinki) {print "$b"}
print "koniec" };

Irssi::command_bind dlink => sub { shift @glinki;};

Irssi::signal_add("message public", "funkcja");
sub funkcja {
my ($server, $msg, $nick, $adress, $target) = @_;
system("echo \"irc $nick\" | osd_cat -Aright -o 800 -cred -c orange -i +50 --font=\"-*-bullpen 3d-medium-r-*-*-52-*-*-*-*-*-iso8859-2\"&");
 if ($msg =~ /http/) {
  my @link=split(' ', $msg);
  foreach $a (@link) {
   if ($a =~ /http/) 
    { push @glinki, $a}
  }
 }
}