Appel sous routine dans url

Version imprimable

26/09/2007, 23h58
blacksnake

Appel sous routine dans url
Salut,

Je cheche comment appeler une sous routine dans une url pour ne pas faire un script cgi intermédiaire. Le but du jeu est de lancer un delete sur une base de donnée. Avant de taper sur la base je préfère appeler une fonction sans risque.
Code:

1 2 3 4 5 sub say_hello { print("Content-type: text/html\n\n"); print "Hello, World!\n"; }
http://descartes/cgi-bin/gallica.pl?&say_hello; ==> retourne une erreur 500.

Merci à vous ;)

En m'inspirant du script d'Olivier j'ai tenté de faire un script qui appelle des sous routines en fonction du paramètre défini dans l'url :
Code:

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 #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $html = "Content-type: text/html\n\n"; sub fonc1() { print $html . ("<h3>fonc1<hr></h3>"); } sub fonc2() { print $html . ("<h3>fonc2<hr></h3>"); } my %redirect_to = ( google => 'http://www.google.com', yahoo => 'http://www.yahoo.com', toto1 => &fonc1(), toto2 => &fonc2(), default => '/' ); my $cgi=new CGI; my $url = $cgi->param("page") || "default"; print $cgi->redirect(-uri=> $redirect_to{$url});
Les problème est que lors de l'appel de l'url avec le paramètre google, le script ne redirige pas vers google mais il affiche le contenu de fonc1 et de fonc2.

Comment faire pour que le script redirige vers google sans afficher le contenu des fonctions ?

Merci à vous ;)

Code:

&machin()

appelle la fonction machin()

Code:

\&machin

est une référence à la fonction machin().

Donc tu appelais tes deux fonctions lors de la construction de ton hash... Ce qui empêche toute redirection par la suite bien sûr...

Par ailleurs tu mélanges tout ! Soit tu veux faire une redirection, soit tu veux faire un appel de fonction, mais ton hash ne devrait contenir que l'une des deux options !

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/perl
use strict; use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
 
my %choices = (
  toto1        => \&fonc1,
  toto2        => \&fonc2,
  default    => \&default,
);
 
my %redirect_to = (
  google    => 'http://www.google.com',
  yahoo => 'http://www.yahoo.com',
);
 
my $cgi=new CGI;
 
my $choice = param("page") || "default";
 
if( exists $choices{$choice} ) {
  $choices{$choice}->();
}
elsif( exists $redirect_to{$choice} ) {
  print redirect(-uri=> $redirect_to{$choice});
}
else {
  default();
}
 
# subroutines "choices"
sub fonc1 { 
  tnc('fonc1', h3( "fonc1", hr() ) );
}
sub fonc2 {
  tnc('fonc2', h3( "fonc2", hr() ) );
}
sub default {
  tnc('Default', p("You probably didn't intend to end up here...") );
}
 
# title and content of the generated html page
sub tnc {
  my ($title, @content) = @_;
  print header(),
    start_html($title),
    @content,
    end_html();
}
 
__END__

--
Jedaï

13/11/2007, 18h51
blacksnake

Impec', merci Jedai ;)