1 # This module is part of debbugs, and is released
2 # under the terms of the GPL version 2, or any later
3 # version at your option.
4 # See the file README and COPYING for more information.
6 # Copyright 2007 by Don Armstrong <don@donarmstrong.com>.
8 package Debbugs::Config;
12 Debbugs::Config -- Configuration information for debbugs
18 # to get the compatiblity interface
20 use Debbugs::Config qw(:globals);
24 This module provides configuration variables for all of debbugs.
26 =head1 CONFIGURATION FILES
28 The default configuration file location is /etc/debbugs/config; this
29 configuration file location can be set by modifying the
30 DEBBUGS_CONFIG_FILE env variable to point at a different location.
36 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT $USING_GLOBALS %config);
37 use base qw(Exporter);
40 # set the version for version checking
42 $DEBUG = 0 unless defined $DEBUG;
46 %EXPORT_TAGS = (globals => [qw($gEmailDomain $gListDomain $gWebHost $gWebHostBugDir),
47 qw($gWebDomain $gHTMLSuffix $gCGIDomain $gMirrors),
48 qw($gPackagePages $gSubscriptionDomain $gProject $gProjectTitle),
49 qw($gMaintainer $gMaintainerWebpage $gMaintainerEmail $gUnknownMaintainerEmail),
50 qw($gSubmitList $gMaintList $gQuietList $gForwardList),
51 qw($gDoneList $gRequestList $gSubmitterList $gControlList),
53 qw($gBugSubscriptionDomain),
54 qw($gPackageVersionRe),
55 qw($gSummaryList $gMirrorList $gMailer $gBug),
56 qw($gBugs $gRemoveAge $gSaveOldBugs $gDefaultSeverity),
57 qw($gShowSeverities $gBounceFroms $gConfigDir $gSpoolDir),
58 qw($gIncomingDir $gWebDir $gDocDir $gMaintainerFile),
59 qw($gMaintainerFileOverride $gPseudoMaintFile $gPseudoDescFile $gPackageSource),
60 qw($gVersionPackagesDir $gVersionIndex $gBinarySourceMap $gSourceBinaryMap),
61 qw($gVersionTimeIndex),
62 qw($gSimpleVersioning),
64 qw($gSendmail @gSendmailArguments $gLibPath $gSpamScan @gExcludeFromControl),
65 qw(%gSeverityDisplay @gTags @gSeverityList @gStrongSeverities),
66 qw(%gTagsSingleLetter),
68 qw(%gDistributionAliases),
69 qw(%gObsoleteSeverities),
70 qw(@gPostProcessall @gRemovalDefaultDistributionTags @gRemovalDistributionTags @gRemovalArchitectures),
71 qw(@gRemovalStrongSeverityDefaultDistributionTags),
72 qw(@gAffectsDistributionTags),
73 qw(@gDefaultArchitectures),
77 qw($gSpamMaxThreads $gSpamSpamsPerThread $gSpamKeepRunning $gSpamScan $gSpamCrossassassinDb),
79 text => [qw($gBadEmailPrefix $gHTMLTail $gHTMLExpireNote),
81 config => [qw(%config)],
84 Exporter::export_ok_tags(qw(globals text config));
85 $EXPORT_TAGS{all} = [@EXPORT_OK];
86 $ENV{HOME} = '' if not defined $ENV{HOME};
89 use File::Basename qw(dirname);
93 =head1 CONFIGURATION VARIABLES
95 =head2 General Configuration
103 # untaint $ENV{DEBBUGS_CONFIG_FILE} if it's owned by us
104 # This enables us to test things that are -T.
105 if (exists $ENV{DEBBUGS_CONFIG_FILE}) {
106 if (${[stat($ENV{DEBBUGS_CONFIG_FILE})]}[4] == $<) {
107 $ENV{DEBBUGS_CONFIG_FILE} =~ /(.+)/;
108 $ENV{DEBBUGS_CONFIG_FILE} = $1;
111 die "Environmental variable DEBBUGS_CONFIG_FILE set, and $ENV{DEBBUGS_CONFIG_FILE} is not owned by the user running this script.";
114 read_config(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config');
116 =item email_domain $gEmailDomain
118 The email domain of the bts
122 set_default(\%config,'email_domain','bugs.something');
124 =item list_domain $gListDomain
126 The list domain of the bts, defaults to the email domain
130 set_default(\%config,'list_domain',$config{email_domain});
132 =item web_host $gWebHost
134 The web host of the bts; defaults to the email domain
138 set_default(\%config,'web_host',$config{email_domain});
140 =item web_host_bug_dir $gWebHostDir
142 The directory of the web host on which bugs are kept, defaults to C<''>
146 set_default(\%config,'web_host_bug_dir','');
148 =item web_domain $gWebDomain
150 Full path of the web domain where bugs are kept, defaults to the
151 concatenation of L</web_host> and L</web_host_bug_dir>
155 set_default(\%config,'web_domain',$config{web_host}.($config{web_host}=~m{/$}?'':'/').$config{web_host_bug_dir});
157 =item html_suffix $gHTMLSuffix
159 Suffix of html pages, defaults to .html
163 set_default(\%config,'html_suffix','.html');
165 =item cgi_domain $gCGIDomain
167 Full path of the web domain where cgi scripts are kept. Defaults to
168 the concatentation of L</web_host> and cgi.
172 set_default(\%config,'cgi_domain',$config{web_domain}.($config{web_domain}=~m{/$}?'':'/').'cgi');
174 =item mirrors @gMirrors
176 List of mirrors [What these mirrors are used for, no one knows.]
181 set_default(\%config,'mirrors',[]);
183 =item package_pages $gPackagePages
185 Domain where the package pages are kept; links should work in a
186 package_pages/foopackage manner. Defaults to undef, which means that
187 package links will not be made.
192 set_default(\%config,'package_pages',undef);
194 =item package_pages $gUsertagPackageDomain
196 Domain where where usertags of packages belong; defaults to $gPackagePages
200 set_default(\%config,'usertag_package_domain',$config{package_pages});
203 =item subscription_domain $gSubscriptionDomain
205 Domain where subscriptions to package lists happen
209 set_default(\%config,'subscription_domain',undef);
212 =item cve_tracker $gCVETracker
214 URI to CVE security tracker; in bugreport.cgi, CVE-2001-0002 becomes
215 linked to http://$config{cve_tracker}CVE-2001-002
217 Default: security-tracker.debian.org/tracker/
221 set_default(\%config,'cve_tracker','security-tracker.debian.org/tracker/');
229 =head2 Project Identification
233 =item project $gProject
241 set_default(\%config,'project','Something');
243 =item project_title $gProjectTitle
245 Name of this install of Debbugs, defaults to "L</project> Debbugs Install"
247 Default: "$config{project} Debbugs Install"
251 set_default(\%config,'project_title',"$config{project} Debbugs Install");
253 =item maintainer $gMaintainer
255 Name of the maintainer of this debbugs install
257 Default: 'Local DebBugs Owner's
261 set_default(\%config,'maintainer','Local DebBugs Owner');
263 =item maintainer_webpage $gMaintainerWebpage
265 Webpage of the maintainer of this install of debbugs
267 Default: "$config{web_domain}/~owner"
271 set_default(\%config,'maintainer_webpage',"$config{web_domain}/~owner");
273 =item maintainer_email $gMaintainerEmail
275 Email address of the maintainer of this Debbugs install
277 Default: 'root@'.$config{email_domain}
281 set_default(\%config,'maintainer_email','root@'.$config{email_domain});
283 =item unknown_maintainer_email
285 Email address where packages with an unknown maintainer will be sent
287 Default: $config{maintainer_email}
291 set_default(\%config,'unknown_maintainer_email',$config{maintainer_email});
295 The name of the machine that this instance of debbugs is running on
296 (currently used for debbuging purposes and web page output.)
298 Default: qx(hostname --fqdn)
304 my $_old_path = $ENV{PATH};
305 $ENV{PATH} = '/bin:/usr/bin:/usr/local/bin';
306 my $temp_hostname = qx(hostname --fqdn);
307 chomp $temp_hostname;
308 set_default(\%config,'machine_name',$temp_hostname);
309 $ENV{PATH} = $_old_path;
311 =head2 BTS Mailing Lists
338 set_default(\%config, 'submit_list', 'bug-submit-list');
339 set_default(\%config, 'maint_list', 'bug-maint-list');
340 set_default(\%config, 'quiet_list', 'bug-quiet-list');
341 set_default(\%config, 'forward_list', 'bug-forward-list');
342 set_default(\%config, 'done_list', 'bug-done-list');
343 set_default(\%config, 'request_list', 'bug-request-list');
344 set_default(\%config,'submitter_list','bug-submitter-list');
345 set_default(\%config, 'control_list', 'bug-control-list');
346 set_default(\%config, 'summary_list', 'bug-summary-list');
347 set_default(\%config, 'mirror_list', 'bug-mirror-list');
348 set_default(\%config, 'strong_list', 'bug-strong-list');
350 =item bug_subscription_domain
352 Domain of list for messages regarding a single bug; prefixed with
353 bug=${bugnum}@ when bugs are actually sent out. Set to undef or '' to
354 disable sending messages to the bug subscription list.
362 set_default(\%config,'bug_subscription_domain',$config{list_domain});
371 Name of the mailer to use
377 set_default(\%config,'mailer','exim');
386 Default: ucfirst($config{bug});
394 Default: ucfirst($config{ubugs});
398 set_default(\%config,'bug','bug');
399 set_default(\%config,'ubug',ucfirst($config{bug}));
400 set_default(\%config,'bugs','bugs');
401 set_default(\%config,'ubugs',ucfirst($config{bugs}));
405 Age at which bugs are archived/removed
411 set_default(\%config,'remove_age',28);
415 Whether old bugs are saved or deleted
421 set_default(\%config,'save_old_bugs',1);
423 =item distribution_aliases
425 Map of distribution aliases to the distribution name
428 {experimental => 'experimental',
429 unstable => 'unstable',
430 testing => 'testing',
432 oldstable => 'oldstable',
436 sarge => 'oldstable',
441 set_default(\%config,'distribution_aliases',
442 {experimental => 'experimental',
443 unstable => 'unstable',
444 testing => 'testing',
446 oldstable => 'oldstable',
450 sarge => 'oldstable',
458 List of valid distributions
460 Default: The values of the distribution aliases map.
464 my %_distributions_default;
465 @_distributions_default{values %{$config{distribution_aliases}}} = values %{$config{distribution_aliases}};
466 set_default(\%config,'distributions',[keys %_distributions_default]);
469 =item default_architectures
471 List of default architectures to use when architecture(s) are not
474 Default: i386 amd64 arm ppc sparc alpha
478 set_default(\%config,'default_architectures',
479 [qw(i386 amd64 arm powerpc sparc alpha)]
482 =item affects_distribution_tags
484 List of tags which restrict the buggy state to a set of distributions.
486 The set of distributions that are buggy is the intersection of the set
487 of distributions that would be buggy without reference to these tags
488 and the set of these tags that are distributions which are set on a
491 Setting this to [] will remove this feature.
493 Default: @{$config{distributions}}
497 set_default(\%config,'affects_distribution_tags',
498 [@{$config{distributions}}],
501 =item removal_unremovable_tags
503 Bugs which have these tags set cannot be archived
509 set_default(\%config,'removal_unremovable_tags',
513 =item removal_distribution_tags
515 Tags which specifiy distributions to check
517 Default: @{$config{distributions}}
521 set_default(\%config,'removal_distribution_tags',
522 [@{$config{distributions}}]);
524 =item removal_default_distribution_tags
526 For removal/archival purposes, all bugs are assumed to have these tags
529 Default: qw(unstable testing);
533 set_default(\%config,'removal_default_distribution_tags',
534 [qw(unstable testing)]
537 =item removal_strong_severity_default_distribution_tags
539 For removal/archival purposes, all bugs with strong severity are
540 assumed to have these tags set.
542 Default: qw(unstable testing stable);
546 set_default(\%config,'removal_strong_severity_default_distribution_tags',
547 [qw(unstable testing stable)]
551 =item removal_architectures
553 For removal/archival purposes, these architectures are consulted if
554 there is more than one architecture applicable. If the bug is in a
555 package not in any of these architectures, the architecture actually
556 checked is undefined.
558 Default: value of default_architectures
562 set_default(\%config,'removal_architectures',
563 $config{default_architectures},
567 =item package_name_re
569 The regex which will match a package name
571 Default: '[a-z0-9][a-z0-9\.+-]+'
575 set_default(\%config,'package_name_re',
576 '[a-z0-9][a-z0-9\.+-]+');
578 =item package_version_re
580 The regex which will match a package version
582 Default: '[A-Za-z0-9:+\.-]+'
587 set_default(\%config,'package_version_re',
588 '[A-Za-z0-9:+\.~-]+');
591 =item default_package
593 This is the name of the default package. If set, bugs assigned to
594 packages without a maintainer and bugs missing a Package: psuedoheader
595 will be assigned to this package instead.
597 Defaults to unset, which is the traditional debbugs behavoir
601 set_default(\%config,'default_package',
606 =item control_internal_requester
608 This address is used by Debbugs::Control as the request address which
609 sent a control request for faked log messages.
611 Default:"Debbugs Internal Request <$config{maintainer_email}>"
615 set_default(\%config,'control_internal_requester',
616 "Debbugs Internal Request <$config{maintainer_email}>",
619 =item control_internal_request_addr
621 This address is used by Debbugs::Control as the address to which a
622 faked log message request was sent.
624 Default: "internal_control\@$config{email_domain}";
628 set_default(\%config,'control_internal_request_addr',
629 'internal_control@'.$config{email_domain},
633 =item exclude_from_control
635 Addresses which are not allowed to send messages to control
639 set_default(\%config,'exclude_from_control',[]);
643 =item default_severity
645 The default severity of bugs which have no severity set
651 set_default(\%config,'default_severity','normal');
653 =item severity_display
655 A hashref of severities and the informative text which describes them.
659 {critical => "Critical $config{bugs}",
660 grave => "Grave $config{bugs}",
661 normal => "Normal $config{bugs}",
662 wishlist => "Wishlist $config{bugs}",
667 set_default(\%config,'severity_display',{critical => "Critical $config{bugs}",
668 grave => "Grave $config{bugs}",
669 serious => "Serious $config{bugs}",
670 important=> "Important $config{bugs}",
671 normal => "Normal $config{bugs}",
672 minor => "Minor $config{bugs}",
673 wishlist => "Wishlist $config{bugs}",
676 =item show_severities
678 A scalar list of the severities to show
680 Defaults to the concatenation of the keys of the severity_display
681 hashlist with ', ' above.
685 set_default(\%config,'show_severities',join(', ',keys %{$config{severity_display}}));
687 =item strong_severities
689 An arrayref of the serious severities which shoud be emphasized
691 Default: [qw(critical grave)]
695 set_default(\%config,'strong_severities',[qw(critical grave)]);
699 An arrayref of a list of the severities
701 Defaults to the keys of the severity display hashref
705 set_default(\%config,'severity_list',[keys %{$config{severity_display}}]);
707 =item obsolete_severities
709 A hashref of obsolete severities with the replacing severity
715 set_default(\%config,'obsolete_severities',{});
719 An arrayref of the tags used
721 Default: [qw(patch wontfix moreinfo unreproducible fixed)] and also
722 includes the distributions.
726 set_default(\%config,'tags',[qw(patch wontfix moreinfo unreproducible fixed),
727 @{$config{distributions}}
730 set_default(\%config,'tags_single_letter',
734 unreproducible => 'R',
739 set_default(\%config,'bounce_froms','^mailer|^da?emon|^post.*mast|^root|^wpuser|^mmdf|^smt.*|'.
740 '^mrgate|^vmmail|^mail.*system|^uucp|-maiser-|^mal\@|'.
741 '^mail.*agent|^tcpmail|^bitmail|^mailman');
743 set_default(\%config,'config_dir',dirname(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config'));
744 set_default(\%config,'spool_dir','/var/lib/debbugs/spool');
748 Directory which contains the usertags
750 Default: $config{spool_dir}/user
754 set_default(\%config,'usertag_dir',$config{spool_dir}.'/user');
755 set_default(\%config,'incoming_dir','incoming');
756 set_default(\%config,'web_dir','/var/lib/debbugs/www');
757 set_default(\%config,'doc_dir','/var/lib/debbugs/www/txt');
758 set_default(\%config,'lib_path','/usr/lib/debbugs');
763 directory of templates; defaults to /usr/share/debbugs/templates.
767 set_default(\%config,'template_dir','/usr/share/debbugs/templates');
770 set_default(\%config,'maintainer_file',$config{config_dir}.'/Maintainers');
771 set_default(\%config,'maintainer_file_override',$config{config_dir}.'/Maintainers.override');
772 set_default(\%config,'source_maintainer_file',$config{config_dir}.'/Source_maintainers');
773 set_default(\%config,'source_maintainer_file_override',undef);
774 set_default(\%config,'pseudo_maint_file',$config{config_dir}.'/pseudo-packages.maintainers');
775 set_default(\%config,'pseudo_desc_file',$config{config_dir}.'/pseudo-packages.description');
776 set_default(\%config,'package_source',$config{config_dir}.'/indices/sources');
779 =item simple_versioning
781 If true this causes debbugs to ignore version information and just
782 look at whether a bug is done or not done. Primarily of interest for
783 debbugs installs which don't track versions. defaults to false.
787 set_default(\%config,'simple_versioning',0);
790 =item version_packages_dir
792 Location where the version package information is kept; defaults to
793 spool_dir/../versions/pkg
797 set_default(\%config,'version_packages_dir',$config{spool_dir}.'/../versions/pkg');
799 =item version_time_index
801 Location of the version/time index file. Defaults to
802 spool_dir/../versions/idx/versions_time.idx if spool_dir/../versions
803 exists; otherwise defaults to undef.
808 set_default(\%config,'version_time_index', -d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/versions_time.idx' : undef);
812 Location of the version index file. Defaults to
813 spool_dir/../versions/indices/versions.idx if spool_dir/../versions
814 exists; otherwise defaults to undef.
818 set_default(\%config,'version_index',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/versions.idx' : undef);
820 =item binary_source_map
822 Location of the binary -> source map. Defaults to
823 spool_dir/../versions/indices/bin2src.idx if spool_dir/../versions
824 exists; otherwise defaults to undef.
828 set_default(\%config,'binary_source_map',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/binsrc.idx' : undef);
830 =item source_binary_map
832 Location of the source -> binary map. Defaults to
833 spool_dir/../versions/indices/src2bin.idx if spool_dir/../versions
834 exists; otherwise defaults to undef.
838 set_default(\%config,'source_binary_map',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/srcbin.idx' : undef);
842 set_default(\%config,'post_processall',[]);
846 Sets the sendmail binary to execute; defaults to /usr/lib/sendmail
850 set_default(\%config,'sendmail','/usr/lib/sendmail');
852 =item sendmail_arguments
854 Default arguments to pass to sendmail. Defaults to C<qw(-oem -oi)>.
858 set_default(\%config,'sendmail_arguments',[qw(-oem -oi)]);
862 Whether or not spamscan is being used; defaults to 0 (not being used
866 set_default(\%config,'spam_scan',0);
868 =item spam_crossassassin_db
870 Location of the crosassassin database, defaults to
871 spool_dir/../CrossAssassinDb
875 set_default(\%config,'spam_crossassassin_db',$config{spool_dir}.'/../CrossAssassinDb');
879 Maximum number of cross-posted messages
883 set_default(\%config,'spam_max_cross',6);
886 =item spam_spams_per_thread
888 Number of spams for each thread (on average). Defaults to 200
892 set_default(\%config,'spam_spams_per_thread',200);
894 =item spam_max_threads
896 Maximum number of threads to start. Defaults to 20
900 set_default(\%config,'spam_max_threads',20);
902 =item spam_keep_running
904 Maximum number of seconds to run without restarting. Defaults to 3600.
908 set_default(\%config,'spam_keep_running',3600);
912 Location to store spam messages; is run through strftime to allow for
913 %d,%m,%Y, et al. Defaults to 'spool_dir/../mail/spam/assassinated.%Y-%m-%d'
917 set_default(\%config,'spam_mailbox',$config{spool_dir}.'/../mail/spam/assassinated.%Y-%m-%d');
919 =item spam_crossassassin_mailbox
921 Location to store crossassassinated messages; is run through strftime
922 to allow for %d,%m,%Y, et al. Defaults to
923 'spool_dir/../mail/spam/crossassassinated.%Y-%m-%d'
927 set_default(\%config,'spam_crossassassin_mailbox',$config{spool_dir}.'/../mail/spam/crossassassinated.%Y-%m-%d');
929 =item spam_local_tests_only
931 Whether only local tests are run, defaults to 0
935 set_default(\%config,'spam_local_tests_only',0);
937 =item spam_user_prefs
939 User preferences for spamassassin, defaults to $ENV{HOME}/.spamassassin/user_prefs
943 set_default(\%config,'spam_user_prefs',"$ENV{HOME}/.spamassassin/user_prefs");
947 Site rules directory for spamassassin, defaults to
948 '/usr/share/spamassassin'
952 set_default(\%config,'spam_rules_dir','/usr/share/spamassassin');
959 The following are the only text fields in general use in the scripts;
960 a few additional text fields are defined in text.in, but are only used
961 in db2html and a few other specialty scripts.
963 Earlier versions of debbugs defined these values in /etc/debbugs/text,
964 but now they are required to be in the configuration file. [Eventually
965 the longer ones will move out into a fully fledged template system.]
971 =item bad_email_prefix
973 This prefixes the text of all lines in a bad e-mail message ack.
977 set_default(\%config,'bad_email_prefix','');
980 =item text_instructions
982 This gives more information about bad e-mails to receive.in
986 set_default(\%config,'text_instructions',$config{bad_email_prefix});
990 This shows up at the end of (most) html pages
992 In many pages this has been replaced by the html/tail template.
996 set_default(\%config,'html_tail',<<END);
997 <ADDRESS>$config{maintainer} <<A HREF=\"mailto:$config{maintainer_email}\">$config{maintainer_email}</A>>.
1003 <A HREF=\"http://$config{web_domain}/\">Debian $config{bug} tracking system</A><BR>
1004 Copyright (C) 1999 Darren O. Benham,
1005 1997,2003 nCipher Corporation Ltd,
1006 1994-97 Ian Jackson.
1011 =item html_expire_note
1013 This message explains what happens to archive/remove-able bugs
1017 set_default(\%config,'html_expire_note',
1018 "(Closed $config{bugs} are archived $config{remove_age} days after the last related message is received.)");
1026 my ($conf_file) = @_;
1027 if (not -e $conf_file) {
1028 print STDERR "configuration file '$conf_file' doesn't exist; skipping it\n" if $DEBUG;
1031 # first, figure out what type of file we're reading in.
1032 my $fh = new IO::File $conf_file,'r'
1033 or die "Unable to open configuration file $conf_file for reading: $!";
1034 # A new version configuration file must have a comment as its first line
1035 my $first_line = <$fh>;
1036 my ($version) = defined $first_line?$first_line =~ /VERSION:\s*(\d+)/i:undef;
1037 if (defined $version) {
1038 if ($version == 1) {
1039 # Do something here;
1040 die "Version 1 configuration files not implemented yet";
1043 die "Version $version configuration files are not supported";
1047 # Ugh. Old configuration file
1048 # What we do here is we create a new Safe compartment
1049 # so fucked up crap in the config file doesn't sink us.
1050 my $cpt = new Safe or die "Unable to create safe compartment";
1051 # perldoc Opcode; for details
1052 $cpt->permit('require',':filesys_read','entereval','caller','pack','unpack','dofile');
1053 $cpt->reval(qq(require '$conf_file';));
1054 die "Error in configuration file: $@" if $@;
1055 # Now what we do is check out the contents of %EXPORT_TAGS to see exactly which variables
1056 # we want to glob in from the configuration file
1057 for my $variable (@{$EXPORT_TAGS{globals}}) {
1058 my ($hash_name,$glob_name,$glob_type) = __convert_name($variable);
1059 my $var_glob = $cpt->varglob($glob_name);
1060 my $value; #= $cpt->reval("return $variable");
1061 # print STDERR "$variable $value",qq(\n);
1062 if (defined $var_glob) {{
1064 if ($glob_type eq '%') {
1065 $value = {%{*{$var_glob}}} if defined *{$var_glob}{HASH};
1067 elsif ($glob_type eq '@') {
1068 $value = [@{*{$var_glob}}] if defined *{$var_glob}{ARRAY};
1071 $value = ${*{$var_glob}};
1073 # We punt here, because we can't tell if the value was
1074 # defined intentionally, or if it was just left alone;
1075 # this tries to set sane defaults.
1076 set_default(\%config,$hash_name,$value) if defined $value;
1083 my ($variable) = @_;
1084 my $hash_name = $variable;
1085 $hash_name =~ s/^([\$\%\@])g//;
1087 my $glob_name = 'g'.$hash_name;
1088 $hash_name =~ s/(HTML|CGI|CVE)/ucfirst(lc($1))/ge;
1089 $hash_name =~ s/^([A-Z]+)/lc($1)/e;
1090 $hash_name =~ s/([A-Z]+)/'_'.lc($1)/ge;
1091 return $hash_name unless wantarray;
1092 return ($hash_name,$glob_name,$glob_type);
1097 # sets the configuration hash to the default value if it's not set,
1098 # otherwise doesn't do anything
1099 # If $USING_GLOBALS, then sets an appropriate global.
1102 my ($config,$option,$value) = @_;
1104 if ($USING_GLOBALS) {
1105 # fix up the variable name
1106 $varname = 'g'.join('',map {ucfirst $_} split /_/, $option);
1107 # Fix stupid HTML names
1108 $varname =~ s/(Html|Cgi)/uc($1)/ge;
1110 # update the configuration value
1111 if (not $USING_GLOBALS and not exists $config->{$option}) {
1112 $config->{$option} = $value;
1114 elsif ($USING_GLOBALS) {{
1116 # Need to check if a value has already been set in a global
1117 if (defined *{"Debbugs::Config::${varname}"}) {
1118 $config->{$option} = *{"Debbugs::Config::${varname}"};
1121 $config->{$option} = $value;
1124 if ($USING_GLOBALS) {{
1126 *{"Debbugs::Config::${varname}"} = $config->{$option};
1133 # All we care about here is whether we've been called with the globals or text option;
1134 # if so, then we need to export some symbols back up.
1135 # In any event, we call exporter.
1138 if (grep /^:(?:text|globals)$/, @_) {
1140 for my $variable (map {@$_} @EXPORT_TAGS{map{(/^:(text|globals)$/?($1):())} @_}) {
1141 my $tmp = $variable;
1143 # Yes, I don't care if these are only used once
1145 # No, it doesn't bother me that I'm assigning an undefined value to a typeglob
1147 my ($hash_name,$glob_name,$glob_type) = __convert_name($variable);
1148 $tmp =~ s/^[\%\$\@]//;
1149 *{"Debbugs::Config::${tmp}"} = ref($config{$hash_name})?$config{$hash_name}:\$config{$hash_name};
1152 Debbugs::Config->export_to_level(1,@_);