Compare commits
No commits in common. "master" and "upstream" have entirely different histories.
5
debian/changelog
vendored
5
debian/changelog
vendored
@ -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
1
debian/compat
vendored
@ -1 +0,0 @@
|
|||||||
9
|
|
16
debian/control
vendored
16
debian/control
vendored
@ -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
36
debian/copyright
vendored
@ -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'.
|
|
@ -1 +0,0 @@
|
|||||||
README.md
|
|
97
debian/patches/JohannesLogFormat.patch
vendored
97
debian/patches/JohannesLogFormat.patch
vendored
@ -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() );
|
|
2
debian/patches/series
vendored
2
debian/patches/series
vendored
@ -1,2 +0,0 @@
|
|||||||
JohannesLogFormat.patch
|
|
||||||
|
|
4
debian/rules
vendored
4
debian/rules
vendored
@ -1,4 +0,0 @@
|
|||||||
#!/usr/bin/make -f
|
|
||||||
|
|
||||||
%:
|
|
||||||
dh $@
|
|
1
debian/source/format
vendored
1
debian/source/format
vendored
@ -1 +0,0 @@
|
|||||||
3.0 (quilt)
|
|
7
debian/upstream/metadata
vendored
7
debian/upstream/metadata
vendored
@ -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
2
debian/watch
vendored
@ -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)$
|
|
Loading…
Reference in New Issue
Block a user