# (C) 2002 Marcello Barnaba <vjt@openssl.it>
#
#!/usr/bin/perl -w

use strict;
use Irssi;
use Irssi::Irc;

my $ext_ip;

sub sig_dcc_req_send
{
    if($ext_ip)
    {
	Irssi::settings_set_str('dcc_own_ip', $ext_ip);
    }
}

sub sig_dcc_get_recv
{
    Irssi::settings_set_str('dcc_own_ip', '0');
}

Irssi::signal_add('dcc request send', \&sig_dcc_req_send);
Irssi::signal_add('dcc request', \&sig_dcc_get_recv);

Irssi::settings_add_str('misc', 'dcc_ext_ip', undef);
$ext_ip = Irssi::settings_get_str('dcc_ext_ip');

if(!$ext_ip)
{
    print CLIENTCRAP "You must set your external IP address, with /set dcc_ext_ip yourIp.";
    print CLIENTCRAP "If you do not set this, the script won't work.";
}