irssi-netrc.pl

# Uses password from .netrc when stablishing connections

use strict;
use warnings;
use vars qw($VERSION %IRSSI);

use Irssi;
use Data::Dumper;

$VERSION = '0.01';

%IRSSI = (
  authors     => 'Eloy Espinaco',
  contact     => '[email protected]',
  name        => 'irssi-netrc',
  description => 'Use netrc to store passwords',
  license     => 'GPL',
);

sub handle_connection {
  my (@server) = @_;
  print 'connecting to: ';
  print Dumper(@server);
  print $server[0]{'password'};
  print $server[0]{'password'} = 'other';
  print $server[0]{'password'};
  Irssi::signal_stop();
}

Irssi::signal_add('server connecting', 'handle_connection');