X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2Fmock%2Fmail.pl;fp=installcheck%2Fmock%2Fmail.pl;h=d77983fe9054bf1245965335a1e3b25ebb3850f7;hb=fd48f3e498442f0cbff5f3606c7c403d0566150e;hp=0000000000000000000000000000000000000000;hpb=96f35b20267e8b1a1c846d476f27fcd330e0b018;p=debian%2Famanda

diff --git a/installcheck/mock/mail.pl b/installcheck/mock/mail.pl
new file mode 100644
index 0000000..d77983f
--- /dev/null
+++ b/installcheck/mock/mail.pl
@@ -0,0 +1,39 @@
+#! @PERL@
+# Copyright (c) 2010 Zmanda, Inc.  All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License version 2 as published
+# by the Free Software Foundation.
+#
+# 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, write to the Free Software Foundation, Inc.,
+# 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+#
+# Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
+# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+my $outfile = $ENV{'INSTALLCHECK_MOCK_MAIL_OUTPUT'};
+die "INSTALLCHECK_MOCK_MAIL_OUTPUT not defined" unless defined $outfile;
+
+# just copy data
+open(my $out, ">", $outfile) or die("Could not open '$outfile'");
+
+my $dumper = Data::Dumper->new([\@ARGV], [qw(ARGS)]);
+$dumper->Indent(0);
+print $out $dumper->Dump, "\n";
+
+while (1) {
+    my $data = <STDIN>;
+    last unless $data;
+    print $out $data;
+}
+close($out);