From 8e79ad9f544d1c4a0476e0d96aef0496ca7fc741 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 14 Apr 2024 15:46:56 +0200 Subject: Adding upstream version 0.85.6. Signed-off-by: Daniel Baumann --- bin/buildd-mail | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 bin/buildd-mail (limited to 'bin/buildd-mail') diff --git a/bin/buildd-mail b/bin/buildd-mail new file mode 100755 index 0000000..a45424e --- /dev/null +++ b/bin/buildd-mail @@ -0,0 +1,42 @@ +#!/usr/bin/perl +# +# buildd-mail: mail answer processor for buildd +# Copyright © 1998 Roman Hodek +# Copyright © 2009 Roger Leigh +# Copyright © 2005 Ryan Murray +# +# 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 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see +# . +# +####################################################################### + +use strict; +use warnings; + +use Buildd::Conf qw(); +use Buildd::Mail; +use Sbuild::OptionsBase; + +my $conf = Buildd::Conf::new(); +exit 1 if !defined($conf); +my $options = Sbuild::OptionsBase->new($conf, "buildd-mail", "1"); +exit 1 if !defined($options); +my $mail = Buildd::Mail->new($conf); +exit 1 if !defined($mail); + +my $status = $mail->run(); + +$mail->close_log(); + +exit $status; -- cgit v1.2.3