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($gSendmail $gLibPath $gSpamScan @gExcludeFromControl),
63 qw(%gSeverityDisplay @gTags @gSeverityList @gStrongSeverities),
64 qw(%gTagsSingleLetter),
66 qw(%gDistributionAliases),
67 qw(%gObsoleteSeverities),
68 qw(@gPostProcessall @gRemovalDefaultDistributionTags @gRemovalDistributionTags @gRemovalArchitectures),
69 qw(@gRemovalStrongSeverityDefaultDistributionTags),
70 qw(@gDefaultArchitectures),
74 qw($gSpamMaxThreads $gSpamSpamsPerThread $gSpamKeepRunning $gSpamScan $gSpamCrossassassinDb),
76 text => [qw($gBadEmailPrefix $gHTMLTail $gHTMLExpireNote),
78 config => [qw(%config)],
81 Exporter::export_ok_tags(qw(globals text config));
82 $EXPORT_TAGS{all} = [@EXPORT_OK];
83 $ENV{HOME} = '' if not defined $ENV{HOME};
86 use File::Basename qw(dirname);
90 =head1 CONFIGURATION VARIABLES
92 =head2 General Configuration
100 # untaint $ENV{DEBBUGS_CONFIG_FILE} if it's owned by us
101 # This enables us to test things that are -T.
102 if (exists $ENV{DEBBUGS_CONFIG_FILE}) {
103 if (${[stat($ENV{DEBBUGS_CONFIG_FILE})]}[4] = $<) {
104 $ENV{DEBBUGS_CONFIG_FILE} =~ /(.+)/;
105 $ENV{DEBBUGS_CONFIG_FILE} = $1;
108 die "Environmental variable DEBBUGS_CONFIG_FILE set, and $ENV{DEBBUGS_CONFIG_FILE} is not owned by the user running this script.";
111 read_config(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config');
113 =item email_domain $gEmailDomain
115 The email domain of the bts
119 set_default(\%config,'email_domain','bugs.something');
121 =item list_domain $gListDomain
123 The list domain of the bts, defaults to the email domain
127 set_default(\%config,'list_domain',$config{email_domain});
129 =item web_host $gWebHost
131 The web host of the bts; defaults to the email domain
135 set_default(\%config,'web_host',$config{email_domain});
137 =item web_host_bug_dir $gWebHostDir
139 The directory of the web host on which bugs are kept, defaults to C<''>
143 set_default(\%config,'web_host_bug_dir','');
145 =item web_domain $gWebDomain
147 Full path of the web domain where bugs are kept, defaults to the
148 concatenation of L</web_host> and L</web_host_bug_dir>
152 set_default(\%config,'web_domain',$config{web_host}.($config{web_host}=~m{/$}?'':'/').$config{web_host_bug_dir});
154 =item html_suffix $gHTMLSuffix
156 Suffix of html pages, defaults to .html
160 set_default(\%config,'html_suffix','.html');
162 =item cgi_domain $gCGIDomain
164 Full path of the web domain where cgi scripts are kept. Defaults to
165 the concatentation of L</web_host> and cgi.
169 set_default(\%config,'cgi_domain',$config{web_domain}.($config{web_domain}=~m{/$}?'':'/').'cgi');
171 =item mirrors @gMirrors
173 List of mirrors [What these mirrors are used for, no one knows.]
178 set_default(\%config,'mirrors',[]);
180 =item package_pages $gPackagePages
182 Domain where the package pages are kept; links should work in a
183 package_pages/foopackage manner. Defaults to undef, which means that
184 package links will not be made.
189 set_default(\%config,'package_pages',undef);
191 =item package_pages $gUsertagPackageDomain
193 Domain where where usertags of packages belong; defaults to $gPackagePages
197 set_default(\%config,'usertag_package_domain',$config{package_pages});
200 =item subscription_domain $gSubscriptionDomain
202 Domain where subscriptions to package lists happen
207 set_default(\%config,'subscription_domain',undef);
214 =head2 Project Identification
218 =item project $gProject
226 set_default(\%config,'project','Something');
228 =item project_title $gProjectTitle
230 Name of this install of Debbugs, defaults to "L</project> Debbugs Install"
232 Default: "$config{project} Debbugs Install"
236 set_default(\%config,'project_title',"$config{project} Debbugs Install");
238 =item maintainer $gMaintainer
240 Name of the maintainer of this debbugs install
242 Default: 'Local DebBugs Owner's
246 set_default(\%config,'maintainer','Local DebBugs Owner');
248 =item maintainer_webpage $gMaintainerWebpage
250 Webpage of the maintainer of this install of debbugs
252 Default: "$config{web_domain}/~owner"
256 set_default(\%config,'maintainer_webpage',"$config{web_domain}/~owner");
258 =item maintainer_email $gMaintainerEmail
260 Email address of the maintainer of this Debbugs install
262 Default: 'root@'.$config{email_domain}
266 set_default(\%config,'maintainer_email','root@'.$config{email_domain});
268 =item unknown_maintainer_email
270 Email address where packages with an unknown maintainer will be sent
272 Default: $config{maintainer_email}
278 set_default(\%config,'unknown_maintainer_email',$config{maintainer_email});
282 The name of the machine that this instance of debbugs is running on
283 (currently used for debbuging purposes and web page output.)
285 Default: qx(hostname --fqdn)
291 my $_old_path = $ENV{PATH};
292 $ENV{PATH} = '/bin:/usr/bin:/usr/local/bin';
293 set_default(\%config,'machine_name',qx(hostname --fqdn));
294 $ENV{PATH} = $_old_path;
296 =head2 BTS Mailing Lists
323 set_default(\%config, 'submit_list', 'bug-submit-list');
324 set_default(\%config, 'maint_list', 'bug-maint-list');
325 set_default(\%config, 'quiet_list', 'bug-quiet-list');
326 set_default(\%config, 'forward_list', 'bug-forward-list');
327 set_default(\%config, 'done_list', 'bug-done-list');
328 set_default(\%config, 'request_list', 'bug-request-list');
329 set_default(\%config,'submitter_list','bug-submitter-list');
330 set_default(\%config, 'control_list', 'bug-control-list');
331 set_default(\%config, 'summary_list', 'bug-summary-list');
332 set_default(\%config, 'mirror_list', 'bug-mirror-list');
333 set_default(\%config, 'strong_list', 'bug-strong-list');
335 =item bug_subscription_domain
337 Domain of list for messages regarding a single bug; prefixed with
338 bug=${bugnum}@ when bugs are actually sent out. Set to undef or '' to
339 disable sending messages to the bug subscription list.
347 set_default(\%config,'bug_subscription_domain',$config{list_domain});
356 set_default(\%config,'mailer','exim');
357 set_default(\%config,'bug','bug');
358 set_default(\%config,'bugs','bugs');
362 Age at which bugs are archived/removed
368 set_default(\%config,'remove_age',28);
372 Whether old bugs are saved or deleted
378 set_default(\%config,'save_old_bugs',1);
380 =item distribution_aliases
382 Map of distribution aliases to the distribution name
385 {experimental => 'experimental',
386 unstable => 'unstable',
387 testing => 'testing',
389 oldstable => 'oldstable',
393 sarge => 'oldstable',
398 set_default(\%config,'distribution_aliases',
399 {experimental => 'experimental',
400 unstable => 'unstable',
401 testing => 'testing',
403 oldstable => 'oldstable',
407 sarge => 'oldstable',
415 List of valid distributions
417 Default: The values of the distribution aliases map.
421 my %_distributions_default;
422 @_distributions_default{values %{$config{distribution_aliases}}} = values %{$config{distribution_aliases}};
423 set_default(\%config,'distributions',[keys %_distributions_default]);
426 =item default_architectures
428 List of default architectures to use when architecture(s) are not
431 Default: i386 amd64 arm ppc sparc alpha
435 set_default(\%config,'default_architectures',
436 [qw(i386 amd64 arm powerpc sparc alpha)]
439 =item affects_distribution_tags
441 List of tags which restrict the buggy state to a set of distributions.
443 The set of distributions that are buggy is the intersection of the set
444 of distributions that would be buggy without reference to these tags
445 and the set of these tags that are distributions which are set on a
448 Setting this to [] will remove this feature.
450 Default: @{$config{distributions}}
454 set_default(\%config,'affects_distribution_tags',
455 [@{$config{distributions}}],
458 =item removal_unremovable_tags
460 Bugs which have these tags set cannot be archived
466 set_default(\%config,'removal_unremovable_tags',
470 =item removal_distribution_tags
472 Tags which specifiy distributions to check
474 Default: @{$config{distributions}}
478 set_default(\%config,'removal_distribution_tags',
479 [@{$config{distributions}}]);
481 =item removal_default_distribution_tags
483 For removal/archival purposes, all bugs are assumed to have these tags
486 Default: qw(unstable testing);
490 set_default(\%config,'removal_default_distribution_tags',
491 [qw(unstable testing)]
494 =item removal_strong_severity_default_distribution_tags
496 For removal/archival purposes, all bugs with strong severity are
497 assumed to have these tags set.
499 Default: qw(unstable testing stable);
503 set_default(\%config,'removal_strong_severity_default_distribution_tags',
504 [qw(unstable testing stable)]
508 =item removal_architectures
510 For removal/archival purposes, these architectures are consulted if
511 there is more than one architecture applicable. If the bug is in a
512 package not in any of these architectures, the architecture actually
513 checked is undefined.
515 Default: value of default_architectures
519 set_default(\%config,'removal_architectures',
520 $config{default_architectures},
524 =item package_name_re
526 The regex which will match a package name
528 Default: '[a-z0-9][a-z0-9\.+-]+'
532 set_default(\%config,'package_name_re',
533 '[a-z0-9][a-z0-9\.+-]+');
535 =item package_version_re
537 The regex which will match a package version
539 Default: '[A-Za-z0-9:+\.-]+'
544 set_default(\%config,'package_version_re',
545 '[A-Za-z0-9:+\.~-]+');
548 =item default_package
550 This is the name of the default package. If set, bugs assigned to
551 packages without a maintainer and bugs missing a Package: psuedoheader
552 will be assigned to this package instead.
554 Defaults to unset, which is the traditional debbugs behavoir
558 set_default(\%config,'default_package',
563 =item control_internal_requester
565 This address is used by Debbugs::Control as the request address which
566 sent a control request for faked log messages.
568 Default:"Debbugs Internal Request <$config{maintainer_email}>"
572 set_default(\%config,'control_internal_requester',
573 "Debbugs Internal Request <$config{maintainer_email}>",
576 =item control_internal_request_addr
578 This address is used by Debbugs::Control as the address to which a
579 faked log message request was sent.
581 Default: "internal_control\@$config{email_domain}";
585 set_default(\%config,'control_internal_request_addr',
586 'internal_control@'.$config{email_domain},
590 =item exclude_from_control
592 Addresses which are not allowed to send messages to control
596 set_default(\%config,'exclude_from_control',[]);
600 =item default_severity
602 The default severity of bugs which have no severity set
608 set_default(\%config,'default_severity','normal');
610 =item severity_display
612 A hashref of severities and the informative text which describes them.
616 {critical => "Critical $config{bugs}",
617 grave => "Grave $config{bugs}",
618 normal => "Normal $config{bugs}",
619 wishlist => "Wishlist $config{bugs}",
624 set_default(\%config,'severity_display',{critical => "Critical $config{bugs}",
625 grave => "Grave $config{bugs}",
626 serious => "Serious $config{bugs}",
627 important=> "Important $config{bugs}",
628 normal => "Normal $config{bugs}",
629 minor => "Minor $config{bugs}",
630 wishlist => "Wishlist $config{bugs}",
633 =item show_severities
635 A scalar list of the severities to show
637 Defaults to the concatenation of the keys of the severity_display
638 hashlist with ', ' above.
642 set_default(\%config,'show_severities',join(', ',keys %{$config{severity_display}}));
644 =item strong_severities
646 An arrayref of the serious severities which shoud be emphasized
648 Default: [qw(critical grave)]
652 set_default(\%config,'strong_severities',[qw(critical grave)]);
656 An arrayref of a list of the severities
658 Defaults to the keys of the severity display hashref
662 set_default(\%config,'severity_list',[keys %{$config{severity_display}}]);
664 =item obsolete_severities
666 A hashref of obsolete severities with the replacing severity
672 set_default(\%config,'obsolete_severities',{});
676 An arrayref of the tags used
678 Default: [qw(patch wontfix moreinfo unreproducible fixed)] and also
679 includes the distributions.
683 set_default(\%config,'tags',[qw(patch wontfix moreinfo unreproducible fixed),
684 @{$config{distributions}}
687 set_default(\%config,'tags_single_letter',
691 unreproducible => 'R',
696 set_default(\%config,'bounce_froms','^mailer|^da?emon|^post.*mast|^root|^wpuser|^mmdf|^smt.*|'.
697 '^mrgate|^vmmail|^mail.*system|^uucp|-maiser-|^mal\@|'.
698 '^mail.*agent|^tcpmail|^bitmail|^mailman');
700 set_default(\%config,'config_dir',dirname(exists $ENV{DEBBUGS_CONFIG_FILE}?$ENV{DEBBUGS_CONFIG_FILE}:'/etc/debbugs/config'));
701 set_default(\%config,'spool_dir','/var/lib/debbugs/spool');
705 Directory which contains the usertags
707 Default: $config{spool_dir}/user
711 set_default(\%config,'usertag_dir',$config{spool_dir}.'/user');
712 set_default(\%config,'incoming_dir','incoming');
713 set_default(\%config,'web_dir','/var/lib/debbugs/www');
714 set_default(\%config,'doc_dir','/var/lib/debbugs/www/txt');
715 set_default(\%config,'lib_path','/usr/lib/debbugs');
720 directory of templates; defaults to /usr/share/debbugs/templates.
724 set_default(\%config,'template_dir','/usr/share/debbugs/templates');
727 set_default(\%config,'maintainer_file',$config{config_dir}.'/Maintainers');
728 set_default(\%config,'maintainer_file_override',$config{config_dir}.'/Maintainers.override');
729 set_default(\%config,'pseudo_maint_file',$config{config_dir}.'/pseudo-packages.maint');
730 set_default(\%config,'pseudo_desc_file',$config{config_dir}.'/pseudo-packages.description');
731 set_default(\%config,'package_source',$config{config_dir}.'/indices/sources');
734 =item version_packages_dir
736 Location where the version package information is kept; defaults to
737 spool_dir/../versions/pkg
741 set_default(\%config,'version_packages_dir',$config{spool_dir}.'/../versions/pkg');
743 =item version_time_index
745 Location of the version/time index file. Defaults to
746 spool_dir/../versions/idx/versions_time.idx if spool_dir/../versions
747 exists; otherwise defaults to undef.
752 set_default(\%config,'version_time_index', -d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/versions_time.idx' : undef);
756 Location of the version index file. Defaults to
757 spool_dir/../versions/indices/versions.idx if spool_dir/../versions
758 exists; otherwise defaults to undef.
762 set_default(\%config,'version_index',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/versions.idx' : undef);
764 =item binary_source_map
766 Location of the binary -> source map. Defaults to
767 spool_dir/../versions/indices/bin2src.idx if spool_dir/../versions
768 exists; otherwise defaults to undef.
772 set_default(\%config,'binary_source_map',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/binsrc.idx' : undef);
774 =item source_binary_map
776 Location of the source -> binary map. Defaults to
777 spool_dir/../versions/indices/src2bin.idx if spool_dir/../versions
778 exists; otherwise defaults to undef.
782 set_default(\%config,'source_binary_map',-d $config{spool_dir}.'/../versions' ? $config{spool_dir}.'/../versions/indices/srcbin.idx' : undef);
786 set_default(\%config,'post_processall',[]);
790 Sets the sendmail binary to execute; defaults to /usr/lib/sendmail
794 set_default(\%config,'sendmail','/usr/lib/sendmail');
798 Whether or not spamscan is being used; defaults to 0 (not being used
802 set_default(\%config,'spam_scan',0);
804 =item spam_crossassassin_db
806 Location of the crosassassin database, defaults to
807 spool_dir/../CrossAssassinDb
811 set_default(\%config,'spam_crossassassin_db',$config{spool_dir}.'/../CrossAssassinDb');
815 Maximum number of cross-posted messages
819 set_default(\%config,'spam_max_cross',6);
822 =item spam_spams_per_thread
824 Number of spams for each thread (on average). Defaults to 200
828 set_default(\%config,'spam_spams_per_thread',200);
830 =item spam_max_threads
832 Maximum number of threads to start. Defaults to 20
836 set_default(\%config,'spam_max_threads',20);
838 =item spam_keep_running
840 Maximum number of seconds to run without restarting. Defaults to 3600.
844 set_default(\%config,'spam_keep_running',3600);
848 Location to store spam messages; is run through strftime to allow for
849 %d,%m,%Y, et al. Defaults to 'spool_dir/../mail/spam/assassinated.%Y-%m-%d'
853 set_default(\%config,'spam_mailbox',$config{spool_dir}.'/../mail/spam/assassinated.%Y-%m-%d');
855 =item spam_crossassassin_mailbox
857 Location to store crossassassinated messages; is run through strftime
858 to allow for %d,%m,%Y, et al. Defaults to
859 'spool_dir/../mail/spam/crossassassinated.%Y-%m-%d'
863 set_default(\%config,'spam_crossassassin_mailbox',$config{spool_dir}.'/../mail/spam/crossassassinated.%Y-%m-%d');
865 =item spam_local_tests_only
867 Whether only local tests are run, defaults to 0
871 set_default(\%config,'spam_local_tests_only',0);
873 =item spam_user_prefs
875 User preferences for spamassassin, defaults to $ENV{HOME}/.spamassassin/user_prefs
879 set_default(\%config,'spam_user_prefs',"$ENV{HOME}/.spamassassin/user_prefs");
883 Site rules directory for spamassassin, defaults to
884 '/usr/share/spamassassin'
888 set_default(\%config,'spam_rules_dir','/usr/share/spamassassin');
895 The following are the only text fields in general use in the scripts;
896 a few additional text fields are defined in text.in, but are only used
897 in db2html and a few other specialty scripts.
899 Earlier versions of debbugs defined these values in /etc/debbugs/text,
900 but now they are required to be in the configuration file. [Eventually
901 the longer ones will move out into a fully fledged template system.]
907 =item bad_email_prefix
909 This prefixes the text of all lines in a bad e-mail message ack.
913 set_default(\%config,'bad_email_prefix','');
916 =item text_instructions
918 This gives more information about bad e-mails to receive.in
922 set_default(\%config,'text_instructions',$config{bad_email_prefix});
926 This shows up at the end of (most) html pages
928 In many pages this has been replaced by the html/tail template.
932 set_default(\%config,'html_tail',<<END);
933 <ADDRESS>$config{maintainer} <<A HREF=\"mailto:$config{maintainer_email}\">$config{maintainer_email}</A>>.
939 <A HREF=\"http://$config{web_domain}/\">Debian $config{bug} tracking system</A><BR>
940 Copyright (C) 1999 Darren O. Benham,
941 1997,2003 nCipher Corporation Ltd,
947 =item html_expire_note
949 This message explains what happens to archive/remove-able bugs
953 set_default(\%config,'html_expire_note',
954 "(Closed $config{bugs} are archived $config{remove_age} days after the last related message is received.)");
962 my ($conf_file) = @_;
963 # first, figure out what type of file we're reading in.
964 my $fh = new IO::File $conf_file,'r'
965 or die "Unable to open configuration file $conf_file for reading: $!";
966 # A new version configuration file must have a comment as its first line
967 my $first_line = <$fh>;
968 my ($version) = defined $first_line?$first_line =~ /VERSION:\s*(\d+)/i:undef;
969 if (defined $version) {
972 die "Version 1 configuration files not implemented yet";
975 die "Version $version configuration files are not supported";
979 # Ugh. Old configuration file
980 # What we do here is we create a new Safe compartment
981 # so fucked up crap in the config file doesn't sink us.
982 my $cpt = new Safe or die "Unable to create safe compartment";
983 # perldoc Opcode; for details
984 $cpt->permit('require',':filesys_read','entereval','caller','pack','unpack','dofile');
985 $cpt->reval(qq(require '$conf_file';));
986 die "Error in configuration file: $@" if $@;
987 # Now what we do is check out the contents of %EXPORT_TAGS to see exactly which variables
988 # we want to glob in from the configuration file
989 for my $variable (@{$EXPORT_TAGS{globals}}) {
990 my ($hash_name,$glob_name,$glob_type) = __convert_name($variable);
991 my $var_glob = $cpt->varglob($glob_name);
992 my $value; #= $cpt->reval("return $variable");
993 # print STDERR "$variable $value",qq(\n);
994 if (defined $var_glob) {{
996 if ($glob_type eq '%') {
997 $value = {%{*{$var_glob}}} if defined *{$var_glob}{HASH};
999 elsif ($glob_type eq '@') {
1000 $value = [@{*{$var_glob}}] if defined *{$var_glob}{ARRAY};
1003 $value = ${*{$var_glob}};
1005 # We punt here, because we can't tell if the value was
1006 # defined intentionally, or if it was just left alone;
1007 # this tries to set sane defaults.
1008 set_default(\%config,$hash_name,$value) if defined $value;
1015 my ($variable) = @_;
1016 my $hash_name = $variable;
1017 $hash_name =~ s/^([\$\%\@])g//;
1019 my $glob_name = 'g'.$hash_name;
1020 $hash_name =~ s/(HTML|CGI)/ucfirst(lc($1))/ge;
1021 $hash_name =~ s/^([A-Z]+)/lc($1)/e;
1022 $hash_name =~ s/([A-Z]+)/'_'.lc($1)/ge;
1023 return $hash_name unless wantarray;
1024 return ($hash_name,$glob_name,$glob_type);
1029 # sets the configuration hash to the default value if it's not set,
1030 # otherwise doesn't do anything
1031 # If $USING_GLOBALS, then sets an appropriate global.
1034 my ($config,$option,$value) = @_;
1036 if ($USING_GLOBALS) {
1037 # fix up the variable name
1038 $varname = 'g'.join('',map {ucfirst $_} split /_/, $option);
1039 # Fix stupid HTML names
1040 $varname =~ s/(Html|Cgi)/uc($1)/ge;
1042 # update the configuration value
1043 if (not $USING_GLOBALS and not exists $config->{$option}) {
1044 $config->{$option} = $value;
1046 elsif ($USING_GLOBALS) {{
1048 # Need to check if a value has already been set in a global
1049 if (defined *{"Debbugs::Config::${varname}"}) {
1050 $config->{$option} = *{"Debbugs::Config::${varname}"};
1053 $config->{$option} = $value;
1056 if ($USING_GLOBALS) {{
1058 *{"Debbugs::Config::${varname}"} = $config->{$option};
1065 # All we care about here is whether we've been called with the globals or text option;
1066 # if so, then we need to export some symbols back up.
1067 # In any event, we call exporter.
1070 if (grep /^:(?:text|globals)$/, @_) {
1072 for my $variable (map {@$_} @EXPORT_TAGS{map{(/^:(text|globals)$/?($1):())} @_}) {
1073 my $tmp = $variable;
1075 # Yes, I don't care if these are only used once
1077 # No, it doesn't bother me that I'm assigning an undefined value to a typeglob
1079 my ($hash_name,$glob_name,$glob_type) = __convert_name($variable);
1080 $tmp =~ s/^[\%\$\@]//;
1081 *{"Debbugs::Config::${tmp}"} = ref($config{$hash_name})?$config{$hash_name}:\$config{$hash_name};
1084 Debbugs::Config->export_to_level(1,@_);