[dcc_ip] change website with whois

diff --git a/scripts/dcc_ip.pl b/scripts/dcc_ip.pl
index 3c03bf36bc62d1af6407b27988fd14f88bf04084..3c7e8b82b0d5b2078f28f90f1abbb47a87637994 100644 (file)
--- a/scripts/dcc_ip.pl
+++ b/scripts/dcc_ip.pl
@@ -22,10 +22,11 @@
 
 use strict;
 use Irssi;
+use Socket;
 use vars qw($VERSION %IRSSI);
-    $VERSION = '0.5';
+    $VERSION = '0.6';
     %IRSSI = (
-        authors     => 'ak5',
+        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.'.
@@ -34,29 +35,83 @@ use vars qw($VERSION %IRSSI);
         license     => 'Public Domain',
        url         => 'http://hq.kroenk.de/?gnu/irssi',
        source      => 'http://hq.kroenk.de/?gnu/irssi/dcc_ip.pl/plaintext',
-       changed     => 'Sa 26 Jun 2004 22:27:08 CEST',
+       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 ($iface eq "router") {
-               $cmd = `lynx -dump -nolist http://ipid.shat.net/iponly/`;
-               $cmd =~ s/[a-zA-Z:\ \n]//g;
-       } 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);
-
+        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: