Dispatch/Configurator/Hardwired.pm

##    --------------------------------------------------------------------------------
##    $Id: Config.pm,v 1.1 2002/12/07 04:17:45 cvsjoko Exp $
##    --------------------------------------------------------------------------------
##    $Log: Config.pm,v $
##    Revision 1.1  2002/12/07 04:17:45  cvsjoko
##    + moved here from base 'etc/'
##
##    Revision 1.2  2002/10/16 04:01:51  cvsjoko
##    + changes to logging settings (debug)
##
##    Revision 1.1  2002/10/10 03:23:55  cvsjoko
##    + new
##    --------------------------------------------------------------------------------


package Log::Dispatch::Configurator::Hardwired;
use base qw(Log::Dispatch::Configurator);

use strict;
use warnings;

sub get_attrs_global {
    my $self = shift;
    my @dispatchers;
    
    # push all loggers to @dispatchers
    push @dispatchers, 'screen';
    #print "logfile: ", $self->{logfile}, "\n";
    push @dispatchers, 'file' if ($self->{file_filename});
    
    print "logging to [", join(" ", @dispatchers), "]", "\n" if ($self->{verbose});
    return {
        format => undef,
        dispatchers => \@dispatchers,
    };
}

sub get_attrs {
    my($self, $name) = @_;
    if ($name eq 'file') {
        return {
            class     => 'Log::Dispatch::File',
            min_level => 'debug',
            #filename  => '/path/to/log',
            filename  => $self->{file_filename},
            mode      => 'append',
            #format  => '[%d] [%p] %m at %F line %L%n',
            format  => '[%d] [%p] %m%n',
        };
    }
    elsif ($name eq 'screen') {
        return {
            class     => 'Log::Dispatch::Screen',
            #min_level => 'info',
            min_level => 'debug',
            #min_level => 'error',
            min_level => $self->{screen_min_level},
            stderr    => 1,
            format  => '%p: %m%n',
        };
    }
    else {
        die "invalid dispatcher name: $name";
    }
}


1;
__END__
1	## --------------------------------------------------------------------------------
2	## $Id: Config.pm,v 1.1 2002/12/07 04:17:45 cvsjoko Exp $
3	## --------------------------------------------------------------------------------
4	## $Log: Config.pm,v $
5	## Revision 1.1 2002/12/07 04:17:45 cvsjoko
6	## + moved here from base 'etc/'
7	##
8	## Revision 1.2 2002/10/16 04:01:51 cvsjoko
9	## + changes to logging settings (debug)
10	##
11	## Revision 1.1 2002/10/10 03:23:55 cvsjoko
12	## + new
13	## --------------------------------------------------------------------------------
14
15
16	package Log::Dispatch::Configurator::Hardwired;
17	use base qw(Log::Dispatch::Configurator);
18
19	use strict;
20	use warnings;
21
22	sub get_attrs_global {
23	my $self = shift;
24	my @dispatchers;
25
26	# push all loggers to @dispatchers
27	push @dispatchers, 'screen';
28	#print "logfile: ", $self->{logfile}, "\n";
29	push @dispatchers, 'file' if ($self->{file_filename});
30
31	print "logging to [", join(" ", @dispatchers), "]", "\n" if ($self->{verbose});
32	return {
33	format => undef,
34	dispatchers => \@dispatchers,
35	};
36	}
37
38	sub get_attrs {
39	my($self, $name) = @_;
40	if ($name eq 'file') {
41	return {
42	class => 'Log::Dispatch::File',
43	min_level => 'debug',
44	#filename => '/path/to/log',
45	filename => $self->{file_filename},
46	mode => 'append',
47	#format => '[%d] [%p] %m at %F line %L%n',
48	format => '[%d] [%p] %m%n',
49	};
50	}
51	elsif ($name eq 'screen') {
52	return {
53	class => 'Log::Dispatch::Screen',
54	#min_level => 'info',
55	min_level => 'debug',
56	#min_level => 'error',
57	min_level => $self->{screen_min_level},
58	stderr => 1,
59	format => '%p: %m%n',
60	};
61	}
62	else {
63	die "invalid dispatcher name: $name";
64	}
65	}
66
67
68	1;
69	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26