#!/usr/local/bin/perl5



use CGI qw(:standard);

use LWP::Simple;



print header;



if (param('get') eq "sidebar")

{

	$var = get "http://www.ucg.org/brp/brp.cgi?get=" . param('get') . "&SourceCode=" . param('SourceCode');

	s/<a href='.*GNM'>/<a href='\/brp\/'>/gm for $var;

	print $var;

}

else

{

	$var = get "http://www.ucg.org/brp/brp.cgi?get=daily&shell=off&SourceCode=GNM";

	print $var;

}