Difference between revisions of "20 baseurls.pl"
(Created page with '<pre> { my $uri = URI->new( "http://" ); if( EPrints::Utils::is_set( $c->{host} ) ) { $uri->scheme( "http" ); $uri->host( …') |
|||
Line 1: | Line 1: | ||
+ | You should probably never edit this file unless you really really know what your doing. | ||
+ | |||
+ | ==Example== | ||
<pre> | <pre> | ||
{ | { |
Revision as of 12:46, 20 July 2010
You should probably never edit this file unless you really really know what your doing.
Example
{ my $uri = URI->new( "http://" ); if( EPrints::Utils::is_set( $c->{host} ) ) { $uri->scheme( "http" ); $uri->host( $c->{host} ); $uri->port( $c->{port} ); $uri = $uri->canonical; $uri->path( $c->{http_root} ); } else { $uri->scheme( "https" ); $uri->host( $c->{securehost} ); $uri->port( $c->{secureport} ); $uri = $uri->canonical; $uri->path( $c->{https_root} ); } # EPrints base URL without trailing slash $c->{base_url} = "$uri"; # CGI base URL without trailing slash $c->{perl_url} = "$uri/cgi"; }