Package: perlpanel
Version: 1:0.9.1-1
Severity: important
Tags: patch
When using ShellManager.pm and other terminals than gnome-terminal or xterm
(i.e. Eterm and aterm) those will fail to execute the given ssh-command due to
wrong parsing of double-quotes. The attached patch fixed this for my problem.
Nevertheless I assume it is nothing more than a workaround for a bug which
probably exists in Eterm and aterm and not in perlpanel.
TIA
Patrick Jaeger
-- System Information:
Debian Release: 3.1
APT prefers testing
APT policy: (900, 'testing'), (800, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.11.4-1.7-sibelius-sibelius
Locale: [EMAIL PROTECTED], [EMAIL PROTECTED] (charmap=ISO-8859-15)
Versions of packages perlpanel depends on:
ii hicolor-icon-theme 0.8-1 default fallback theme for FreeDes
ii libdate-manip-perl 5.42a-3 a perl library for manipulating da
ii libglib-perl 1:1.081-1 Perl interface to the GLib and GOb
ii libgnome2-wnck-perl 0.10-1 Perl interface to the Window Navig
ii libgtk2-gladexml-perl 1.003-1 Perl interface to use user interfa
ii libgtk2-perl 1:1.081-1 Perl interface to the 2.x series o
ii libgtk2.0-0 2.6.4-1 The GTK+ graphical user interface
ii liblocale-gettext-perl 1.01-17 Using libc functions for internati
ii libx11-freedesktop-desktopent 0.04-1 perl interface to Freedesktop.org
ii libxml-parser-perl 2.34-4 Perl module for parsing XML files
ii libxml-simple-perl 2.14-1 Perl module for reading and writin
ii perl 5.8.4-8 Larry Wall's Practical Extraction
-- no debconf information
--- ShellManager.pm.bak 2005-05-17 09:44:47.646440016 +0200
+++ ShellManager.pm 2005-05-17 09:45:26.570522656 +0200
@@ -76,8 +76,13 @@
$session,
PerlPanel::get_applet_pbf('shellmanager',
PerlPanel::menu_icon_size),
sub {
- my $cmd = sprintf('%s -e "ssh -p %d
[EMAIL PROTECTED]" &', $self->{config}->{terminal},
$connections{$session}->{port}, $connections{$session}->{user},
$connections{$session}->{host});
- system($cmd);
+ my $cmd;
+ if($self->{config}->{terminal} =~
/gnome-terminal/i){
+ $cmd = sprintf('%s -e "ssh -p %d [EMAIL
PROTECTED]" &', $self->{config}->{terminal}, $connections{$session}->{port},
$connections{$session}->{user}, $connections{$session}->{host});
+ }else{
+ $cmd = sprintf('%s -e ssh -p %d [EMAIL
PROTECTED] &', $self->{config}->{terminal}, $connections{$session}->{port},
$connections{$session}->{user}, $connections{$session}->{host});
+ }
+ system($cmd);
},
));
}
@@ -203,7 +208,12 @@
host => lc($host),
port => $port,
});
- my $cmd = sprintf('%s -e "ssh -p %d [EMAIL PROTECTED]"
&', $self->{config}->{terminal}, $port, $user, $host);
+ my $cmd;
+ if($self->{config}->{terminal} =~ /gnome-terminal/i){
+ $cmd = sprintf('%s -e "ssh -p %d [EMAIL PROTECTED]"
&', $self->{config}->{terminal}, $port, $user, $host);
+ }else{
+ $cmd = sprintf('%s -e ssh -p %d [EMAIL PROTECTED]
&', $self->{config}->{terminal}, $port, $user, $host);
+ }
system($cmd);
$self->create_menu;
PerlPanel::save_config;
