Esta vez para decir solamente:
#!/usr/bin/perl -w
my $flag=0;
my $tty=`/usr/bin/tty`;
my $dig="/usr/bin/dig";
my $domain="telecom.com.ar";
$tty=~s/(\n\r\r\n)$//;
$tty=~s/dev/;
my $ip = "";
chop($tty);
my $tflag = 1;
open("TMP","last") die "No pude ejecutar last: $!";
while (($tflag) && ($line =)){
if (($line =~ m/$ENV{'LOGNAME'}/) && ($line =~ m/$tty/)
&& ($line =~ m/still/i)){
my @li = split(" ",$line);
$ip = $li[2];
close(TMP);
$tflag = 0;
}
}
if(($ip=~ m/(\d{1,3})?\.(\d{1,3})?\.(\d{1,3})?\.(\d{1,3})?/)
&&($1<255)&&($2<255)&&($3< 255)&&($4<255)){
$ip="$1.$2.$3.$4";
$flag=1;
}else{
@b=split(" ",$ip);
$b[2]=~ s/([a-b]*)\..*/$1/;
$b[2]=`$dig $b[2].$domaingrep $b[2]grep -v "^;"awk '{print \$5}'`;
$ip=$b[2]; $ip=~s/(\n\r\rn)$//;
$flag=1;
}
print"export DISPLAY=$ip:0\n" if($flag);
__END__
Es un script en Perl (apto para cualquier Unix libre con dig instalado), que da la línea exacta para poner en cualquier host remoto (unix) y así levantar aplicaciones graficas de forma remota.
Se requiere que la máquina en la cual estamos permita las conexiones remotas (que escuche en el puerto 6000).
Devuelve algo como
---8<---8<---8<---8<---8<---8<---8<---8<---
$ myipx
export DISPLAY=10.33.37.12:0
$
--->8--->8--->8--->8--->8--->8--->8--->8---
Por cierto, AMMA (A Mi Me Andaaaaaaaaaaaa) ;-)
gxis revidas
