diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakTermServ | 20 | ||||
-rwxr-xr-x | perl-install/standalone/drakbackup | 2 |
2 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index 525092559..b28dc80b6 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -210,7 +210,7 @@ sub interactive_mode() { $in = 'interactive'->vnew; $::Wizard_title = N("Terminal Server Configuration"); $::Wizard_pix_up = "ic82-network-40.png"; - $in->isa('interactive::gtk') and $::isWizard = 1; + $in->isa('interactive::gtk') and $::isWizard = 0; $window1 = ugtk2->new(N("Terminal Server Configuration")); $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); $window1->{rwindow}->set_border_width(5); @@ -306,7 +306,7 @@ sub interactive_mode() { $window1->{rwindow}->realize; $window1->{rwindow}->show_all; #- strange behavior with tabs, pressing a button actually ends up - #- activating a hiden button below it + #- activating a hidden button below it $main_buttons->set_current_page(2); $main_buttons->set_current_page(1); $main_buttons->set_current_page(0); @@ -786,7 +786,7 @@ sub make_nbi() { } $list_model->clear; gtkset_mousecursor_normal(); - }), + }), Gtk2::HBox->new(1,1), ), create_scrolled_window($list_nbis), @@ -1856,13 +1856,13 @@ sub update_hosts_allow { sub format_client_entry { #- create a client entry, in proper format my ($client, %ts_clients) = @_; - my $entry = "host $client {\n"; - $entry .= "\thardware ethernet\t$ts_clients{$client}{hardware};\n"; - $entry .= "\tfixed-address\t\t$ts_clients{$client}{address};\n"; - $entry .= "\t#type\t\t\t$ts_clients{$client}{type};\n" if $ts_clients{$client}{type}; - $entry .= "\tfilename\t\t\"$ts_clients{$client}{filename}\";\n" if $ts_clients{$client}{filename}; - $entry .= "\t#hdw_config\t\t$ts_clients{$client}{hdw_config};\n" if $ts_clients{$client}{hdw_config}; - $entry .= "}\n"; + my $entry = qq(host $client {\n); + $entry .= qq(\thardware ethernet\t$ts_clients{$client}{hardware};\n); + $entry .= qq(\tfixed-address\t\t$ts_clients{$client}{address};\n); + $entry .= qq(\t#type\t\t\t$ts_clients{$client}{type};\n) if $ts_clients{$client}{type}; + $entry .= qq(\tfilename\t\t"$ts_clients{$client}{filename}";\n) if $ts_clients{$client}{filename}; + $entry .= qq(\t#hdw_config\t\t$ts_clients{$client}{hdw_config};\n) if $ts_clients{$client}{hdw_config}; + $entry .= qq(}\n); if ($ts_clients{$client}{type} eq "thin") { write_thin_inittab($ts_clients{$client}{address}); } else { diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index ca7461f98..d70f1ceda 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -4349,7 +4349,7 @@ sub interactive_mode() { $in = 'interactive'->vnew; $::Wizard_title = N("Drakbackup"); $::Wizard_pix_up = "ic82-back-up-48.png"; - $in->isa('interactive::gtk') and $::isWizard = 1; + $in->isa('interactive::gtk') and $::isWizard = 0; $my_win = ugtk2->new(N("Drakbackup")); $window1 = $my_win->{window}; |