# HG changeset patch
# User Igor Chubin <igor@chub.in>
# Date 1214750204 -10800
# Node ID 0d498f80f8325ae7088c5865c2957b28ba50e063

Repository initialization.

diff -r 000000000000 -r 0d498f80f832 tracemap.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tracemap.pl	Sun Jun 29 17:36:44 2008 +0300
@@ -0,0 +1,218 @@
+#!/usr/bin/perl -w
+#
+use Net::IP qw(:PROC);
+
+our $traceroute_options="-q1 -n -I";
+our $hops_to_highlight=4;
+our $verbose =1;
+our $prefixes="prefixes.txt";
+our $scale=1;
+
+our $dot_file="tracemap.dot";
+our $svg_file="tracemap.svg";
+our $png_file="tracemap.png";
+
+#our @printed_hops;
+our $graph="";
+our $hop_id = 0;
+our %hop_id;
+
+our $previous_hop;
+our $previous_time;
+our $hop;
+our $time;
+our $ttl;
+
+our %color_table=qw(
+194.150.0.0/16 red
+10.0.0.0/16 seagreen2
+10.1.0.0/16 seashell2
+10.2.0.0/16 sienna2
+10.3.0.0/16 skyblue2
+10.4.0.0/16 slateblue2
+10.5.0.0/16 slategray2
+10.6.0.0/16 snow1
+10.7.0.0/16 springgreen1
+10.8.0.0/16 steelblue1
+);
+
+our @prefixes;
+
+sub load_prefixes
+{
+    my @prefixes=();
+    open(PREFIXES, $prefixes);
+    while (<PREFIXES>) { chomp; push @prefixes, $_;};
+    close(PREFIXES);
+    return @prefixes;
+}
+
+sub ip_in_range
+{
+    my $ip=shift;
+    my $range_found=0;
+    for my $range (@_) {
+        my ($range_ip, $range_prefix) = split m@/@, $range;
+        my ($ip1, $ip2) = ip_prefix_to_range($range_ip, $range_prefix,4);
+#        print "$range\n";
+        $range_found=ip_bincomp(ip_iptobin($ip1,4),'lt',ip_iptobin($ip,4))
+            && ip_bincomp(ip_iptobin($ip,4),'lt',ip_iptobin($ip2,4));
+        if ($range_found) {
+            return $range;
+        }
+    }
+    return 0;
+}
+
+sub color_of_ip($)
+{
+    my $ip = shift;
+    for $range (keys %color_table) {
+       if (ip_in_range($ip,$range)) {
+            return $color_table{"$range"};
+        }
+    }
+    return "indigo";
+}
+
+sub print_hop($)
+{
+    $hop = shift;
+    unless (defined($hop_id{$hop})) {
+        $hop_id++;
+        $color="";
+        $shape="";
+        if (ip_in_range($hop, @prefixes)) {
+            $color=",color=green"
+        }
+        $color=",color=".color_of_ip($hop);
+        if ($ttl == $hops_to_highlight+1) {
+            $shape=",shaper=rectangle"
+        }
+        $graph .= "hop$hop_id [ label=\"$hop\"$color$shape];";
+        $hop_id{$hop} = $hop_id;
+    }
+}
+
+sub time_to_len($$)
+{
+    $a=shift;
+    $b=shift;
+    $l=$a-$b;
+    $l = 0.25 if $l<0.25;
+    return (3+1.2*log($l))*0.3285*$scale;
+}
+sub say
+{
+    print @_ if $verbose;
+}
+
+sub ping_sweep($)
+{
+    my $net = shift;
+    my @res;
+    say("Doing ping sweep of the $net IP-addresses block");
+    open(NMAP, "nmap -sP $net|grep 'appears to be up' | awk '{print \$2}'|")
+        or die "can't make ping sweep of $net. Have you nmap installed?\n$!";
+    while (<NMAP>) {
+        chomp;
+        push (@res, ($_));
+        say(".");
+    }
+    say("Done. $#res host(s) found.\n");
+    return @res;
+}
+
+sub dns_axfr($)
+{
+    my @res;
+    my ($zone,$ns) = split /@/;
+    if ($ns eq '') {
+    }
+    else 
+    {
+        say("Doing axfr of the zone $zone from the server $ns\n");
+        open(DIG, "dig \@$ns axfr $zone | awk '/\tA\t/ {print \$1}' |")
+            or die "can't make axfr of the zone $zone from the server $ns. Have you dig installed?\n$!";
+        while (<DIG>) {
+            chomp;
+            push (@res, ($_));
+        }
+        say("Done. $#res host(s) found.\n");
+        return @res;
+    }
+}
+
+my @dests=();
+while(<>)
+{
+    chomp;
+    next if /^#/;
+    if (m@http:@) {
+    }
+    elsif (m@/@) {
+        push(@dests,ping_sweep($_))
+    }
+    elsif (m'@') {
+        push (@dests,dns_axfr($_))
+    }
+    else {
+        push(@dests,($_));
+    }
+}
+
+@prefixes=load_prefixes();
+
+for $dest (@dests)
+{
+    say("Tracing path to $dest");
+    open (TRACE,"traceroute $traceroute_options $dest|")
+        or die "Can't run traceroute:$!";
+    my $hop='';
+    $ttl=0;
+    my $total=0;
+    while (<TRACE>) {
+        chomp;
+        next if not /ms/;
+        say(".");
+        $ttl++;
+        s@^\s*@@;
+        $previous_hop=$hop;
+        $previous_time=$time;
+        my $a;
+        ($a, $hop, $time) = split(/\s+/, $_, 3);
+        $time =~ s/\s*ms\s*$//;
+        $total += $time;
+        if ($previous_hop eq '') {
+            print_hop($hop);
+            $graph =~ s@color=[^],]*[],]@@;
+            $graph =~ s@(\ label=\")[^"]*(\".*?)$@fontsize=10,color=red,style=filled,label="(YOU)$2@;
+        }
+        elsif (not defined $hop_id{$hop} ) {
+            print_hop($previous_hop);
+            print_hop($hop);
+            $graph .= "hop".$hop_id{$previous_hop}." -- hop".$hop_id{$hop}.
+            " [label=\"".sprintf("%1.2f",+$time-$previous_time)."\",len=".time_to_len($time,$previous_time)."];\n";
+        }
+    }
+    $graph =~ s@(\ label=\")[^"]*(\".*?)$@fontsize=8,style=filled,label=\"$dest$2@;
+    close(TRACE);
+    say("Done [last $time, total $total]\n");
+}
+#$temp=rand.rand;
+
+open (DOT, ">$dot_file")
+    or die "can;t open dot file file for writing: $!";
+print DOT <<EOF;
+graph G {
+    margin =1 ;
+    node [fontname=times,fontsize=7,shape=circle,width=0.1,height=0.1,fixedsize=true,color=blue];
+    edge [fontname=times,fontsize=5,color=black];
+$graph
+}
+EOF
+close(DOT);
+
+print `neato -o $png_file -Tpng $dot_file > /dev/null 2>&1; neato -o $svg_file -Tsvg $dot_file > /dev/null 2>&1 `
+    or die "can't run neato: $!;\ngraphviz is installed?\nYou can tracemap.dot to the hosts where graphviz in installed and run\nneato -o tracemap.png -Tpng tracemap.dot"
+
diff -r 000000000000 -r 0d498f80f832 xguru_fun
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xguru_fun	Sun Jun 29 17:36:44 2008 +0300
@@ -0,0 +1,12 @@
+get_mx()
+{
+     dig "$1" mx | grep -v '^;' | grep MX | sort -nk 5 | head -1 | awk '{print $6}' | sed s/.$//
+}
+get_ttl()
+{
+    traceroute -q1 -n "$1" | grep ms | wc -l
+}
+get_location()
+{
+     lynx -dump 'http://www.geoiptool.com/en/?IP='$1 | egrep 'Longitude|Latitude|City|Country|Region'
+}