view release on metacpan or  search on metacpan

eg/complet_example.pl  view on Meta::CPAN

     $hashdata{$nom} = $val ;    

#########################################################
    } 
  
 $variables{list_DATA}= \%hashdata;
 $fich_template="/root/robot_data.templ";
 $tt->process($fich_template,\%variables,\$output);
 $fich_template="/root/robot_suite.templ"; 
 }
$tt->process($fich_template,\%variables,\$output) ;
$html.= $output;


### prendre LES COOKIES de la reponse 
## uniquement si la reponse en contient 
my $tmp_cook;
 if ($echange->{response}->{headers_test}) {
    for (@{$echange->{response}->{headers_test}})
 { 
  (my $key, my $value) = /(.+)#(.+)/ ;
  if ($key =~ /set-cookie/i) {
   #$les_cookies{$key} = $value;
   my(@pairs) = split("; ?",$value );
   (my $name,my $value)= $pairs[0]=~  /(.+?)=(.+)/; 
#                       
   $h_cookies{$name} = 1;  

   $tmp_cook .= $pairs[0].";" ;
    }  
 
  }
#%les_cookies = parse CGI::Cookie($tmp_cook);      
} 
my @cooks;
for (keys %h_cookies) {
if ($h_cookies{$_} ==1 ) {
push @cooks , $_;
$h_cookies{$_}=0;
}
}
if (@cooks ) {
$variables{cookienames} = \@cooks;
$fich_template="/root/robot_cookies.templ";
$tt->process($fich_template,\%variables,\$output) ;
$html.= $output;
}


$target="";
# 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) ;

 

print "##############################debut programme perl  #################################\n";
print "$output\n";
#print Dumper(@des_echanges);