Comment savoir si un script est appeler en https ?

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

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

Code:

---

1 2 3

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

---

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

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

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

---

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ï

Merci ça fonctionne bien :ccool: .

Code:

---

1 2 3

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

---