diff options
| author | Stew Benedict <stewb@mandriva.org> | 2002-09-10 10:59:50 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2002-09-10 10:59:50 +0000 |
| commit | f874dc71a41cd323cd3cb273ed448e5db87f3056 (patch) | |
| tree | 3253bc026f93e103eecaaa210186a1d1eb6faf3e /perl-install/standalone/drakTermServ | |
| parent | 2d3d92671216bce17621be930e477fc77d4a8633 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakTermServ | 11 |
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; |