duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #287 from duckduckgo/jag/deploy/teredo 

Teredo: Removed is_cached => 1 and formatted code.
master
Jag Talon 2014-01-16 14:54:13 -08:00
parent 3ae5678446 10eb48a4d1
commit d6c5a596bb
1 changed files with 24 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
lib/DDG/Goodie/Teredo.pm
View File

@ -7,10 +7,8 @@ use DDG::Goodie;
use Net::IP;
use Math::BaseConvert;
triggers start => 'teredo';
primary_example_queries 'teredo 2001:0000:4136:e378:8000:63bf:3fff:fdd2';
description 'Teredo address analyzer';
name 'Teredo extractor';
@ -21,42 +19,38 @@ attribution github => ['https://github.com/seanheaton','seanheaton'],
twitter => ['http://twitter.com/seanograph','@seanograph'],
email => ['mailto:seanoftime@gmail.com','seanoftime@gmail.com'];
handle remainder => sub {
my @output = ();
my @output = ();
# Create an IPv6 address from the query value
my $ip = new Net::IP ($_,6) if $_;
# Create an IPv6 address from the query value
my $ip = new Net::IP ($_,6) if $_;
# Verify the query value is a valid Teredo IPv6 address
if ((defined $ip) && ($ip->version() == 6) && (substr($ip->ip(),0,9) eq "2001:0000")) {
my $binip = $ip->binip();
# Verify the query value is a valid Teredo IPv6 address
if ((defined $ip) && ($ip->version() == 6) && (substr($ip->ip(),0,9) eq "2001:0000")) {
my $binip = $ip->binip();
# bits 32 to 64 designate IPv4 address of the Teredo server used
push @output, (new Net::IP (Net::IP::ip_bintoip((substr $binip, 32, 32),4)));
# bits 32 to 64 designate IPv4 address of the Teredo server used
push @output, (new Net::IP (Net::IP::ip_bintoip((substr $binip, 32, 32),4)));
# negation of bits 80 to 96, converted to decimal, designate NAT port number
push @output, (65535 - cnv((substr $binip, 80, 16),2,10));
# negation of bits 80 to 96, converted to decimal, designate NAT port number
push @output, (65535 - cnv((substr $binip, 80, 16),2,10));
# negation of bits 96 to 128 designate IPv4 address of NAT device
push @output, (new Net::IP (Net::IP::ip_bintoip(~(substr $binip, 96, 32),4)));
return answer => to_text(@output), html => to_html(@output);
}
return;
# negation of bits 96 to 128 designate IPv4 address of NAT device
push @output, (new Net::IP (Net::IP::ip_bintoip(~(substr $binip, 96, 32),4)));
return answer => to_text(@output), html => to_html(@output);
}
return;
# Params: server, port, client
sub to_text {
return "Teredo Server IPv4: " . $_[0]->ip() . "\nNAT Public IPv4: " . $_[2]->ip()
# Params: server, port, client
sub to_text {
return "Teredo Server IPv4: " . $_[0]->ip() . "\nNAT Public IPv4: " . $_[2]->ip()
. "\nClient Port: " . $_[1];
}
}
# Params: server, port, client
sub to_html {
return "<div><i>Teredo Server IPv4: </i>" . $_[0]->ip() . "</div><div><i>NAT Public IPv4: </i>" . $_[2]->ip() . "</div><div><i>Client Port: </i>" . $_[1] . "</div>";
}
# Params: server, port, client
sub to_html {
return "<div><i>Teredo Server IPv4: </i>" . $_[0]->ip() . "</div><div><i>NAT Public IPv4: </i>" . $_[2]->ip() . "</div><div><i>Client Port: </i>" . $_[1] . "</div>";
}
};
zci is_cached => 1;
1;