sub read_wirelless_conf {
  open(WVIN, "$fromconf{wicontrol} -i $fromconf{interface}|") or die "Could not correctly execute $fromconf{wicontrol}";
  while (<WVIN>) {
        chomp;
        $_ = /^\s*([^:]+)\:[^\[]+\[\s+([\w: \ \/]+).*/;
        if (!$2) {
                $g_wirelessconf{$1}="Not set";
        }
        else {
                $g_wirelessconf{$1}=$2;
        }
  };
  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{'Current netname \(SSID\)'} && $g_wirelessconf{'Current netname \(SSID\)'} ne "") {
	system ($fromconf{c_newnetfound});
  }
  #-- Checks if we lost the last Networkname --#
  if ($g_last_values{essid} ne $g_wirelessconf{'Current netname \(SSID\)'} && $g_wirelessconf{'Current netname \(SSID\)'} eq "") {
	system ($fromconf{c_netlost});
  }
  $g_last_values{essid} = $g_wirelessconf{ESSID};
  return ($true);
}
