#! /usr/bin/perl -l

@paths=();
print "*Edges";
while (<>) {
if(/^s/ or /^f/) {
if(/RTR/) {
   if($_=~/(\w+) (\d+).(\d+) _(\d+)_ (\w+)  --- /o) {
      $src=$4;
      if(/REPLY/) {
         if($_=~/------- \[(\d+):(\d+) (\d+):(\d+) (\d+) (\d+)\] \[(\w+) (\d+) \[(\w+) /o) {
            $dst=$6;
            #$hopc=$8;
            if($9 eq "234881024") {
             if($paths[$src][$dst] eq "234881024") {
             } elsif($paths[$src][$dst] eq "234881025") {
              print $src+1, "     ", $dst+1, "     3  c Black";
             } else {
              print $src+1, "     ", $dst+1, "     3  c Green";
              $paths[$src][$dst]="234881024";
              $paths[$dst][$src]="234881024";
             }
            } elsif($9 eq "234881025") {
             if($paths[$src][$dst] eq "234881025") {
             } elsif($paths[$src][$dst] eq "234881024") {
              print $src+1, "     ", $dst+1, "     3  c Black";
             } else {
              print $src+1, "     ", $dst+1, "     3  c Yellow";
              $paths[$src][$dst]="234881025";
              $paths[$dst][$src]="234881025";
             }
            }
         }
      }
   }
}
}
}
print "";