Bonjour,
j'ai le code Perl suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
sub perl_func{
    my $input = shift;
    if ($input eq 'No'){
	return " Erreur</br>";
	exit 1;
    }
    if ($input eq 'Yes'){
	print $cgi->redirect($mon_url);
    }
}
 
 
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );
	my $html = <<EOHTML;
	<HTML>
	    <BODY>
	    <div id="questiondiv">
	    Would you like to create a new version ? 
	    <input type="button" name="val1_$key" id="val1_$key" value="Yes"
	    onclick="exported_func( ['publi__$name','val1_$key'], ['resultdiv_$key'] );">
	    <input type="button" name="val2_$key" id="val2_$key" value="No"
	    onclick="exported_func( ['val2_$key'], ['resultdiv_$key'] );">
	    </div>
	    <div id="resultdiv_$key"></div>
	    </br>
	    </BODY>
	    </HTML>
EOHTML
 
print $pjx->build_html( $cgi, $html);
Celui-ci fonctionne bien avec Firefox mais la redirection de fonctionne pas avec Google-Chrome. Je pense que cela provient du fait que le CGI::Ajax envoie un header et que j'appelle ensuite ma redirection.

Aussi je ne sais pas comment corriger cela.