#!/usr/bin/perl

print "\n\nIndica la red a la que quieres conectar:\n";
print "\n\t1. cviugr-v2";
print "\n\t2. otra red \n\n\t\t";
my $entrada = <STDIN>;
chop($entrada);

if($entrada eq "2") { 
	print "\nPara las redes con clave WEP o WPA (sin id.) usa el \"wifi-radar\" "; 
	exit(0);
}

my $usuario="";
my $clave="";
if($entrada eq "1") { 
	print "\n\nIndique el nombre de usuario: ";
	$usuario = <STDIN>; chop($usuario);
	print "\n\nIndique la clave de usuario: ";
	$clave = <STDIN>; chop($clave);
	configurar_wpa_usuario_clave( $usuario , $clave ); 
}

print "\n\n";


#########################################################################
sub configurar_wpa_usuario_clave {
my ($usuario,$clave)=@_;

my @output = `pwd`;
my $directorio_actual = $output[0];
chop($directorio_actual);
my @output = `cd ; pwd`;
my $accesodirecto = $output[0]; 
chop($accesodirecto);

# CREAR EL SCRIPT  wpa_cviugrv2.sh 
# PARA LA CONEXIÓN CVIUGR-V2

open(F,">wpa_cviugrv2.sh");
print F "#!/bin/sh \n";
print F "ifconfig eth1 down \n";
print F "ifconfig eth1 up \n";
print F "killall wpa_supplicant \n";
print F "killall dhclient \n";
print F "wpa_supplicant -c $directorio_actual/wpa_cviugrv2.conf -i eth1 -D wext -B \n";
print F "sleep 1 \n";
print F "dhclient eth1 \n";
close(F);

# CREAR EL FICHERO   wpa_cviugrv2.conf 
# PARA LA CONEXIÓN CVIUGR-V2

open(F,">wpa_cviugrv2.conf");
print F "ctrl_interface=/var/run/wpa_supplicant \n";
print F "eapol_version=1 \n";
print F "ap_scan=1 \n";
print F "network={ \n";
print F "  	ssid=\"cviugr-v2\" \n";
print F "key_mgmt=WPA-EAP \n";
print F "proto=WPA \n";
print F "eap=TTLS \n";
print F "anonymous_identity=\"anonymous\@ugr.es\" \n";
print F "identity=\"$usuario\" \n";
print F "password=\"$clave\" \n";
print F "priority=2 \n";
print F "phase2=\"auth=PAP\" \n";
print F "} \n";
close(F);


my @output = `which gksudo`;
my $tieneGKSUDO = $output[0];
if( $tieneGKSUDO =~ /gksudo/ ) {
#si existe el gksudo, creamos el acceso directo, sino, mostramos la forma de conectar haciéndose root
	$accesodirecto = "$accesodirecto/Desktop/conectar_a_cviugrv2.desktop";
	open(F,">$accesodirecto");
	print F "\n[Desktop Entry]\n";
	print F "Encoding=UTF-8\n";
	print F "Version=1.0\n";
	print F "Type=Application\n";
	print F "Terminal=false\n";
	print F "Exec=gksudo perl $directorio_actual/wpa_cviugrv2.sh\n";
	print F "Name[es_ES]=conectar_a_cviugrv2\n";
	print F "Icon[es_ES]=/usr/share/pixmaps/gksu.png\n";
	print F "Name=conectar_a_cviugrv2\n";
	print F "Icon=/usr/share/pixmaps/gksu.png\n";
	close(F);

	print "\n\nPuedes conectar a la red cviugr-v2 tecleando  \" sudo perl wpa_cviugrv2.sh \" ";
	print "\no bien a través del acceso directo creado en el escritorio.";

}else{
	print "\n\nPuedes conectar a la red cviugr-v2  como root tecleando  \" perl wpa_cviugrv2.sh \" ";
}

}

#########################################################################