add new youri subsections (from upstream)

1 files changed, 0 insertions, 395 deletions

diff --git a/bin/youri-check.in b/bin/youri-check.in
deleted file mode 100755
index bbb5e4d..0000000
--- a/bin/youri-check.in
+++ /dev/null
@@ -1,395 +0,0 @@
-#!/usr/bin/perl
-# $Id$
-
-=head1 NAME
-
-youri-check - package check agent
-
-=head1 VERSION
-
-Version 1.0
-
-=head1 SYNOPSIS
-
-youri-check [options] <mode>
-
-Options:
-
-    --config <file>        use file <file> as config file
-    --skip-media <media>   skip media <media>
-    --skip-plugin <plugin> skip plugin <plugin>
-    --parallel             parallel run
-    --verbose              verbose run
-    --test                 test run
-    --help                 print this help message
-
-=head1 DESCRIPTION
-
-B<youri-check> allows to check packages in a repository.
-
-In input mode, all medias defined in configuration are passed to a list of
-input plugins, each of them storing their result in a persistent resultset. In
-output mode, this resultset is passed to a list of output plugins, each of them
-producing arbitrary effects.
-
-=head1 OPTIONS
-
-=over
-
-=item B<--config> <file>
-
-Use given file as configuration, instead of normal one.
-
-=item B<--skip-media> <media>
-
-Skip media with given identity.
-
-=item B<--skip-plugin> <plugin>
-
-Skip plugin with given identity.
-
-=item B<--parallel>
-
-Run all plugins parallelously
-
-=item B<--verbose>
-
-Produce more verbose output (can be used more than once)
-
-=item B<--test>
-
-Don't perform any modification.
-
-=item B<--help>
-
-Print a brief help message and exits.
-
-=back
-
-=head1 CONFIGURATION
-
-Configuration is read from the first file found among:
-
-=over
-
-=item * the one specified by B<--config> option on command-line
-
-=item * $HOME/.youri/check.conf
-
-=item * @sysconfdir@/youri/check.conf
-
-=back
-
-All additional configuration files specified by B<includes> directive are then
-processed. Then command line options. Any directive overrides prior definition.
-
-=over
-
-=item B<includes> I<files>
-
-Uses space-separated list I<files> as a list of additional configuration files.
-
-=item B<resolver> I<id>
-
-Declare a maintainer resolver object with identity I<id>.
-
-=item B<preferences> I<id>
-
-Declare a maintainer preferences object with identity I<id>.
-
-=item B<resultset> I<id>
-
-Declare a resultset object with identity I<id>.
-
-=item B<medias> I<ids>
-
-Declares a list of media objects with identity taken in space-separated list
-I<ids>.
-
-=item B<inputs> I<ids>
-
-Declares a list of input plugin objects with identity taken in space-separated
-list I<ids>.
-
-=item B<outputs> I<ids>
-
-Declares a list of output plugin objects with identity taken in space-separated
-list I<ids>.
-
-=back
-
-Each object declared in configuration must be fully defined later, using a
-configuration section, starting with bracketed object identity, followed by at
-least a class directive, then any number of additional object-specific
-directives.
-
-Example:
-
-        objects = foo
-        
-        [foo]
-        class = Foo::Bar
-        key1  = value1
-        key2  = value2
-
-=head1 SEE ALSO
-
-Youri::Config, for configuration file format.
-
-Each used plugin man page, for available options.
-
-=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
-
-use strict;
-use warnings;
-
-use Youri::Config;
-use Youri::Utils;
-use Pod::Usage;
-use Net::Config qw/%NetConfig/;
-use DateTime;
-
-my $config = Youri::Config->new(
-    command_spec => [
-        'config=s',
-        'skip-plugin=s@',
-        'skip-media=s@',
-        'parallel!',
-        'help|h!',
-        'test|t!',
-        'verbose|v!'
-    ],
-    file_spec => [
-        'includes=s',
-        'resolver=s',
-        'preferences=s',
-        'resultset=s',
-        'medias=s',
-        'inputs=s',
-        'outputs=s'
-    ],
-    directories => [ '@sysconfdir@', "$ENV{HOME}/.youri" ],
-    file_name   => 'check.conf',
-    caller => $0,
-);
-
-pod2usage(
-    -verbose => 0,
-    -message => "No mode specified, aborting\n"
-) unless @ARGV;
-
-my $mode = $ARGV[0];
-
-# convenient global flags
-my $test    = $config->get('test');
-my $verbose = $config->get('verbose');
-
-# libnet configuration
-my %netconfig = $config->get_section('netconfig');
-$NetConfig{$_} = $netconfig{$_} foreach keys %netconfig;
-
-# resultset creation
-my $resultset_id = $config->get('resultset');
-die "No resultset defined" unless $resultset_id;
-
-report("Creating resultset $resultset_id");
-my $resultset = create_instance(
-    'Youri::Check::Resultset',
-    test    => $test,
-    verbose => $verbose > 0 ? $verbose - 1 : 0,
-    $config->get_section($resultset_id)
-);
-
-my $children;
-
-my %skip_plugins = map { $_ => 1 } @{$config->get('skip-plugin')};
-
-if ($mode eq 'input') {
-
-    # additional objects
-
-    my $resolver;
-    my $resolver_id = $config->get('resolver');
-    if ($resolver_id) {
-        report("Creating maintainer resolver $resolver_id");
-        eval {
-            $resolver = create_instance(
-                'Youri::Check::Maintainer::Resolver',
-                test    => $test,
-                verbose => $verbose > 1 ? $verbose - 2 : 0,
-                $config->get_section($resolver_id)
-            );
-        };
-        print STDERR "Failed to create maintainer resolver $resolver_id: $@\n" if $@;
-    }
-
-    my $preferences;
-    my $preferences_id = $config->get('preferences');
-    if ($preferences_id) {
-        report("Creating maintainer preferences $preferences_id");
-        eval {
-            $preferences = create_instance(
-                'Youri::Check::Maintainer::Preferences',
-                test      => $test,
-                verbose   => $verbose > 1 ? $verbose - 2 : 0,
-                $config->get_section($preferences_id)
-            );
-        };
-        print STDERR "Failed to create maintainer preferences $preferences_id: $@\n" if $@;
-    }
-
-    my @medias;
-    my %skip_medias = map { $_ => 1 } @{$config->get('skip-media')};
-    foreach my $id (split(/\s+/, $config->get('medias'))) {
-        next if $skip_medias{$id};
-        report("Creating media $id");
-        eval {
-            push(
-                @medias,
-                 create_instance(
-                    'Youri::Media',
-                    id      => $id,
-                    test    => $test,
-                    verbose => $verbose > 0 ? $verbose - 1 : 0,
-                    $config->get_section($id)
-                )
-            );
-        };
-        print STDERR "Failed to create media $id: $@\n" if $@;
-    }
-
-    # prepare resultset
-    $resultset->reset();
-    $resultset->set_resolver($resolver);
-
-
-    foreach my $id (split(/\s+/, $config->get('inputs'))) {
-        next if $skip_plugins{$id};
-        report("Creating input $id");
-        my $input;
-        eval {
-            $input = create_instance(
-                'Youri::Check::Input',
-                id         => $id,
-                test       => $test,
-                verbose    => $verbose > 0 ? $verbose - 1 : 0,
-                resolver   => $resolver,
-                preferences => $preferences,
-                $config->get_section($id)
-            );
-        };
-        if ($@) {
-            print STDERR "Failed to create input $id: $@\n";
-        } else {
-            if ($config->get('parallel')) {
-                # fork
-                my $pid = fork;
-                die "Can't fork: $!" unless defined $pid;
-                if ($pid) {
-                    # parent process
-                    $children++;
-                    next;
-                }
-            }
-            eval {
-                $input->prepare(@medias);
-            };
-            if ($@) {
-                print STDERR "Failed to prepare input $id: $@\n";
-            } else {
-                # clone resultset in child process
-                $resultset = $config->get('parallel') ?
-                    $resultset->clone() :
-                    $resultset;
-
-                foreach my $media (@medias) {
-                    next if $media->skip_input($id);
-                    my $media_id = $media->get_id();
-                    report("running input $id on media $media_id");
-                    eval {
-                        $input->run($media, $resultset);
-                    };
-                    if ($@) {
-                        print STDERR "Failed to run input $id on media $media_id: $@\n";
-                    }
-                }
-            }
-            if ($config->get('parallel')) {
-                # child process
-                exit;
-            }
-        }
-    }
-
-} elsif ($mode eq 'output') {
-
-    foreach my $id (split(/\s+/, $config->get('outputs'))) {
-        next if $skip_plugins{$id};
-        report("Creating output $id");
-        my $output;
-        eval {
-            $output = create_instance(
-                'Youri::Check::Output',
-                id      => $id,
-                test    => $test,
-                verbose => $verbose > 0 ? $verbose - 1 : 0,
-                config  => $config,
-                $config->get_section($id)
-            );
-        };
-        if ($@) {
-            print STDERR "Failed to create output $id: $@\n";
-        } else {
-            if ($config->get('parallel')) {
-                # fork
-                my $pid = fork;
-                die "Can't fork: $!" unless defined $pid;
-                if ($pid) {
-                    # parent process
-                    $children++;
-                    next;
-                }
-            }
-
-            # clone resultset in child process
-            $resultset = $config->get('parallel') ?
-                $resultset->clone() :
-                $resultset;
-
-            report("running output $id");
-            eval {
-                $output->run($resultset);
-            };
-            if ($@) {
-                print STDERR "Failed to run output $id: $@\n";
-            }
-
-            if ($config->get('parallel')) {
-                # child process
-                exit;
-            }
-        }
-    }
-} else {
-    die "Invalid mode $mode";
-}
-
-# wait for all forked processus termination
-while ($children) {
-    wait;
-    $children--;
-}
-
-sub report {
-    my ($message) = @_;
-    print DateTime->now()->strftime('[%H:%M:%S] ')
-        if $verbose > 1;
-    print "$message\n"
-        if $verbose > 0;
-}