equal
deleted
inserted
replaced
234 my $filename = "$::releaseablesdir/$layer/$package/info.tsv"; |
234 my $filename = "$::releaseablesdir/$layer/$package/info.tsv"; |
235 my $filenamemissing = "$::raptorbitsdir/$layer\_$package\_missing.txt" if ($::missing); |
235 my $filenamemissing = "$::raptorbitsdir/$layer\_$package\_missing.txt" if ($::missing); |
236 |
236 |
237 print "Writing info file $filename\n" if (!-f$filename); |
237 print "Writing info file $filename\n" if (!-f$filename); |
238 open(FILE, ">>$filename"); |
238 open(FILE, ">>$filename"); |
239 open(MISSING, ">>$filenamemissing"); |
|
240 |
239 |
241 for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}}) |
240 for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}}) |
242 { |
241 { |
243 for (sort(@{$whatlog_info->{$bldinf}->{$config}->{$filetype}})) |
242 for (sort(@{$whatlog_info->{$bldinf}->{$config}->{$filetype}})) |
244 { |
243 { |
245 print FILE "$_\t$filetype\t$config\n"; |
244 print FILE "$_\t$filetype\t$config\n"; |
246 my $file = $_; |
245 my $file = $_; |
247 |
246 |
248 if($::missing && !-f $file) |
247 if($::missing && !-f $file) |
249 { |
248 { |
250 print MISSING $file."\n"; |
249 open(MISSING, ">>$filenamemissing"); |
251 } |
250 print MISSING $file."\n"; |
|
251 close(MISSING); |
|
252 } |
252 } |
253 } |
253 } |
254 } |
254 close(FILE); |
255 close(FILE); |
255 close(MISSING) if ($::missing); |
|
256 |
|
257 } |
256 } |
258 } |
257 } |
259 } |
258 } |
260 sub remove_missing_duplicates |
259 sub remove_missing_duplicates |
261 { |
260 { |