Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) The CORE
 
<% $link %>
<%ARGS>

	$file=>undef

</%ARGS>
<%INIT>

	use vars qw($state);

	my $link='';
	my $filename = $state->{crosslinks_dir}.$file;
	if(open(F,'<'.$filename))
	{
		local($/)=undef;
		$link=<F>;
		close F;
	}

</%INIT>