#!/usr/bin/perl -w # $Id: index.html,v 1.6 2007-12-13 17:08:34 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/; print <<__EOT__; Keystone Resolver

This is an installation of Keystone Resolver

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__