lib/httpinfo/misc/olsr-topology-view.pl

   1 #!/usr/bin/perl
   2
   3 # a hack to display OLSR topology information
   4 #
   5 # copyleft 2004 Bruno Randolf <br1@subnet.at>
   6 # licensed under the GPL
   7
   8 use IO::Socket;
   9 use Getopt::Long;
  10
  11 $TOPPATH = "/tmp";
  12 $NAME = "topology";
  13 $FILENAME = "$TOPPATH/$NAME.dot";
  14 $EXT = "png";
  15 $SERVER = "localhost";
  16 $PORT = "2004";
  17 $FULLSCREEN = 0;
  18 $HELP = 0;
  19 $KEEP = 0;
  20 $BGCOLOR = "black";
  21 $STYLE = 1;
  22 $SIZE = "8,8";
  23 $ROOTWIN = 0;
  24 $ONCE = 0;
  25 $GRAPH = 1;
  26 $SHOW = 1;
  27 $FONTNAME = "Courier";
  28 $FONTSIZE = 12;
  29 $LINEWIDTH = 0;
  30 $LINECOLOR = 0;
  31 $RESOLV = 0;
  32
  33 GetOptions ("server=s" => \$SERVER,
  34             "port=s" => \$PORT,
  35             "fullscreen!" => \$FULLSCREEN,
  36             "help!" => \$HELP,
  37             "keep!" => \$KEEP,
  38             "bgcolor=s" => \$BGCOLOR,
  39             "fontname=s" => \$FONTNAME,
  40             "fontsize=s" => \$FONTSIZE,
  41             "style=i" => \$STYLE,
  42             "size=s" => \$SIZE,
  43             "rootwin!" => \$ROOTWIN,
  44             "once!" => \$ONCE,
  45             "graph!" => \$GRAPH,
  46             "show!" => \$SHOW,
  47             "linewidth!" => \$LINEWIDTH,
  48             "linecolor!" => \$LINECOLOR,
  49             "resolv" => \$RESOLV,
  50              );
  51
  52 if ($HELP) {
  53         print << "EOF";
  54 usage: $0 [ --server SERVER ] [--port PORT] [--fullscreen] [--keep]
  55
  56 a hack to display OLSR topology information
  57
  58 options:
  59         --server SERVER    connect to OLSR node (default: localhost)
  60         --port PORT        connect to port (default: 2004)
  61         --bgcolor          background color (default: black)
  62         --fontname         font name (default: Courier)
  63         --fontsize         font size (default: 12)
  64         --style            drawing style 1, 2 or 3 (default:1)
  65         --size X,Y         image size in inches for graphviz (default: 8,8)
  66         --[no]fullscreen   display fullscreen (default: off)
  67         --[no]rootwin      display in root window (default: off)
  68         --[no]graph        genereate graphics (default: on)
  69         --[no]show         display the graphics (default: on)
  70         --[no]once         run only 1 time, then exit (default: run forever)
  71         --[no]linewith     change line width according to metric (default: off)
  72         --[no]linecolor    change line color according to metric (default: off)
  73         --[no]resolv       resolv hostnames (default: off)
  74         --[no]keep         keep the .dot files with timestamp in /tmp (default: off)
  75
  76 requires the "graphviz" and "imagemagick" packages installed
  77 and the "olsrd_dot_draw" plugin configured on the olsr node
  78
  79 EOF
  80         exit;
  81 }
  82
  83
  84 `touch $TOPPATH/$NAME.$EXT`;
  85
  86 $remote = IO::Socket::INET->new(
  87                         Proto    => "tcp",
  88                         PeerAddr => $SERVER,
  89                         PeerPort => $PORT,
  90                     )
  91                   or die "cannot connect to port $PORT at $SERVER!\nis the olsrd_dot_draw plugin loaded and configured to allow connections from this host?\n";
  92
  93 $f;
  94 $start = 1;
  95
  96 $FULLOPT = "-backdrop -background black" if $FULLSCREEN;
  97
  98 if ($STYLE == 1) {
  99         $DOT_CMD = "neato -Tpng -Gsize=${SIZE} -Gbgcolor=${BGCOLOR} -Gsplines=true -Nstyle=filled -Nfontname=${FONTNAME} -Nfontsize=${FONTSIZE} -Efontname=${FONTNAME} -Efontsize=${FONTSIZE} -Ncolor=white -Nfillcolor=white -Ecolor=grey -Elen=4 -Earrowsize=2 -Efontcolor=white $FILENAME -o $TOPPATH/$NAME.new";
 100 }
 101 elsif ($STYLE == 2) {
 102         $BGCOLOR = "grey";
 103         $DOT_CMD = "dot -Tpng -Gsize=${SIZE} -Elen=2 -Ncolor=grey -Nstyle=filled -Nfillcolor=white -Nfontname=${FONTNAME} -Nfontsize=${FONTSIZE} -Efontname=${FONTNAME} -Efontsize=${FONTSIZE} -Nfontcolor=red -Nwidth=1 -Gbgcolor=$BGCOLOR $FILENAME -o $TOPPATH/$NAME.new";
 104 }
 105 elsif ($STYLE == 3) {
 106         $BGCOLOR = "\#ff6600";
 107         $DOT_CMD = "neato -Tpng -Gsize=10,9 -Gbgcolor=${BGCOLOR} -Gsplines=true -Nstyle=filled -Nfontname=${FONTNAME} -Nfontsize=${FONTSIZE} -Efontname=${FONTNAME} -Efontsize=${FONTSIZE} -Nheight=1.3 -Nwidth=1.3 -Gsplines=true -Ncolor=darkslategrey -Nfillcolor=darkslategrey -Ecolor=black -Elen=4 -Earrowsize=3 $FILENAME -o $TOPPATH/$NAME.new";
 108 }
 109
 110
 111 while ( <$remote> )
 112 {
 113         $line = $_;
 114         if ($RESOLV) {
 115                 $line = resolv( $line );
 116         }
 117         if ($LINEWIDTH || $LINECOLOR) {
 118                 $line = draw_thicker_metric_lines( $line );
 119         }
 120         $f = $f . $line;
 121
 122         # end of one graph
 123         if ( $line =~ /}/i ) {
 124                 #print "* ";
 125                 open DOTFILE, ">$FILENAME";
 126                 print DOTFILE $f;
 127                 close DOTFILE;
 128                 $f = "";
 129
 130                 if ($GRAPH) {
 131                         `$DOT_CMD`;
 132                         `mv $TOPPATH/$NAME.new $TOPPATH/$NAME.$EXT`;
 133                 }
 134                 if ($KEEP) {
 135                         `cp $TOPPATH/$NAME.dot $TOPPATH/$NAME-\$(date +'%Y-%m-%d-%H-%M-%S').dot`;
 136                 }
 137                 if ($SHOW) {
 138                         if ($ROOTWIN) {
 139                                 system "display -window root -backdrop $TOPPATH/$NAME.$EXT &";
 140                         }
 141                         elsif ($start) {
 142                                 system "display $FULLOPT -update 5 $TOPPATH/$NAME.$EXT &";
 143                                 $start = 0;
 144                         }
 145                 }
 146                 exit if $ONCE;
 147         }
 148 }
 149
 150 print "connection closed\n";
 151
 152
 153 sub resolv {
 154         my $l = shift;
 155         if ( $l =~ /\"(.*)\" -> "([^[]*)"(.*)/) {
 156                 my $from = $1;
 157                 my $to = $2;
 158                 my $rest = $3;
 159                 $from =~ s/\"//g;
 160                 $to =~ s/\"//g;
 161                 my $iaddrf = inet_aton($from);
 162                 my $fromn  = gethostbyaddr($iaddrf, AF_INET);
 163                 my $iaddrt = inet_aton($to);
 164                 my $ton  = gethostbyaddr($iaddrt, AF_INET);
 165                 $fromn = $from if ! $fromn;
 166                 $ton = $to if ! $ton;
 167                 $l = "\"$fromn\" -> \"$ton\"$rest\n";
 168         }
 169         return $l;
 170 }
 171
 172
 173 sub draw_thicker_metric_lines {
 174         # sla 04.04.2005
 175         # a hack to draws thicker lines for better metrics (the better the thicker).
 176         # colorize the metric lines.
 177         #
 178         my $l = shift;
 179         if ($l =~ /.*label="[0-9].*/){     # recognizion pattern
 180                 @n=split (/"/,$l);         # split the string to get the metric value
 181                 if ($LINECOLOR) {
 182                         if ( $n[5]>2 ) {        # colorize metrics greater than 2 gray
 183                                 $c="888888";
 184                         }
 185                         else {                     # colorize metrics less than 2 black
 186                                 $c="000000";
 187                         }
 188                         $setcol = "color=\"#$c\",";
 189                 }
 190                 if ($LINEWIDTH) {
 191                         if ($n[5]>0 && $n[5]<10) {  # thicker lines if 10 > metric > 0
 192                                 $lt=6/$n[5];
 193                                 $at=$lt/2;
 194                         }
 195                         else {                     # at least draw a thin line
 196                                 $lt=1;
 197                                 $at=$lt;
 198                         }
 199                         $setwidth = "style=\"setlinewidth($lt)\", arrowsize=$at";
 200                 }
 201                 $l =~ s/\]/, $setcol $setwidth]/g; # replace pattern
 202         }
 203         return $l;
 204 }
 205
 206 __END__