view release on metacpan or  search on metacpan

lib/App/wmiirc/Ssh.pm  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use File::stat;
with 'https://metacpan.org/pod/App::wmiirc::Role::Action">App::wmiirc::Role::Action';
 
 
sub action_ssh {
  my($self, @args) = @_;
  state($last_mtime, @hosts);
 
  my $known_hosts = "$ENV{HOME}/.ssh/known_hosts";
  if(-r $known_hosts && !$last_mtime
      || $last_mtime != stat($known_hosts)->mtime) {
    open my $fh, "<", $known_hosts or die "$known_hosts: $!";
    @hosts = map /^([^, ]+)/ ? $1 : (), <$fh>;
  }
 
  if(my $host = @args ? "@args"
      : wimenu { name => "host:", history => "ssh" }, \@hosts) {
    system $self->core->main_config->{terminal} . " -e ssh $host &";
  }
}