#!/usr/bin/perl -w
# 2004-12-30 <frank@opengroupware.org>
# removes outdated trunk/ packages

use strict;

my $keep_revisions = "4";
my $current_distri;
my $must_rebuild_sth = "no";
my @distris = qw(fedora-core2
  fedora-core3
  fedora-core4
  fedora-core5
  mdk-10.0
  mdk-10.1
  redhat9
  rhel3
  rhel4
  sles9
  slss8
  suse82
  suse91
  suse92
  suse93
  suse10-1
  suse10-0
  conectiva10
  centos43
);

my $current_group;
my @groups = qw( epoz
  libfoundation
  libfoundation10
  libobjc-lf2
  ogo-database-setup
  ogo-docapi
  ogo-environment
  ogo-gnustep_make
  ogo-logic
  ogo-meta
  ogo-pda
  ogo-theme
  ogo-tools
  ogo-webui
  ogo-xmlrpcd
  ogo-zidestore
  sope43
  sope44
  sope45
);

print "Not enough revisions to keep...\nYou asked me to keep $keep_revisions \$keep_revisions and I think this will most likely trash the repo.\n" and exit 1 if($keep_revisions <= 1);
#write output into file which can then be executed on the commandline after rewview... for now (bc of testing.)
open(OUT, ">rm_candidates.out");
foreach $current_distri(@distris) {
  print "checking in $current_distri\n";
  foreach $current_group(@groups) {
    print "parsing packages in $current_distri\n";
    print "current group to check is: $current_group\n";
    opendir(DIR, "/var/virtual_hosts/download/nightly/packages/$current_distri/trunk");
    my @u_this_group_rpms = grep(/^$current_group.*trunk.*\.rpm$/,readdir(DIR));
    my $no_of_rpms_in_group = @u_this_group_rpms;
    next if($no_of_rpms_in_group == 0) and print "Skipping group $current_group bc $no_of_rpms_in_group packages found\n########################################### next one .... \n";
    print "current group ($current_group) has -> $no_of_rpms_in_group files.\n";
    my $rpm;
    my $most_recent = 0;
    my @versions;
    my $no_of_versions;
    my @this_group_rpms = sort {uc($a) cmp uc($b)} @u_this_group_rpms;
    foreach $rpm(@this_group_rpms) {
      next if (($rpm =~ m/latest/i) or ($no_of_rpms_in_group == 0));
      my $exact_v;
      $exact_v = $rpm;
      $exact_v =~ s/mdk\.i/\.i/g;
      $exact_v =~ s/cl\.i/\.i/g;
      $exact_v =~ s/^$current_group.*trunk_r(.*)\.i.*$//g;
      $exact_v = $1;
      #print "DEBUG: exact version is -> $exact_v\n";
      push(@versions, $exact_v) unless(grep /$exact_v/, @versions);
      #detect most recent one... useful? hm, no...
      $most_recent = $exact_v if($exact_v > $most_recent);
    }
    my @sorted_versions = sort { $a <=> $b } @versions;
    #print "DEBUG: \@sorted_versions contains -> @sorted_versions\n";
    $no_of_versions = @sorted_versions;
    if ($no_of_rpms_in_group > $keep_revisions) {
      my $i;
      my $delcount;
      my @for_removal;
      $delcount = $no_of_versions - $keep_revisions;
      for($i=0; $i < $delcount; $i++) {
        my $dc;
        $dc = shift(@sorted_versions);
        push(@for_removal, $dc);
        #print "     could delete files from group $current_group*trunk_r$dc*\n";
        print OUT "rm -f /var/virtual_hosts/download/nightly/packages/$current_distri/trunk/$current_group*trunk_r$dc*.rpm\n";
        $must_rebuild_sth = "yes" if(@for_removal);
      }
      print "\$keep_revisions = $keep_revisions is larger/equal $no_of_versions....\n";
      print "will kick -> @for_removal\n";
      print "will keep -> @sorted_versions\n";
      print "DEBUG >> most_recent thereof -> $most_recent\n";
      print "########################################### next one ....\n";
    } else {
      print "Not enough RPMS in group $current_group\n";
      print "Minimum required package count to be left in repo is: $keep_revisions\n";
      print "... but I found only $no_of_versions RPMS(s) here.\n";
      print "########################################### next one ....\n";
      $must_rebuild_sth = "no";
    }
  }
  if($must_rebuild_sth eq "yes") {
    print OUT "/home/www/scripts/do_md5.pl /var/virtual_hosts/download/nightly/packages/$current_distri/trunk/\n";
    print OUT "/home/www/scripts/do_LATESTVERSION.pl /var/virtual_hosts/download/nightly/packages/$current_distri/trunk/\n";
    print OUT "/home/www/scripts/trunk_apt4rpm_build.pl -d $current_distri\n";
    print OUT "#================================================================================================\n";
  }
  #exit 0;
}
close(OUT);