Project

General

Profile

« Previous | Next » 

Revision 7198

handle https-only server configuration -- must pull resources from https not http for the skins etc.

View differences:

src/perl/register-dataset.cgi
70 70

  
71 71
# url configuration
72 72
my $server = $properties->splitToTree( qr/\./, 'server' );
73
my $contextUrl = 'http://' . $properties->getProperty('server.name');
73
my $protocol = 'http://';
74
if ( $properties->getProperty('server.httpPort') eq '443' ) {
75
	$protocol = 'https://';
76
}
77
my $contextUrl = $protocol . $properties->getProperty('server.name');
74 78
if ( $properties->getProperty('server.httpPort') ne '80' ) {
75 79
	$contextUrl =
76 80
	  $contextUrl . ':' . $properties->getProperty('server.httpPort');

Also available in: Unified diff