Compare commits

..

No commits in common. "master" and "upstream" have entirely different histories.

11 changed files with 0 additions and 172 deletions

5
debian/changelog vendored
View File

@ -1,5 +0,0 @@
liblog-log4perl-appender-graylog-perl (1.7-1) unstable; urgency=low
* Initial Release.
-- Mario Fetka <mario.fetka@gmail.com> Tue, 27 Mar 2018 20:31:40 +0200

1
debian/compat vendored
View File

@ -1 +0,0 @@
9

16
debian/control vendored
View File

@ -1,16 +0,0 @@
Source: liblog-log4perl-appender-graylog-perl
Section: perl
Priority: optional
Maintainer: Mario Fetka <mario.fetka@gmail.com>
Build-Depends: debhelper (>= 9), libdata-faker-perl, libdata-printer-perl, libdata-random-string-perl, libio-compress-perl, libjson-perl, liblog-log4perl-perl, libtest-mockmodule-perl, libtest-moose-more-perl, libtest-most-perl, perl-base, libdata-uuid-perl, libdevel-stacktrace-perl, libjson-tiny-perl, liblog-gelf-util-perl, liblog-log4perl-perl, libmoose-perl, libmoosex-types-perl, libreadonly-perl, libnamespace-autoclean-perl, libtime-hires-perl
Build-Depends-Indep: perl
Standards-Version: 3.9.6
Homepage: https://metacpan.org/release/Log-Log4perl-Appender-Graylog
Package: liblog-log4perl-appender-graylog-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libdata-uuid-perl, libdevel-stacktrace-perl, libjson-tiny-perl, liblog-gelf-util-perl, liblog-log4perl-perl, libmoose-perl, libmoosex-types-perl, libreadonly-perl, libnamespace-autoclean-perl, libio-compress-perl, libtime-hires-perl
Description: Log dispatcher writing to udp Graylog server
(no description was found)
.
This description was automagically extracted from the module by dh-make-perl.

36
debian/copyright vendored
View File

@ -1,36 +0,0 @@
Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
Source: https://metacpan.org/release/Log-Log4perl-Appender-Graylog
Upstream-Contact: Brandon "Dimentox Travanti" Husbands <xotmid@gmail.com>
Upstream-Name: Log-Log4perl-Appender-Graylog
DISCLAIMER: This copyright info was automatically extracted
from the perl module. It may not be accurate, so you better
check the module sources in order to ensure the module for its
inclusion in Debian or for general legal information. Please,
if licensing information is incorrectly generated, file a bug
on dh-make-perl.
NOTE: Don't forget to remove this disclaimer once you are happy
with this file.
Files: *
Copyright: Brandon "Dimentox Travanti" Husbands <xotmid@gmail.com>
License: Artistic or GPL-1+
Files: debian/*
Copyright: 2018, Mario Fetka <mario.fetka@gmail.com>
License: Artistic or GPL-1+
License: Artistic
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
On Debian systems, the complete text of the Artistic License can be
found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
On Debian systems, the complete text of version 1 of the GNU General
Public License can be found in `/usr/share/common-licenses/GPL-1'.

View File

@ -1 +0,0 @@
README.md

View File

@ -1,97 +0,0 @@
diff -uNr Log-Log4perl-Appender-Graylog-1.7.orig/lib/Data/DTO/GELF.pm Log-Log4perl-Appender-Graylog-1.7/lib/Data/DTO/GELF.pm
--- Log-Log4perl-Appender-Graylog-1.7.orig/lib/Data/DTO/GELF.pm 2018-03-28 14:15:13.708000000 +0200
+++ Log-Log4perl-Appender-Graylog-1.7/lib/Data/DTO/GELF.pm 2018-03-28 14:57:01.000000000 +0200
@@ -13,6 +13,7 @@
use Sys::Hostname;
use Data::UUID;
use POSIX qw(strftime);
+use Time::HiRes;
use Log::Log4perl;
@@ -47,7 +48,8 @@
has 'timestamp' => (
is => 'ro',
- isa => 'Int',
+ #isa => 'Int',
+ isa => 'Num',
builder => '_build_timestamp',
);
@@ -61,12 +63,27 @@
isa => 'Str',
);
-has '_line' => (
+has '_SourceLineNumber' => (
is => 'rw',
isa => 'Int',
);
-has '_file' => (
+has '_SourceFileName' => (
+ is => 'rw',
+ isa => 'Str',
+);
+
+has '_SourceClassName' => (
+ is => 'rw',
+ isa => 'Str',
+);
+
+has '_SourceMethodName' => (
+ is => 'rw',
+ isa => 'Str',
+);
+
+has '_Severity' => (
is => 'rw',
isa => 'Str',
);
@@ -83,13 +100,20 @@
}
my $trace = Devel::StackTrace->new;
+ my $subroutine_next = '';
+ my $found = 0;
foreach my $frame ( $trace->frames ) {
+
+ $subroutine_next ||= $frame->{subroutine} if ($found and $frame->{subroutine} ne "Log::Log4perl::Logger::__ANON__");
+
if ( $frame->{subroutine} eq "Log::Log4perl::Logger::__ANON__" ) {
- $self->_line( $frame->{line} );
- $self->_file( $frame->{filename} );
- $self->_facility( $frame->{package} );
+ $self->_SourceLineNumber( $frame->{line} );
+ $self->_SourceFileName( $frame->{filename} );
+ $self->_SourceClassName( $frame->{package} );
+ $found++;
}
}
+ $self->_SourceMethodName( $subroutine_next );
}
@@ -105,7 +129,7 @@
sub _build_timestamp {
my $self = shift;
- return time();
+ return Time::HiRes::time();
}
sub message {
diff -uNr Log-Log4perl-Appender-Graylog-1.7.orig/lib/Log/Log4perl/Appender/Graylog.pm Log-Log4perl-Appender-Graylog-1.7/lib/Log/Log4perl/Appender/Graylog.pm
--- Log-Log4perl-Appender-Graylog-1.7.orig/lib/Log/Log4perl/Appender/Graylog.pm 2018-03-28 14:15:13.708000000 +0200
+++ Log-Log4perl-Appender-Graylog-1.7/lib/Log/Log4perl/Appender/Graylog.pm 2018-03-28 14:57:01.000000000 +0200
@@ -70,7 +70,8 @@
'_name' => $params{name},
'_category' => $params{log4p_category},
"_pid" => $$,
-
+ "_facility" => $self->{facility} || '',
+ "_Severity" => $params{log4p_level},
);
my $msg = validate_message( $packet->TO_HASH() );

View File

@ -1,2 +0,0 @@
JohannesLogFormat.patch

4
debian/rules vendored
View File

@ -1,4 +0,0 @@
#!/usr/bin/make -f
%:
dh $@

View File

@ -1 +0,0 @@
3.0 (quilt)

View File

@ -1,7 +0,0 @@
---
Archive: CPAN
Bug-Database: https://github.com/dimentox/log-log4perl-appender-graylog/issues
Contact: Brandon "Dimentox Travanti" Husbands <xotmid@gmail.com>
Name: Log-Log4perl-Appender-Graylog
Repository: git://github.com/dimentox/log-log4perl-appender-graylog.git
Repository-Browse: https://github.com/dimentox/log-log4perl-appender-graylog

2
debian/watch vendored
View File

@ -1,2 +0,0 @@
version=3
https://metacpan.org/release/Log-Log4perl-Appender-Graylog .*/Log-Log4perl-Appender-Graylog-v?(\d[\d.-]*)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$