diff options
author | Olivier Blin <blino@mageia.org> | 2011-04-04 22:59:01 +0000 |
---|---|---|
committer | Olivier Blin <blino@mageia.org> | 2011-04-04 22:59:01 +0000 |
commit | 699c5e78d5512a2779ce834882cfdda895db32b1 (patch) | |
tree | 0e1d060beb87008d7e266d6fbafb071c8bce10e9 /lib/Youri/Submit/Post/Mirror.pm | |
parent | b06110139b89597dbe34d33b907538c93991bfe4 (diff) | |
parent | 51d5d4e7a0d1d1cca9a5214782575b5f8aa7aa8b (diff) | |
download | mga-youri-submit-699c5e78d5512a2779ce834882cfdda895db32b1.tar mga-youri-submit-699c5e78d5512a2779ce834882cfdda895db32b1.tar.gz mga-youri-submit-699c5e78d5512a2779ce834882cfdda895db32b1.tar.bz2 mga-youri-submit-699c5e78d5512a2779ce834882cfdda895db32b1.tar.xz mga-youri-submit-699c5e78d5512a2779ce834882cfdda895db32b1.zip |
rename mdv-youri-submit as mga-youri-submit
Diffstat (limited to 'lib/Youri/Submit/Post/Mirror.pm')
-rw-r--r-- | lib/Youri/Submit/Post/Mirror.pm | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/lib/Youri/Submit/Post/Mirror.pm b/lib/Youri/Submit/Post/Mirror.pm new file mode 100644 index 0000000..961cc1e --- /dev/null +++ b/lib/Youri/Submit/Post/Mirror.pm @@ -0,0 +1,55 @@ +# $Id: Gendistrib.pm 115367 2007-01-30 09:47:04Z pixel $ +package Youri::Submit::Post::Mirror; + +=head1 NAME + +Youri::Submit::Post::Mirror - synchronizes repository to mirror + +=head1 DESCRIPTION + +Calls genhdlist2 + +=cut + +use warnings; +use strict; +use Carp; +use base qw/Youri::Submit::Post/; + +sub _init { + my $self = shift; + my %options = ( + destination => '', + @_ + ); + + foreach my $var ('destination') { + $self->{"_$var"} = $options{$var}; + } +} + +sub run { + my ($self, $repository, $target, $define) = @_; + croak "Not a class method" unless ref $self; + my $root = $repository->get_install_root(); + + croak "Missing destination" unless $self->{'_destination'}; + + + if (system("rsync -alH --delete $root/$target/ $self->{_destination}/$target/")) { + $self->{_error} = "Rsync command failed ($!)"; + } + + return; +} + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2010, Mageia + +This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. + +=cut + +1; + |