summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 9e1397975..3fa961e32 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -121,7 +121,11 @@ gtkadd($window1,
1, gtksignal_connect(my $button_connect = new Gtk::Button(), clicked => \&connection),
0, new Gtk::VSeparator,
0, gtkpack(new Gtk::VBox(0,5),
- gtksignal_connect(new Gtk::Button(_("Logs")), clicked => sub { system("/usr/sbin/logdrake --file /var/log/messages &") }),
+ gtksignal_connect(new Gtk::Button(_("Logs")), clicked => sub {
+ -e "/usr/sbin/logdrake"
+ ? system('/usr/sbin/logdrake --file /var/log/messages &')
+ : system('/usr/X11R6/bin/xvt -e "tail -f /var/log/messages " &')
+ }),
gtksignal_connect(my $button_close = new Gtk::Button(_("Close")), clicked => sub { Gtk->exit(0) }),
)
)