[csw-devel] SF.net SVN: opencsw:[356] buildfarm/bin/make-experimental-browsable

[dmichelsen at users.sourceforge.net]

Revision: 356
          http://opencsw.svn.sourceforge.net/opencsw/?rev=356&view=rev
Author:   dmichelsen
Date:     2011-03-11 10:32:41 +0000 (Fri, 11 Mar 2011)

Log Message:
-----------
make-experimental-browsable: Check files by md5sum

Modified Paths:
--------------
    buildfarm/bin/make-experimental-browsable

Modified: buildfarm/bin/make-experimental-browsable
===================================================================
--- buildfarm/bin/make-experimental-browsable	2011-03-11 10:24:06 UTC (rev 355)
+++ buildfarm/bin/make-experimental-browsable	2011-03-11 10:32:41 UTC (rev 356)
@@ -105,8 +105,32 @@
     if( %pkglist ) {
       print "Packages for project '$project' found, making check results browsable\n";
       tryadd( keys %pkglist );
-      system( "/home/web/bin/gar/bin/checkpkg", keys %pkglist );
-      system( "/home/web/bin/gar/bin/pkgdb -t $templatefile gen-html " . join( " ", values %pkglist ) . " >/export/mirror/pkgbrowser/reports/pkgbrowse-$project.html");
+
+      my %todo;
+      foreach my $file (keys %pkglist) {
+        my ($os, $arch) = ($file =~ /-(SunOS\d+\.\d+)-(all|sparc|i386)/);
+        if( !defined $os || !defined $arch ) {
+          print STDERR "Unknown os and arch for file '$file'\n";
+          delete $pkglist{$file};
+          next;
+        }
+        push @{$todo{$os}{$arch}}, $file;
+      }
+
+      my @md5s2check;
+      foreach my $os (keys %todo) {
+        next if( $os !~ /^SunOS5\.(9|10)$/ );
+        foreach my $arch (qw(sparc i386)) {
+          my @files = @{$todo{$os}{$arch} || []};
+          push @files, @{$todo{$os}{all}} if( defined $todo{$os}{all} );
+          print join( " ",  "/home/web/bin/gar/bin/checkpkg", "--debug", "--os-releases", $os, "--architecture", $arch, @files ), "\n";
+          system( "/home/web/bin/gar/bin/checkpkg", "--debug", "--os-releases", $os, "--architecture", $arch, @files );
+          push @md5s2check, map { $pkglist{$_} } @files;
+        }
+      }
+
+      print "/home/web/bin/gar/bin/pkgdb -t $templatefile gen-html " . join( " ", @md5s2check ) . " >$reportfile", "\n";
+      system( "/home/web/bin/gar/bin/pkgdb -t $templatefile gen-html " . join( " ", @md5s2check ) . " >$reportfile");
     }
   }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.