diff options
Diffstat (limited to 'zarb-ml/mageia-sysadm/2011-January/001564.html')
| -rw-r--r-- | zarb-ml/mageia-sysadm/2011-January/001564.html | 362 |
1 files changed, 362 insertions, 0 deletions
diff --git a/zarb-ml/mageia-sysadm/2011-January/001564.html b/zarb-ml/mageia-sysadm/2011-January/001564.html new file mode 100644 index 000000000..e851c2def --- /dev/null +++ b/zarb-ml/mageia-sysadm/2011-January/001564.html @@ -0,0 +1,362 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> +<HTML> + <HEAD> + <TITLE> [Mageia-sysadm] [217] remove Mandriva_upload_pre.pm as it seems to be obsolete and not used + </TITLE> + <LINK REL="Index" HREF="index.html" > + <LINK REL="made" HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B217%5D%20remove%20Mandriva_upload_pre.pm%20as%20it%20seems%20to%0A%09be%20obsolete%20and%20not%20used&In-Reply-To=%3C20110106021129.2679E419C7%40valstar.mageia.org%3E"> + <META NAME="robots" CONTENT="index,nofollow"> + <META http-equiv="Content-Type" content="text/html; charset=us-ascii"> + <LINK REL="Previous" HREF="001563.html"> + <LINK REL="Next" HREF="001565.html"> + </HEAD> + <BODY BGCOLOR="#ffffff"> + <H1>[Mageia-sysadm] [217] remove Mandriva_upload_pre.pm as it seems to be obsolete and not used</H1> + <B>root at mageia.org</B> + <A HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B217%5D%20remove%20Mandriva_upload_pre.pm%20as%20it%20seems%20to%0A%09be%20obsolete%20and%20not%20used&In-Reply-To=%3C20110106021129.2679E419C7%40valstar.mageia.org%3E" + TITLE="[Mageia-sysadm] [217] remove Mandriva_upload_pre.pm as it seems to be obsolete and not used">root at mageia.org + </A><BR> + <I>Thu Jan 6 03:11:29 CET 2011</I> + <P><UL> + <LI>Previous message: <A HREF="001563.html">[Mageia-sysadm] Request of mailing lists for i18n language teams +</A></li> + <LI>Next message: <A HREF="001565.html">[Mageia-sysadm] [218] rename Mandriva_upload.pm to Mageia_upload.pm +</A></li> + <LI> <B>Messages sorted by:</B> + <a href="date.html#1564">[ date ]</a> + <a href="thread.html#1564">[ thread ]</a> + <a href="subject.html#1564">[ subject ]</a> + <a href="author.html#1564">[ author ]</a> + </LI> + </UL> + <HR> +<!--beginarticle--> +<PRE>Revision: 217 +Author: boklm +Date: 2011-01-06 03:11:28 +0100 (Thu, 06 Jan 2011) +Log Message: +----------- +remove Mandriva_upload_pre.pm as it seems to be obsolete and not used + +Removed Paths: +------------- + build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mandriva_upload_pre.pm + +Deleted: build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mandriva_upload_pre.pm +=================================================================== +--- build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mandriva_upload_pre.pm 2011-01-06 01:08:18 UTC (rev 216) ++++ build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mandriva_upload_pre.pm 2011-01-06 02:11:28 UTC (rev 217) +@@ -1,276 +0,0 @@ +-# $Id: /local/youri/soft/trunk/lib/Youri/Upload/Action/RSS.pm 857 2006-01-29T10:15:43.298856Z guillaume $ +-package Youri::Repository::Mandriva_upload_pre; +- +-=head1 NAME +- +-Youri::Repository::PLF - PLF repository implementation +- +-=head1 DESCRIPTION +- +-This module implements PLF repository. +- +-=cut +- +-use warnings; +-use strict; +-use Carp; +-use Memoize; +-use File::Find 'find'; +-use base qw/Youri::Repository/; +-use SVN::Client; +-use constant { +- PACKAGE_CLASS => 'Youri::Package::URPM', +- PACKAGE_CHARSET => 'utf8' +-}; +- +-memoize('_get_section'); +- +-my @pkgsections = qw/core nonfree tainted/; +- +-sub _init { +- my $self = shift; +- my %options = ( +- module => 'SPECS', # CVS module +- noarch => 'i586', # noarch packages policy +- svn => '', +- upload_root => '', +- @_ +- ); +- +- $self->{_module} = $options{module}; +- $self->{_noarch} = $options{noarch}; +- $self->{_svn} = $options{svn}; +- $self->{_upload_root} = $options{upload_root}; +- +- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); +- $year+=1900; +- my $hostname = `hostname`; +- my ($host) = $hostname =~ /([^.]*)/; +- $self->{group_dir} = sprintf "$ENV{SUDO_USER}.$host.$$.$year%02d%02d%02d%02d%02d", $mon, $mday, $hour, $min, $sec; +-} +- +-sub get_package_class { +- return PACKAGE_CLASS; +-} +- +-sub package_in_svn { +- my ($self, $srpm_name) = @_; +- my $ctx = new SVN::Client( +- auth => [SVN::Client::get_simple_provider(), +- SVN::Client::get_simple_prompt_provider(\&simple_prompt,2), +- SVN::Client::get_username_provider()] +- ); +- +- my $svn_entry = $ctx->ls("$self->{_svn}/", 'HEAD', 0); +- foreach (keys %{$svn_entry}) { +- if ($srpm_name eq $_) { +- print "Package $_ is in the SVN\n"; +- return 1 +- } +- } +-} +- +-sub get_svn_url { +- my ($self) = @_; +- $self->{_svn} +-} +- +-sub get_revisions { +- my ($self, $package, $target, $define, $filter) = @_; +- croak "Not a class method" unless ref $self; +- print "Looking for package $package revisions for $target\n" +- if $self->{_verbose} > 0; +- +- my $arch = $define->{arch} || $package->get_arch; +- if ($arch eq 'src') { +- $arch = 'SRPMS' +- } else { +- $arch .= '/media' +- } +- my @packages; +- foreach my $dir (@pkgsections) { +- print "Looking into $self->{_install_root}/$target/$arch/$dir/release\n"; +- push @packages, +- map { $self->get_package_class()->new(file => $_) } +- $self->get_files( +- $self->{_install_root}, +- "$target/$arch/$dir/release" , +- $self->get_package_class()->get_pattern($package->get_name(),undef, undef, $arch) +- ); +- } +- +- @packages = grep { $filter->($_) } @packages if $filter; +- +- return +- sort { $b->compare($a) } # sort by revision order +- @packages; +-} +- +-sub get_package_charset { +- return PACKAGE_CHARSET; +-} +- +-sub get_upload_dir { +- my ($self, $package, $target, $define) = @_; +- croak "Not a class method" unless ref $self; +- my $arch = $package->get_arch(); +- my $section = $self->_get_section($package, $target, $define); +- my $media_path = $section eq 'main' ? $target : $target =~ /^cooker/ ? "contrib" : "$target/contrib"; +- my $arch_path = $arch eq 'src' ? 'SRPMS' : 'RPMS'; +- my $force = $target =~ /_force/ ? 'force' : ''; +- $self->{_upload_root} . "/$media_path/$force/$arch_path/" +-} +- +-sub get_arch { +- my ($self, $package, $target, $define) = @_; +- my $arch = $package->get_arch(); +- if ($arch eq 'noarch') { +- $arch = $self->{_noarch} +- } +- $arch +-} +- +-sub get_install_path { +- my ($self, $package, $target, $define) = @_; +- +- return $self->_get_path($package, $target, $define); +-} +- +-sub get_archive_path { +- my ($self, $package, $target, $define) = @_; +- +- return $self->_get_path($package, $target, $define); +-} +- +-sub _get_path { +- my ($self, $package, $target, $define) = @_; +- +- my $arch = $package->get_arch; +- if ($arch eq 'src') { +- $arch = 'SRPMS' +- } else { +- $arch .= '/media' +- } +- my $section = $self->_get_section($package, $target, $define); +- +- return "$target/$arch/$section/release/"; +-} +- +- +-sub get_version_path { +- my ($self, $package, $target, $define) = @_; +- +- my $section = $self->_get_section($package, $target, $define); +- +- return "$self->{_module}/$section/release/"; +-} +- +-=head2 get_replaced_packages($package, $target, $define) +- +-Overrides parent method to add libified packages. +- +-=cut +- +-sub get_replaced_packages { +- my ($self, $package, $target, $define) = @_; +- croak "Not a class method" unless ref $self; +- +- my @replaced_packages = +- $self->SUPER::get_replaced_packages($package, $target, $define); +- +- # mandriva lib policy: +- # library package names change with revision, making mandatory to +- # duplicate older revisions search with a custom pattern +- my $name = $package->get_name(); +- if ($name =~ /^(lib\w+[a-zA-Z_])[\d_\.]+([-\w]*)$/) { +- push(@replaced_packages, +- grep { $package->compare($_) > 0 } +- map { PACKAGE_CLASS->new(file => $_) } +- $self->get_files( +- $self->{_install_root}, +- $self->get_install_path($package, $target, $define), +- PACKAGE_CLASS->get_pattern( +- $1 . '[\d_\.]+' . $2, # custom name pattern +- undef, +- undef, +- $package->get_arch() +- ), +- ) +- ); +- } +- +- return @replaced_packages; +- +-} +- +-sub _get_section { +- my ($self, $package, $target, $define) = @_; +- +- my $section; +- +- # try to find section automatically +- my $arch = $package->get_arch(); +- $arch = $self->{_noarch} if $arch eq 'noarch'; +- +- my $source_pattern = PACKAGE_CLASS->get_pattern( +- $package->get_canonical_name(), +- undef, +- undef, +- 'src' +- ); +- +- my $binary_pattern = PACKAGE_CLASS->get_pattern( +- $package->get_name(), +- undef, +- undef, +- $arch +- ); +- +- # for each potential section, try to match +- # a suitable source patten in source directory +- # a suitable binary patten in binary directory +- foreach my $dir (@pkgsections) { +- next unless +- $self->get_files( +- $self->{_install_root}, +- "$target/SRPMS/$dir/release", +- $source_pattern +- ) || $self->get_files( +- $self->{_install_root}, +- "$target/$arch/media/$dir/release", +- $binary_pattern +- ); +- print "Section is $dir\n"; +- $section = $dir; +- last; +- } +- +- # use defined section if not found +- $section = $define->{section} unless $section; +- +- $section || 'core' +-} +- +-sub get_upload_newer_revisions { +- my ($self, $package, $target, $define) = @_; +- croak "Not a class method" unless ref $self; +- my $arch = $package->get_arch(); +- my $pattern = $self->get_package_class()->get_pattern($package->get_name(), undef, undef, $arch); +- print "Looking for package $package revisions for $target in $self->{_upload_root} (pattern $pattern)\n"; +- my @packages; +- foreach my $dir ('cooker', 'contrib') { +- find(sub { return if ! /^$pattern/; print "Find $_\n"; push @packages, $File::Find::name if $package->compare($self->get_package_class()->new(file => $File::Find::name)) <= 0 }, "$self->{_upload_root}/$dir"); +- } +- return +- @packages; +-} +- +-=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; +-------------- next part -------------- +An HTML attachment was scrubbed... +URL: </pipermail/mageia-sysadm/attachments/20110106/cface7f3/attachment-0001.html> +</PRE> + + + + + + + + + + + + + +<!--endarticle--> + <HR> + <P><UL> + <!--threads--> + <LI>Previous message: <A HREF="001563.html">[Mageia-sysadm] Request of mailing lists for i18n language teams +</A></li> + <LI>Next message: <A HREF="001565.html">[Mageia-sysadm] [218] rename Mandriva_upload.pm to Mageia_upload.pm +</A></li> + <LI> <B>Messages sorted by:</B> + <a href="date.html#1564">[ date ]</a> + <a href="thread.html#1564">[ thread ]</a> + <a href="subject.html#1564">[ subject ]</a> + <a href="author.html#1564">[ author ]</a> + </LI> + </UL> + +<hr> +<a href="https://www.mageia.org/mailman/listinfo/mageia-sysadm">More information about the Mageia-sysadm +mailing list</a><br> +</body></html> |