Lines Matching refs:file
24 package installer::windows::file;
55 foreach my $file (@$filesref)
57 if ( ! exists($file->{'modules'}) )
60 sprintf("ERROR: No module assignment found for %s", $file->{'gid'}),
63 my $module = $file->{'modules'};
72 $file->{'gid'}),
75 $file->{'assignedcabinetfile'} = $installer::globals::allcabinetassigns{$module};
78 if ( ! exists($installer::globals::cabfilecounter{$file->{'assignedcabinetfile'}}) )
80 $installer::globals::cabfilecounter{$file->{'assignedcabinetfile'}} = 1;
84 $installer::globals::cabfilecounter{$file->{'assignedcabinetfile'}}++;
481 my $file = $fileref->{'sourcepath'};
485 if ( -f $file ) # test of existence. For instance services.rdb does not always exist
487 $filesize = ( -s $file ); # file size can be "0"
557 foreach my $file (@$file_list)
563 if (defined $file->{'Dir'} && $file->{'Dir'} eq "PREDEFINED_OSSHELLNEWDIR")
567 . $file->{'Name'};
571 $source_path = $file->{'destination'};
577 $file->{'sequencenumber'} = $sequence;
578 $file->{'uniquename'} = $uniquename;
583 push @added_files, $file;
608 foreach my $file (@$file_list)
610 next unless defined $file->{'sequencenumber'};
611 $used_sequence_numbers{$file->{'sequencenumber'}} = 1;
616 foreach my $file (@$file_list)
619 next if defined $file->{'sequencenumber'};
628 $file->{'sequencenumber'} = $current_sequence_number;
951 foreach my $file (@$file_list)
953 delete $file->{'sequencenumber'};
954 delete $file->{'uniquename'};
1002 foreach my $file (@$file_list)
1004 if ( ! defined $file->{'componentname'})
1006 $file->{'componentname'} = get_file_component_name($file, $file_list);
1008 if ( ! defined $file->{'uniquename'})
1010 $file->{'uniquename'} = generate_unique_filename_for_filetable($file->{'Name'});
1014 if ( $file->{'ComponentCondition'} )
1016 if ( ! exists($installer::globals::componentcondition{$file->{'componentname'}}))
1018 $installer::globals::componentcondition{$file->{'componentname'}}
1019 = $file->{'ComponentCondition'};
1023 get_tree_condition_for_component($file, $file->{'componentname'});
1027 if (has_style($file->{'Styles'}, "VERSION_INDEPENDENT_COMP_ID"))
1029 $installer::globals::base_independent_components{$file->{'componentname'}} = 1;
1034 if ($file->{'needs_user_registry_key'}
1035 || (defined $file->{'Dir'} && $file->{'Dir'} =~ /\bPREDEFINED_OSSHELLNEWDIR\b/))
1037 my $keypath = generate_registry_keypath($file);
1038 $file->{'userregkeypath'} = $keypath;
1039 push(@installer::globals::userregistrycollector, $file);
1043 $file->{'windows_language'} = get_language_for_file($file);
1045 process_language_conditions($file);
1051 foreach my $file (@$file_list)
1053 $file->{'short_name'} = generate_filename_for_filetable($file, \%shortnames);
1065 foreach my $file (@$file_list)
1068 if (has_style($file->{'Styles'}, "DONT_PACK"))
1080 'File' => $file->{'uniquename'},
1081 'Component_' => $file->{'componentname'},
1082 'FileName' => $file->{'short_name'},
1083 'FileSize' => get_filesize($file),
1084 'Version' => get_fileversion($file, $allvariables),
1085 'Language' => $file->{'windows_language'},
1087 'Sequence' => $file->{'sequencenumber'}
1103 foreach my $file (@$file_list)
1105 $components{$file->{'componentname'}} = 1;
1131 foreach my $file (@$file_list)
1133 if ( ! has_style($file->{'Styles'}, "JAVAFILE"))
1135 push @filtered_files, $file;
1184 foreach my $file (@$file_list)
1186 my $path = $file->{'sourcepath'};
1189 $path = $file->{'cyg_sourcepath'};
1200 $file->{'uniquename'},