Hello community, here is the log from the commit of package rpmorphan for openSUSE:Factory checked in at 2014-05-10 22:58:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/rpmorphan (Old) and /work/SRC/openSUSE:Factory/.rpmorphan.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "rpmorphan" Changes: -------- --- /work/SRC/openSUSE:Factory/rpmorphan/rpmorphan.changes 2014-02-16 19:55:36.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.rpmorphan.new/rpmorphan.changes 2014-05-10 22:58:28.000000000 +0200 @@ -1,0 +2,7 @@ +Sun May 4 22:01:20 UTC 2014 - [email protected] + +- Update to 1.14: + * (rpmorphan) : displays disk space freed in confirm box + * (rpmorphan) : add arch option + +------------------------------------------------------------------- Old: ---- rpmorphan-1.13.tar.gz New: ---- rpmorphan-1.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ rpmorphan.spec ++++++ --- /var/tmp/diff_new_pack.NwI65i/_old 2014-05-10 22:58:28.000000000 +0200 +++ /var/tmp/diff_new_pack.NwI65i/_new 2014-05-10 22:58:28.000000000 +0200 @@ -17,7 +17,7 @@ Name: rpmorphan -Version: 1.13 +Version: 1.14 Release: 0 Summary: List the orphaned RPM packages License: GPL-2.0+ @@ -42,6 +42,10 @@ %prep %setup -q +# Fix rpmlint warning "non-executable-script" +sed -i '/^#\!/d' locale/en/rpmorphan_trans.pl +sed -i '/^#\!/d' locale/fr_FR/rpmorphan_trans.pl + %build %install ++++++ rpmorphan-1.13.tar.gz -> rpmorphan-1.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/Changelog new/rpmorphan-1.14/Changelog --- old/rpmorphan-1.13/Changelog 2013-12-06 12:10:06.000000000 +0100 +++ new/rpmorphan-1.14/Changelog 2014-04-15 12:56:23.000000000 +0200 @@ -1,3 +1,7 @@ +2014-04-11 Eric Gerbier <[email protected]> 1.14 + * (rpmorphan) : displays disk space freed in confirm box + * (rpmorphan) : add arch option + 2013-12-06 Eric Gerbier <[email protected]> 1.13 * better variable names for rpmduplicates.pl * patch from Thierry Vignaud on urpm code diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/Makefile new/rpmorphan-1.14/Makefile --- old/rpmorphan-1.13/Makefile 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/Makefile 2014-04-15 12:57:39.000000000 +0200 @@ -1,4 +1,4 @@ -# $Id: rpmorphan-1.13 | Makefile | Fri Dec 6 12:01:09 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | Makefile | Fri Dec 6 12:01:09 2013 +0100 | Eric Gerbier $ # recommanded by debian install guide DESTDIR= diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/Readme new/rpmorphan-1.14/Readme --- old/rpmorphan-1.13/Readme 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/Readme 2014-04-15 12:57:39.000000000 +0200 @@ -42,4 +42,4 @@ -- Eric Gerbier -$Id: rpmorphan-1.13 | Readme | Tue Jan 29 13:20:11 2013 +0100 | Eric Gerbier $ +$Id: rpmorphan-1.14 | Readme | Tue Jan 29 13:20:11 2013 +0100 | Eric Gerbier $ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/Readme.fr new/rpmorphan-1.14/Readme.fr --- old/rpmorphan-1.13/Readme.fr 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/Readme.fr 2014-04-15 12:57:39.000000000 +0200 @@ -37,4 +37,4 @@ -- Eric Gerbier -$Id: rpmorphan-1.13 | Readme.fr | Tue Jan 29 13:20:11 2013 +0100 | Eric Gerbier $ +$Id: rpmorphan-1.14 | Readme.fr | Tue Jan 29 13:20:11 2013 +0100 | Eric Gerbier $ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmdep.1 new/rpmorphan-1.14/rpmdep.1 --- old/rpmorphan-1.13/rpmdep.1 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmdep.1 2014-04-15 12:57:38.000000000 +0200 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.20) +.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "RPMDEP 1" -.TH RPMDEP 1 "2013-12-06" "perl v5.16.3" "User Contributed Perl Documentation" +.TH RPMDEP 1 "2014-01-19" "perl v5.18.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l @@ -238,6 +238,18 @@ .Vb 1 \& rpmdep.pl \-\-depending afick\-gui .Ve +.PP +list all package dependencies +.PP +.Vb 1 +\& rpmdep.pl \-a +.Ve +.PP +list all packages dependings and prepare a graph +.PP +.Vb 1 +\& rpmdep.pl \-a \-\-depending \-\-dot alldep.dot +.Ve .SH "FILES" .IX Header "FILES" the program can use the /tmp/rpmorphan.cache file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmdep.pl new/rpmorphan-1.14/rpmdep.pl --- old/rpmorphan-1.13/rpmdep.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmdep.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmdep.pl | Fri Dec 6 15:43:54 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmdep.pl | | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -176,7 +176,7 @@ my $h_res = shift @_; if ( exists $h_res->{$package} ) { - return join q{,}, sort keys $h_res->{$package}; + return join q{,}, sort keys %{ $h_res->{$package} }; } else { return q{}; @@ -336,8 +336,8 @@ my %virtual; my %requires; -read_rpm_data( \%opt, \%provides, \%install_time, \%files, \%depends, - \%virtual, \%requires ); +read_rpm_data( \%opt, \%provides, \%install_time, \%files, \%depends, \%virtual, + \%requires ); if ( ( not $opt_all ) and ( !exists $install_time{$package} ) ) { warning("package $package is not installed"); @@ -377,8 +377,8 @@ if ($opt_depending) { foreach my $pac ( keys %install_time ) { $state += - solve_dep( $pac, \%is_provided_by, \%provides, \%depends, - \%files, \%res, $fh_dot, 0 ); + solve_dep( $pac, \%is_provided_by, \%provides, \%depends, \%files, + \%res, $fh_dot, 0 ); } } else { @@ -389,11 +389,11 @@ } } foreach my $pac ( - sort { scalar keys $res{$a} <=> scalar keys $res{$b} } + sort { scalar keys %{ $res{$a} } <=> scalar keys %{ $res{$b} } } keys %res ) { - my $nb = scalar keys $res{$pac}; + my $nb = scalar keys %{ $res{$pac} }; my $res = hres2human( $pac, \%res ); info("$nb $pac : $res"); } @@ -548,6 +548,14 @@ rpmdep.pl --depending afick-gui +list all package dependencies + + rpmdep.pl -a + +list all packages dependings and prepare a graph + + rpmdep.pl -a --depending --dot alldep.dot + =head1 FILES the program can use the /tmp/rpmorphan.cache file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmduplicates.1 new/rpmorphan-1.14/rpmduplicates.1 --- old/rpmorphan-1.13/rpmduplicates.1 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmduplicates.1 2014-04-15 12:57:38.000000000 +0200 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.20) +.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "RPMDUPLICATES 1" -.TH RPMDUPLICATES 1 "2013-12-06" "perl v5.16.3" "User Contributed Perl Documentation" +.TH RPMDUPLICATES 1 "2013-12-06" "perl v5.18.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmduplicates.pl new/rpmorphan-1.14/rpmduplicates.pl --- old/rpmorphan-1.13/rpmduplicates.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmduplicates.pl 2014-04-15 12:57:39.000000000 +0200 @@ -3,7 +3,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmduplicates.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmduplicates.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmextra.1 new/rpmorphan-1.14/rpmextra.1 --- old/rpmorphan-1.13/rpmextra.1 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmextra.1 2014-04-15 12:57:38.000000000 +0200 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.20) +.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "RPMEXTRA 1" -.TH RPMEXTRA 1 "2013-12-06" "perl v5.16.3" "User Contributed Perl Documentation" +.TH RPMEXTRA 1 "2013-12-06" "perl v5.18.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmextra.pl new/rpmorphan-1.14/rpmextra.pl --- old/rpmorphan-1.13/rpmextra.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmextra.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmextra.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmextra.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan-curses-lib.pl new/rpmorphan-1.14/rpmorphan-curses-lib.pl --- old/rpmorphan-1.13/rpmorphan-curses-lib.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan-curses-lib.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmorphan-curses-lib.pl | Wed Jul 6 13:59:20 2011 +0000 | gerbier $ +# $Id: rpmorphan-1.14 | rpmorphan-curses-lib.pl | Fri Apr 11 11:41:26 2014 +0200 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -85,9 +85,11 @@ my $old_pac_list = $W_list->values(); + my $freesize = get_package_size(@sel); + # a confirm dialog box my $yes = $Main_ui->dialog( - -message => "confirm remove @sel ?", + -message => "confirm remove @sel ?\nwill free $freesize", -buttons => [ 'yes', 'no' ], -values => [ 1, 0 ], -title => 'Confirm', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan-lib.pl new/rpmorphan-1.14/rpmorphan-lib.pl --- old/rpmorphan-1.13/rpmorphan-lib.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan-lib.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmorphan-lib.pl | Fri Nov 29 15:05:56 2013 +0100 | eric $ +# $Id: rpmorphan-1.14 | rpmorphan-lib.pl | Fri Apr 11 11:56:48 2014 +0200 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -215,8 +215,10 @@ my $suggests = ( is_set( $rh_opt, 'suggests' ) ) ? '[%{SUGGESTS},]' : q{}; + my $qf = (is_set($rh_opt, 'arch')) ? '%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}' : '%{NAME}' ; + my $rpm_cmd = -"rpm -qa --queryformat '%{NAME};[%{REQUIRENAME},]$suggests;[%{PROVIDES},];[%{FILENAMES},];%{INSTALLTIME}\n' 2>/dev/null"; +"rpm -qa --queryformat '$qf;[%{REQUIRENAME},]$suggests;[%{PROVIDES},];[%{FILENAMES},];%{INSTALLTIME}\n' 2>/dev/null"; my $cache_file = '/tmp/rpmorphan.cache'; my $fh_cache; my $cmd; @@ -426,8 +428,7 @@ my $db = RPM2->open_rpm_db(); my $flag_suggests = is_set( $rh_opt, 'suggests' ); - - #debug("flag_suggests = $flag_suggests"); + my $flag_arch = is_set( $rh_opt, 'arch'); debug('1 : analysis'); my %objects; @@ -435,7 +436,17 @@ my $i = $db->find_all_iter(); while ( my $pkg = $i->next ) { - my $name = $pkg->name; + my $shortname = $pkg->name; + my $name; + if ($flag_arch) { + my $version = $pkg->version; + my $release = $pkg->release; + my $arch = $pkg->arch || '' ; + my $fullname = ($arch) ? "$shortname-$version-$release.$arch" : "$shortname-$version-$release"; + $name = $fullname; + } else { + $name = $shortname; + } my $install_time = $pkg->installtime; $rh_install_time->{$name} = $install_time; @@ -516,12 +527,15 @@ debug('1 : analysis'); my $flag_suggests = is_set( $rh_opt, 'suggests' ); + my $flag_arch = is_set( $rh_opt, 'arch'); my %objects; $db->traverse( sub { my ($package) = @_; # this is a URPM::Package object - my $name = $package->name; + my $name = ( $flag_arch) ? $package->fullname() : $package->name; + # if no arch (gpg-pukey), remove trailing dot + $name =~ s/\.$//; my $installtime = $package->queryformat('%{INSTALLTIME}'); $rh_install_time->{$name} = $installtime; my @req = $package->requires_nosense(); @@ -571,7 +585,7 @@ 'RPM2' => \&read_rpm_data_rpm2, 'basic' => \&read_rpm_data_base, ); - my @def_list = ( 'URPM', 'RPM2', 'basic' ); + my @def_list = ( 'URPM', 'RPM2', ); my @list; if ( exists $ENV{'RPMORPHAN_METHOD'} ) { my $method = $ENV{'RPMORPHAN_METHOD'}; @@ -579,9 +593,6 @@ # should be 'URPM', 'RPM2' or 'basic' if ( exists $code{$method} ) { push @list, $method; - - # for security : basic will allways work - push @list, 'basic'; } else { warning("unknown method $method, use default"); @@ -611,7 +622,8 @@ if ( !$ok ) { # if nothing is working, use default basic method - read_rpm_data_base( $rh_opt, $rh_provides, $rh_install_time, $rh_files, + *read_rpm_data_m = $code{'basic'}; + read_rpm_data_m( $rh_opt, $rh_provides, $rh_install_time, $rh_files, $rh_depends, $rh_virtual, $rh_requires ); } return; @@ -819,5 +831,35 @@ return 0; } ######################################################### +# return size of a list of rpm packages in a human format +sub get_package_size(@) { + my @pacs = @_; + + my $cmd = "rpm -q --queryformat '%{SIZE}\n' @pacs"; + ## no critic ( ProhibitBacktickOperators ); + my @res = `$cmd`; + ## use critic + my $total = 0; + foreach my $size (@res) { + $total += $size; + } + return getFormattedFileSize($total); +} +######################################################### +# transform a size in octet to a size in human format +sub getFormattedFileSize($) { + my $octets = shift @_; + + my @suffixes = ( "octets", "Ko", "Mo", "Go", "To"); + + my $i = 0; + my $size = $octets; + while ( $size >= 1024) { + $size /= 1024; + $i++; + } + return int($size) . " $suffixes[$i]"; +} +######################################################### 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan-tk-lib.pl new/rpmorphan-1.14/rpmorphan-tk-lib.pl --- old/rpmorphan-1.13/rpmorphan-tk-lib.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan-tk-lib.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmorphan-tk-lib.pl | Wed Jul 6 14:15:24 2011 +0000 | gerbier $ +# $Id: rpmorphan-1.14 | rpmorphan-tk-lib.pl | Fri Apr 11 11:41:26 2014 +0200 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -81,8 +81,9 @@ #transform index into names my @selnames = map { $liste[$_] } @sel; + my $freesize = get_package_size(@selnames); # confirm dialog - my $answer = tk_dialog( $main, 'confirm', "confirm remove @selnames ?" ); + my $answer = tk_dialog( $main, 'confirm', "confirm remove @selnames ?\nwill free $freesize" ); if ( $answer =~ m/Yes/ ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan.1 new/rpmorphan-1.14/rpmorphan.1 --- old/rpmorphan-1.13/rpmorphan.1 2013-12-06 15:44:20.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan.1 2014-04-15 12:57:38.000000000 +0200 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.20) +.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "RPMORPHAN 1" -.TH RPMORPHAN 1 "2013-12-06" "perl v5.16.3" "User Contributed Perl Documentation" +.TH RPMORPHAN 1 "2014-01-19" "perl v5.18.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l @@ -172,6 +172,7 @@ \& \-dry\-run simulate package remove \& \-fullalgo force full algorythm \& \-suggests use suggested package as if required +\& \-arch work and show on full name with version and architecture \& \-use\-cache use cache to avoid rpm query \& \-clear\-cache remove cache file \& \-gui display the graphical interface @@ -292,6 +293,11 @@ for usefull but not necessary packages. if this option is set, the suggested packages are used in rpmorphan as required packages. The default value for this option is unset. +.IP "\fB\-arch\fR" 8 +.IX Item "-arch" +by default, rpmorphan works on package name. this option will rpmorphan work +on full package name : name\-version\-release.arch. +This may be usefull if you have several version or several archictectures installed. .IP "\fB\-package\fR" 8 .IX Item "-package" search if the given package(s) is(are) orphaned. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan.lsm new/rpmorphan-1.14/rpmorphan.lsm --- old/rpmorphan-1.13/rpmorphan.lsm 2013-12-06 12:10:06.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan.lsm 2014-04-15 12:56:23.000000000 +0200 @@ -1,7 +1,7 @@ Begin4 Title: rpmorphan -Version: 1.13 -Entered-date: 2013-12-06 +Version: 1.14 +Entered-date: 2014-04-11 Description: rpmorphan finds "orphaned" packages on your system. It determines which packages have no other packages depending on their installation, and shows you a list of these packages. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan.pl new/rpmorphan-1.14/rpmorphan.pl --- old/rpmorphan-1.13/rpmorphan.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan.pl 2014-04-15 12:57:38.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmorphan.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmorphan.pl | Fri Apr 11 11:55:05 2014 +0200 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -759,7 +759,7 @@ # version ######################################################### { - my $version = '1.12'; + my $version = '1.14'; sub get_version() { return $version; @@ -781,6 +781,8 @@ my $opt_use_cache; my $opt_clear_cache; my $opt_suggests; +my $opt_arch; + my $opt_gui; my $opt_tk; my $opt_curses; @@ -817,6 +819,7 @@ 'version' => \$opt_version, 'fullalgo' => \$opt_fullalgo, 'all' => \$opt_all, # all packages + 'arch' => \$opt_arch, 'guess-perl' => \$opt_guess_perl, # perl packages 'guess-python' => \$opt_guess_python, # python packages 'guess-pike' => \$opt_guess_pike, @@ -864,7 +867,7 @@ 'install-time=i', 'access-time=i', 'list-keep', 'zero-keep', 'add-keep=s', 'del-keep=s', 'use-cache!', 'clear-cache', 'gui!', 'tk!', 'curses!', 'dry-run!', - 'suggests!', + 'suggests!', 'arch!', ) or pod2usage(2); if ($opt_help) { @@ -1007,6 +1010,7 @@ -dry-run simulate package remove -fullalgo force full algorythm -suggests use suggested package as if required + -arch work and show on full name with version and architecture -use-cache use cache to avoid rpm query -clear-cache remove cache file -gui display the graphical interface @@ -1150,6 +1154,12 @@ suggested packages are used in rpmorphan as required packages. The default value for this option is unset. +=item B<-arch> + +by default, rpmorphan works on package name. this option will rpmorphan work +on full package name : name-version-release.arch. +This may be usefull if you have several version or several archictectures installed. + =item B<-package> search if the given package(s) is(are) orphaned. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphan.spec new/rpmorphan-1.14/rpmorphan.spec --- old/rpmorphan-1.13/rpmorphan.spec 2013-12-06 12:10:06.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphan.spec 2014-04-15 12:56:23.000000000 +0200 @@ -1,7 +1,7 @@ %global _binary_filedigest_algorithm 1 %global _source_filedigest_algorithm 1 -%define VERSION 1.13 +%define VERSION 1.14 Summary: List packages that have no dependencies (like deborphan) # The Summary: line should be expanded to about here -----^ Summary(fr): Liste les packages rpm orphelins (sans dependances) @@ -168,6 +168,10 @@ %doc %{_mandir}/man1/rpmextra.1* %changelog +* Wed Apr 11 2014 Eric Gerbier <[email protected]> 1.14 +- (rpmorphan) : displays disk space freed in confirm box +- (rpmorphan) : add arch option + * Wed Dec 06 2013 Eric Gerbier <[email protected]> 1.13 - better variable names for rpmduplicates.pl - patch from Thierry Vignaud on urpm code diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmorphanrc.sample new/rpmorphan-1.14/rpmorphanrc.sample --- old/rpmorphan-1.13/rpmorphanrc.sample 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmorphanrc.sample 2014-04-15 12:57:39.000000000 +0200 @@ -1,5 +1,5 @@ # configuration file exemple for rpmorphan -# $Id: rpmorphan-1.13 | rpmorphanrc.sample | Tue Jul 31 17:13:56 2012 +0200 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmorphanrc.sample | Tue Jul 31 17:13:56 2012 +0200 | Eric Gerbier $ # it can be used as # - host (general) configuration file as /etc/rpmorphanrc # - home (user) configuration file as ~/.rpmorphanrc diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmusage.1 new/rpmorphan-1.14/rpmusage.1 --- old/rpmorphan-1.13/rpmusage.1 2013-12-06 15:44:20.000000000 +0100 +++ new/rpmorphan-1.14/rpmusage.1 2014-04-15 12:57:38.000000000 +0200 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.20) +.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "RPMUSAGE 1" -.TH RPMUSAGE 1 "2013-12-06" "perl v5.16.3" "User Contributed Perl Documentation" +.TH RPMUSAGE 1 "2013-12-06" "perl v5.18.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rpmorphan-1.13/rpmusage.pl new/rpmorphan-1.14/rpmusage.pl --- old/rpmorphan-1.13/rpmusage.pl 2013-12-06 15:44:21.000000000 +0100 +++ new/rpmorphan-1.14/rpmusage.pl 2014-04-15 12:57:39.000000000 +0200 @@ -4,7 +4,7 @@ # # Copyright (C) 2006 by Eric Gerbier # Bug reports to: [email protected] -# $Id: rpmorphan-1.13 | rpmusage.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ +# $Id: rpmorphan-1.14 | rpmusage.pl | Tue Nov 5 13:38:35 2013 +0100 | Eric Gerbier $ # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
