Difference between revisions of "20 baseurls.pl"

From EPrints Documentation
Jump to: navigation, search
(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";
}