Re: [PHP] PHP debugger

#!/usr/bin/perl

package EPP::whois;

use strict;
use lib('/home/httpd/lib');
use UBILIBET::Debug;
use UBILIBET::Config qw(:path :epp :esnic);
use EPP::Client;
use EPP::Actions::ESNIC;

use UBILIBET::Log;
our $log = new UBILIBET::Log({'filename' => '/var/log/whois.log', 'screen' => 0, 'write' => 1, 'open' => 0});

use Data::Dumper;
################################################################################

my $nom = $ARGV[0] || die("No s'ha especificat cap domini");
my $ext = $ARGV[1] || 'es';
my $domain = {'nom' => $nom, 'extensio' => $ext };

$log->log("Dominio consultado: " .$domain->{'nom'}.".".$domain->{'extensio'});

my $epp = new EPP::Client({ 'url' => EPP_SERVER_URL,
   	                        'lib' => 'ESNIC',
      	                    'debug' => 0,
         	             });
$epp->setAuth('user', 'password');

my $dominiInfo = EPP::Actions::ESNIC::getDomainInfo($epp, $domain);

$log->log("Resultado: " . $dominiInfo->{'name'});

unless($dominiInfo) {
	print("Dominio no registrado en ESNIC\n");
	exit();
}

my $ca = EPP::Actions::ESNIC::getContactInfo($epp, $dominiInfo->{'contact'}->{'admin'});
my $ct = EPP::Actions::ESNIC::getContactInfo($epp, $dominiInfo->{'contact'}->{'tech'});

my $dns_str = join("\n", @{$dominiInfo->{'ns'}});

my $body = <<BODY;
################################################################################
# ESNIC WHOIS
################################################################################

___[ DOMINIO ]__________________________________________________________________
Nombre:           $dominiInfo->{'name'}
Handle:           $dominiInfo->{'handle'}
Fecha creaci�n:   $dominiInfo->{'creat'}
Fecha expiraci�n: $dominiInfo->{'expira'}

___[ TITULAR ]__________________________________________________________________
Nombre:		$dominiInfo->{'registrant'}
Puedes encontrar la informaci�n completa en el Whois oficial de ESNIC:
<a href="https://www.nic.es/esnic/esn/verValidacionWhoisAction?dominio=$nom.$ext" target="_blank">Whois ESNIC</a>

___[ CONTACTO ADMINISTRATIVO ]__________________________________________________
Nombre:		$ca->{'name'} ($ca->{'email'})
Handle:		$dominiInfo->{'contact'}->{'admin'}$dominiInfo->{'contact'}->{'admin'}
Direcci�n:	$ca->{'street'}
         	$ca->{'pc'}, $ca->{'city'} 
         	$ca->{'sp'} ($ca->{'cc'})
Tel�fono:	$ca->{'voice'}
Fax:			$ca->{'fax'}

___[ CONTACTO T�CNICO ]_________________________________________________________
Nombre:		$ct->{'name'} ($ct->{'email'})
Handle:		$dominiInfo->{'contact'}->{'tech'}
Direcci�n:	$ct->{'street'}
         	$ct->{'pc'}, $ct->{'city'} 
         	$ct->{'sp'} ($ct->{'cc'})
Tel�fono:	$ct->{'voice'}
Fax:			$ct->{'fax'}

___[ SERVIDORES DNS ]___________________________________________________________
$dns_str

BODY

print($body);
$log->log("BODY:" . $body);

1;

#!/usr/bin/perl

package EPP::whois;

use strict;
use lib('/home/httpd/lib');
use UBILIBET::Debug;
use UBILIBET::Config qw(:path :epp :eurid);
use EURid::Client;
use EURid::Command;
use EURid::Actions;
use EURid::Actions::Domain;
use EURid::Actions::Contact;

use UBILIBET::Log;
our $log = new UBILIBET::Log({'filename' => '/var/log/whois.log', 'screen' => 0, 'write' => 1, 'open' => 0});

use Data::Dumper;
################################################################################

my $nom = $ARGV[0] || die("No s'ha especificat cap domini");
my $domain = {'nom' => $nom, 'extensio' => 'eu' }; 
my $client = new EURid::client({ 
               'server'  => EURID_SERVER_IP,	'port' => EURID_SERVER_PORT,
               'user'    => EURID_USER, 	'password' => EURID_PASSWORD,
               'debug'	 => 0,
             });
	$client->connect(1);
	$client->login();
	
$log->log("Dominio consultado: " .$domain->{'nom'}.".".$domain->{'extensio'});

my ($error, $response, $msg) = EURid::Actions::Domain::info($client, $domain);
if ($error) {
    $log->log("Resultado: ERROR - " .$error->{'num'});
	if ($error->{'num'} eq '2303') {
		print("Dominio no registrado en EURid\n");
		exit();
	} elsif ($error->{'num'} eq '2201') {
		print <<BODY;
		
################################################################################
# EURID WHOIS
################################################################################

La informaci�n de este dominio s�lo esta disponible en la web del registro.
Por favor visita su web:

<a href="http://www1.whois.eu/whois/GetDomainStatus.htm?domainName=$nom" target="_blank">WHOIS EURid</a>

BODY
		exit();
	} else {
		print Dumper($error);
		exit();
	}
}

my $dominiInfo = $response->{'resData'}->{'domain:infData'};
my $handles = {'registrant' => $dominiInfo->{'domain:registrant'}};
$log->log("Resultado: ". $dominiInfo->{'domain:name'});
foreach(@{$dominiInfo->{'domain:contact'}}) {
	$handles->{$_->{'type'}}=$_->{'content'};
}			
my $dns_str = '';
foreach(@{$dominiInfo->{'domain:ns'}->{'domain:hostAttr'}}) {
	$dns_str.=$_->{'domain:hostName'}."\n";
}

my ($error, $response, $msg) = EURid::Actions::Contact::info($client, $handles->{'registrant'});
my $cr = $response->{'resData'}->{'contact:infData'};
if (ref($cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}) eq 'ARRAY') {
	$cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'} = 
		join ("\n            ", @{$cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}});
}
my ($error, $response, $msg) = EURid::Actions::Contact::info($client, $handles->{'tech'});
my $ct = $response->{'resData'}->{'contact:infData'};
if (ref($ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}) eq 'ARRAY') {
	$ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'} = 
		join ("\n            ", @{$ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}});
}
my $body = <<BODY;
################################################################################
# EURID WHOIS
################################################################################

___[ DOMINIO ]__________________________________________________________________
Nombre:           $dominiInfo->{'domain:name'}
Fecha creaci�n:   $dominiInfo->{'domain:crDate'}
Fecha expiraci�n: $dominiInfo->{'domain:exDate'}

___[ TITULAR ]__________________________________________________________________
Nombre:     $cr->{'contact:postalInfo'}->{'contact:name'} ($cr->{'contact:email'})
Organiz.:   $cr->{'contact:postalInfo'}->{'contact:org'}
Handle:     $handles->{'registrant'}
Direcci�n:  $cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}
            $cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:pc'}, $cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:city'}
            $cr->{'contact:postalInfo'}->{'contact:addr'}->{'contact:cc'}
Tel�fono:   $cr->{'contact:voice'}
Fax:        $cr->{'contact:fax'}

___[ CONTACTO T�CNICO ]_________________________________________________________
Nombre:     $ct->{'contact:postalInfo'}->{'contact:name'} ($ct->{'contact:email'})
Organiz.:   $ct->{'contact:postalInfo'}->{'contact:org'}
Handle:     $handles->{'tech'}
Direcci�n:  $ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:street'}
            $ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:pc'}, $ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:city'}
            $ct->{'contact:postalInfo'}->{'contact:addr'}->{'contact:cc'}
Tel�fono:   $ct->{'contact:voice'}
Fax:        $ct->{'contact:fax'}

___[ SERVIDORES DNS ]___________________________________________________________
$dns_str

BODY

print($body); 

1;

<?php header('Content-Type: text/html; charset=UTF-8'); ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
  <head>
       <meta http-equiv="content-type" content="text/html; charset=utf-8">
       <title>UBILIBET :: Whois Search</title>
       <style type="text/css">
          body { font: 11px "Courier New"; }
       </style>
  </head>
  <body>
		<pre><?php
			require_once "include/captcha.php";
			$res = captcha::check();
			if (!$res) die('C�digo de validaci�n no v�lido');
			
			require_once 'lib.php';
			$nom =  isset($_REQUEST['nom'])? addslashes($_REQUEST['nom']):false;
			$ext = isset($_REQUEST['ext'])? addslashes($_REQUEST['ext']):false;
			if (!$nom || !$ext)  die();
			$nom = strtolower(trim($nom));
			
			require_once 'include/idn.php';
			error_reporting(E_ALL);
			$IDN = new idna_convert();
			$nom = $IDN->encode($nom);
			switch(strtolower($ext)) {
				case 'es':
				case 'com.es':
				case 'nom.es':
				case 'org.es':
				case 'edu.es':
				case 'gob.es':
				    $cmd = escapeshellcmd('/home/httpd/bin/esnic/whois.pl ' . EscapeShellCmd("$nom $ext"));
					break;
				case 'eu':
					$cmd = escapeshellcmd('/home/httpd/bin/eurid/whois.pl ' . EscapeShellCmd($nom));
					break;
				default:
					$cmd = escapeshellcmd('whois ' . EscapeShellCmd("$nom.$ext"));
			}
            $msg = date("d/m/T\tH:i:s\t") . " Ejecutando: " . $cmd . "\n";
            file_put_contents('/var/log/whois.log',$msg,FILE_APPEND);

            $pipe = '';
			ob_start();
				passthru($cmd,$retval);
				$pipe=ob_get_contents ();
				$pipe=ob_get_contents ();
			ob_end_clean();
			print($pipe);

            $msg = date("d/m/T\tH:i:s\t") . " Resultado: " . $retval . "\n" . $pipe . "\n----- ----- -----\n";
            file_put_contents('/var/log/whois.log',$msg,FILE_APPEND);

     	?>
     	</pre>
   </body>
</html>