#!/usr/bin/perl -w -I/opt/eprints3/perl_lib

use EPrints;

use strict;

my $session = new EPrints::Session();
exit( 1 ) unless( defined $session );

my $url = "http://www.google.com/search?q=".$session->param( "q" );
$url .= "+site:".$session->get_repository->get_conf( "host" );

$session->redirect( $url );

$session->terminate();