remove _stty_rows, add connection_method

This removes _stty_rows.  It was an experiment that I never got to work. The idea was that we could tell a device that we were a 3000 line long terminal and defeat the devices "More" prompt, but no device that I found would accept such a thing. Most devices have a hard coded screen size of xxx lines which shows a more prompt even if it thinks the physical screen is bigger.

For the "connection_method" I decided I wanted a better way to determine the hostname or IP of the device I connect to when parsing script output. Usually I look for the line "Adding this thing to known hosts.." or whatever, but that doesn't work if the device is already in known hosts, or you use telnet, or any number of other things.  So now if you turn on --debug it will show a connection string.

Author: rfdrake

lib/App/Tel.pm

@@ -83,6 +83,7 @@ sub new {
     my $self = {
         'stdin'         => Expect->exp_init(\*STDIN),
         'connected'     => CONN_OFFLINE,
+        'current_method'=> undef,
         'enabled'       => 0,
         'title_stack'   => 0,
         'log_stdout'    => 1,
@@ -418,18 +419,6 @@ sub profile {
     return $profile;
 }
 
-# I don't think I've ever seen this work.  Should probably remove it
-sub _stty_rows {
-    my $new_rows = shift;
-    eval {
-        Module::Load::load Term::ReadKey;
-        my ($columns, undef, $xpix, $ypix) = GetTerminalSize(\*STDOUT);
-        SetTerminalSize($columns, $new_rows, $xpix, $ypix, \*STDOUT);
-    };
-
-    warn $@ if ($@);
-}
-
 =head2 session
 
     my $session = $self->session;
@@ -635,6 +624,7 @@ sub login {
     my $hostsearched = 0;
 
     METHOD: for (@{$self->methods}) {
+        $self->{'current_method'} = $_;
         # this dies if the method is not found.
         $self->connect($self->method_options($_, $hostname));
 
@@ -691,7 +681,12 @@ sub login {
         );
     }
 
-    warn "Connection to $hostname failed.\n" if !$self->connected;
+    if (!$self->connected) {
+        warn "Connection to $hostname failed.\n";
+    } else {
+        warn "\nConnected to $hostname via $self->{'current_method'}\n" if $self->{'debug'};
+    }
+
     return $self;
 }