debian/symlink_html_images_to_info_images

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use File::Find;
   7 use File::Spec;
   8
   9 my $debian_dir = $ARGV[0];
  10
  11 find(\&symlink_if_file,$debian_dir);
  12
  13 sub symlink_if_file {
  14     return if -l $_;
  15     return unless -f $_;
  16     my ($leading,$dir,$file_name) = $File::Find::name
  17         =~ m{(.+/usr/share/info/lilypond/)(.*?)([^/]+)$};
  18     my $n_slashes = $dir =~ m{/}g;
  19     my $html_file =
  20         File::Spec->catfile(('..') x ($n_slashes+2),
  21                             qw(doc lilypond html Documentation),
  22                             $dir,
  23                             $file_name
  24                            );
  25     my $info_file =
  26         File::Spec->catfile(('..') x ($n_slashes+4),
  27                             qw(info lilypond),
  28                             $dir,
  29                             $file_name);
  30     if (-f $html_file) {
  31         system('ln','-sf',$info_file,$html_file);
  32         print STDERR "linking $html_file -> $info_file\n";
  33     } else {
  34         print STDERR "html file $html_file doesn't exist\n";
  35     }
  36 }