#!/usr/bin/perl
# Generate symlinks from .lnk files.
system("find modules firmware -type l 2>/dev/null | xargs --no-run-if-empty rm");
foreach my $link (`find modules firmware -type f -name \\*.lnk 2>/dev/null`) {
	chomp $link;
	my $file=$link;
	$file=~s/\.lnk$//;
	my $dir=$link;
	$dir=~s#/.*##;
	unlink $file || die "unlink $file: $!";
	open (LINK, $link) || die "$link: $!\n";
	my $target=<LINK>;
	chomp $target;
	$target=~s#^common/#/usr/share/kernel-wedge/$dir/#;
	symlink($target, $file) || die "symlink $target $file: $!";
	if (! -e $file) {
		die "$file is a broken link\n";
	}
}
