summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-11 05:35:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-11 05:35:27 +0000
commitb7dba361aa049e50d9fef75ce70f172ce7bd066c (patch)
treee1c5a4c94c2baa374dafe8814c8132268b0d9174 /perl-install/standalone
parent849e5239488ce65da679c2c6da2a9d9faf176c65 (diff)
downloaddrakx-backup-do-not-use-b7dba361aa049e50d9fef75ce70f172ce7bd066c.tar
drakx-backup-do-not-use-b7dba361aa049e50d9fef75ce70f172ce7bd066c.tar.gz
drakx-backup-do-not-use-b7dba361aa049e50d9fef75ce70f172ce7bd066c.tar.bz2
drakx-backup-do-not-use-b7dba361aa049e50d9fef75ce70f172ce7bd066c.tar.xz
drakx-backup-do-not-use-b7dba361aa049e50d9fef75ce70f172ce7bd066c.zip
(UpdateStatus) simplify
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakroam10
1 files changed, 3 insertions, 7 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index cee4dab5a..2870f2554 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -174,22 +174,18 @@ sub UpdateStatus() {
my $CurrentMode = "";
my $CurrentWEP = "";
my $CurrentSignal = "-";
- my @output;
print("Updating\n");
- @output = run_program::get_stdout($IWConfig);
local $_;
- foreach (@output) {
+ foreach (run_program::get_stdout($IWConfig)) {
if (/ESSID:"(\S*)"/) { $CurrentNet = $1 }
if (/Mode:(\S*)\s/) { $CurrentMode = $1 }
if (/key:(\S*)\s/) { $CurrentWEP = $1 }
if (m!Quality:(\S*)/!) { $CurrentSignal = $1 }
}
- @output = run_program::get_stdout($IFConfig, $device);
- foreach (@output) {
+ foreach (run_program::get_stdout($IFConfig, $device)) {
if (/inet addr:(\S*)\s/) { $CurrentIP = $1 }
}
- @output = run_program::get_stdout($route);
- foreach (@output) {
+ foreach (run_program::get_stdout($route)) {
if (/default\s*(\S*)\s/) { $CurrentGW = $1 }
else { $CurrentGW = "---.---.---.---" }
}