Project

General

Profile

« Previous | Next » 

Revision 7198

Added by ben leinfelder over 12 years ago

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