# $Id: /youri.mdv/trunk/lib/Youri/Upload/Action/Archive.pm 975 2006-08-05T08:30:57.188281Z warly  $
package Youri::Upload::Post::Gendistrib;

=head1 NAME

Youri::Upload::Pre::Rsync - Old revisions archiving

=head1 DESCRIPTION

This action plugin ensures archiving of old package revisions.

=cut

use warnings;
use strict;
use Carp;
use base qw/Youri::Upload::Post/;

sub _init {
    my $self   = shift;
    my %options = (
        user => '',
	host  => '',
	source => '',
	destination => '',
        @_
    );

    foreach my $var ('user', 'host', 'source', 'destination') {
	$self->{"_$var"} = $options{$var};
    }
}

sub run {
    my ($self, $pre_package, $repository, $target, $define) = @_;
    croak "Not a class method" unless ref $self;

    1
}

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2002-2006, Mandriva <warly@mandriva.com>

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

=cut

1;