#!/usr/bin/perl 
##################################
##  Por Isseu "El hacker Gris"  ##
####### Powered by Miip.es #######
############ V 1.0 ###############
### Argumentos perl ip.pl wlan1 ##
$interfaz = $ARGV[0];
if (!$ARGV[0]){
	open (o ,"> configipviewer");
	@contenido=<o>;
    if(@contenido=""){
    print o "wlan1";
	}
	close o;
	open (p, "< configipviewer");
	@contenido2 = <p>;
	close p;
    $interfaz = @contenido2[0];
	print q "
Nose dio Ninguna Interfaz se hara con la interfaz predeterminada...
######### Metodo de uso: perl ip.pl <interfaz> #########";
	print "\n           Interfaz por defecto actual $interfaz \n";  
	 
	  }	  
@ipprivada2=`GET ip.interchile.com`;
$ipprivada3=@ipprivada2[7];
my @data = split(">", $ipprivada3);
$ipprivada4=@data[5];
my @data2 = split("<", $ipprivada4);
$ip=@data2[0];

print "\n   Interfaz: $interfaz\n";
@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

print "   Ip Publica: $ip\n";
print "   Ip Privada: $ipprivada\n";