/usr/share/konwert/devel/mkaliases is in konwert-dev 1.8-13.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | #!/usr/bin/perl
$aliasy = shift;
$filtry = shift;
$katalog = shift;
open ALIASY, $aliasy;
foreach (<ALIASY>)
{
s/#.*$//;
@F = split;
push @{$aliasy{$F[0]}}, @F[1 .. $#F] if @F > 1;
}
close ALIASY;
opendir DIR, $filtry;
foreach (readdir DIR)
{
if (/^(.*)-(.*)$/)
{
foreach $a ($1, @{$aliasy{$1}})
{
foreach $b ($2, @{$aliasy{$2}})
{
link "$katalog/$1-$2", "$katalog/$a-$b"
if $a ne $1 || $b ne $2;
}
}
}
else
{
foreach $a (@{$aliasy{$_}})
{
link "$katalog/$_", "$katalog/$a";
}
}
}
closedir DIR;
|