<% use CGI; use DBI; use Mail::Sendmail; $html = new CGI; ################################ ## RESET DES VARIABLES ## ################################ $fonction=''; $ID=''; $choice=''; $langue=''; $price=0; $price_euro=0; ################################ ## RAPATRIEMENT DES VARIABLES ## ################################ $cookies_asp = $ENV{'session-id'}; $price=$html->param('price'); $fonction=$html->param('fonction'); if(!$fonction) { $fonction="start_account"; } $ID=$html->param('ID'); $langue=$html->param('langue'); if(!$langue) { $langue="fr"; } $my_domain=$html->param('domainname'); ################################ ## LANCEMENT DES FONCTIONS ## ################################ if($fonction eq "start_account") { if($langue eq "fr") { &print_header_fr_account; &print_page_depart_fr_account; &print_end_account; } elsif($langue eq "en") { &print_header_en_account; &print_page_depart_en_account; &print_end_account; } elsif($langue eq "nl") { &print_header_nl_account; &print_page_depart_nl_account; &print_end_account; } } ################# PRINT HEADER FR ############################### sub print_header_fr_account { $html->header; print <<"(HEADER)"; Bienvenue chez AZIMUTH, leader en création de site Internet en Belgique (HEADER) $browser = $ENV{'HTTP_USER_AGENT'}; if ($browser =~ /"Netscape6"/){ &print_ns6menu;} print <<"(HEADER)";
 
... ...
(HEADER) } ######### FIN PRINT HEADER FR ############# ################# PRINT HEADER EN ############################### sub print_header_en_account { $html->header; print <<"(HEADER)"; Wecome to Azimuth Domain Name Registration System (HEADER) $browser = $ENV{'HTTP_USER_AGENT'}; if ($browser =~ /"Netscape6"/){ &print_ns6menu;} print <<"(HEADER)";
 
... ...
(HEADER) } ############# FIN PRINT HEADER EN #################### ################# PRINT HEADER NL ############################### sub print_header_nl_account { print <<"(HEADER)"; Wecome to Azimuth Domain Name Registration System (HEADER) $browser = $ENV{'HTTP_USER_AGENT'}; if ($browser =~ /"Netscape6"/){ &print_ns6menu;} print <<"(HEADER)";
 
... ...
(HEADER) } ############# FIN PRINT HEADER NL #################### #################################################### ## AFFICHAGE DE LA PAGE DE DEPART FRANCAIS ## #################################################### sub print_page_depart_fr_account { print <<"(PAGE DEPART)";
Enregistrement .BE
AZIMUTH vous offre la possibilité de régler l'enregistrement de votre nom de domaine Internet, de façon interactive.
soit par virement sur notre comtpe courant, soit par carte de crédit (VISA, MASTERCARD, EUROCARD).
AIDE -> dns\@azimuth.be
 
(PAGE DEPART) &check_id; print <<"(PAGE DEPART)";
(PAGE DEPART) &print_azimuth_info_fr_account; print<<"(PAGE DEPART)";
Les trois étapes.
1. Vérification des infos.
2. Choix du mode de paiement
3. Paiement.
(PAGE DEPART) } ################################################### # FIN PRINT PAGE DEPART FRANCAIS # ################################################### #################################################### ## AFFICHAGE DE LA PAGE DE DEPART ANGLAIS ## #################################################### sub print_page_depart_en_account { print <<"(PAGE DEPART)";
Registration .BE
AZIMUTH provide Online Secure Payment of your domain name
either bank transfert, either credit card (VISA, MASTERCARD, EUROCARD).
HELP -> dns\@azimuth.be
 
(PAGE DEPART) &check_id; print <<"(PAGE DEPART)";
(PAGE DEPART) &print_azimuth_info_en_account; print<<"(PAGE DEPART)";
The tree steps
1. Information verif.
2. Choice of payment
3. Payment.
(PAGE DEPART) } ################################################### # FIN PRINT PAGE DEPART FRANCAIS # ################################################### ################################################### ## AFFICHAGE DES INFO AZIMUTH DE BAS DE PAGE FR ## ################################################### sub print_azimuth_info_fr_account { 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 © 1997/98 @ AZIMUTH NETworking Sales, sprl - bvba
    
 
EOL } #################################################### ## AFFICHAGE DES INFO AZIMUTH DE BAS DE PAGE EN ## #################################################### sub print_azimuth_info_en_account { 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 teh 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 © 1997/98 @ AZIMUTH NETworking Sales, sprl - bvba
    
 
EOL } ###################################### ## AFFICHAGE DE LA FIN DE LA PAGE ## ###################################### sub print_end_account { print ""; } sub check_id { &connectdb_account; $cursor = $dbh->prepare ("select domain, licensee_companyname, licensee_firstname, licensee_lastname, licensee_street, licensee_location, licensee_country, licensee_phone, licensee_fax, licensee_email, years, option1, option2, option3, type_dns, regnum, paid from registration where regnum='$ID' and domain='$my_domain'"); $cursor->execute; @information = $cursor->fetchrow; $cursor->finish; &disconnectdb_account; $prenom = $information[2]; $nom = $information[3]; if($#information eq -1) { if($langue eq "fr") { print <<"(BLOCK HTML)";
ERROR !
Nous ne pouvons retrouver vos informations.
Veuillez contacter l'équipe .BE REGISTRAR à l'adresse : dns\@azimuth.be
(BLOCK HTML) } elsif($langue eq "en") { print <<"(BLOCK HTML)";
ERROR !
We do not find your information
Please contact .BE REGISTRAR at : dns\@azimuth.be
(BLOCK HTML) } } else { if($information[14] eq 1) { $product="DNS REGISTER"; $base_price=30.25; $setup=0; } elsif($information[14] eq 2) { $product="DNS PRESENCE"; $base_price=30.25; $setup=0; } elsif($information[14] eq 3) { $product="DNS HOSTING"; $base_price=310.0; $setup=99.0; } elsif($information[14] eq 4) { $product="DNS PRIVATE"; $base_price=30.25; $setup=0; } elsif($information[14] eq 5) { $product="DNS REDIRECT"; $base_price=30.25; $setup=0; } else { $product="NO PRODUCT FOUND !"; } $price=sprintf("%.2f",($base_price*$information[10])+$setup);; ##$price_tvac=$price+($price*21/100); ##$price_tvac=sprintf("%.2i",$price_tvac); ## Vérification si le paiement à déjà été effectué ## if($information[16] eq 1) { ## Paiement effectué $paid="Payment OK"; } else { ## Paiement non effectué $paid="Payment requested"; } if($langue eq "fr") { print <<"(BLOCK HTML)";
$product
Système de paiement Online de AZIMUTH .BE REGISTRAR
Domaine: $information[0]
Company: $information[1]
Nom: $information[2]
Prenom: $information[3]
Adresse: $information[4]
Ville: $information[5]
Pays: $information[6]
Tél.: $information[7]
Email: $information[9]
Année(s) d'enregistrement: $information[10]
Paiement: $paid
(BLOCK HTML) if($information[16] ne 1) { print <<"(BLOCK HTML)";
Choix du mode règlement
Vous avez la possibilité de régler l'enregistrement de votre nom de domaine
 
soit par virement bancaire au nom d'AZIMUTH NETWorking Sales au numéro de compte 310-0915178-69 en précisant bien votre nom de domaine (IMPORTANT !)
IBAN : 71310091517869 / BIC : BBRUBEBB100

soit par carte de crédit (VISA - EUROCARD - MASTERCARD sont acceptées)
 
(BLOCK HTML) } ###RENOUVELLEMENT PAIEMENT print <<"(BLOCK HTML)";

RENOUVELLEMENT
Choix du mode règlement pour le renouvellement de votre nom
Vous avez la possibilité de régler l'enregistrement de votre nom de domaine
 
soit par virement bancaire au nom d'AZIMUTH NETWorking Sales au numéro de compte 310-0915178-69 en précisant bien votre nom de domaine (IMPORTANT !)
IBAN : 71310091517869 / BIC : BBRUBEBB100

soit par carte de crédit (VISA - EUROCARD - MASTERCARD sont acceptées)
 
(BLOCK HTML) } elsif($langue eq "en") { print <<"(BLOCK HTML)";
$product
OnLine Secure Payment of AZIMUTH .BE REGISTRAR
Domain: $information[0]
Company: $information[1]
Name: $information[2]
Last name: $information[3]
Address: $information[4]
City: $information[5]
Country: $information[6]
Phone: $information[7]
Email: $information[9]
Year(s): $information[10]
Payment: $paid
(BLOCK HTML) if($information[16] ne 1) { print <<"(BLOCK HTML)";
Choice of payment
You have two possibilities to do your payment
 
either bank transfert to AZIMUTH NETWorking Sales, account 310-0915178-69 please be sure to precise your domain name (IMPORTANT !)
IBAN : 71310091517869 / BIC : BBRUBEBB100

either by credit card (VISA - EUROCARD - MASTERCARD are accepted)
 
(BLOCK HTML) } #### renewal payment print <<"(BLOCK HTML)";

RENEWAL
Type of payment for the renewal of your registration
You have two possibilities to make your payment
 
either bank transfert to AZIMUTH NETWorking Sales, account 310-0915178-69 please be sure to precise your domain name (IMPORTANT !)
IBAN : 71310091517869 / BIC : BBRUBEBB100

either by credit card (VISA - EUROCARD - MASTERCARD are accepted)
 
(BLOCK HTML) } } } ############### CONNECTION TO THE DB ############################### sub connectdb_account { $dbh = DBI->connect("dbi:Pg:dbname=dns; host=boris.azimuth.be", 'dns','PALenicV55' ) or die $DBI::errstr; } ############### DISCONNECTION FROM THE DB ############################### sub disconnectdb_account { $dbh->disconnect; } %>