summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 23:10:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 23:10:55 +0000
commit79d226c48d6de4f26c604ddbd0ce769a58d548c6 (patch)
treead304fe307e7f11c32dc871ce003ebcd98fa7878 /perl-install
parent4033bc27a2a0d49d9de8d55b7bd9424f2148c89c (diff)
downloaddrakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.gz
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.bz2
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.xz
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.zip
Handle parsing --embedded command line in standalone.pm
=> allows to remove the somewhat mythical $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone.pm8
-rwxr-xr-xperl-install/standalone/XFdrake2
-rwxr-xr-xperl-install/standalone/diskdrake5
-rwxr-xr-xperl-install/standalone/drakTermServ1
-rwxr-xr-xperl-install/standalone/drakautoinst7
-rwxr-xr-xperl-install/standalone/drakbackup1
-rwxr-xr-xperl-install/standalone/drakboot1
-rwxr-xr-xperl-install/standalone/drakconnect1
-rwxr-xr-xperl-install/standalone/drakfloppy1
-rwxr-xr-xperl-install/standalone/drakfont1
-rwxr-xr-xperl-install/standalone/drakgw7
-rwxr-xr-xperl-install/standalone/drakproxy1
-rwxr-xr-xperl-install/standalone/draksec1
-rwxr-xr-xperl-install/standalone/drakxservices2
-rwxr-xr-xperl-install/standalone/drakxtv2
-rwxr-xr-xperl-install/standalone/keyboarddrake1
-rwxr-xr-xperl-install/standalone/logdrake6
-rwxr-xr-xperl-install/standalone/mousedrake1
-rwxr-xr-xperl-install/standalone/net_monitor1
-rwxr-xr-xperl-install/standalone/printerdrake1
-rwxr-xr-xperl-install/standalone/scannerdrake6
-rwxr-xr-xperl-install/standalone/tinyfirewall1
22 files changed, 29 insertions, 29 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index e001f6d2c..7e5948f22 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -9,7 +9,13 @@ $ENV{SHARE_PATH} ||= "/usr/share";
c::setlocale();
c::bindtextdomain('libDrakX', "/usr/share/locale");
-
+my $i;
+foreach (@ARGV) {
+ $i++;
+ $_ eq '--embedded' or next;
+ (undef, $::XID, $::CCPID) = splice @ARGV, ($i-1), 3;
+ $::isEmbedded = 1;
+}
################################################################################
package pkgs_interactive;
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index f547c722a..08414be56 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -29,8 +29,6 @@ use common;
use any;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
local $_ = join '', @ARGV;
my ($configure_this) = grep { !/^-/ } @ARGV;
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 97fca7bde..56f175b57 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -40,10 +40,7 @@ my %options;
my @l = @ARGV;
while (my $e = shift @l) {
my ($option) = $e =~ /--?(.*)/ or next;
- if ($option eq 'embedded') {
- $::isEmbedded = 1;
- ($::XID, $::CCPID, @l) = @l;
- } elsif ($option =~ /(.*?)=(.*)/) {
+ if ($option =~ /(.*?)=(.*)/) {
$options{$1} = $2;
} else {
$options{$option} = '';
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 80435789a..373c57994 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -65,7 +65,6 @@ my $nfs_subnet;
my $nfs_mask;
my $in = 'interactive'->vnew;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
if ("@ARGV" =~ /--help|-h/) {
print q(Mandrake Terminal Server Configurator
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 73e57ee8a..f14951399 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -26,8 +26,6 @@ use commands;
use fs;
use Data::Dumper;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
local $_ = join '', @ARGV;
@@ -365,6 +363,11 @@ sub control_buttons {
#-------------------------------------------------
#- $Log$
+#- Revision 1.21 2002/07/31 23:10:55 prigaux
+#- Handle parsing --embedded command line in standalone.pm
+#- => allows to remove the somewhat mythical
+#- $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
+#-
#- Revision 1.20 2002/07/30 09:57:11 prigaux
#- use $o->{interactiveSteps} instead of @install_steps_auto_install::graphical_steps
#-
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 54cef99cc..81fde6849 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -131,7 +131,6 @@ use Time::localtime;
my $in = 'interactive'->vnew('', 'default');
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
if ("@ARGV" =~ /--help|-h/) {
print q(Backup and Restore application
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 174a40847..d28369627 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -13,7 +13,6 @@ use fsedit;
use fs;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
local $_ = join '', @ARGV;
/-h/ and die "usage: drakboot [--expert] [--testing]\n";
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index aceef3f82..8f60892a2 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -36,7 +36,6 @@ use network::adsl;
use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file $disconnect_file);
my $xpm_path="/usr/share/libDrakX/pixmaps";
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
$::isWizard = "@ARGV" =~ /--wizard/;
$::expert = "@ARGV" =~ /--expert/;
local $_ = join '', @ARGV;
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 6c59311ec..2cc0a3604 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -51,7 +51,6 @@ sub translate {
$s ? c::dgettext('drakfloppy', $s) : '';
}
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
if ($::isEmbedded) {
print "EMBED\n";
print "XID : $::XID\n";
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 8996aa0d6..d0f92deb3 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -93,7 +93,6 @@ use common;
#use POSIX;
my $in = 'interactive'->vnew( 'su', 'network' );
-$::isEmbedded = ( $::XID, $::CCPID ) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
if ( "@ARGV" =~ /--help|-h/ ) {
print q(Font Importation and monitoring application
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 5dbb87c11..c16ec4514 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -34,8 +34,6 @@ use network::netconnect;
$::isInstall and die "Not supported during install.\n";
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
local $_ = join '', @ARGV;
/-h/ and die "usage: drakgw [--version]\n";
@@ -613,6 +611,11 @@ Click on Configure to launch the setup wizard.", $setup_state));
#-------------------------------------------------
#- $Log$
+#- Revision 1.64 2002/07/31 23:10:55 prigaux
+#- Handle parsing --embedded command line in standalone.pm
+#- => allows to remove the somewhat mythical
+#- $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
+#-
#- Revision 1.63 2002/07/31 11:59:03 prigaux
#- make new perl_checker happy
#-
diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy
index 07f624bbe..f912bb9ee 100755
--- a/perl-install/standalone/drakproxy
+++ b/perl-install/standalone/drakproxy
@@ -26,7 +26,6 @@ use network::network;
$::o->{miscellaneous} ||= {};
$::o->{miscellaneous} = { getVarsFromSh('/etc/profile.d/proxy.sh') };
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
my $in = 'interactive'->vnew('su', 'network');
network::network::miscellaneousNetwork($in, 1, 1);
any::miscellaneousNetwork('');
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index fa1ff2961..9f4002e96 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -14,7 +14,6 @@ local $_ = join '', @ARGV;
/-h/ and die "usage: draksec [--expert]\n";
$::expert = /-expert/ || cat_("/etc/sysconfig/system") =~ /^CLASS="?expert/m; #"
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
my $in = 'interactive'->vnew('su', 'security');
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index f5249475b..5c19e2a2a 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -9,8 +9,6 @@ use interactive;
use services;
use log;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
local $_ = join '', @ARGV;
/-h/ and die "usage: drakxservices\n";
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 6b0d1dfb8..ec02ba537 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -37,7 +37,7 @@ use common;
("@ARGV" =~ /--help|-h/) and die "usage: drakxtv [-h] [--help] [--no-guess]\n";
-#$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+
my $in = 'interactive'->vnew();
sub scan4channels {
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 5085b79ee..a5b8f75b8 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -10,7 +10,6 @@ use Xconfig::xfree;
use common;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
local $_ = join '', @ARGV;
/-h/ and die _("usage: keyboarddrake [--expert] [keyboard]\n");
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 78c35b541..f9273c4ad 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -59,7 +59,6 @@ $::isInstall and die "Not supported during install.\n";
my $in = 'interactive'->vnew('su', 'default');
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
if ($::isEmbedded) {
print "EMBED\n";
print "parent XID\t$::XID\n";
@@ -555,6 +554,11 @@ sub destroy_window {
# log
# $Log$
+# Revision 1.18 2002/07/31 23:10:55 prigaux
+# Handle parsing --embedded command line in standalone.pm
+# => allows to remove the somewhat mythical
+# $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
+#
# Revision 1.17 2002/07/26 11:23:39 daouda
# - more consistency when back button hit in wizard mode
# - back button at last stage.
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index d3cc06e6c..145be22ef 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -11,7 +11,6 @@ use mouse;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
local $_ = join '', @ARGV;
/-h/ and die "usage: mousedrake [--auto] [--testing]\n";
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 72e15bf22..d7254ba99 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -60,7 +60,6 @@ if ($force) {
$quiet and exit(0);
init Gtk;
my $in = 'interactive'->vnew('su', 'default');
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 501119148..2bbee5c31 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -27,7 +27,6 @@ use printerdrake;
use printer;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
local $_ = join '', @ARGV;
/-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing] [--cups] [--lprng] [--lpd] [--pdq]\n";
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index b3b4dd402..5714cabe9 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -26,7 +26,6 @@ use interactive;
use common;
use scanner;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
for (@ARGV) {
/^--version$/ and die 'version: $Id$ '."\n";
/^--help$/ and die 'logdrake [--version] [--help] [--manual] [--device=dev] [--update-sane=sane_desc_dir] [--update-usbtable] [--dynamic=dev]';
@@ -114,6 +113,11 @@ sub quit {
#-----------------------------------------------
# $Log$
+# Revision 1.12 2002/07/31 23:10:55 prigaux
+# Handle parsing --embedded command line in standalone.pm
+# => allows to remove the somewhat mythical
+# $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
+#
# Revision 1.11 2002/03/11 06:43:36 yduret
# re-re-re-re-re-re-uncomment the pkgs check line.
#
diff --git a/perl-install/standalone/tinyfirewall b/perl-install/standalone/tinyfirewall
index 40dbd5f21..b924d2419 100755
--- a/perl-install/standalone/tinyfirewall
+++ b/perl-install/standalone/tinyfirewall
@@ -25,7 +25,6 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use interactive;
use tinyfirewall;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
$::isWizard = "@ARGV" =~ /--wizard/;
$::Wizard_pix_up = "wiz_firewall.png";
$::Wizard_title = _("Firewalling Configuration");