Discussion :

[doudweb]

Bonjour,

J'utilise une veille version de CGI

En PHP la variable d'environement $_SERVER['HTTPS'] a la valeur 'on' quand https est actif, y a t'il un equivalent en Perl ?

Je pourrai tester si le port $ENV{SERVER_PORT} = 443 mais ca ne repond pas vraiment a ma demande, car le script pourrai etre appeler en https sur un autre port.

Je pourrai peut etre aussi recuperer l'url du script appeler et verifier si elle commence par https mais la aussi je ne sais pas comment faire.

Merci pour votre aide

[djibril]

Exécute ce code dans ton cgi, et tu verras ce dont tu as besoin.

Code :

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

1
2
3
foreach $var ( sort keys %ENV ) {
    print "${var} : $ENV{$var}<br>\n";
}

[doudweb]

Je l'ai fait avant de poster et non je ne vois toujours pas

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
DOCUMENT_ROOT = /web
GATEWAY_INTERFACE = CGI/1.1
HTTP_ACCEPT = text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
HTTP_ACCEPT_CHARSET = ISO-8859-1,utf-8;q=0.7,*;q=0.7
HTTP_ACCEPT_ENCODING = gzip,deflate
HTTP_ACCEPT_LANGUAGE = fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3
HTTP_CONNECTION = keep-alive
HTTP_HOST = admin.tech
HTTP_KEEP_ALIVE = 300
HTTP_USER_AGENT = Mozilla/5.0 (X11; U; Linux i686; fr; rv:1.9.0.10) Gecko/2009042523 Ubuntu/8.10 (intrepid) Firefox/3.0.10 FirePHP/0.3
PATH = /usr/local/bin:/usr/bin:/bin
QUERY_STRING =
REMOTE_ADDR = 192.168.0.1
REMOTE_PORT = 55904
REQUEST_METHOD = GET
REQUEST_URI = /printenv.pl
SCRIPT_FILENAME = /web/printenv.pl
SCRIPT_NAME = /printenv.pl
SERVER_ADDR = 192.168.0.2
SERVER_ADMIN = tech@tech.com
SERVER_NAME = admin.tech.com
SERVER_PORT = 443
SERVER_PROTOCOL = HTTP/1.1
SERVER_SIGNATURE =
SERVER_SOFTWARE = Apache/2.2.9 (Debian) DAV/2 SVN/1.5.1 PHP/5.2.6-1+lenny3 with Suhosin-Patch mod_ssl/2.2.9 OpenSSL/0.9.8g

[Jedai]

Visiblement ton serveur n'utilise pas HTTPS. Tu peux utiliser la méthode https() du module CGI pour savoir si tu es sous SSL.

--
Jedaï

[doudweb]

Merci ça fonctionne bien .

Code :

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

1
2
3
use CGI;
print 'https is on' if CGI->https();
print 'https is off' if !CGI->https();