*** ./ibmonitor/ibmonitor	Mon May 19 16:45:46 2003
--- ./ibmonitor_kaneda	Tue May 20 03:38:36 2003
***************
*** 67,72 ****
--- 67,73 ----
  					'data'		=>	0,
  					'help'		=>	0,
  					'version'	=>	0,
+ 					'dev'	=>	"",
  				);
  
  
***************
*** 80,85 ****
--- 81,87 ----
  							'data'			=>	\$cmd_options{'data'},
  							'help'			=>	\$cmd_options{'help'},
  							'version'		=>	\$cmd_options{'version'},
+ 							'dev=s'			=>	\$cmd_options{'dev'}, 						
  						);
  
  if (not $result) {
***************
*** 152,162 ****
--- 154,167 ----
  	@proc_data = get_proc_data();	
  	for (@proc_data) {
  		($tmp[0], $tmp[1]) = split /:/;
+ if ( $tmp[0] =~ /($cmd_options{'dev'})/ )
+ { 
  		$tmp[0] = trim($tmp[0]);
  		$tmp[1] = trim($tmp[1]);
  		create_interface($tmp[0]) if (not exists $interface->{$tmp[0]});
  		$interface->{$tmp[0]}{'Received'}{'New'} = (split /\s+/, $tmp[1])[0];
  		$interface->{$tmp[0]}{'Sent'}{'New'} = (split /\s+/, $tmp[1])[8];
+ }
  	}
  
  	if ($firstpass) {
***************
*** 587,593 ****
  	print STDERR "ibmonitor version $version\n\n";
  	print STDERR 'usage: '.$progname.' [--bits] [--bytes] [--max] [--avg] '."\n".
  			"\t\t".'[--data] [--interval n] [--colors | --nocolors] '."\n".
! 			"\t\t".'[--help] [--version]'."\n";
  }
  
  sub create_interface($)
--- 592,598 ----
  	print STDERR "ibmonitor version $version\n\n";
  	print STDERR 'usage: '.$progname.' [--bits] [--bytes] [--max] [--avg] '."\n".
  			"\t\t".'[--data] [--interval n] [--colors | --nocolors] '."\n".
! 			"\t\t".'[--help] [--version] [--dev]'."\n";
  }
  
  sub create_interface($)
***************
*** 812,817 ****
--- 817,823 ----
  --nocolors   -> No fancy coloring please!
  --help       -> Show help and exit
  --version    -> Show version number and exit
+ --dev        -> Show output from this device`s (regexp)
  
  While the program is running, the following keys
  are recognized, which enables the user to change the output display