/[adm]/puppet/modules/mirror_cleaner/files/orphans_cleaner.pl
ViewVC logotype

Diff of /puppet/modules/mirror_cleaner/files/orphans_cleaner.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2725 by misc, Mon Jul 25 17:59:52 2011 UTC revision 2726 by pterjan, Thu Apr 5 20:45:26 2012 UTC
# Line 23  my %hash ; Line 23  my %hash ;
23  my ($filename, $srpm, $dest_rpm);  my ($filename, $srpm, $dest_rpm);
24    
25    
26  my ($source_hdlist, $binary_hdlist, $rpm_path);  my ($source_hdlist, $binary_hdlist, $rpm_path, $srpm_path);
27    
28  foreach my $a ( @arches ) {  foreach my $a ( @arches ) {
29          foreach my $s ( @sections ) {          foreach my $s ( @sections ) {
30                  foreach my $m ( @medias ) {                  foreach my $m ( @medias ) {
31    
32                          $rpm_path = "$path/$a/media/$s/$m";                          $rpm_path = "$path/$a/media/$s/$m";
33                            $srpm_path = "$path/SRPMS/$s/$m";
34                          $binary_hdlist = "$rpm_path/media_info/hdlist.cz";                          $binary_hdlist = "$rpm_path/media_info/hdlist.cz";
35                          $source_hdlist = "$path/SRPMS/$s/$m/media_info/hdlist.cz";                          $source_hdlist = "$srpm_path/media_info/hdlist.cz";
36    
37                          next if not -f $source_hdlist;                          next if not -f $source_hdlist;
38                          next if not -f $binary_hdlist;                          next if not -f $binary_hdlist;
# Line 54  foreach my $a ( @arches ) { Line 55  foreach my $a ( @arches ) {
55                          }                          }
56                          close($hdfh);                          close($hdfh);
57    
58                          foreach my $v ( values %hash )                          foreach my $s ( keys %hash )
59                          {                          {
60                                  foreach my $rpm ( @{$v} ) {                                  # Be safe, maybe hdlists were not in sync
61                                    next if -f "$srpm_path/$s";
62                                    foreach my $rpm ( @{$hash{$s}} ) {
63                                          $rpm = "$rpm_path/$rpm";                                          $rpm = "$rpm_path/$rpm";
64                                          # sometimes, packages are removed without hdlist to be updated                                          # sometimes, packages are removed without hdlist to be updated
65                                          next if not -f "$rpm";                                          next if not -f "$rpm";
# Line 66  foreach my $a ( @arches ) { Line 69  foreach my $a ( @arches ) {
69                                                  make_path $dir if not -d $dir;                                                  make_path $dir if not -d $dir;
70                                                  move($rpm, $dest_rpm)                                                  move($rpm, $dest_rpm)
71                                          }                                          }
72                                  }                                            }
73                          }                          }
74                  }                  }
75          }          }

Legend:
Removed from v.2725  
changed lines
  Added in v.2726

  ViewVC Help
Powered by ViewVC 1.1.28