my @foo=split('/', ); my $usuario = $foo[$#foo-1] unless $#foo<1; my $rfc; if ( $usuario eq 'arp' ) { http://arp.ier.unam.mx } else { if (-e "/home/public_html/$usuario/index.html" or -e "/home/public_html/$usuario/index.php" or -e "/home/public_html/$usuario/index.xml" or -e "/home/public_html/$usuario/index.xsp") { /~$usuario/ } } Pg dbname=sica2007 host=xalli postgres select datos_per.rfc,datos_per.nombre,datos_per.apellidos, dp_cat.cat,nivel_frh.nivel,datos_per.ext_tel,datos_per.login, datos_per.especialidad,datos_per.inst_obt_gdo from datos_per,dp_cat,nivel_frh where datos_per.login='$usuario' and datos_per.cat=dp_cat.id and datos_per.grado_acad=nivel_frh.id and datos_per.webpage # # Reading rfc from esql # $rfc .= do ; hdcg @ier.unam.mx select nombre from ia_lineas where rfc='$rfc' and anho>2011 select nombre from ia_lineas_esp where rfc='$rfc' and anho>2011 order by anho