Perl CGI Ajax, Header, ajout de références scripts externes

**smooky132** · 05/11/2008, 21h25

Bonjour,

Vous êtes ma dernière chance! j'ai fait plusieurs forums, regardé la documentation CPAN pour le module CGI::AJAX, une quantité incroyable d'informations sur le web mais j'ai fait chou blanc.
Alors merci d'avance pour votre aide.

Je débute en Perl CGI et je veux utiliser le module AJAX dans la construction d'une page html. J'ai compris le principe et ça fonctionne très bien. Là où je bute c'est pour la construction de la page HTML. Je ne trouve pas comment rajouter un référence de script exterme dans le Header. J'obtiens toujours l'erreur suivante:
"No head/html tags, nowhere to insert. Returning javascript anyway". Si j'analyse la page avec firebug je trouve bien ma référence javascript, mais l'insertion de l'Ajax ne veux pas se faire dans la section Head. Voila mon script, pour ne pas être trop long je l'ai abrégé;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI; # or any other CGI:: form handler/decoder
use CGI::Ajax;
my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&RESOLVE);
print $pjx->build_html($cgi,\&Show_HTML, {-charset=>'UTF-8', -expires=>'-1d'});

sub RESOLVE {.......
}
sub Show_HTML {
print header,
start_html( -title=>'Exemple de formulaire crée par un script Perl',
-script => {-language => 'javascript', src=> 'http://<mon javascript>'}),
h1('Ma page'),
...........
end_html;
}

Meilleures salutations
Smooky132

**djibril** · 05/11/2008, 22h18

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-script => {-language => 'javascript', -src=> 'http://<mon javascript>'}),

t'aurais pas oublié le tiret

sinon pourquoi mettre http://<mon javascript> et non pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ex : /text/toto.js

De plus quand tu utilise cgi::ajax, c'est lui qui te cree les entetes donc si tu veux le changer, c'est en triosieme argument de build je pense

**djibril** · 05/11/2008, 22h24

Show_HTML doit retourner un code html.

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
#!C:/Perl/bin/perl.exe
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI; # or any other CGI:: form handler/decoder
use CGI::Ajax;
my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&RESOLVE);
print $pjx->build_html($cgi,
  \&Show_HTML, 
 {-charset=>'UTF-8', 
  -expires=>'-1d',
});
 
sub RESOLVE {
return;
}
sub Show_HTML {
  my $html = "<html><body>";
  $html .= $cgi->start_html(
    -lang   => "fr-en",
    -title  => "Exemple de formulaire crée par un script Per",
    -style  => { "src"     => "toto.css" },
    -script => { -language => "JAVASCRIPT", 
                  -src      => "http://mon javascript>",
                },
    );
$html .= h1('Ma page'),
    return $html;
}

**smooky132** · 06/11/2008, 13h40

Merci pour ton aide.

Ce n'est pas le caractère "-" qui cause le problème.

Je suis d'accord avec toi show_html doit retourner un code html.

Dans mon cas j'utilise: print header, start_html(...
Ceci retourne bien un code html. j'ai regardé avec firebug et le code est bien la! L'insertion de l'ajax ne s'effectue malheureusement pas quand on se sert des fonction objet de CGI.

Meilleures salutations
Smooky

**smooky132** · 06/11/2008, 13h40

Merci pour ton aide.

Ce n'est pas le caractère "-" qui cause le problème.

Je suis d'accord avec toi show_html doit retourner un code html.

Dans mon cas j'utilise: print header, start_html(...
Ceci retourne bien un code html. j'ai regardé avec firebug et le code est bien la! L'insertion de l'ajax ne s'effectue malheureusement pas quand on se sert des fonction objet de CGI.

Meilleures salutations
Smooky

**Jedai** · 06/11/2008, 16h58

non, "print header..." ne produit pas un code HTML, il produit une réponse HTTP, le header() ne fait pas partie du HTML, il l'introduit seulement, supprime le et voit si ça s'arrange.

--
Jedaï

**djibril** · 06/11/2008, 18h20

Le code mis ci dessus est ok, j'ai l'impression que tu ne l'a pas lu

tu verras bien à l'intérieur que je n'ai pas mis de header() dans la procedure.
Le javascript se met dans le start_html .

**smooky132** · 06/11/2008, 21h05

Pour Jedai: sans le print header plus rien ne fonctionne..

Pour djibril:
J'ai bien lu ton code!
Je pense que je n'ai pas été compris

Je veux utiliser la méthode function-oriented. exemple de script:

#!/usr/local/bin/perl
use CGI qw/:standard/;
print header(),
start_html(-title=>'Wow!'),
h1('Wow!'),
'Look Ma, no hands!',
end_html();

Ce que tu m'as gentilment montré doit être la méthode object-oriented: exemple:

#!/usr/local/bin/perl
use CGI;
$q = new CGI;
print $q->header(),
$q->start_html(-title=>'Wow!'),
$q->h1('Wow!'),
'Look Ma, no hands!',
$q->end_html();

j'ai trouvé l'information ici:

http://search.cpan.org/src/LDS/CGI.p.../cgi_docs.html

et dans le livre CGI programming.

Merci de me dire si je me trompe!

J'ose espérer que le module cgi::ajax peut fonctionner avec les deux méthodes... Peux tu répondre à cette question?

**Jedai** · 06/11/2008, 22h07

Envoyé par djibril

Le code mis ci dessus est ok, j'ai l'impression que tu ne l'a pas lu

tu verras bien à l'intérieur que je n'ai pas mis de header() dans la procedure.
Le javascript se met dans le start_html .

Je l'ai lu, je signalais simplement son erreur à smooky132 (si tu étais correct dans ton assomption que build_html devait prendre une fonction produisant du HTML).

Par ailleurs, pourquoi (my $html = "<html><body>") ? start_html prend déjà soin de ça.

En fait après consultation de la doc de CGI::Ajax le vrai problème de la première solution c'est que Show_HTML() ne renvoie pas le HTML créé : il le print() directement... Ce n'est pas ce que build_html veut, comme Djibril le disait, build_html() prend en paramètre une fonction qui retourne un code HTML, ce HTML peut être construit avec l'interface fonctionnelle de CGI ou l'interface objet, peu importe, mais il doit être renvoyé, pas print()é et il ne doit pas contenir le header() non plus.

--
Jedaï

**smooky132** · 07/11/2008, 21h07

Je suis toujours dans le flou.
Je suis d'accord que c'est bien start_html qui gère le code html (page 105 de CGI Programming with Perl).

Pourquoi je ne trouve aucun exemple concret sur internet utilisant la constellation que je désire?
CGI methode orientée fonction et AJAX

Merci encore pour votre aide

**smooky132** · 10/11/2008, 11h45

Bonjour,

Le problème se situe sûrement à cet endroit!

http://rt.cpan.org/Public/Bug/Display.html?id=24472

Meilleures salutations

**djibril** · 10/11/2008, 15h02

Bon écoute, je comprends pas ce que tu veux.
On vient de te dire qu'il n'est pas possible d'utiliser header si tu utilise ajax.
Et d'ailleurs, pourquoi tu t'obstines à vouloir l'utiliser?
Si tu avais des options de header que tu souhaite mettre dans ton script, tu peux les mettre dans build_html comme tu l'as déjà fait (e "eme argument.
Le reste se met dans start_html.
donc on ne vois vraiment pas où est ton problème.

**smooky132** · 11/11/2008, 08h13

Bonjour,

Je suis très touché par votre réponse...

je viens de trouver la solution moi-même et ça doit fonctionnner avec header.

**stoyak** · 11/11/2008, 15h51

Si tu as trouvé ta solution, pourquoi ne pas la mettre à dispo sur ce forum?
Le but est de partager et de se faire aider.

**smooky132** · 12/11/2008, 14h23

.64 2005-10-27 09:45 -0700 Thu, 27 Oct 2005
Fixed cross-site scripting vulnerability identified in the <=0.60
versions. All users of CGI::Ajax should upgrade asap! If a browser
submits a request for a CGI::Ajax page that contains a function that
doesn't exist, a status 400 Bad Request is returned. Additionally,
STDERR gets some output about this event with a "SECURITY" tag, just
in case. Thanks to krusch for catching this!

Changed how CGI extra header parameters are passed into the CGI
object. Now all parameters destined to CGI->header() are added as a
hashref to the CGI::Ajax->build_html() method, like this for example

$pjx->build_html( $cgi, \&Show_HTML, {-charset=>'UTF-8'} );

Perl CGI Ajax, Header, ajout de références scripts externes

Web Perl

Discussions similaires

Partager

Partager