From a4f149873af1e9cff9ab0829adfcd3eca1a3780d Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Thu, 6 Jan 2011 01:07:55 +0000
Subject: search in core, nonfree, tainted instead of main, contrib

---
 lib/Youri/Check/Output/Mail/Format/Text.pm | 83 ++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100644 lib/Youri/Check/Output/Mail/Format/Text.pm

(limited to 'lib/Youri/Check/Output/Mail/Format/Text.pm')

diff --git a/lib/Youri/Check/Output/Mail/Format/Text.pm b/lib/Youri/Check/Output/Mail/Format/Text.pm
new file mode 100644
index 0000000..f08e840
--- /dev/null
+++ b/lib/Youri/Check/Output/Mail/Format/Text.pm
@@ -0,0 +1,83 @@
+# $Id: Mail.pm 580 2006-01-11 22:59:36Z guillomovitch $
+package Youri::Check::Output::Mail::Format::Text;
+
+=head1 NAME
+
+Youri::Check::Output::Mail::Format::Text - Mail text format support
+
+=head1 DESCRIPTION
+
+This format plugin for L<Youri::Check::Output::Mail> provides text format
+support.
+
+=cut
+
+use warnings;
+use strict;
+use Carp;
+use base 'Youri::Check::Output::Mail::Format';
+
+sub type {
+    return 'text/plain';
+}
+
+sub get_report {
+    my ($self, $time, $title, $iterator, $type, $columns, $links, $maintainer) = @_;
+
+    my $content;
+    my $lead_columns = [ 
+        $maintainer ?
+            qw/package media/ :
+            qw/package media maintainer/
+        ];
+    my @results;
+    $content .= join("\t", @$lead_columns, @$columns) . "\n";
+    while (my $result = $iterator->get_result()) {
+        if (@results && $result->{package} ne $results[0]->{package}) {
+            $content .= $self->_get_formated_results(
+                $lead_columns,
+                $columns,
+                \@results
+            );
+            @results = ();
+        }
+        push(@results, $result);
+    }
+
+    $content .= $self->_get_formated_results(
+        $lead_columns,
+        $columns,
+        \@results
+    );
+
+    return \$content;
+}
+
+sub _get_formated_results {
+    my ($self, $lead_columns, $columns, $results) = @_;
+
+    my $content;
+    $content .= join(
+        "\t",
+        (map { $results->[0]->{$_} || '' } @$lead_columns),
+        (map { $results->[0]->{$_} || '' } @$columns)
+    ) . "\n";
+    for my $i (1 .. $#$results) {
+        $content .= join(
+            "\t",
+            (map { '' } @$lead_columns),
+            (map { $results->[$i]->{$_} || '' } @$columns)
+        ) . "\n";
+    }
+    return $content;
+}
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2002-2006, YOURI project
+
+This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
+
+1;
-- 
cgit v1.2.1