diff options
Diffstat (limited to '')
-rw-r--r-- | scripts/dcc_ip.pl | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/scripts/dcc_ip.pl b/scripts/dcc_ip.pl new file mode 100644 index 0000000..3c7e8b8 --- /dev/null +++ b/scripts/dcc_ip.pl @@ -0,0 +1,117 @@ +#!/usr/bin/perl -w +# dcc_ip.pl v0.5 - Copyright (c) ak5 2004 +# License: Public Domain :-) +# +# this scripts gets the current IP before sending a dcc.. +# useful, if you connect through a BNC f.e. +# just load it and it will do it's job if dcc_ip_interface is set correct. +# + +# This means: If you are connecting through a router: +# /set dcc_ip_interface router +# (NOT the IP of your router, just the word "router". +# +# If you're on dialup or something other and you see your external +# IP address listed in 'ifconfig's output, +# /set dcc_ip_interface <interface> +# (for example ppp0) +# +# requires: /sbin/ifconfig ;) If you have a router, you need lynx also. +# +########## + +use strict; +use Irssi; +use Socket; +use vars qw($VERSION %IRSSI); + $VERSION = '0.6'; + %IRSSI = ( + authors => 'ak5, bw1', + contact => 'meister@hq.kroenk.remove-this-because-of-spam.de', + name => 'dcc_ip', + description => 'This script sets dcc_own_ip when starting a DCC send or chat.'. + 'set dcc_ip_interface to your external interface, f.e. ppp0.'. + 'If you are connecting though a router, set it to "router"', + license => 'Public Domain', + url => 'http://hq.kroenk.de/?gnu/irssi', + source => 'http://hq.kroenk.de/?gnu/irssi/dcc_ip.pl/plaintext', + changed => '2019-02-17', + ); + +# ip of the nat interface as a string; +my $router_ip; +# state of whois +my $router_c=0; +# arguments of the dcc command +my $router_args; + +sub dcc_ip { + my ($args, $shash, $c, $iface, $cmd, @arg, @ip) = @_; + @arg = split(" ", $args); + if (@arg[0] eq "send" || @arg[0] eq "chat") { + $iface = Irssi::settings_get_str('dcc_ip_interface'); + if ($router_c == 0) { + if ($iface eq "router") { + mywhois($args, $shash, $c); + Irssi::signal_stop(); + $router_c=1; + $router_args = $args; + return; + } else { + $cmd = `/sbin/ifconfig $iface | head -n 2 | tail -n 1`; + $cmd =~ s/^[a-zA-Z\ ]*\://; + $cmd =~ s/\ .*$//; + $cmd =~ s/\n//; + } + Irssi::command("^set dcc_own_ip ".$cmd); + } else { + $router_c =0; + } + } +}; + +sub mywhois { + my ($args, $server, $witem) = @_; + my $nick =$server->{nick}; + $server->redirect_event("whois", 1, $nick, 0, undef, { + "event 311" => "redir whos", + "event 318" => "redir whosend", + "" => "event empty"} + ); + $server->send_raw("WHOIS " . $nick); +} + +sub sig_whos { + my ($server, $data) = @_; + my @r = split(/\s/,$data); + $router_ip = $r[3]; +} + +sub sig_whosend { + my ($server, $data) = @_; + + if ( defined $router_ip ) { + if ( !( $router_ip =~ m/\d+\.\d+\.\d+\.\d+/ || + ($router_ip =~ m/[0-9a-fA-F:]+/ && $router_ip =~ m/:.*:/ ))) { + my $packed_ip = gethostbyname($router_ip); + if (defined $packed_ip) { + $router_ip = inet_ntoa($packed_ip); + } else { + $router_ip = undef; + } + } + } + if ( defined $router_ip ) { + Irssi::settings_set_str("dcc_own_ip", $router_ip); + $server->command('dcc '.$router_args ); + } +} + +Irssi::signal_add('redir whos', \&sig_whos); +Irssi::signal_add('redir whosend', \&sig_whosend); + +Irssi::settings_add_str('dcc_ip', 'dcc_ip_interface', "ppp0"); +Irssi::command_bind ('dcc', 'dcc_ip'); +#EOF + +# vim:set ts=8 sw=4 expandtab: |