##-- Main function the collect all the linux wireless extension specific informations --##
sub get_wireless_stats {
	
	open (Wireless, $fromconf{wirelessfile});
	my $iface = $fromconf{iface};
	my (@Wkeys, @Wvalues, $i, $key);
	
	while (<Wireless>) {
			if ($_ !~/Inter-/) {
		 	$_ =~ s/\|//g;
		 	$_ =~ s/^\s+//g;
		 	$_ =~ s/\s+/ /g;
		 	
			 if ($_ =~ /^face/) {
				chomp;
	   		 	@Wkeys = split (/ /);
			 }
			 elsif ($_ =~ /^$iface/) {
			 	chomp;
			 	$_=~ s/[\:\.]//g;
			 	@Wvalues = split (/ /);  
			}
		    }
		    
		 }
		close(Wireless);		
		for ($i=0;$i<@Wkeys;$i++) {
				@Wkeys[$i] =~ s/face/Interface/;
				@Wkeys[$i] =~ s/tus/Status/;
				@Wkeys[$i] =~ s/crypt/Discarded Crypt Packages/;
				@Wkeys[$i] =~ s/nwid/Discarded Nwid Packages/;
				@Wkeys[$i] =~ s/misc/Discarded Misc Packages/;
				$g_wirelessstat {@Wkeys[$i]} = @Wvalues[$i];
			}

		##--- Calculation for getting proper percentage values ---##
		$g_wirelessstat{level} = ($g_wirelessstat{level} * 0.3);
		$g_wirelessstat{link} = ($g_wirelessstat{link} * 1.086);
		$g_wirelessstat{noise} = ($g_wirelessstat{noise} * 0.3);		
		##-------------------------------------------------------##
		open(NETIN, $fromconf{netstatsfile}) or die "Could not correctly read from /proc/net/dev";
		while (<NETIN>) {
			chomp;
			s/\s+0\s+//g;
			if (/$fromconf{inteface}:.*/i) {
				/\.*$fromconf{inteface}:\s*(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/i;
				$g_wirelessstat {'Bytes RX'} = $1;
				$g_wirelessstat {'Packets RX'} = $2;
				$g_wirelessstat {'Bytes TX'} = $3;
				$g_wirelessstat {'Packets TX'} = $4;
			}
			
	    }	
		close (NETIN);
		foreach my $key (sort keys(%g_wirelessstat)) {
			if ($key =~ /RX/i) {
   					$g_rxstat{$key} = $g_wirelessstat{$key};
   			}
            elsif ($key =~ /TX/i) {
   					$g_txstat{$key} = $g_wirelessstat{$key};
               } 
            elsif ($key =~ /Packages/) {
               		$g_miscstat{$key} = $g_wirelessstat{$key};
               }
 	    }
	return ($true);		 
}
