#!/usr/bin/perl -w # $Id: index.html,v 1.6.2.4 2008-01-24 18:04:26 mike Exp $ my $host = $ENV{'HTTP_HOST'}; ### or maybe one of the following which all seem correctly set: # REDIRECT_HTTP_HOST # REDIRECT_SERVER_NAME # SERVER_NAME my $uri = $ENV{'REQUEST_URI'}; $uri =~ s/(.*)\/.*/$1/; use Keystone::Resolver::Utils qw(mod_perl_version); my $ver = mod_perl_version(); my $sw = $ver ? "mod_perl version $ver" : "CGI, most likely"; my $host = `hostname`; print <<__EOT__;
This is an installation of
Keystone Resolver
running under $sw on $host
Use http://$host${uri}/resolve as the BaseURL of your OpenURL resolver.
OpenURLs for this resolver can be generated using a simple form.
The resolver's resource database can be maintained using the admin UI.
__EOT__