#!/usr/bin/perl
$Interface = "wlan0";
$HomeESSID = "HomeSSID";
$WEP = "HexWEPKey";
$Mode = "Managed";
$IWCONFIG = "/sbin/iwconfig";
$DHCP = "/sbin/dhcpcd -t 10 -d -N";
@APList = ();
#First load the ndiswrapper module
print("Loading ndiswrapper\n");
system("/sbin/modprobe ndiswrapper");
print("Scanning for wireless access points\n");
@ScanList = qx/iwlist wlan0 scan/;
push(@APList, 'Exit');
push(@APList, 'Home');
push(@APList, 'Work');
foreach $a (@ScanList){
	if($a =~m/No scan results/){
                print("No networks detected, enabling home network\n");
                &homeNet;
        }
	if($a =~ m/$HomeESSID/){
                print("Home network detected\n");
		&homeNet;
	}
	if ($a =~m/ESSID/){
		@Temp = split(/"/,$a);
		push(@APList,$Temp[1]);

	}
}
&selectFrom;
sub homeNet{
	print("Setting up wlan0\n");
	system("$IWCONFIG $Interface essid $HomeESSID");
	system("$IWCONFIG $Interface mode $Mode");
	system ("/sbin/iwconfig wlan0 key $WEP");
	print("Requesting IP from $HomeESSID\n");
	system("$DHCP $Interface");
	system ("ifconfig $Interface up");
	print("Configuration done\n");
	exit;
}
sub selectFrom{
	print("Select one of the following AP points\n");
	for($x=0;$x<=$#APList;$x++){
		print("$x - $APList[$x]\n");
	}
	print("Select by number: ");
	$SelectAP = <STDIN>;
	if((0 <= $SelectAP) and ($SelectAP<=$#APList)){
		if($SelectAP ==0){
			print("No AP Selected, exiting program\n");
			exit;
		}
		if($SelectAP==1){
			print("Configuring Home Network\n");
			&homeNet;
			exit;
		}
		if($SelectAP==2){
			print("Configuring work Network\n");
			system("/etc/rc.d/rc.work");
			exit;
		else{
			print("Using $APList[$SelectAP]\n");
			system("$IWCONFIG $Interface essid $APList[$SelectAP]");
			print("Requesting IP from $APList[$SelectAP]\n");
			system("$DHCP $Interface");
			system("ifconfig $Interface up");
			exit;
		}
	}
	else{
		print("Please select an acceptable number\n");
		&selectFrom;
	}
	exit;
}