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;