From bf324aa6febe3b24aedab1766fda496752ac83e0 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 8 Mar 2002 18:24:36 +0000 Subject: drakproxy rewritten --- perl-install/standalone/drakproxy | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy index d24017fb8..07f624bbe 100755 --- a/perl-install/standalone/drakproxy +++ b/perl-install/standalone/drakproxy @@ -24,9 +24,11 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla use interactive; 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); +network::network::miscellaneousNetwork($in, 1, 1); any::miscellaneousNetwork(''); $in->exit(0); -- cgit v1.2.1