Discussion :

[blacksnake]

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 :

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

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

[blacksnake]

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 :

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
 
#!/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

[Jedai]

Code :

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

&machin()

appelle la fonction machin()

Code :

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

\&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 :

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
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ï

[blacksnake]

Impec', merci Jedai