[pso] Refacere LXR

[Lucian Adrian Grijincu]

Salut,

2009/4/19 Cristian Sandescu <cristi at 1p.ro>:
> Sunt ceva probleme cu LXRNG, incearca sa faca cereri http pe 443.

Totul funcționa corect mai puțin pagina de index a lxrng-ului care în
loc să scrie legăturile sub forma
https://cs.pub.ro/lxrng/linux/etc.
  le punea ca
http://cs.pub.ro:443/lxrng/linux/etc.


pentru curioși, rezolvarea:

diff --git a/lib/LXRng/Context.pm b/lib/LXRng/Context.pm
index bf717ab..6f3d2b3 100644
--- a/lib/LXRng/Context.pm
+++ b/lib/LXRng/Context.pm
@@ -36,9 +36,9 @@ sub new {
        # different ways.  CGI breaks if SCRIPT_NAME contains regex
        # metachars, and CGI::Simple does funny things if SCRIPT_NAME
        # is the empty string.  Do it by hand...
-       my $host = 'http'.($ENV{'HTTPS'} eq 'ON' ? 's' : '').'://'.
+       my $host = 'http'.($ENV{'HTTPS'} eq 'on' ? 's' : '').'://'.
            ($ENV{'HTTP_HOST'} || $ENV{'SERVER_NAME'}).
-           ($ENV{'SERVER_PORT'} == ($ENV{'HTTPS'} eq 'ON' ? 443 : 80)
+           ($ENV{'SERVER_PORT'} == ($ENV{'HTTPS'} eq 'on' ? 443 : 80)
             ? '' : ':'.$ENV{'SERVER_PORT'});
        my $path = $ENV{'REQUEST_URI'};
        $path =~ s/\?.*//;

-- 
 .
..: Lucian