Line # Revision Author
1 8 ahitrov@rambler.ru <% $link %>
2 <%ARGS>
3
4 $file=>undef
5
6 </%ARGS>
7 <%INIT>
8
9 use vars qw($state);
10
11 my $link='';
12 my $filename = $state->{crosslinks_dir}.$file;
13 if(open(F,'<'.$filename))
14 {
15 local($/)=undef;
16 $link=<F>;
17 close F;
18 }
19
20 </%INIT>