# -- perl --

$i=0;
$user="";
@opt;
$flag = 0;

#use andrew;
#use strict;

#use vars qw($user $opt);

if ($ARGV[0] eq "--help")
{
    &ExtendedHelp;
    exit;
}

while($ARGV[$i])
{
   if ($ARGV[$i] =~ /^-/)
   {
    	#&CheckOptions(@ARGV[$i]);
    	push(@opt,$ARGV[$i]);
    }
   else
   {
      $flag=1;
      $user = @ARGV[$i];      
   }
   $i=$i+1;
}

#run command
   print `/sbin/ifconfig @opt $user | <BINDIR>/ifconfig_filter.pl $flag`;


sub Help {
    print("\tUSAGE: ifconfig interface\n");

}

sub ExtendedHelp {

#   use vars qw($help $user $andrew);
#   my ($shit, $vuck, @whatever);
    print("route - Show i.p. routing table\n"); 
    print("Options\n");
    print("id   : Give me info on i.p.\n"); 
    print("       with that id\n");
    print("-n   : print i.p. in numeric format\n");
}
