view release on metacpan or  search on metacpan

eg/complet_example.pl  view on Meta::CPAN

# Les ajouter au header questions 
#### if code retour =200 et qu il reste des questions :next
if ($echange->{responsecode} == 302 ) {
  # generer la location et la methode 
$fich_template="/root/robot_response.templ";
$tt->process($fich_template,\%variables,\$output) ;
$html.=$output; 
   $method= 'get' ; 
  $target='redirection';
}
#### if code retour =300 on prend la relocation et on continue la boucle
### si plus d occurs on sort de la boucle


}
## fin scenario 
### je genere les cookies pour le client
$fich_template="/root/robot_fin_programme.templ";
$tt->process($fich_template,\%variables,\$output) ;