}
-unless ($branch =~ /^(HEAD|REL\d+_\d+_STABLE)$/)
-{
- print
- "Status: 492 bad branch parameter $branch\nContent-Type: text/plain\n\n",
- "bad branch parameter $branch\n";
- exit;
-
-}
+# Want to allow all kinds of named branches
+#unless ($branch =~ /^(HEAD|REL\d+_\d+_STABLE)$/)
+#{
+# print
+# "Status: 492 bad branch parameter $branch\nContent-Type: text/plain\n\n",
+# "bad branch parameter $branch\n";
+# exit;
+#
+#}
my $db = DBI->connect($dsn,$dbuser,$dbpass);
chomp $githeadref;
close $githead;
}
- # unlink $archname;
+ unlink $archname;
}
my $config_flags;
@config_flags = grep {! m/=/ } @config_flags;
map {s/\s+//g; $_=qq("$_"); } @config_flags;
push @config_flags,'git' if $client_conf->{scm} eq 'git';
+ push(@config_flags, 'doc')
+ if (defined $client_conf->{'optional_steps'}->{'make-doc'});
+ push(@config_flags, 'test')
+ if (defined $client_conf->{'optional_steps'}->{'test'});
$config_flags = '{' . join(',',@config_flags) . '}' ;
}