summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakTermServ
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2002-09-10 10:59:50 +0000
committerStew Benedict <stewb@mandriva.org>2002-09-10 10:59:50 +0000
commitf874dc71a41cd323cd3cb273ed448e5db87f3056 (patch)
tree3253bc026f93e103eecaaa210186a1d1eb6faf3e /perl-install/standalone/drakTermServ
parent2d3d92671216bce17621be930e477fc77d4a8633 (diff)
downloaddrakx-backup-do-not-use-f874dc71a41cd323cd3cb273ed448e5db87f3056.tar
drakx-backup-do-not-use-f874dc71a41cd323cd3cb273ed448e5db87f3056.tar.gz
drakx-backup-do-not-use-f874dc71a41cd323cd3cb273ed448e5db87f3056.tar.bz2
drakx-backup-do-not-use-f874dc71a41cd323cd3cb273ed448e5db87f3056.tar.xz
drakx-backup-do-not-use-f874dc71a41cd323cd3cb273ed448e5db87f3056.zip
Display issues in other locales.
Diffstat (limited to 'perl-install/standalone/drakTermServ')
-rwxr-xr-xperl-install/standalone/drakTermServ11
1 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 0619e4f26..9e95f2565 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -870,10 +870,10 @@ sub dhcpd_config {
gtkadd($box_name_servers),
),
0, gtkadd(new Gtk::VBox(0,0),
- new Gtk::Label("dhcpd Server Configuration\n\n
+ new Gtk::Label(_("dhcpd Server Configuration\n\n
Most of these values were extracted
from your running system. You can
- modify as needed."),
+ modify as needed.")),
gtksignal_connect(new Gtk::Button(_("Write Config")), clicked =>
sub { write_dhcpd_config(
$entry_subnet->get_text(),
@@ -1072,13 +1072,10 @@ sub toggle_chkconfig {
sub service_change {
my ($service, $command, $buff_index) = @_;
- system("/sbin/service $service $command > /tmp/drakTSservice.status 2>&1");
+ system("BOOTUP=serial /sbin/service $service $command > /tmp/drakTSservice.status 2>&1");
open(STATUS, "/tmp/drakTSservice.status");
while(<STATUS>) {
- my ($phrase, $result) = split(':',$_);
- $result = "[ OK ]" if ($result =~ /OK/);
- $result = "[ FAIL ]" if ($result =~ /FAIL/);
- $buff[$buff_index] = "\t$phrase:\t\t\t" . $result . "\n";
+ $buff[$buff_index] = "\t$_";
$buff_index++;
}
close STATUS;