From b219194d7b3ea7e381d083a6511d7cf9e240c9ff Mon Sep 17 00:00:00 2001 From: Dylan William Hardison Date: Mon, 19 Feb 2018 12:23:00 -0500 Subject: Bug 1435735 - Add script to add email job to jobqueue --- scripts/sendmail.pl | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100755 scripts/sendmail.pl diff --git a/scripts/sendmail.pl b/scripts/sendmail.pl new file mode 100755 index 000000000..aa9ab57a1 --- /dev/null +++ b/scripts/sendmail.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. + +# This file has detailed POD docs, do "perldoc checksetup.pl" to see them. + +###################################################################### +# Initialization +###################################################################### + +use 5.10.1; +use strict; +use warnings; + +use File::Basename; +use File::Spec; +BEGIN { + require lib; + my $dir = File::Spec->rel2abs(dirname(__FILE__)); + my $base = File::Spec->catdir($dir, ".."); + lib->import($base, File::Spec->catdir($base, "lib"), File::Spec->catdir($base, qw(local lib perl5))); + chdir $base; +} + +use Bugzilla; +BEGIN { Bugzilla->extensions } +use Bugzilla::Mailer; + +my $msg = do { + local $/ = undef; + binmode STDIN, ':bytes'; + ; +}; + +MessageToMTA($msg); \ No newline at end of file -- cgit v1.2.3-24-g4f1b