33 $reset_status->{name} = 'reset_status';

    33 $reset_status->{name} = 'reset_status';

    34 $reset_status->{next_status} = {buildlog=>$buildlog_status};

    34 $reset_status->{next_status} = {buildlog=>$buildlog_status};

    35 

    35 

    36 $buildlog_status->{name} = 'buildlog_status';

    36 $buildlog_status->{name} = 'buildlog_status';

    37 $buildlog_status->{next_status} = {whatlog=>$whatlog_status};

    37 $buildlog_status->{next_status} = {whatlog=>$whatlog_status};

    38 

    39 

    39 $whatlog_status->{name} = 'whatlog_status';

    40 $whatlog_status->{name} = 'whatlog_status';

    40 $whatlog_status->{next_status} = {bitmap=>$bitmap_status, resource=>$resource_status, build=>$build_status, export=>$export_status, stringtable=>$stringtable_status, archive=>$archive_status, '?default?'=>$whatlog_default_status};

    41 $whatlog_status->{next_status} = {bitmap=>$bitmap_status, resource=>$resource_status, build=>$build_status, export=>$export_status, stringtable=>$stringtable_status, archive=>$archive_status, '?default?'=>$whatlog_default_status};

    41 $whatlog_status->{on_start} = 'RaptorReleaseable::on_start_whatlog';

    42 $whatlog_status->{on_start} = 'RaptorReleaseable::on_start_whatlog';

    42 $whatlog_status->{on_end} = 'RaptorReleaseable::on_end_whatlog';

    43 $whatlog_status->{on_end} = 'RaptorReleaseable::on_end_whatlog';

    86 my $curbldinf = 'unknown';

    87 my $curbldinf = 'unknown';

    87 my $curconfig = 'unknown';

    88 my $curconfig = 'unknown';

    88 my $curfiletype = 'unknown';

    89 my $curfiletype = 'unknown';

    89 my $characters = '';

    90 my $characters = '';

    90 

    91 

    91 sub on_start_whatlog

    97 sub on_start_whatlog

    92 {

    98 {

    93 	my ($el) = @_;

    99 	my ($el) = @_;

    94 	

   100 	

    95 	$whatlog_info = {};

   101 	$whatlog_info = {};

   221 			

   227 			

   222 			$normalized =~ m,^/sf/([^/]+)/([^/]+)/,;

   228 			$normalized =~ m,^/sf/([^/]+)/([^/]+)/,;

   223 			my $layer = $1;

   229 			my $layer = $1;

   224 			my $package = $2;

   230 			my $package = $2;

   225 			

   231 			

   227 			mkdir("$::basedir/releaseables/$layer");

   232 			mkdir("$::basedir/releaseables/$layer");

   228 			mkdir("$::basedir/releaseables/$layer/$package");

   233 			mkdir("$::basedir/releaseables/$layer/$package");

   229 			

   234 			

   230 			my $filename = "$::basedir/releaseables/$layer/$package/info.tsv";

   235 			my $filename = "$::basedir/releaseables/$layer/$package/info.tsv";

   231 			

   236