#!/usr/bin/perl

#
# written by Marc Spitzer mspitzer@stones.com
#

use CGI;
$|=1;

$fred = new CGI;
$trace = '/bin/traceroute';

$style=<<END;
body { background-color : #FFFFFF }
span.white { font-weight : bold }
span.grey { background-color : #F0F0F0 ; font-weight :bold }
END

print $fred->header;
print $fred->start_html(-style=>{ -code=>$style} );

if ($fred->param('address')){
  
  if($fred->param('ping')){

    $stuff = join ' ', "/etc/ping", $fred->param('address'), $fred->param('packet_size'),$fred->param('count');
    open FILE, "$stuff |" or warn " cannot open output pipe $stuff <br>\n";
    $i=0;
    while (<FILE>){
      $class="white";
      $class="grey" if($i%2);
      $i++;
      print "<span class=$class>$_ <br></span>\n";
    }
    close FILE;
  }
  elsif($fred->param('traceroute')){
    $stuff = join ' ', $trace, $fred->param('address');

    open FILE, "$stuff |" or warn " cannot open output pipe $stuff <br>\n";
    $i=0;
    while (<FILE>){
      $class="white";
      $class="grey" if($i%2);
      $i++;
      print "<span class=$class>$_ <br></span>\n";
    }
    close FILE;
  }
}

print $fred->start_form;
print "<table>\n";
print "<tr><td> Enter the IP or Domain name:</td>\n";
print "<td>", $fred->textfield( -name=>"address",
                                -default=>"",
				-size=>20,
				-maxlength=>80) , "</td></tr>";
print "<tr><td>Number of Packets:", $fred->popup_menu( -name=>'count',
                                     -values=>['5','10','20','50','100'],
				     -default=>'10'), "</td>";
print "<td>Packet Size:", $fred->popup_menu( -name=>'packet_size',
                                 -values=>['32','64','256','1024','4095'],
				 -default=>'64') , "</td></tr>\n";
print "<tr><td>" , $fred->submit( -name=>"ping", -value=>"Ping"), "</td><td>", 
                   $fred->submit( -name=>"traceroute", -value=>"Traceroute"), "</td></tr></table>\n";


print $fred->end_form;
print $fred->end_html;