##-- Read the output from iwconfig into the hash %g_wirelessconf --##
sub read_wirelless_conf {
        open(WVIN, "$fromconf{iwpath} $fromconf{interface}|") or die "Could not correctly execute $fromconf{iwpath} $fromconf{interface}";
        while (<WVIN>) {
                 chomp;
                 $g_wirelessconf{ESSID} =   $1 if /ESSID:\"([^"]+)\"/i;
                 $g_wirelessconf{Nickname}   =   $1 if /Nickname:\"([^"]+)\"/i;
                 $g_wirelessconf{Mode} =   $1 if /Mode:(\w+)\s/i;
                 $g_wirelessconf{Frequency} = $1 if /Frequency:([\d.GHz]+)/i;
                 $g_wirelessconf{'Access Point'} =   $1 if /Access\sPoint:\s*([\dABCDEFabcdef:]+)/i;
                 $g_wirelessconf{'Bit Rate'} =   $1 if /Bit\sRate:([\dMb\/s]+)/i;
                 $g_wirelessconf{'Send Power'} =   $1 if /Tx-Power=([\d]+\s+dBm)/i;

                 #-- Sets nickname to 'Nick not set' when not exist or empty --#
                 if ($g_wirelessconf{Nickname}) {
                        if ($g_wirelessconf{Nickname} eq '') {
                                $g_wirelessconf{Nickname} = 'Nick not set';
	                 }
                 }
                 else {
                        $g_wirelessconf{Nickname} = 'Nick not set';
                 }
       };
       close (WVIN);
		
		##-- Detects the Manufactor --##
		my $tmpmac = $g_wirelessconf{'Access Point'};
		$tmpmac =~ s/://g;
		$tmpmac = substr ($tmpmac,0,6);
		$g_wirelessconf{'Mac Vendor'} = $manufactor{$tmpmac};

			#-- Checks if there is a new Network --#
			if ($g_last_values{essid} ne $g_wirelessconf{ESSID} && $g_wirelessconf{ESSID} ne "")
			{
				system ($fromconf{c_newnetfound});
			}
			#-- Checks if we lost the last Networkname --#
			if ($g_last_values{essid} ne $g_wirelessconf{ESSID} && $g_wirelessconf{ESSID} eq "")
			{
				system ($fromconf{c_netlost});
			}
			$g_last_values{essid} = $g_wirelessconf{ESSID};
			return ($true);
}

