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

**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, 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

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

Web Perl

Vue hybride

Discussions similaires

Partager

Partager