diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 05:35:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 05:35:27 +0000 |
| commit | b7dba361aa049e50d9fef75ce70f172ce7bd066c (patch) | |
| tree | e1c5a4c94c2baa374dafe8814c8132268b0d9174 /perl-install/standalone/drakroam | |
| parent | 849e5239488ce65da679c2c6da2a9d9faf176c65 (diff) | |
| download | drakx-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/drakroam')
| -rwxr-xr-x | perl-install/standalone/drakroam | 10 |
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 = "---.---.---.---" } } |