equal
deleted
inserted
replaced
88 my $curfiletype = 'unknown'; |
88 my $curfiletype = 'unknown'; |
89 my $characters = ''; |
89 my $characters = ''; |
90 |
90 |
91 sub on_start_buildlog |
91 sub on_start_buildlog |
92 { |
92 { |
93 system("rmdir /S /Q $::raptorbitsdir/releaseables") if (-d "$::basedir/releaseables"); |
93 |
94 mkdir("$::raptorbitsdir/releaseables"); |
|
95 } |
94 } |
96 |
95 |
97 sub on_start_whatlog |
96 sub on_start_whatlog |
98 { |
97 { |
99 my ($el) = @_; |
98 my ($el) = @_; |
227 |
226 |
228 $normalized =~ m,^/sf/([^/]+)/([^/]+)/,; |
227 $normalized =~ m,^/sf/([^/]+)/([^/]+)/,; |
229 my $layer = $1; |
228 my $layer = $1; |
230 my $package = $2; |
229 my $package = $2; |
231 |
230 |
232 mkdir("$::raptorbitsdir/releaseables/$layer"); |
231 mkdir("$::basedir/releaseables/$layer"); |
233 mkdir("$::raptorbitsdir/releaseables/$layer/$package"); |
232 mkdir("$::basedir/releaseables/$layer/$package"); |
234 |
233 |
235 my $filename = "$::raptorbitsdir/releaseables/$layer/$package/info.tsv"; |
234 my $filename = "$::basedir/releaseables/$layer/$package/info.tsv"; |
236 |
235 |
237 print "Writing info file $filename\n" if (!-f$filename); |
236 print "Writing info file $filename\n" if (!-f$filename); |
238 open(FILE, ">>$filename"); |
237 open(FILE, ">>$filename"); |
239 |
238 |
240 for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}}) |
239 for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}}) |