solenv/bin/modules/installer/filelists.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8
   9 package installer::filelists;
  10
  11 use File::stat;
  12
  13 use installer::files;
  14 use installer::globals;
  15 use installer::logger;
  16 use installer::pathanalyzer;
  17
  18 sub resolve_filelist_flag
  19 {
  20     my ($files, $links, $outdir) = @_;
  21     my @newfiles = ();
  22
  23     foreach my $file (@{$files})
  24     {
  25         my $is_filelist = 0;
  26         my $use_internal_rights = 0;
  27         if ($file->{'Styles'})
  28         {
  29             if ($file->{'Styles'} =~ /\bFILELIST\b/)
  30             {
  31                 $is_filelist = 1;
  32             }
  33             if ($file->{'Styles'} =~ /\bUSE_INTERNAL_RIGHTS\b/ && !$installer::globals::iswin)
  34             {
  35                 $use_internal_rights = 1;
  36             }
  37         }
  38
  39         if ($is_filelist)
  40         {
  41             my $filelist_path = $file->{'sourcepath'};
  42             my $filelist = read_filelist($filelist_path);
  43             if (@{$filelist})
  44             {
  45                 my $destination = $file->{'destination'};
  46                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$destination);
  47
  48                 foreach my $path (@{$filelist})
  49                 {
  50                     my $is_symlink = 0;
  51
  52                     if ((index $path, $outdir) != 0)
  53                     {
  54                         installer::logger::print_error("file '$path' is not in '$outdir'");
  55                     }
  56                     if (-l $path)
  57                     {
  58                         $is_symlink = 1;
  59                     }
  60                     else
  61                     {
  62                         if (!-e $path)
  63                         {
  64                             installer::logger::print_error("file '$path' does not exist");
  65                         }
  66                     }
  67
  68                     my $subpath = substr $path, ((length $outdir) + 1); # drop separator too
  69
  70                     my %newfile = ();
  71                     %newfile = %{$file};
  72                     $newfile{'Name'} = $subpath;
  73                     $newfile{'sourcepath'} = $path;
  74                     $newfile{'destination'} = $destination . $subpath;
  75                     $newfile{'filelistname'} = $file->{'Name'};
  76                     $newfile{'filelistpath'} = $file->{'sourcepath'};
  77
  78                     if ($is_symlink)
  79                     {
  80                         # FIXME: for symlinks destination is mangled later in
  81                         # get_Destination_Directory_For_Item_From_Directorylist
  82                         $newfile{'DoNotMessWithSymlinks'} = 1;
  83                         $newfile{'Target'} = readlink($path);
  84                         push ( @{$links}, \%newfile );
  85                     }
  86                     else
  87                     {
  88                         if ($use_internal_rights)
  89                         {
  90                             my $st = stat($path);
  91                             $newfile{'UnixRights'} = sprintf("%o", $st->mode & 0777);
  92                         }
  93
  94                         push @newfiles, \%newfile;
  95                     }
  96                 }
  97             }
  98             else
  99             {
 100                 installer::logger::print_message("filelist $filelist_path is empty\n");
 101             }
 102         }
 103         else # not a filelist, just pass the current file over
 104         {
 105             push @newfiles, $file;
 106         }
 107     }
 108
 109     return (\@newfiles, $links);
 110 }
 111
 112 sub read_filelist
 113 {
 114     my ($path) = @_;
 115     my $content = installer::files::read_file($path);
 116     my @filelist = ();
 117
 118     foreach my $line (@{$content})
 119     {
 120         chomp $line;
 121         foreach my $file (split /\s+/, $line)
 122         {
 123             if ($file ne "")
 124             {
 125                 push @filelist, $file;
 126             }
 127         }
 128     }
 129
 130     return \@filelist;
 131 }
 132
 133 1;
 134
 135 # vim: set expandtab shiftwidth=4 tabstop=4: