* Add a @gDistributions for use in cgi/version.cgi which
automatically sets the set of distribution tags.
%config = ();
read_config(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config');
%config = ();
read_config(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config');
+=item email_domain $gEmailDomain
The email domain of the bts
The email domain of the bts
set_default(\%config,'email_domain','bugs.something');
set_default(\%config,'email_domain','bugs.something');
+=item list_domain $gListDomain
The list domain of the bts, defaults to the email domain
The list domain of the bts, defaults to the email domain
set_default(\%config,'list_domain',$config{email_domain});
set_default(\%config,'list_domain',$config{email_domain});
+=item web_host $gWebHost
The web host of the bts; defaults to the email domain
The web host of the bts; defaults to the email domain
set_default(\%config,'web_host',$config{email_domain});
set_default(\%config,'web_host',$config{email_domain});
+=item web_host_bug_dir $gWebHostDir
The directory of the web host on which bugs are kept, defaults to C<''>
The directory of the web host on which bugs are kept, defaults to C<''>
set_default(\%config,'web_host_bug_dir','');
set_default(\%config,'web_host_bug_dir','');
+=item web_domain $gWebDomain
Full path of the web domain where bugs are kept, defaults to the
concatenation of L</web_host> and L</web_host_bug_dir>
Full path of the web domain where bugs are kept, defaults to the
concatenation of L</web_host> and L</web_host_bug_dir>
set_default(\%config,'web_domain',$config{web_host}.'/'.$config{web_host_bug_dir});
set_default(\%config,'web_domain',$config{web_host}.'/'.$config{web_host_bug_dir});
+=item html_suffix $gHTMLSuffix
Suffix of html pages, defaults to .html
Suffix of html pages, defaults to .html
set_default(\%config,'html_suffix','.html');
set_default(\%config,'html_suffix','.html');
+=item cgi_domain $gCGIDomain
Full path of the web domain where cgi scripts are kept. Defaults to
the concatentation of L</web_host> and cgi.
Full path of the web domain where cgi scripts are kept. Defaults to
the concatentation of L</web_host> and cgi.
set_default(\%config,'cgi_domain',$config{web_domain}.($config{web_domain}=~m{/$}?'':'/').'cgi');
set_default(\%config,'cgi_domain',$config{web_domain}.($config{web_domain}=~m{/$}?'':'/').'cgi');
List of mirrors [What these mirrors are used for, no one knows.]
List of mirrors [What these mirrors are used for, no one knows.]
set_default(\%config,'mirrors',[]);
set_default(\%config,'mirrors',[]);
+=item package_pages $gPackagePages
Domain where the package pages are kept; links should work in a
package_pages/foopackage manner. Defaults to undef, which means that
Domain where the package pages are kept; links should work in a
package_pages/foopackage manner. Defaults to undef, which means that
set_default(\%config,'package_pages',undef);
set_default(\%config,'package_pages',undef);
-=item subscription_domain
+=item subscription_domain $gSubscriptionDomain
Domain where subscriptions to package lists happen
Domain where subscriptions to package lists happen
=cut
set_default(\%config,'project','Something');
=cut
set_default(\%config,'project','Something');
+=item project_title $gProjectTitle
Name of this install of Debbugs, defaults to "L</project> Debbugs Install"
Name of this install of Debbugs, defaults to "L</project> Debbugs Install"
+Default: "$config{project} Debbugs Install"
+
=cut
set_default(\%config,'project_title',"$config{project} Debbugs Install");
=cut
set_default(\%config,'project_title',"$config{project} Debbugs Install");
+=item maintainer $gMaintainer
Name of the maintainer of this debbugs install
Name of the maintainer of this debbugs install
+Default: 'Local DebBugs Owner's
+
=cut
set_default(\%config,'maintainer','Local DebBugs Owner');
=cut
set_default(\%config,'maintainer','Local DebBugs Owner');
-=item maintainer_webpage
+=item maintainer_webpage $gMaintainerWebpage
Webpage of the maintainer of this install of debbugs
Webpage of the maintainer of this install of debbugs
+Default: "$config{web_domain}/~owner"
+
=cut
set_default(\%config,'maintainer_webpage',"$config{web_domain}/~owner");
=cut
set_default(\%config,'maintainer_webpage',"$config{web_domain}/~owner");
Email address of the maintainer of this Debbugs install
Email address of the maintainer of this Debbugs install
+Default: 'root@'.$config{email_domain}
+
=cut
set_default(\%config,'maintainer_email','root@'.$config{email_domain});
=cut
set_default(\%config,'maintainer_email','root@'.$config{email_domain});
Email address where packages with an unknown maintainer will be sent
Email address where packages with an unknown maintainer will be sent
+Default: $config{maintainer_email}
+
+=back
+
=cut
set_default(\%config,'unknown_maintainer_email',$config{maintainer_email});
=cut
set_default(\%config,'unknown_maintainer_email',$config{maintainer_email});
set_default(\%config,'save_old_bugs',1);
set_default(\%config,'save_old_bugs',1);
+=item distributions
+
+List of valid distributions
+
+Default: qw(experimental unstable testing stable oldstable);
+
+=cut
+
+set_default(\%config,'distributions',[qw(experimental unstable testing stable oldstable)]);
+
=item removal_distribution_tags
Tags which specifiy distributions to check
=item removal_distribution_tags
Tags which specifiy distributions to check
-Default: qw(experimental unstable testing stable oldstable);
+Default: @{$config{distributions}}
=cut
set_default(\%config,'removal_distribution_tags',
=cut
set_default(\%config,'removal_distribution_tags',
- [qw(experimental unstable testing stable oldstable)]);
+ [@{$config{distributions}}]);
=item removal_default_distribution_tags
=item removal_default_distribution_tags
[qw(unstable testing)]
);
[qw(unstable testing)]
);
set_default(\%config,'default_severity','normal');
set_default(\%config,'show_severities','critical, grave, normal, minor, wishlist');
set_default(\%config,'strong_severities',[qw(critical grave)]);
set_default(\%config,'default_severity','normal');
set_default(\%config,'show_severities','critical, grave, normal, minor, wishlist');
set_default(\%config,'strong_severities',[qw(critical grave)]);
wishlist => "Wishlist $config{bugs}",
});
wishlist => "Wishlist $config{bugs}",
});
-set_default(\%config,'tags',[qw(patch wontfix moreinfo unreproducible fixed stable)]);
+set_default(\%config,'tags',[qw(patch wontfix moreinfo unreproducible fixed),
+ @{$config{distributions}}
+ ]);
set_default(\%config,'bounce_froms','^mailer|^da?emon|^post.*mast|^root|^wpuser|^mmdf|^smt.*|'.
'^mrgate|^vmmail|^mail.*system|^uucp|-maiser-|^mal\@|'.
set_default(\%config,'bounce_froms','^mailer|^da?emon|^post.*mast|^root|^wpuser|^mmdf|^smt.*|'.
'^mrgate|^vmmail|^mail.*system|^uucp|-maiser-|^mal\@|'.
set_default(\%config,'package_source',$config{config_dir}.'/indices/sources');
set_default(\%config,'version_packages_dir',$config{spool_dir}.'/../versions/pkg');
set_default(\%config,'package_source',$config{config_dir}.'/indices/sources');
set_default(\%config,'version_packages_dir',$config{spool_dir}.'/../versions/pkg');
-#set_default(\%config,'version_packages_dir',$config{spool_dir}'/../versions/pkg');
# then figure out which versions are there in which architectures,
my %versions;
my %version_to_dist;
# then figure out which versions are there in which architectures,
my %versions;
my %version_to_dist;
-for my $dist (qw(oldstable stable testing unstable experimental)) {
+for my $dist (@{$config{distributions}}) {
$versions{$dist} = [getversions($cgi_var{package},$dist)];
# make version_to_dist
foreach my $version (@{$versions{$dist}}){
$versions{$dist} = [getversions($cgi_var{package},$dist)];
# make version_to_dist
foreach my $version (@{$versions{$dist}}){