use EPrints; use strict; my $session = new EPrints::Session; exit( 0 ) unless( defined $session && $session->get_repository->get_conf( "meprints_enabled" ) ); my $sconf = $session->get_repository->get_conf( "search", "user_public" ); if( !defined $sconf ) { $session->terminate; exit; } EPrints::ScreenProcessor->process( session => $session, url => $session->get_repository->get_conf( "perl_url" )."/meprints/search", sconf => $sconf, template => $sconf->{template}, screenid => "Public::MePrintsSearch", ); $session->terminate; exit;