[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit fe51b6ab08b5ec5566668e679b06066ffcb5e23e
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Wed Sep 5 08:59:27 2012 +0100

    Revert "Add my own syslog udp input"
    
    This reverts commit 72525bf57521c1f1335f361ec372714aa219aef4.

diff --git a/lib/Message/Passing/Input/Syslog/UDP.pm b/lib/Message/Passing/Input/Syslog/UDP.pm
deleted file mode 100644
index 5d57c44..0000000
--- a/lib/Message/Passing/Input/Syslog/UDP.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-package Message::Passing::Input::Syslog::UDP;
-use Moo;
-use MRO::Compat;
-use Time::ParseDate;
-use namespace::clean -except => 'meta';
-
-extends 'Message::Passing::Input::Socket::UDP';
-
-has '+port' => (
-    default => sub { 5140 },
-    required => 0,
-);
-
-our $SYSLOG_REGEXP = q|
-^<(\d+)>                       # priority -- 1
-    (?:
-        (\S{3})\s+(\d+)        # month day -- 2, 3
-        \s
-        (\d+):(\d+):(\d+)      # time  -- 4, 5, 6
-    )?
-    \s*
-    (.*)                       # text  --  7
-$
-|;
-
-sub _send_data {
-    my ( $self, $message, $from ) = @_;
-    if ( $message =~ s/$SYSLOG_REGEXP//sx ) {
-        my $time = $2 && parsedate("$2 $3 $4:$5:$6");
-        $self->output_to->consume({
-            time     => $time,
-            pri      => $1,
-            facility => int($1/8),
-            severity => int($1%8),
-            message      => $7,
-        });
-    }
-}
-
-1;
-

-- 
libmessage-passing-perl Debian packaging