1 files changed, 113 insertions, 0 deletions
diff --git a/lib/Youri/Check/Input/Rpmlint.pm b/lib/Youri/Check/Input/Rpmlint.pm
new file mode 100644
index 0000000..3148ca4
--- /dev/null
+++ b/lib/Youri/Check/Input/Rpmlint.pm
@@ -0,0 +1,113 @@
+# $Id: Rpmlint.pm 1179 2006-08-05 08:30:57Z warly $
+package Youri::Check::Input::Rpmlint;
+
+=head1 NAME
+
+Youri::Check::Input::Rpmlint - Check packages with rpmlint
+
+=head1 DESCRIPTION
+
+This plugins checks packages with rpmlint, and reports output.
+
+=cut
+
+use warnings;
+use strict;
+use Carp;
+use base 'Youri::Check::Input';
+
+sub columns {
+    return qw/
+        arch
+        file
+        error
+        level
+    /;
+}
+
+sub links {
+    return qw//;
+}
+
+=head2 new(%args)
+
+Creates and returns a new Youri::Check::Input::Rpmlint object.
+
+Specific parameters:
+
+=over
+
+=item path $path
+
+Path to the rpmlint executable (default: /usr/bin/rpmlint)
+
+=item config $config
+
+Specific rpmlint configuration.
+
+=back
+
+=cut
+
+
+sub _init {
+    my $self    = shift;
+    my %options = (
+        path   => '/usr/bin/rpmlint', # path to rpmlint
+        config => '',                 # default rpmlint configuration
+        @_
+    );
+
+    $self->{_path}   = $options{path};
+    $self->{_config} = $options{config};
+}
+
+sub run {
+    my ($self, $media, $resultset) = @_;
+    croak "Not a class method" unless ref $self;
+
+    my $config = $media->rpmlint_config() ?
+        $media->rpmlint_config() :
+        $self->{_config};
+
+    my $check = sub {
+        my ($file, $package) = @_;
+
+        my $arch = $package->get_arch();
+        my $name = $package->get_name();
+
+        my $command = "$self->{_path} -f $config $file";
+        open(RPMLINT, "$command |") or die "Can't run $command: $!";
+        while (<RPMLINT>) {
+            chomp;
+            if (/^E: \Q$name\E (.+)/) {
+                $resultset->add_result($self->{_id}, $media, $package, { 
+                    arch  => $arch,
+                    file  => $name,
+                    error => $1,
+                    level => Youri::Check::Input::ERROR
+                });
+            } elsif (/^W: \Q$name\E (.+)/) {
+                $resultset->add_result($self->{_id}, $media, $package, { 
+                    arch  => $arch,
+                    file  => $name,
+                    error => $1,
+                    level => Youri::Check::Input::WARNING
+                });
+            }
+        }
+        close(RPMLINT);
+    };
+
+    $media->traverse_files($check);
+}
+
+=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;