Les Services Web sont une technique de programmation constituant a retourner ou envoyer de l'information à un appel AJAX.
Voici un exemple du développement d'une page de service Web du nom de «serviceweb.cgi» retournant des informations :
- #!/usr/bin/perl
-
- use warnings;
- use strict;
-
- use CGI;
- use CGI::Cookie;
- use DBI;
-
- my $cgi = new CGI;
- my $function = $cgi->param('func');
-
- # cette entête est requise pour compatibilité avec IE
- print $cgi->header(-cache_control=>"no-cache, no-store, must-revalidate");
-
- if("getVersion" eq $function) {
- print "1.0"
- } elsif("getLastErrorCode" eq $function) {
- } elsif("getLastErrorMessage" eq $function) {
- } else {
- print "BAD_FUNCTION";
- }
Cette page Perl commence par écrire une page Web classique avec des paramètres indiquant qu'il ne doit pas garder de cache mémoire. Vous remarquerez qu'il existe plusieurs fonctions d'appel différentes: getVersion, getLastErrorCode et getLastErrorMessage. Si la fonction AJAX n'appelle pas une de ses fonctions, il retournera un MID de «BAD_FUNCTION».
On appellera le service getVersion par exemple de la façon suivante dans une page HTML quelconque :
- <span id="version">Chargement...</span>
- <script language="JavaScript1.2">
- var xmlhttp = false;
- if (!xmlhttp && typeof XMLHttpRequest != 'undefined') xmlhttp = new XMLHttpRequest();
- xmlhttp.open("GET", "serviceweb.cgi?func=getVersion", true);
- xmlhttp.onreadystatechange = function() {
- if(xmlhttp.readyState == 4) {
- document.getElementById('version').value=xmlhttp.responseText;
- }
- }
- xmlhttp.send(null);
- </script>
Voir également
Langage de programmation pour les serveurs Web - Services Web
Articles - Optimisation pour des sites à haut niveau de trafic