<% use CGI; use DBI; use Mail::Sendmail; use String::Random; use vars qw( $Form $Site ); # declare globals ################################# # Initialisation des variables ## ################################# $html = new CGI; $foo = new String::Random; $good='nok'; $good_uid='nok'; $found_login="no"; $found_passwd="no"; $good_domain=''; $domain_id=''; $user_id=''; $new_login=''; ################################ ## Rapatriement des variables ## ################################ $login=$html->param('login'); $password=$html->param('password'); $uid=$html->param('uid'); $langue=$html->param('langue'); if(!$langue) { $langue="fr"; } $fonction=$html->param('fonction'); if(!$fonction) { $fonction="start"; } $did=$html->param('did'); $domain=$html->param('domain'); $nom=$html->param('nom'); $nom=~ s/'/''/g; $prenom=$html->param('prenom'); $prenom=~ s/'/''/g; $language=$html->param('language'); $company=$html->param('company'); $company=~ s/'/''/g; $adresse=$html->param('adresse'); $adresse=~ s/'/''/g; $cp_ville=$html->param('cp_ville'); $cp_ville=~ s/'/''/g; $pays=$html->param('pays'); $pays=~ s/'/''/g; $tva=$html->param('tva'); $tel=$html->param('tel'); $fax=$html->param('fax'); $email=$html->param('email'); $same_registrant=$html->param('same_registrant'); $dns_azimuth=$html->param('dns_azimuth'); $dns1=$html->param('dns1'); $ipdns1=$html->param('ipdns1'); $dns2=$html->param('dns2'); $ipdns2=$html->param('ipdns2'); $dns3=$html->param('dns3'); $ipdns3=$html->param('dns3'); $domain_to_send=$Request->Form('domain_to_send'); #$domain_to_send=$html->param('domain_to_send'); $new_login=$html->param('new_login'); $new_password=$html->param('new_password'); $new_password_verif=$html->param('new_password_verif'); $type_dns=$html->param('type_dns'); $url_redirect=$html->param('adresse_site'); $email_redirect=$html->param('email_site'); $mail_server_redirect=$html->param('mail_server_site'); ##################################### ## Lancement de la base de données ## ##################################### $dbh = DBI->connect("dbi:Pg:dbname=dns; host=boris.azimuth.be", 'dns','PALenicV55' ) or die $DBI::errstr; ################################ ## Lancement des fonction SUB ## ################################ ## PRINT_HEADER ## print $html->header; if($fonction eq "start") { # Fonction de départ et par défaut if($langue eq "fr") { &print_header_be_fr; # Affichage du header &print_login_fr; # Affichage du tableau demandant le login et mot de passe &print_info_fr; # Information de bas de page &print_end_be; # tag html de fin de page } else { &print_header_be_en; # Affichage du header &print_login_en; # Affichage du tableau demandant le login et mot de passe &print_info_en; # Information de bas de page &print_end_be; # tag html de fin de page } } if($fonction eq "login") { # Fonction de départ et par défaut &verify($login,$password); # Vérification du login et mot de passe if($good eq "ok") { # if($langue eq "fr") { &print_header_be_fr; # Affichage du header &print_infouser_fr($user_id,$domain_id); # Affichage du tableau avec les info sur le registrant &print_info_fr; # Information de bas de page &print_end_be; # tag html de fin de page } else { &print_header_be_en; # Affichage du header &print_infouser_en($user_id,$domain_id); # Affichage du tableau avec les info sur le registrant &print_info_en; # Information de bas de page &print_end_be; # tag html de fin de page } } elsif ($good eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "registrant") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($langue eq "fr") { &print_header_be_fr; &print_info_registrant_fr($user_id,$domain_id); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_info_registrant_en($user_id,$domain_id); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "update_registrant") { &verify_uid($login,$uid); if($good_uid eq "ok") { $cursor3= $dbh->prepare("update registration set licensee_firstname='$nom', licensee_lastname='$prenom', licensee_language='$language', licensee_companyname='$company', licensee_street='$adresse', licensee_location='$cp_ville', licensee_country='$pays', licensee_vat='$tva', licensee_phone='$tel', licensee_fax='$fax', licensee_email='$email', to_update=true where regnum=$domain_id"); $cursor3->execute; $cursor3->finish; if($email) { $cursor7= $dbh->prepare("update users set email='$email' where domain_id=$domain_id"); $cursor7->execute; $cursor7->finish; } if($langue eq "fr") { &print_header_be_fr; &print_infouser_fr($user_id,$domain_id); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_infouser_en($user_id,$domain_id); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "techn_contact") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($langue eq "fr") { &print_header_be_fr; &print_info_contact_fr($user_id,$domain_id); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_info_contact_en($user_id,$domain_id); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "update_contact") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($same_registrant eq "same") { $cursor3= $dbh->prepare("update registration set onsite1_firstname='', onsite1_lastname='', onsite1_language='$language', onsite1_companyname='', onsite1_street='', onsite1_location='', onsite1_country='', onsite1_vat='', onsite1_phone='', onsite1_fax='', onsite1_email='', to_update=true where regnum=$domain_id"); $cursor3->execute; $cursor3->finish; } else { $cursor3= $dbh->prepare("update registration set onsite1_firstname='$nom', onsite1_lastname='$prenom', onsite1_language='$language', onsite1_companyname='$company', onsite1_street='$adresse', onsite1_location='$cp_ville', onsite1_country='$pays', onsite1_vat='$tva', onsite1_phone='$tel', onsite1_fax='$fax', onsite1_email='$email', to_update=true where regnum=$domain_id"); $cursor3->execute; $cursor3->finish; } if($langue eq "fr") { &print_header_be_fr; &print_infouser_fr($user_id,$domain_id); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_infouser_en($user_id,$domain_id); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "info_dns") { &verify_uid($login,$uid); if($good_uid eq "ok") { $product_selected=''; $product_selected=&select_product($domain_id); if($langue eq "fr") { &print_header_be_fr; if($product_selected eq "DNS REGISTER") { &print_dns_info_register_fr($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS PRESENCE") { &print_dns_info_presence_fr($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS HOSTING") { &print_dns_info_presence_fr($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS PRIVATE") { &print_dns_info_fr($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS REDIRECT") { &select_redirect_info($domain_id); &print_dns_info_presence_fr($user_id,$domain_id,$product_selected); } &print_info_fr; &print_end_be; } else { &print_header_be_en; if($product_selected eq "DNS REGISTER") { &print_dns_info_register_en($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS PRESENCE") { &print_dns_info_presence_en($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS HOSTING") { &print_dns_info_presence_en($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS PRIVATE") { &print_dns_info_en($user_id,$domain_id,$product_selected); } elsif($product_selected eq "DNS REDIRECT") { &select_redirect_info($domain_id); &print_dns_info_presence_en($user_id,$domain_id,$product_selected); } &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "update_dns") { &verify_uid($login,$uid); if($good_uid eq "ok") { if(($dns_azimuth eq "yes") && ($dns1 eq "")) { $cursor3= $dbh->prepare("update registration set ns1_name='dns.azimuth.be', ns2_name='dns2.azimuth.be', ns3_name='', ns3_ip='', ns4_name='', ns4_ip='', to_update=true where regnum=$domain_id"); $cursor3->execute; $cursor3->finish; } else { $cursor3= $dbh->prepare("update registration set ns1_name='$dns1', ns1_ip='$ipdns1', ns2_name='$dns2', ns2_ip='$ipdns2', ns3_name='$dns3', ns3_ip='$ipdns3', to_update=true where regnum=$domain_id"); $cursor3->execute; $cursor3->finish; } if($langue eq "fr") { &print_header_be_fr; &print_infouser_fr($user_id,$domain_id); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_infouser_en($user_id,$domain_id); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "send_email") { if($langue eq "fr") { &print_header_be_fr; &print_page_send_email_fr; # Affiche une page pour l'envoie d'un email &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_page_send_email_en; # Affiche une page pour l'envoie d'un email &print_info_en; &print_end_be; } } if($fonction eq "send_email_now") { &send_email($domain_to_send); if($good_domain eq "domain_found") { if($langue eq "fr") { &print_header_be_fr; &print_page_send_email_now_fr; # Affiche une page pour l'envoie d'un email &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_page_send_email_now_en; # Affiche une page pour l'envoie d'un email &print_info_en; &print_end_be; } } elsif($good_domain eq "no_domain_found") { &print_header_be_fr; &print_page_error(3); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } elsif($good_domain eq "no_domain_specified") { &print_header_be_fr; &print_page_error(4); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } print "domain ".$domain_to_send. "good domain : ".$good_domain; } if($fonction eq "product") { &verify_uid($login,$uid); $product_selected=&select_product($domain_id); if($good_uid eq "ok") { if($langue eq "fr") { &print_header_be_fr; &print_page_product_fr($product_selected); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_page_product_en($product_selected); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "change_login") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($langue eq "fr") { &print_header_be_fr; &print_change_login_fr($login,$uid); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_change_login_en($login,$uid); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "change_login_now") { &verify_uid($login,$uid); if($good_uid eq "ok") { &update_login($login,$uid,$new_login); if($good_login eq "ok" && $found_login eq "no") { if($langue eq "fr") { &print_header_be_fr; &print_change_login_now_fr; &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_change_login_now_en; &print_info_en; &print_end_be; } } else { &print_header_be_fr; if($found_login eq "yes") { &print_page_error(7); } else { &print_page_error(6); } # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "change_password") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($langue eq "fr") { &print_header_be_fr; &print_change_password_fr($login,$uid); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_change_password_en($login,$uid); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "change_password_now") { &verify_uid($login,$uid); if($good_uid eq "ok") { &update_password($password,$uid,$new_password,$new_password_verif); if($good_verif eq "ok" && $found_passwd eq "no") { if($langue eq "fr") { &print_header_be_fr; &print_change_password_now_fr; &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_change_password_now_en; &print_info_en; &print_end_be; } } else { &print_header_be_fr; if($found_passwd eq "yes") { &print_page_error(8); } else { &print_page_error(5); } # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "change_service") { &verify_uid($login,$uid); if($good_uid eq "ok") { if($langue eq "fr") { $product_selected=&select_product($domain_id); &print_header_be_fr; &print_change_service_fr($product_selected); &print_info_fr; &print_end_be; } else { $product_selected=&select_product($domain_id); &print_header_be_en; &print_change_service_en($product_selected); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "update_type_dns") { &verify_uid($login,$uid); if($good_uid eq "ok") { &update_dns_now($type_dns,$domain_id); $product_selected=&select_product($domain_id); if($langue eq "fr") { &print_header_be_fr; &print_change_service_fr($product_selected); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_change_service_en($product_selected); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } if($fonction eq "update_redirect") { &verify_uid($login,$uid); if($good_uid eq "ok") { &update_redirect($url_redirect,$email_redirect, $mail_server_redirect, $domain_id); $product_selected=&select_product($domain_id); &select_redirect_info($domain_id); if($langue eq "fr") { &print_header_be_fr; &print_dns_info_presence_fr($user_id,$domain_id,$product_selected); &print_info_fr; &print_end_be; } else { &print_header_be_en; &print_dns_info_presence_en($user_id,$domain_id,$product_selected); &print_info_en; &print_end_be; } } elsif ($good_uid eq "no_log_pass") { &print_header_be_fr; &print_page_error(1); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } else { &print_header_be_fr; &print_page_error(2); # Affiche une page avec l'erreur &print_info_fr; &print_end_be; } } ################################# ## Définition des routines SUB ## ################################# ###### FR ######## sub print_header_be_fr { print <<"(HEADER)"; Bienvenue chez AZIMUTH .be REGISTRAR
 
... ...
(HEADER) } ###### EN ######## sub print_header_be_en { print <<"(HEADER)"; Welcome to AZIMUTH .be REGISTRAR
 
... ...
(HEADER) } ## END OF HEADER ## ## PAGE LOGIN ## ###### FR ###### sub print_login_fr { print <<"(LOGIN)";
Bienvenue dans .be REGISTRAR. Cette partie du site vous permet de modifer les informations concernant votre nom de domaine enregistré chez nous.
INFO
 Si vous connaissez votre login et votre mot de passe. Introduisez ceux-ci dans les deux champs ci-dessous.
Pour obtenir un login et mot de passe pour votre nom de domaine cliquez ici
login :
Password :
 
Si vous avez oublié votre mot de passe, cliquez ici et vous pourrez recevoir à nouveau votre login et votre mot de passe, par email.
(LOGIN) } ###### EN ###### sub print_login_en { print <<"(LOGIN)";
Welcome to .be REGISTRAR. This section allow you to modify information about your domain name registered by AZIMUTH.
INFO
 If you already have your login and your password. Please, fill in both the following fields.
To receive a new login and password for your domain name, click here
login :
Password :
 
If you forgot your password, click here to receive your login and a new password
(LOGIN) } ## END PAGE LOGIN ## ## PAGE INFO USERS ## ###### FR ###### sub print_infouser_fr { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
INFORMATION DOMAINE
REGISTRANT
DOMAINE : $row2[1]
 NOM : $row2[2]
 PRENOM : $row2[3]
 LANGUE : $row2[4]
 COMPAGNIE : $row2[5]
 ADRESSE : $row2[7]
 CP/VILLE : $row2[10]
 PAYS : $row2[11]
 TVA : $row2[12]
 TEL : $row2[13]
 FAX : $row2[14]
 EMAIL : $row2[15]
 HANDLE : N/A
IMPORTANT
Toutes les modifications effectuées ici, via notre système .be REGISTRAR© sont directement effectuées. Soyez donc prudents en modifiant vos informations.
Vu le nombre important de domaines enregistrés et afin d'éviter de surcharger les serveurs de DNS-BE, les modifications ne sont transmises auprès de DNS-BE qu'une seule fois par jour.
 
(INFO USER) } $cursor2->finish; if(!$domain_correct){ print <<"(INFO USER)"; Erreur de connexion, veuillez réessayer. (INFO USER) } } sub print_infouser_en { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
DOMAIN INFORMATION
REGISTRANT
DOMAIN : $row2[1]
 LAST NAME : $row2[2]
 FIRST NAME : $row2[3]
 LANGUAGE : $row2[4]
 COMPANY : $row2[5]
 ADDRESS : $row2[7]
 Postal Code/CITY : $row2[10]
 COUNTRY : $row2[11]
 VAT : $row2[12]
 PHONE : $row2[13]
 FAX : $row2[14]
 EMAIL : $row2[15]
 HANDLE : N/A
IMPORTANT
All the modifications carried out, via our system .be REGISTRAR© are immediately registered. Be careful when you modify your information.
Considering the significant number of domain name registered and in order to avoid overloading the servers of DNS-BE, all the modifications will be send to DNS-BE one time a day.
 
(INFO USER) } $cursor2->finish; } sub print_info_registrant_fr { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if($row2[4] eq "F") { $F_selected="selected"; } else { $F_selected=""; } if($row2[4] eq "E") { $E_selected="selected"; } else { $E_selected=""; } print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
IMPORTANT
Toutes les modifications sont effectuées instantanément. Soyez donc prudent quant aux modifications que vous effectuez !
  
INFORMATION DOMAINE
REGISTRANT (personne ayant enregistré le domaine)
DOMAINE : $row2[1]
NOM :
PRENOM :
LANGUE :
COMPANY :
ADRESSE :
CP/VILLE :
PAYS :
TVA :
TEL :
FAX :
EMAIL :
HANDLE : N/A
 
   
 
(INFO USER) } $cursor2->finish; } sub print_info_registrant_en { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if($row2[4] eq "F") { $F_selected="selected"; } else { $F_selected=""; } if($row2[4] eq "E") { $E_selected="selected"; } else { $E_selected=""; } print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
IMPORTANT
All the information are immediately carried out. Be carreful when you modify your information !
  
DOMAIN INFORMATION
REGISTRANT (person having registered the domain name)
DOMAIN : $row2[1]
LAST NAME :
FIRST NAME :
LANGUAGE :
COMPANY :
ADDRESS :
Postal code/CITY :
COUNTRY :
VAT :
PHONE :
FAX :
EMAIL :
HANDLE : N/A
 
   
 
(INFO USER) } $cursor2->finish; } sub print_info_contact_fr { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[17] || !$row2[18]) { $checked='checked'; } else { $checked=''; } if($row2[19] eq "F") { $F_selected="selected"; } else { $F_selected=""; } if($row2[19] eq "E") { $E_selected="selected"; } else { $E_selected=""; } print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
Si le Registrant est la même personne que le contact technique, les champs doivent être vide et le bouton en haut de la page doit être cliquez.
  
IMPORTANT
Toutes les modifications sont effectuées instantanément. Soyez donc prudent quant aux modifications que vous effectuez !
  
INFORMATION DOMAINE
TECHNICAL CONTACT (Personne technique de contact)
 Le Technical contact est la même personne que le Registrant (Oui/Non)
DOMAINE : $row2[1]
NOM :
PRENOM :
LANGUE :
COMPANY :
ADRESSE :
CP/VILLE :
PAYS :
TVA :
TEL :
FAX :
EMAIL :
HANDLE : N/A
 
 
(INFO USER) } $cursor2->finish; } sub print_info_contact_en { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[17] || !$row2[18]) { $checked='checked'; } else { $checked=''; } if($row2[19] eq "F") { $F_selected="selected"; } else { $F_selected=""; } if($row2[19] eq "E") { $E_selected="selected"; } else { $E_selected=""; } print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
If the REGISTRANT is the same that the technical contact, all fields must be empty and the check icon at the top of the page must be checked.
  
IMPORTANT
All modifications are immediately carried out. Be carreful when you modify your information !
  
DOMAIN INFORMATION
TECHNICAL CONTACT (Responsible of technical contact)
 The Technical contact is the same person as the Registrant(Yes/No)
DOMAIN : $row2[1]
LAST NAME :
FIRST NAME :
LANGUAGE :
COMPANY :
ADDRESS :
Postal code/CITY :
COUNTRY :
VAT :
PHONE :
FAX :
EMAIL :
HANDLE : N/A
 
 
(INFO USER) } $cursor2->finish; } sub print_dns_info_fr { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[37] && !$row2[39]) { $checked='checked'; } else { $checked=''; } print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
INFORMATION DNS
SERVEURS
 Mettre à jour avec les DNS des chez AZIMUTH
DOMAINE : $row2[1]
 SERVEUR DNS PRIMAIRE:
IP DNS PRIMAIRE(optionnel) :
SERVEUR DNS SECONDAIRE :
IP DNS SECONDAIRE(optionnel) :
SERVEUR DNS TERTIAIRE(optionnel) :
IP DNS TERTIAIRE(optionnel) :
 
 
(INFO USER) } $cursor2->finish; } sub print_dns_info_en { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[37] && !$row2[39]) { $checked='checked'; } else { $checked=''; } print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
DNS INFORMATION
SERVERS
 Update with AZIMUTH DNS name servers
DOMAIN : $row2[1]
 PRIMARY SERVER NAME:
PRIMARY IP ADDRESS(optionnal) :
SECONDARY SERVER NAME :
SECONDARY IP ADDRESS(optionnal) :
THIRD SERVER NAME(optionnal) :
THIRD IP ADDRESS(optionnal) :
 
 
(INFO USER) } $cursor2->finish; } sub print_dns_info_presence_fr { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[17] || !$row2[18]) { $checked='checked'; } else { $checked=''; } print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
(INFO USER) if($_[2] eq "DNS REDIRECT") { print <<"(INFO USER)"; (INFO USER) } print <<"(INFO USER)";
INFORMATION DNS ($_[2])
SERVEURS
DOMAINE : $row2[1]
 SERVEUR DNS PRIMAIRE: $row2[37]
 IP DNS PRIMAIRE(optionnel) : $row2[38]
 SERVEUR DNS SECONDAIRE : $row2[39]
 IP DNS SECONDAIRE(optionnel) : $row2[40]
URL de votre site : $url_redirect
Votre adresse email : $email_redirect
Mail serveur (optionnel) : $mail_server_redirect
Le service $_[2] ne permet pas la modification des serveurs DNS puisque ce service inclut l'utilisation de ceux-çi.
Si vous désirez changer de service, cliquez sur "Configuration" dans le menu de gauche et choisissez "Changement du service de nom de domaine".
 
(INFO USER) } sub print_dns_info_presence_en { $cursor2= $dbh->prepare("select * from registration where regnum=$domain_id"); $cursor2->execute; while(@row2=$cursor2->fetchrow) { if(!$row2[17] || !$row2[18]) { $checked='checked'; } else { $checked=''; } print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
(INFO USER) if($_[2] eq "DNS REDIRECT") { print <<"(INFO USER)"; (INFO USER) } print <<"(INFO USER)";
DNS INFORMATION ($_[2])
SERVERS
DOMAIN : $row2[1]
 PRIMARY DNS SERVER: $row2[37]
 PRIMARY IP ADDRESS(optionnal) : $row2[38]
 SECONDARY DNS SERVER : $row2[39]
 SECONDARY IP ADDRESS(optionnal) : $row2[40]
URL of your site : $url_redirect
Your email address : $email_redirect
Mail server (optionnal) : $mail_server_redirect
The service $_[2] do not allow you to modify DNS servers information. Because you use it.
To change DNS service, click on the left menu "Configuration" and choose "Change the domain name service".
 
(INFO USER) } sub print_dns_info_register_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(INFO USER)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
INFORMATION DNS
Le service $_[2] ne permet pas la modification des serveurs de nom de domaine.
Si vous désirez introduire des noms de serveurs DNS (ce qui est une situation normal par rapport à la vôtre), vous devez changer de service.
Le premier service permettant l'introduction de nom de serveurs DNS est DNS PRESENCE.
 
Il est recommendez de n'utilisez le service DNS REGISTER que temporairement. Il peut être considéré par DNS-BE comme cybersquatting.
Pour changer de service, cliquez à gauche sur le menu "Configuration" et choisissez "Changement du service de nom de domaine".
 
(INFO USER) } $cursor2->finish; } sub print_dns_info_register_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(INFO USER)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
DNS INFORMATION
The service $_[2] do not allow you to modify DNS servers information.
If you want to introduce DNS server name(that's a usualy situation than yours), you have to change the DNS service.
The first service allowing you to introduce DNS server name is DNS PRESENCE.
 
It is highly recommended to use the DNS REGISTER service just temporarily. It will be considered like "Cybersquatting" by DNS-BE.
To change DNS service, click on the left menu "Configuration" and choose "Change the domain name service".
 
(INFO USER) } $cursor2->finish; } ## PAGE ERROR ## ###### FR ###### sub print_page_error { local($code); $code=0; $code=$_[0]; if($code eq 1) { $error="Manque login ou password"; } if($code eq 2) { $error="login ou password non trouvé"; } if($code eq 3) { $error="Domaine non trouvé"; } if($code eq 4) { $error="Introduisez un nom de domaine"; } if($code eq 5) { $error="La vérification du mot de passe a échoué. Introduisez votre ancien mot de passe et le même nouveau mot de passe dans le champs new password et de vérification.
Cliquez ici pour recommencer."; } if($code eq 6) { $error="Introduisez un login valide !"; } if($code eq 7) { $error="Ce login est déjà utilisé !
Cliquez ici pour recommencer."; } if($code eq 8) { $error="Ce password est déjà utilisé !
Cliquez ici pour recommencer."; } print <<"(LOGIN)";
Bienvenue dans .be REGISTRAR. Cette partie du site vous permet de modifer les informations concernant votre nom de domaine enregistré chez nous.
Une erreur est survenue lors de la tentative d'execution de votre demande !
Voici la raison de cette erreur->$error
INFO
Lors de l'enregistrement de votre nom de domaine, vous avez reçu, par email, un login et un mot de passe.
Introduisez ceux-ci dans les deux champs au centre de cette page.
  Retour au menu principal  
Si vous avez oublié votre mot de passe, cliquez ici et vous pourez recevoir à nouveau votre login et votre mot de passe, par email.
(LOGIN) } ## INFO BAS DE PAGE ## ######### FR ######### sub print_info_fr { print<          A propos de nous...         
   
Azimuth est membre de l'Association Internationale des WebMasters.
Nous respectons les règles de déontologies et toutes les publications d'Azimuth sont soumises aux contrôles des institutions régionales et fédérales de Belgique.
Nous adhérons également au MAPI (Movement Against Pedophilia on Internet) et refusons tous sites contraire à sa charte.
 
  | Services aux Entreprises | Chercher | Job | CyberCulture | Envoyer un mail |
 
   
 
  Copyright©2000/2001 @ AZIMUTH NETworking Sales, sprl - bvba
    
   
EOL } ######## EN ######## sub print_info_en { print<          About Us ...         
   
Azimuth is a member of the International Webmaster Organization.
We respect the deontolgy rules and all Azimuth's publication are under control of regional institutions and belgian federal law.
We join the MAPI charter too(Movement Against Pedophilia on Internet) and we refuse any sites not matching the charter rules.
 
  | Corporate Services | Search | Jobs | CyberCulture | Send an email |
 
   
 
  Copyright©2000/2001 @ AZIMUTH NETworking Sales, sprl - bvba
    
   
EOL } sub print_page_send_email_fr { print <<"(EMAIL)";
Bienvenue dans .be REGISTRAR. Cette partie du site vous permet de recevoir par email votre login et votre mot de passe afin de modifier les informations sur votre nom de domaine. .
IMPORTANT
 Pour des raisons de sécurité évidentes, nous n'enregistrons pas les mots de passe de manière non cryptée.
Nous vous transmettrons par email un nouveau mot de passe. Vous aurez l'opportunité de le modifier via notre système .be REGISTRAR©
Domaine :
Introduisez le nom de votre domaine (exemple : azimuth.be) et cliquez sur envoyer. Vous recevrez par email les informations nécessaires pour vous connecter sur la partie mise à jour des noms de domaine
 
INFO
Pour recevoir votre login et mot de passe, vous devez avoir fourni lors de l'enregistrement de votre domaine, une adresse email valide. Si ce n'est pas le cas, vous ne pourrez pas revecoir d'accès au système de mise à jour.
  Retour au menu principal  
 
(EMAIL) } sub print_page_send_email_en { print <<"(EMAIL)";
Welcome to .be REGISTRAR. This section allow you to receive by email your login and a new password to enter in the update zone.
IMPORTANT
 For obvious security mesure, we don't store clear password.
We'll send you a new password. You will have opportunity to modify it via our system .be REGISTRAR©
Domain :
Introduce the domain name (exemple : azimuth.be) and click on Send button. You'll receive by mail the necessary information to enter in the update zone
 
INFO
To receive your login and your password, you must have provided a valid email address. Otherwise, you can't receive any access in the update zone.
  Back to the home menu  
 
(EMAIL) } sub print_page_product_fr { local($choice_of_product); $choice_of_product="$product_selected"; @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(PRODUCT)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
$choice_of_product
Information
 Lors de l'ouverture de votre compte, nous avons enregistré un login et un mot de passe par défaut. Nous vous recommendons vivement de personnaliser votre login et votre password de façon à le retenir facilement.
 ATTENTION !
Nous vous recommendons de ne pas utiliser de mot de passe trop généric ou trop court, de minimum 8 caractères et maximum 10.
Changement du login
Changement du mot de passe
Changement du service de nom de domaine
(actuellement votre service est $choice_of_product)
 
(PRODUCT) } sub print_page_product_en { local($choice_of_product); $choice_of_product="$product_selected"; @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(PRODUCT)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
$choice_of_product
Information
 At the openning of your account, we have registered a default login and password. We highly recommend you to personnalise your login and your password to easily remember them
 ATTENTION !
We also don't recommend to use password too generic or too short, for minimum 8 characters and maximum 10.
Change login
Change password
Change domain name service
(actualy your service is $choice_of_product)
 
(PRODUCT) } sub print_change_login_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
INFO
 Lors de l'ouverture de votre compte, nous avons enregistré un login et un mot de passe par défaut. Nous vous recommendons vivement de personnaliser votre login et votre password de façon à le retenir facilement.
ATTENTION !
Nous vous recommendons de ne pas utiliser de mot de passe trop généric ou trop court, de minimum 8 caractères et maximum 10.
Ancien login : $_[0]
Nouveau login :
 
 
(LOGIN) } sub print_change_login_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
INFO
 At the opening of your account, we have registered a default login and password. We highly recommend you to change your login and your password to easily remember them
 ATTENTION !
We also don't recommend to use password too generic or too short, for minimum 8 characters and maximum 10.
Old login : $_[0]
New login :
 
 
(LOGIN) } sub print_change_login_now_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGINNOW)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
 
Login updated successfully !
 
$choice_of_product
Changement du login
Changement du mot de passe
Changement du service de nom de domaine
(actuellement votre service est $choice_of_product)
INFO
Lors de l'ouverture de votre compte, nous avons enregistré un login et un mot de passe par défaut. Nous vous recommendons vivement de personnaliser votre login et votre password de façon à le retenir facilement.
ATTENTION !
Nous vous recommendons de ne pas utiliser de mot de passe trop généric ou trop court, de minimum 8 caractères et maximum 10.
 
(LOGINNOW) } sub print_change_login_now_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGINNOW)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
 
Login updated successfully !
 
$choice_of_product
Change login
Change password
Change domain name service
(actuellement votre service est $choice_of_product)
ATTENTION !
We also don't recommend to use password too generic or too short, for minimum 8 characters and maximum 10.
 
(LOGINNOW) } sub print_change_password_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
   
login : $login
Ancien password :
New password :
Vérification :
 
INFO
Pour effectuer la mise à jour de votre mot de passe, introduisez votre ancien mot de passe, introduisez le nouveau mot de passe dans la case "nouveau mot de passe" ainsi que dans la case "Vérification".
ATTENTION !
Nous vous recommendons de ne pas utiliser de mot de passe trop généric ou trop court, de minimum 8 caractères et maximum 10.
 
(LOGIN) } sub print_change_password_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
INFO
 To update your password, introduce your old password, introduce the new password in the "new password" field and also in the "Confirmation" field.
ATTENTION !
We also don't recommend to use password too generic or too short, for minimum 8 characters and maximum 10.
login : $login
Old password :
New password :
Confirmation :
 
 
 
(LOGIN) } sub print_change_password_now_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGINNOW)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
 
Password updated successfully !
 
$choice_of_product
Changement du login
Changement du mot de passe
Changement du service de nom de domaine
(actuellement votre service est $choice_of_product)
INFO
Lors de l'ouverture de votre compte, nous avons enregistré un login et un mot de passe par défaut. Nous vous recommendons vivement de personnaliser votre login et votre password de façon à le retenir facilement.
ATTENTION !
Nous vous recommendons de ne pas utiliser de mot de passe trop généric ou trop court, de minimum 8 caractères et maximum 10.
 
(LOGINNOW) } sub print_change_password_now_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGINNOW)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
 
Password updated successfully !
 
$choice_of_product
Change login
Change password
Change the domain name service
(actuellement votre service est $choice_of_product)
 
 
(LOGINNOW) } sub print_change_service_fr { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
SERVICES DISPONIBLES
Registrant
Technical contact
Information DNS
Configuration
Paiement Renouvellement
 
$_[0]
Modification du service $_[0]
Il existe actuellement 5 services d'enregistrement de nom de domaine Internet.
(LOGIN) if($_[0] eq "DNS REGISTER") { print "DNS REGISTER
"; } else { print "DNS REGISTER
"; } if($_[0] eq "DNS PRESENCE") { print "DNS PRESENCE
"; } else { print "DNS PRESENCE
"; } if($_[0] eq "DNS HOSTING") { print "DNS HOSTING
"; } else { print "DNS HOSTING
"; } if($_[0] eq "DNS PRIVATE") { print "DNS PRIVATE
"; } else { print "DNS PRIVATE
"; } if($_[0] eq "DNS REDIRECT") { print "DNS REDIRECT
"; } else { print "DNS REDIRECT
"; } print <<"(LOGIN)"; Vous pouvez opter pour les services DNS suivants :  
ATTENTION ! Modifier le service DNS peut impliquer une modification de la tarification du service.
Si le service que vous enregistrez implique une modification de la tarification, une facture vous sera adressée.
IMPORTANT !
 Les modifications sont envoyées chez DNS-BE une fois par jour à minuit. Elle sont envoyées automatiquement via notre système .be REGISTRAR©
 
 Pour plus d'information sur la tarification des services d'enregistrement cliquez ici
 
(LOGIN) } sub print_change_service_en { @row2 = $dbh->selectrow_array("select regnum,domain from registration where regnum=$domain_id"); $dbh->disconnect; print <<"(LOGIN)";
AVAILABLE SERVICES
Registrant
Technical contact
DNS Information
Configuration
Renewal Payment
 
$_[0]
Update service $_[0]
There is 5 domain name registration services .
(LOGIN) if($_[0] eq "DNS REGISTER") { print "DNS REGISTER
"; } else { print "DNS REGISTER
"; } if($_[0] eq "DNS PRESENCE") { print "DNS PRESENCE
"; } else { print "DNS PRESENCE
"; } if($_[0] eq "DNS HOSTING") { print "DNS HOSTING
"; } else { print "DNS HOSTING
"; } if($_[0] eq "DNS PRIVATE") { print "DNS PRIVATE
"; } else { print "DNS PRIVATE
"; } if($_[0] eq "DNS REDIRECT") { print "DNS REDIRECT
"; } else { print "DNS REDIRECT
"; } print <<"(LOGIN)"; You can use the following DNS services :  
ATTENTION ! Update the DNS service can generate a price modification.
If the service you change generate a price modification, an invoice will be send to you.
IMPORTANT !
 The modifications are sended by DNS-BE one time a day. They are sended via our system .be REGISTRAR©
 
 For more information about price list of DNS services click here
 
(LOGIN) } sub print_end_be { print ""; } sub print_page_send_email_now_fr { print <<"(LOGIN)";
Bienvenue dans .be REGISTRAR. Cette partie du site vous permet de modifer les informations concernant votre nom de domaine enregistré chez nous.
Votre login et votre mot de passe vous ont été envoyé avec succès.
Controler votre boite email.
 
  Retour au menu principal  
(LOGIN) } sub print_page_send_email_now_en { print <<"(LOGIN)";
Welcome to .be REGISTRAR. This section allow you to modify information about your domain name registered by AZIMUTH .be REGISTRAR.
Your login and password have been send to you successfully !
Check your email box.
 
  Back to the home menu  
(LOGIN) } #### ENVOYE DES INFOS PAR EMAIL #### sub send_email { local($domain_on, $login_on, $password_on, $email_on, $new_password_random); $new_password_random = $foo->randregex('\w\w\w\w\w\w\w\w'); # Prints 3 random digits $new_password_random_crypte = crypt($new_password_random,substr($new_password_random,0,2)); $good_domain=''; $domain_on="$_[0]"; if($_[0]) { $good_domain='no_domain_found'; $cursor= $dbh->prepare("update users set password='$new_password_random_crypte' where domaine='$domain_on'"); $cursor->execute; $cursor= $dbh->prepare("select login, email from users where domaine='$domain_on'"); $cursor->execute; while(@row=$cursor->fetchrow) { $log_on="$row[0]"; $email_on="$row[1]"; $password_no_crypt="$new_password_random"; $good_domain='domain_found'; } $cursor->finish; } else { $good_domain='no_domain_specified'; } if($langue eq "fr" && $good_domain eq "domain_found") { %mail = ( To => "$email_on", bcc => 'dwinner@azimuth.be;manager@azimuth.be', From => 'dns@publisite.be', Subject => "Message from .be Name Guardian", Message => "PUBLISITE\r YOUR SITE IS MORE THAN AN APPLE ...\r http://www.publisite.be\n Nous vous remerçions d'utiliser PUBLISITE .be REGISTRAR.\r PUBLISITE .be REGISTRAR c'est plus que l'enregistrement de votre nom de domaine. C'est aussi le management complet et en ligne de vos informations personnelles et des informations techniques de votre nom de domaine.\n Information pour l'accès au système de mise à jour\r --------------------------------------------------\r DOMAINE:$domain_on\r Votre login:$log_on\r Votre password:$password_no_crypt\r --------------------------------------------------\r Cliquez çi-après pour rejoindre immédiatement .be Name Guardian :\r http://be.azimuth.be/be_update.asp?fonction=login&langue=$langue&login=$log_on&password=$password_no_crypt&langue=fr\n A bientôt.\r Publisite\n\n", SMTP => "alexis.publisite.be" ); sendmail %mail ; } elsif($langue eq "en" && $good_domain eq "domain_found") { %mail = ( To => "$email_on", bcc => 'dwinner@azimuth.be;manager@azimuth.be', From => 'dns@publisite.be', Subject => "Message from .be Name Guardian", Message => "Publisite\r YOUR SITE IS MORE THAN AN APPLE ...\r http://www.publisiteh.be\n Thank you to use PUBLISITE .be REGISTRAR.\r PUBLISITE .be REGISTRAR is more than a simple domain name registration. It is the full OnLine management of your personnal information and technical information of your domain name.\n Information about your update zone access code\r --------------------------------------------------\r DOMAINE:$domain_on\r Your login:$log_on\r Your password:$password_no_crypt\r --------------------------------------------------\r Click here to join the .be Name Guardian :\r http://be.azimuth.be/be_update.asp?fonction=login&langue=$langue&login=$log_on&password=$password_no_crypt&langue=fr\n See you soon,\r PUBLISITE Staff\n\n", SMTP => "alexis.publisite.be" ); sendmail %mail ; } } ########################################## ## Vérification du login et du password ## ########################################## sub verify { local($logged_in,$passwd_in); $good="nok"; $logged_in=''; $logged_in="$_[0]"; $passwd_in=''; $passwd_in=crypt($_[1],substr($_[1],0,2)); if($_[0] && $_[1]) { $query = "select uid,domain_id from users where login='$logged_in' and password='$passwd_in'"; # print $query; @row = $dbh->selectrow_array($query); $user_id="$row[0]"; $domain_id="$row[1]"; if($domain_id) { $good='ok'; } else {$good='no_log_pass';} } else { $good='no_log_pass'; } } sub verify_uid { $good_uid='nok'; local($log_in,$uid_t); $log_in=''; $log_in="$_[0]"; $uid_t=''; $uid_t="$_[1]"; if($_[0] && $_[1]) { $cursor= $dbh->prepare("select uid,domain_id,domaine from users where login='$log_in' and uid=$uid_t"); $cursor->execute; while(@row=$cursor->fetchrow) { $user_id="$row[0]"; $domain_id="$row[1]"; $domaine="$row[2]"; $good_uid='ok'; } $cursor->finish; } else { $good_uid='no_log_pass'; } } sub select_product { # passer le domain_id en argument local($temp_domain_id, $type_dns); $type_dns=''; $temp_domain_id="$_[0]"; $cursor5= $dbh->prepare("select type_dns from registration where regnum=$temp_domain_id"); $cursor5->execute; $row5=$cursor5->fetchrow; $cursor5->finish; if($row5 eq "1") { $type_dns="DNS REGISTER"; } if($row5 eq "2") { $type_dns="DNS PRESENCE"; } if($row5 eq "3") { $type_dns="DNS HOSTING"; } if($row5 eq "4") { $type_dns="DNS PRIVATE"; } if($row5 eq "5") { $type_dns="DNS REDIRECT"; } return $type_dns; } sub select_redirect_info { # passer le domain_id en argument $cursor8= $dbh->prepare("select url_redirect, email_redirect, mailserver_redirect from registration where regnum=$_[0]"); $cursor8->execute; @row8=$cursor8->fetchrow; $url_redirect="$row8[0]"; $email_redirect="$row8[1]"; $mail_server_redirect="$row8[2]"; $cursor8->finish; } sub update_login { if($_[2] && $_[0] && $_[1]) { $found_login="no"; $cursor7 = $dbh->prepare("select password from users where login='$login' and uid='$_[1]'"); $cursor7->execute; $row7=$cursor7->fetchrow; $cursor7->finish; $cursor8 = $dbh->prepare("select numauto from users where login='$_[2]' and password='$row7'"); $cursor8->execute; while(@row8=$cursor8->fetchrow) { $found_login="yes"; } $cursor8->finish; if($found_login eq "no") { $cursor6= $dbh->prepare("update users set login='$_[2]' where login='$_[0]' and uid='$_[1]'"); $cursor6->execute; $cursor6->finish; $login="$_[2]"; } $good_login="ok"; } else { $good_login="nok"; } } sub update_redirect { if($_[3]) { $dbh->do("update registration set url_redirect='$_[0]', email_redirect='$_[1]', mailserver_redirect='$_[2]' where regnum='$_[3]'"); $dbh2 = DBI->connect("dbi:Pg:dbname=pointer", 'pointer','retniop' ) or die $DBI::errstr; $dbh2->do("update pointers set url='$_[0]' where host LIKE 'www.$domaine'"); $dbh2->disconnect(); } else { $good_login="nok"; } } sub update_dns_now { if($_[0] && $_[1]) { if($_[0] eq "1" || $_[0] eq "2" || $_[0] eq "3" || $_[0] eq "5") { $cursor7= $dbh->prepare("update registration set ns1_name='dns.azimuth.be', ns2_name='dns2.azimuth.be', ns3_name='', ns3_ip='', ns4_name='', type_dns='$_[0]', to_update=true where regnum=$_[1]"); } else { $cursor7= $dbh->prepare("update registration set type_dns='$_[0]' where regnum=$_[1]"); } $cursor7->execute; $cursor7->finish; } } sub update_password { local($password_encrypted); if($password && $_[2] && $_[3] && ($_[2] eq "$_[3]")) { $found_passwd="no"; $password_encrypted=crypt($_[2],substr($_[2],0,2)); $cursor9 = $dbh->prepare("select numauto from users where login='$login' and password='$password_encrypted'"); $cursor9->execute; while(@row9=$cursor9->fetchrow) { $found_passwd="yes"; } $cursor9->finish; if($found_passwd eq "no") { $cursor6 = $dbh->prepare("update users set password='$password_encrypted' where login='$login' and uid='$_[1]'"); $cursor6->execute; $cursor6->finish; $good_verif="ok"; } } else { $good_verif="nok"; } } ############### DISCONNECTION FROM THE DB ############################### $dbh->disconnect; %>