summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2005-02-23 22:38:48 +0000
committerStew Benedict <stewb@mandriva.org>2005-02-23 22:38:48 +0000
commit00083eb54f9f19c150b7fe7cdd2831e6c9d41f36 (patch)
tree49d652932e1aa4cb80476130bf083415abb4eaa5 /perl-install
parent02d83b6b5e31447deb2937619e09150aa52bdee8 (diff)
downloaddrakx-backup-do-not-use-00083eb54f9f19c150b7fe7cdd2831e6c9d41f36.tar
drakx-backup-do-not-use-00083eb54f9f19c150b7fe7cdd2831e6c9d41f36.tar.gz
drakx-backup-do-not-use-00083eb54f9f19c150b7fe7cdd2831e6c9d41f36.tar.bz2
drakx-backup-do-not-use-00083eb54f9f19c150b7fe7cdd2831e6c9d41f36.tar.xz
drakx-backup-do-not-use-00083eb54f9f19c150b7fe7cdd2831e6c9d41f36.zip
Drop banner, using up too much window space. Perl_checker mods.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakTermServ20
-rwxr-xr-xperl-install/standalone/drakbackup2
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};