<%args> $showURL => 0 $realm => "ebsco" <%perl> use LWP; use XML::Simple; my $ref = XMLin(LWP::UserAgent->new()->get("http://newmk2.indexdata.com/torus2/searchable.$realm/records/")->content()); my %targets; foreach my $rec (@{ $ref->{record}}) { my $name = $rec->{layer}->{displayName}; my $udb = $rec->{layer}->{udb}; $targets{$udb} = $name if defined $udb; warn "set $udb => $name"; } my %baseURLs = ( ebsco => "http://flurry.indexdata.com:9000", public => "http://connect.indexdata.com", ala => "http://ala-connect.indexdata.com", ); my $baseURL = $baseURLs{$realm} or die("$0: unrecognised realm '$realm': try one of ", join(",", sort keys %baseURLs)); MasterKey Connect demo targets

MasterKey Connect demo targets

% foreach my $key (sort keys %targets) { % my $name = $targets{$key}; % if ($showURL) { % } % }
<% $key %> <% $name %> [Profile] [Test] <% $baseURL %>/<% $key %>?operation=searchRetrieve&version=1.1&query=water&maximumRecords=3&recordSchema=usi

Go to the Admin Console for the selected targets

% if ($showURL) { Hide MKC URLs % } else { Show MKC URLs % }