#!/bin/sh

if test "$1" = "help"; then
    cat <<EOD

Чинит все поломанные ссылки в заданном каталоге и всех его подкаталогах.

Вызов:
    fixlinks <path>to</path>dir>

Результат:
    Находит все поломанные ссылки в заданном каталоге и всех его полкаталогах
    (по умолчанию поиск из текущего каталога) и пытается угадать новое размещение
    файла, на который указывает каждая ссылка.
    Для каждой поломанной ссылки юзеру будет предложен нумерованный список найденных
    файлов, которые удалось обнаружить, и юзер сможет либо указать, номер файла
    для полинки ссылки, либо 0 (или любую другую последовательность нецифровых символов),
    чтобы отменить починку этой ссылки и продолжить поиск.

Требует нахождения скриптов fixlink и guess в одном с собой каталоге.

EOD
    exit
fi

FIXER="`dirname $0`"/fixlink
BASEDIR="$1"
test -n "$BASEDIR" || BASEDIR="."
test -d "$BASEDIR" || exit

find "$BASEDIR" -type l -exec "$FIXER" {} \;

#!/usr/bin/perl

use strict;

# 1. Получим само исходное имя
my $fullname = $ARGV<0>;
unless ($fullname)
{
    print &lt;&lt;EOD

Пытается догадаться о новом расположении файла по заданному полному пути к файлу,
если этот файл уже отсутствует по этому пути.

Вызов:
    guess /full/path/to/non/existing/file/name

Результат:
    Выводит нумерованный список найденных файлов на STDERR и спрашивает у юзера
    номер файла. Если юзер укажет номер файла, то выведет его имя на STDOUT,
    иначе (если юзер укажет 0 или любую нецифровую строку) не выведет ничего.

Удобно использовать в скриптах, например для починки поломанных ссылок.

EOD
;
    exit;
}

exit if -e $fullname;

# 2. Разобъём на имя файла и имя каталога
my ($basename) = ($fullname =~ /(<^\ />+)$/);
my ($dirname) = ($fullname =~ /^(.+)\//);

# 3. Имя каталога очистим и разобъём на компоненты
$dirname =~ s/^\/+//;
$dirname =~ s/\/+$//;
my @dirparts = split /\//, $dirname;

# 4. Найдём первый несуществующий каталог в цепочке компонентов пути
my $existing_dir = "";
my @existing_dir = ();
foreach my $dirpart (@dirparts)
{
    last unless -d "$existing_dir/$dirpart";
    $existing_dir .= "/$dirpart";
    push @existing_dir, $dirpart;
}

# 5. Ищем данный файл в поддереве
my %guessed_dirs = ();
my @guessed_files = ();
my $num = 0;
for (; @existing_dir; pop @existing_dir)
{
    my $guessed_dir = "/" . join("/", @existing_dir);
    my $guessed_file = guess_file($guessed_dir, $basename, \%guessed_dirs);
    if ($guessed_file)
    {
        printf STDERR "%d) %s\n", ++$num, $guessed_file;
        $guessed_dirs{$guessed_dir} = 1;
        push @guessed_files, $guessed_file;
    }
}

if ($num &gt; 0)
{
    my $chosen_file;
    do {
        print STDERR "Choose filename to fix, 0 to cancel: ";
        $chosen_file = 0+&lt;STDIN&gt;;
    } until ((0 &lt;= $chosen_file) && ($chosen_file &lt;= $num));
    exit unless $chosen_file;
    print $guessed_files<$chosen_file-1>;
}

sub guess_file
{
    my ($dir, $file, $ignore_dirs) = @_;
    return "" if exists($ignore_dirs-&gt;{$dir});
    my $wildguess = "$dir/$file";
    return $wildguess if -e $wildguess;
    foreach my $subdir (glob("$dir/*"))
    {
        next unless -d $subdir;
        my $afile = guess_file($subdir, $file, $ignore_dirs);
        return $afile if $afile;
    }
    return "";
}

#!/bin/sh

if test -z "$1"; then
    cat <<EOD

Чинит заданную символьную ссылку, если файл, на который эта ссылка указывает,
уже куда-то перемещён.

Вызов:
    fixlink sym/link/name

Результат:
    Попытается угадать новое местоположение файла, на который указывает ссылка,
    и предлагает юзеру выбрать один из найденных файлов. Юзер может либо ввести
    номер найденного файла, чтобы починить ссылку, либо ввести 0 или другую
    нецифровую последовательность символов, чтобы отказаться от починки ссылки.

Утилита требует наличия перлового скрипта guess в одном с ней каталоге.

EOD
    exit
fi

LINKNAME="$1"
GUESSER="`dirname $0`/guess"
REALNAME="`readlink -m \"$LINKNAME\"`"

test -e "$REALNAME" && exit 0

echo; echo "Link $LINKNAME points to non-existing file $REALNAME, guessing..."
GUESS="`$GUESSER \"$REALNAME\"`"
test -n "$GUESS" && ln -sf "$GUESS" "$LINKNAME"