summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/adduserdrake2
-rwxr-xr-xperl-install/standalone/drakbackup2
-rwxr-xr-xperl-install/standalone/drakboot2
-rwxr-xr-xperl-install/standalone/drakconnect2
-rwxr-xr-xperl-install/standalone/drakfirewall2
-rwxr-xr-xperl-install/standalone/drakfont2
-rwxr-xr-xperl-install/standalone/drakgw2
-rwxr-xr-xperl-install/standalone/drakperm2
-rwxr-xr-xperl-install/standalone/drakproxy2
-rwxr-xr-xperl-install/standalone/drakpxe2
-rwxr-xr-xperl-install/standalone/draksplash2
-rwxr-xr-xperl-install/standalone/drakxservices2
-rwxr-xr-xperl-install/standalone/drakxtv2
-rwxr-xr-xperl-install/standalone/harddrake22
-rwxr-xr-xperl-install/standalone/keyboarddrake2
-rwxr-xr-xperl-install/standalone/livedrake2
-rwxr-xr-xperl-install/standalone/logdrake2
-rwxr-xr-xperl-install/standalone/mousedrake2
-rwxr-xr-xperl-install/standalone/scannerdrake2
19 files changed, 19 insertions, 19 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake
index d1ebe4eef..4bbad2fa3 100755
--- a/perl-install/standalone/adduserdrake
+++ b/perl-install/standalone/adduserdrake
@@ -20,7 +20,7 @@ my $in;
if (my @l = grep { ! /^-/ } @ARGV) {
$users = [ map { { name => $_, realname => $_ } } @l ];
} else {
- $in = 'interactive'->vnew('su', 'user');
+ $in = 'interactive'->vnew('su');
any::ask_users('', $in, $users, $ENV{SECURE_LEVEL});
}
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 235919e3f..aa88470cf 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -4529,7 +4529,7 @@ sub interactive_mode {
die "Can't load ugtk2...\n" if $@;
ugtk2->import(qw(:helpers :wrappers :create));
- $in = 'interactive'->vnew('', 'default');
+ $in = 'interactive'->vnew;
my $box;
$my_win = ugtk2->new('drakbackup');
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index ec40b3a56..1eeb19f3c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -38,7 +38,7 @@ use Xconfig::various;
use log;
use bootloader;
-my $in = 'interactive'->vnew('su', 'bootloader');
+my $in = 'interactive'->vnew('su');
if (!$in->isa('interactive::gtk')) {
lilo_choice();
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 34649444b..b53f89687 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -48,7 +48,7 @@ my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'la
#$::wizard_xpm = "/usr/share/pixmaps/internet.xpm";
-my $in = 'interactive'->vnew('su', 'network');
+my $in = 'interactive'->vnew('su');
!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
#$::isWizard = 0;
$::Wizard_pix_up = "wiz_drakconnect.png";
diff --git a/perl-install/standalone/drakfirewall b/perl-install/standalone/drakfirewall
index 27dfb92a9..233445ad2 100755
--- a/perl-install/standalone/drakfirewall
+++ b/perl-install/standalone/drakfirewall
@@ -23,7 +23,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use interactive;
use network::drakfirewall;
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
network::drakfirewall::main($in);
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 634c68541..fb4d7cba8 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -92,7 +92,7 @@ use ugtk2 qw(:helpers :wrappers :create);
use common;
-my $in = 'interactive'->vnew('su', 'network');
+my $in = 'interactive'->vnew('su');
# global variables needed by each functions
my $xlsfonts = 0;
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index ab191ce3a..5517ba53e 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -54,7 +54,7 @@ my $cups_conf = "/etc/cups/cupsd.conf";
my $shorewall = network::shorewall::read();
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
$::Wizard_title = N("Internet Connection Sharing");
!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 39132d957..d0feb3aec 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -9,7 +9,7 @@ use common;
use ugtk2 qw(:helpers :wrappers :create);
use interactive;
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
local $_ = join '', @ARGV;
#- vars declaration
diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy
index 692ccab8d..9b979e105 100755
--- a/perl-install/standalone/drakproxy
+++ b/perl-install/standalone/drakproxy
@@ -27,7 +27,7 @@ use any;
use common;
my $u = { getVarsFromSh('/etc/profile.d/proxy.sh') };
-my $in = 'interactive'->vnew('su', 'network');
+my $in = 'interactive'->vnew('su');
network::network::miscellaneous_choose($in, $u, 1, 1);
network::network::proxy_configure($u);
$in->exit(0);
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 00dd27407..f8ffb2afa 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -52,7 +52,7 @@ my $netc = {};
my $intf = {};
network::read_all_conf('', $netc, $intf);
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
$::Wizard_title = N("PXE Server Configuration");
!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index b0d731877..08e3036c2 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -11,7 +11,7 @@ use interactive;
my $true = 1;
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
my $window = ugtk2->new;
$window->{rwindow}->signal_connect(delete_event => \&CloseAppWindow);
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index bb6dea16d..5da4b4464 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -10,7 +10,7 @@ use interactive;
use services;
use log;
-my $in = 'interactive'->vnew('su', 'services');
+my $in = 'interactive'->vnew('su');
begin:
my $l = services::ask($in);
services::doit($in, $l) if $l;
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index d17f1dcba..1325c7957 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -29,7 +29,7 @@ use lang;
use log;
use common;
-my $in = 'interactive'->vnew();
+my $in = 'interactive'->vnew;
sub scan4channels {
# xawtv has been installed by DrakX when/if it's detected a tv
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 2db155065..23595ef55 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -126,7 +126,7 @@ my @menu_items =
}
);
-$in = 'interactive'->vnew('su', 'default');
+$in = 'interactive'->vnew('su');
my $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
gtkflush();
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index f69005dad..ac49132a5 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -17,7 +17,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n";
$keyboard->{KEYBOARD} = $kb;
} else {
- $in = 'interactive'->vnew('su', 'keyboard');
+ $in = 'interactive'->vnew('su');
choose:
$keyboard->{KEYBOARD} = $in->ask_from_listf(N("Keyboard"),
diff --git a/perl-install/standalone/livedrake b/perl-install/standalone/livedrake
index 03868c03b..3d34d08d7 100755
--- a/perl-install/standalone/livedrake
+++ b/perl-install/standalone/livedrake
@@ -9,7 +9,7 @@ use interactive;
use run_program;
use c;
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
my $cd_mntpoint = "/mnt/cdrom";
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 098d9ec02..238d21275 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -30,7 +30,7 @@ use ugtk2 qw(:wrappers :helpers :create);
$::isInstall and die "Not supported during install.\n";
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
my $cron_hourly = "/etc/cron.hourly/logdrake_service";
#- parse arguments list.
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 3aa9e5d36..e6048a173 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -11,7 +11,7 @@ use mouse;
use c;
-my $in = 'interactive'->vnew('su', 'mouse');
+my $in = 'interactive'->vnew('su');
modules::mergein_conf('/etc/modules.conf') if -r '/etc/modules.conf';
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index afc8a864b..c1e334e91 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -35,7 +35,7 @@ foreach (@ARGV) {
/^--dynamic=(.*)$/ and do { dynamic($1); exit() };
}
-my $in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su');
if (!files_exist('/usr/bin/scanimage',
'/usr/bin/xsane',
if_(files_exist("/usr/bin/gimp"),