# IPupdate 1.1
# 
# automatically update your IP on server connections

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

$VERSION = '1.1';
%IRSSI = (
        authors         => 'legion',
	contact         => 'a.lepore@email.it',
	name            => 'IPupdate',
	description     => 'Auto "/set dcc_own_ip IP" on connect.',
	license         => 'Public Domain',
	changed         => 'Sat Dec  6 12:28:38 CET 2003',
);

sub caz {

	my $bin = "/sbin/ifconfig";
	my $if = "ppp0";
	my $ip = `$bin $if | grep inet`;
	$ip =~ s/^          inet addr://;
	my @ip = split(/ /,$ip);
	$ip = $ip[0];

	Irssi::print("%9IPupdate.pl%_:", MSGLEVEL_CRAP);
	Irssi::command("set dcc_own_ip $ip");


} ##

Irssi::signal_add ('server connected', 'caz');
Irssi::command_bind('ipupdate', 'caz');