view release on metacpan or  search on metacpan

Language.pm  view on Meta::CPAN

        if (0 < scalar @ {$current->{handler_add}}){
            $new_list =  [@parent_list, @ {$current->{handler_add}}] ;
            }
        
        $current->{handlers} = $new_list;
        }
    
    return $current;
}

sub LanguageForced($$@) {
    my ($cfg, $parms, $language) = @_;
    if(is_language_tag($language)){
        push @ {$cfg->{LanguageForced}}, $language;
        }
    else {
        warning("Bad Language Tag $language");
        }
return OK;
}

sub DefaultLanguage($$$:*){
    #piggy-back mod_mime settings.
     my ($cfg, $parms, $string) = @_;
     foreach my $language ( split /\s+/, $string ){
        if(is_language_tag($language)){
            if (exists $cfg->{LanguageDefaultActive}){
                delete $cfg->{LanguageDefaultActive};
                delete $cfg->{LanguageDefault};
                }
            unshift @ {$cfg->{LanguageDefault}}, $language;
            }
        else {
            warning("Bad Language Tag $language");
            }
        }
return Apache->module('mod_mime.c') ? DECLINE_CMD : OK;
}

sub LanguageDefault($$@) {
    my ($cfg, $parms, $language) = @_;
    if(is_language_tag($language)){
        if (exists $cfg->{LanguageDefaultActive}){
                delete $cfg->{LanguageDefaultActive};
                delete $cfg->{LanguageDefault};
                }
        push @ {$cfg->{LanguageDefault}}, $language;
        }
    else {
        warning("Bad Language Tag $language");

Language.pm  view on Meta::CPAN

return OK;
}

#LanguageDebug
# NotFoundPrefix=--> 
# NotFoundPostfix=<-- 
# Prefix=']'
# Postfix=']'
# Verbose=digit

sub LanguageDebug($$$) {
    my ($cfg, $parms, $debug) = @_;

	#print STDERR "LanguageDebug ($debug)\n";

	if($debug =~ /\d+/)
		{
    	$DEBUG = $debug;
		print STDERR "Debug level set to $debug\n";
		}
		
	elsif($debug =~ /(\w+)\s*=\s*(.+)/)
		{
		my ($cmd,$value) = ($1,$2);
		#print STDERR "Read ($cmd,$value)\n";
		$DEBUG{lc $cmd} = $value;
		}
			
    return OK;
}

sub LanguageHandler($$$;*){
    my ($cfg, $parms, $directives, $cfg_fh) = @_;
    foreach my $module (split /\s+/, $directives)
        {
        (my $action, $module ) = $module =~ /(\+|-)?(.*)/;
        
        $module = __PACKAGE__ . "::$module" unless $module =~ /^Apache::Language/;
        eval "use $module";
        if ($@){
            warning($@);
            next;