#!/usr/bin/perl -w # $Id: index.html,v 1.8 2008-02-05 01:48:25 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 $realhost = `hostname`; chomp($realhost); my $docroot = $ENV{DOCUMENT_ROOT}; #my $env = join('', map { "$_=" . $ENV{$_} . "\n" } sort keys %ENV); print <<__EOT__; Keystone Resolver

This is an installation of Keystone Resolver
running under $sw on $realhost
from $docroot

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__