Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
benchmarks	[ DIR ]	drwxr-xr-x
L4pResurrectable.pm	181 B	-rw-r--r--
color	768 B	-rwxr-xr-x
dupe-warning.conf	329 B	-rw-r--r--
jabber.conf	591 B	-rw-r--r--
l4p-tmpl	1.8 KB	-rwxr-xr-x
log4j-file-append-java.conf	532 B	-rw-r--r--
log4j-file-append-perl.conf	534 B	-rw-r--r--
log4j-manual-1.conf	508 B	-rw-r--r--
log4j-manual-2.conf	479 B	-rw-r--r--
log4j-manual-3.conf	541 B	-rw-r--r--
log4j-utf8.conf	219 B	-rw-r--r--
newsyslog-test	945 B	-rwxr-xr-x
override_appender	2.2 KB	-rwxr-xr-x
prototype	781 B	-rwxr-xr-x
syslog.pl	1.49 KB	-rwxr-xr-x
yamlparser	2.23 KB	-rwxr-xr-x

Code Editor : syslog.pl

#!/usr/bin/perl
###########################################
# Syslog test cases
# Kevin Goess, cpan@goess.org 2002
###########################################
use warnings;
use strict;

use Log::Log4perl;
use Test;

our $RESULT_BUFFER;

package Log::MyOwnAppender;

our $IS_LOADED = 1;

use base qw(Log::Dispatch::Output);

sub new {
    my($proto, %params) = @_;
    my $class = ref $proto || $proto;

my $self = bless {}, $class;

$self->_basic_init(%params);

return $self;
}

sub log_message {
    my $self = shift;
    my %params = @_;

#params is { name    => \$appender_name,
    #            level   => 0,
    #            message => \$message,

$main::RESULT_BUFFER = $params{level};
}

package main;

my $config = <<EOL;
log4j.category.plant      = DEBUG,  tappndr,syslogappndr

log4j.appender.tappndr        = Log::MyOwnAppender
log4j.appender.tappndr.layout = org.apache.log4j.SimpleLayout

log4j.appender.syslogappndr        = Log::Dispatch::Syslog
log4j.appender.syslogappndr.layout = org.apache.log4j.SimpleLayout

EOL

Log::Log4perl::init(\$config);

my $logger = Log::Log4perl::get_logger('plant');

$logger->fatal('foo');
ok($RESULT_BUFFER, 7);
$RESULT_BUFFER = undef;

$logger->error('foo');
ok($RESULT_BUFFER, 4);
$RESULT_BUFFER = undef;

$logger->warn('foo');
ok($RESULT_BUFFER, 3);
$RESULT_BUFFER = undef;

$logger->info('foo');
ok($RESULT_BUFFER, 1);
$RESULT_BUFFER = undef;

$logger->debug('foo'); 
ok($RESULT_BUFFER, 0);
$RESULT_BUFFER = undef;

BEGIN { plan tests => 5, }

${this.title}

Code Editor : syslog.pl