Estoy editando una aplicación Perl CGI que realiza un procesamiento especial cuando se ejecuta bajo HTTPS.¿Cómo identifico el protocolo (http vs. https) usando CGI de Perl. Pm
En este momento, estoy tratando de detectar por buscar manualmente por 'https: //' en la solicitud URI:
my $is_secure = $cgi->request_uri =~ m{^https://};
¿Hay una manera un poco más limpio de hacer esto?
CGI.pm tiene un método https() que, según the documentation:
opera sobre las variables de entorno HTTPS presentes cuando el protocolo SSL está en vigor. Se puede usar para determinar si SSL está activado.
Esto es probablemente lo que estás buscando. Sin parámetros, devuelve una lista de variables de entorno HTTPS.
Uso $ ENV { 'HTTPS'}
my $is_secure = $ENV{'HTTPS'};
O quizá mejor, sólo tiene que utilizar $ ENV { 'HTTPS'} en lugar de $ is_secure
Espero que la mayoría de los servidores mainstream tengan alguna variable de entorno para esto incluso si no es exactamente esto. –
Sé que esto es una cuestión de edad, pero fue relevante para algo que estaba buscando también. Desafortunadamente, la documentación a la que se vinculó no le dice cómo hacerlo, solo que uno puede hacerlo. – Justin