Keystone Resolver

#!/usr/bin/perl -w # $Id: index.html,v 1.6.2.5 2008-01-28 10:39:06 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); print <<__EOT__;

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

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__