],
text => [qw($gBadEmailPrefix $gHTMLTail $gHTMLExpireNote),
],
+ cgi => [qw($gLibravatarUri $gLibravatarUriOptions)],
config => [qw(%config)],
);
@EXPORT_OK = ();
- Exporter::export_ok_tags(qw(globals text config));
+ Exporter::export_ok_tags(keys %EXPORT_TAGS);
$EXPORT_TAGS{all} = [@EXPORT_OK];
$ENV{HOME} = '' if not defined $ENV{HOME};
}
=over
-=item libravatar_uri
+=item libravatar_uri $gLibravatarUri
URI to a libravatar configuration. If empty or undefined, libravatar
support will be disabled. Defaults to
set_default(\%config,'libravatar_uri',"http://cdn.libravatar.org/avatar/");
-=item libravatar_uri_options
+=item libravatar_uri_options $gLibravatarUriOptions
Options to append to the md5_hex of the e-mail. This sets the default
avatar used when an avatar isn't available. Currently defaults to
die "Error in configuration file: $@" if $@;
# Now what we do is check out the contents of %EXPORT_TAGS to see exactly which variables
# we want to glob in from the configuration file
- for my $variable (@{$EXPORT_TAGS{globals}}) {
+ for my $variable (map {$_ =~ /^(?:config|all)$/ ? () : @{$EXPORT_TAGS{$_}}} keys %EXPORT_TAGS) {
my ($hash_name,$glob_name,$glob_type) = __convert_name($variable);
my $var_glob = $cpt->varglob($glob_name);
my $value; #= $cpt->reval("return $variable");