Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
 
<% $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>