# Wired / Wireless network auto configuration script
###################################
use strict;

my $USER_ID = `id -u`;
my $ROOT_ID = "0";
my @AVAILABLE_IFACES = `/sbin/ifconfig -a grep th cut -d \" \" -f 1`;
my $IFACE;

system "clear";

unless ("$USER_ID" == "$ROOT_ID") {
die ("\nPermission Denied\n\n");
}

chomp($AVAILABLE_IFACES[0]);
chomp($AVAILABLE_IFACES[1]);

my $TOTAL_IFACES = $#AVAILABLE_IFACES +=1;
print "$TOTAL_IFACES interfaces found: ";
print "$AVAILABLE_IFACES[0] ";
print "& ";
print "$AVAILABLE_IFACES[1]", "\n";
print ("Network Interface? [ath0]: ");
my $USER_INTERACTION = <STDIN>;

chomp ($USER_INTERACTION);

until ($USER_INTERACTION eq $AVAILABLE_IFACES[0] $USER_INTERACTION eq $AVAILABLE_IFACES[1] $USER_INTERACTION eq "") {
system "clear";
die "No such interface $USER_INTERACTION\n\n";
}

if ("$USER_INTERACTION" eq "eth1") {
my $IFACE = "eth1";
}

elsif ("$USER_INTERACTION" eq "" "$USER_INTERACTION" eq "ath0"){
my $IFACE = "ath0";
my $ESSID = "essid";
my $KEY = "key";

# I already know, this is too bad.
# However, this is only a script and won't use an encryption layer or something
# like that as it'd be like killing flies with machine guns, wouldn't it?

print "Configuring interface $IFACE...\n";
system "iwconfig $IFACE essid $ESSID key $KEY";
}

else {
my $IFACE = "eth0";
}