CVS: mharc/cgi-bin mnav.cgi.in.dist,1.4,1.5

Update of /cvsroot/mhonarc/mharc/cgi-bin
In directory subversions:/tmp/cvs-serv25473/cgi-bin

Modified Files:
	mnav.cgi.in.dist 
Log Message:
* Https check added so redirect URL sent to client will start with
  'https://' if secure HTTP is being used (thanks to Jonathon Padfield
  for catching this).


Index: mnav.cgi.in.dist
===================================================================
RCS file: /cvsroot/mhonarc/mharc/cgi-bin/mnav.cgi.in.dist,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** mnav.cgi.in.dist	3 Sep 2002 16:30:47 -0000	1.4
--- mnav.cgi.in.dist	17 Oct 2002 03:11:31 -0000	1.5
***************
*** 68,71 ****
--- 68,72 ----
  		  $ENV{'SERVER_ADDR'} || 'localhost';
    my $port	= $ENV{'SERVER_PORT'} || "";
+   my $http	= ($ENV{'HTTPS'} eq 'on') ? 'https' : 'http';
    if ($port && $port ne '80') {
      $port = ":$port";
***************
*** 85,89 ****
    }
  
!   my $server_url= "http://$host$port";;
    my $dir	= join('/', $html_archive_root, $archive);
    my $url	= $server_url . join('/', $url_archive_root, $archive);
--- 86,90 ----
    }
  
!   my $server_url= "$http://$host$port";;
    my $dir	= join('/', $html_archive_root, $archive);
    my $url	= $server_url . join('/', $url_archive_root, $archive);

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV