48 lines
1.5 KiB
Perl
48 lines
1.5 KiB
Perl
#!/usr/bin/perl -w
|
|
# vim: set sw=4 ts=4 si et:
|
|
# Copyright: GPL, Written by: Guido Socher <guido.socher at linuxfocus.org>
|
|
sub simpleflattenpath($);
|
|
my $ver="1.0";
|
|
#
|
|
# This program is executed from a serverside include to insert automatically
|
|
# links to the different languages an articel is availabe in.
|
|
# The link is inserted if the file exists.
|
|
#
|
|
my @languages=('English','Castellano','ChineseGB','Deutsch',
|
|
'Francais','Italiano','Nederlands','Portugues','Indonesian',
|
|
'Russian','Turkce','Polish');
|
|
my %langspell=('Francais'=>'Français','Turkce'=>'Türkçe');
|
|
#
|
|
my ($k,$file);
|
|
my $foundcnt=0;
|
|
# Thake the path to the article as QUERY_STRING (call this prog with
|
|
# file?September2004/articleXXX.shtml)
|
|
|
|
if ($ENV{'QUERY_STRING'}){
|
|
print "<!-- addedByLfdynidx ver $ver -->";
|
|
my $p=$ENV{'QUERY_STRING'};
|
|
$p=~s/^\///;
|
|
my @pcomp=split(/\//,$p);
|
|
exit 0 if ($#pcomp != 1);
|
|
# pwd is always the linuxfocus.org document root directory
|
|
# however where we are in the web is a different story
|
|
foreach $k (@languages){
|
|
# test if the file exists
|
|
$file=$k.'/'.$p;
|
|
if ( -f "$file"){
|
|
if ($foundcnt){
|
|
print ' | ';
|
|
}
|
|
$foundcnt++;
|
|
$k=$langspell{$k} if ($langspell{$k});
|
|
print "<A href=\"../../$file\">".$k."</a>";
|
|
}
|
|
}
|
|
}
|
|
if (! $foundcnt){
|
|
print '[ERROR Lfdynidx, file not found]';
|
|
}
|
|
print "\n";
|
|
__END__
|
|
|