diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:46:47 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:46:47 -0500 |
commit | 1df6d3f9d3a636fdd9037c2d021456400b72bc30 (patch) | |
tree | 246b7100eceb908efeef9c53c15ee3e1d348fc92 /lib/Net | |
parent | d8dbe191247c9ccf30f1c07538a6da526736f9f5 (diff) | |
download | net-termcast-1df6d3f9d3a636fdd9037c2d021456400b72bc30.tar.gz net-termcast-1df6d3f9d3a636fdd9037c2d021456400b72bc30.zip |
better refreshing
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/Termcast.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm index f5eb8d8..474a32f 100644 --- a/lib/Net/Termcast.pm +++ b/lib/Net/Termcast.pm @@ -85,10 +85,22 @@ sub BUILD { $self->_get_menu; } -sub refresh { +sub refresh_menu { my $self = shift; + my $name; + if ($self->location ne 'menu') { + $name = $self->session($self->location)->name; + $self->_sock->send('q', 0); + } $self->_sock->send(' ', 0); $self->_get_menu; + return unless $name; + for my $session (keys %{ $self->sessions }) { + if ($self->session($session)->name eq $name) { + $self->select_session($session); + return; + } + } } sub select_session { |