Onderwerp: Voorbeeld DNS.be

Beste WHT'ers,

Heeft er iemand een voorbeeld van de API van DNS.be ?
Heb alleen een voorbeeldje nodig voor het registreren van een domeinnaam.

De rest lukt dan wel

Al vast bedankt!

Gebruik je Perl dan kan je het net:dri pakket gebruiken.
Is vrij eenvoudig om daarop verder te bouwen , ook voor andere extensies.

vb uit de library met eurid (je hoeft enkel een paar dingen te wijzigen voor .be -> zie docs).

#!/usr/bin/perl -w
#
#
# A Net:RI example
# See also t/606eurid_epp.t

use strict;

use Net:RI;

use DateTime:uration;

my $CLID='YOUR TEST CLIENT ID'; ### Change this information
my $PASS='YOUR PASSWORD'; ### Change this information

my $dri=Net:RI->new(10);

eval {
################################################## ################################################## ########
$dri->add_registry('EURid',{clid=>$CLID});

my $file='results-'.time().'.log';
open(my $fh,'>>',$file) || die $!;
print "Dumping XML exchange to $file\n";
my $oldfh=select($fh); $|++; select($oldfh);

## This connects to .EU server for tests
my $rc=$dri->target('EURid')->new_current_profile('profile1','epp',[{log_fh=>$fh,client_login=>$CLID,client_password=> $PASS}],[]);

die($rc) unless $rc->is_success(); ## Here we catch all errors during setup of transport, such as authentication errors

my $c1=new_contact($dri,'registrant');
my $c2=new_contact($dri,'billing');
my $c3=new_contact($dri,'tech');

$rc=$dri->contact_create($c1);
die($rc) unless $rc->is_success();
my $id=$dri->get_info('id');
print "Contact1 created, id=$id\n";
$c1->srid($id);
$rc=$dri->contact_create($c2);
die($rc) unless $rc->is_success();
$id=$dri->get_info('id');
print "Contact2 created, id=$id\n";
$c2->srid($id);
$rc=$dri->contact_create($c3);
die($rc) unless $rc->is_success();
$id=$dri->get_info('id');
print "Contact3 created, id=$id\n";
$c3->srid($id);

my $dom='toto-'.time().'.eu';
$rc=$dri->domain_check($dom);
print "$dom does not exist\n" unless $dri->get_info('exist');
my $cs=$dri->local_object('contactset');
$cs->set($c1,'registrant');
$cs->set($c2,'billing');
$cs->set($c3,'tech');
print "Attempting to create domain $dom\n";
$rc=$dri->domain_create_only($dom,{duration=>DateTime:uration->new(years =>1),ns=>$dri->local_object('hosts')->add('ns.example.com'),contact=>$cs});
print "$dom created\n" if $rc->is_success();

## After the domain:create, the connection is dropped by the server
## Net:RI will see that and reconnect automatically

$rc=$dri->domain_check($dom);
print "$dom does exist now\n" if $dri->get_info('exist');
$rc=$dri->domain_info($dom);
print "domain_info OK\n" if $rc->is_success();

my $ns='ns.titi-'.time().'.fr';
my $nso=$dri->local_object('hosts')->new($ns);
print "NS=$ns\n";

if ($dri->has_object('host')) ## Should be false for EURid
{
my $e=$dri->host_exist($ns);
print "Host exist\n" if ($e==1);
if ($e==0)
{
print "Creating $ns\n";
$rc=$dri->host_create($nso);
print "Host created OK\n";
}
}

$rc=$dri->domain_update_ns_add($dom,$nso);
print "ns_add OK\n" if $rc->is_success();
$rc=$dri->domain_info($dom);
$rc=$dri->domain_update_ns_del($dom,$nso);
print "ns_del OK\n" if $rc->is_success();
$rc=$dri->domain_info($dom);

# No domain status handling in EURid
#my $s=$dri->create_status()->no('update');
#$rc=$dri->domain_update_status_add($dom,$s);
#print "status_add OK\n" if $rc->is_success();
#$rc=$dri->domain_info($dom);
#$rc=$dri->domain_update_status_del($dom,$s);
#print "status_del OK\n" if $rc->is_success();
#$rc=$dri->domain_info($dom);

$rc=$dri->domain_delete_only($dom);
print "domain_delete OK\n" if $rc->is_success();

$rc=$dri->contact_delete($c1);
print "Contact1 deleted successfully" if $rc->is_success();
$rc=$dri->contact_delete($c2);
print "Contact2 deleted successfully" if $rc->is_success();
$rc=$dri->contact_delete($c3);
print "Contact3 deleted successfully" if $rc->is_success();


$dri->end();
close($fh);
};

if ($@)
{
print "\n\nAn EXCEPTION happened !\n";
if (ref($@))
{
$@->print();
} else
{
print($@);
}
} else
{
print "\n\nNo exception happened";
}

print "\n";
exit 0;

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

sub new_contact
{
my ($dri,$type)=@_;
my $c=$dri->local_object('contact');
$c->name('My Name');
$c->org('My Organisation Ã*é æ'.time());
$c->street(['My Address']);
$c->city('My city');
$c->pc(11111);
$c->cc('FR');
$c->email('test@example.com');
$c->lang('fr');
$c->type($type);
$c->voice('+44.1111111');
$c->fax('+55.2222222');
return $c;
}

Op
https://secure.registry.be/auth/home.php?n=22
Treft je Epp Xml voorbeelden.

Thanks!

Heeft er iemand een voorbeeld hoe ik het makkelijkst kan doen met PHP?
Of een voorbeeldje hoe je de XML bestanden aanroept?

Voorbeelden, staan in de PDF via de link hierboven

Volgens mijn kijk ik er overheen... Welke PDF bedoel je?

http://www.formgenerator.net/nu_form_transfer

Onderaan EPP XML Schemas (version October 2008 - 5.6)
Je kan het niet missen

Beijk ook op de archives