*** /home/johnc/source/bluediving/bluedivingNG.pl	Sun Jan  1 12:57:55 2006
--- bluedivingNG.pl	Sun May 28 20:37:41 2006
***************
*** 228,234 ****
  		['Launch RFCOMM shell', \&launch_rfcomm_shell],
  		['RFCOMM Connection', \&rfcomm_connection],
  		['HCI Connection', \&hci_connection],
! 		['Request new link key', \&request_paiting],
  		['Info menu', \&print_infomenu],
  		['Main menu', \&print_mainmenu],
  		['Exit', \&exit_program]);
--- 228,234 ----
  		['Launch RFCOMM shell', \&launch_rfcomm_shell],
  		['RFCOMM Connection', \&rfcomm_connection],
  		['HCI Connection', \&hci_connection],
! 		['Request new link key', \&request_pairing],
  		['Info menu', \&print_infomenu],
  		['Main menu', \&print_mainmenu],
  		['Exit', \&exit_program]);
***************
*** 377,382 ****
--- 380,386 ----
      while(<HCI>)
      {
  	my @tmp = split(/\s/,$_); 
+       $host = "";
  
  	for(@tmp)
  	{
***************
*** 388,394 ****
  	    }
  	    elsif($_ =~ /\w+$/)
  	    {
! 		$host = $_;
  	    }
  	}
  	
--- 392,399 ----
  	    }
  	    elsif($_ =~ /\w+$/)
  	    {
!               $host .= " " if ($host ne "");
! 		$host .= $_;
  	    }
  	}
  	
***************