SF.net SVN: opencsw:[683] buildfarm/bin/make-freeze-opencsw-future

[dmichelsen at users.sourceforge.net]

Revision: 683
          http://sourceforge.net/p/opencsw/code/683
Author:   dmichelsen
Date:     2015-03-22 14:05:02 +0000 (Sun, 22 Mar 2015)
Log Message:
-----------
make-freeze-opencsw-future: Initial commit

Added Paths:
-----------
    buildfarm/bin/make-freeze-opencsw-future

Added: buildfarm/bin/make-freeze-opencsw-future
===================================================================
--- buildfarm/bin/make-freeze-opencsw-future	                        (rev 0)
+++ buildfarm/bin/make-freeze-opencsw-future	2015-03-22 14:05:02 UTC (rev 683)
@@ -0,0 +1,52 @@
+#!/opt/csw/bin/perl
+
+use strict;
+use warnings;
+
+my ($year,$month) = @ARGV;
+my $date = "${year}${month}01";
+
+my $base = "/export/mirror/opencsw-future/";
+mkdir( $base );
+
+my @archs = (qw( sparc i386 ));
+my @vers = (qw( 5.8 5.9 5.10 5.11 ));
+
+my $ok = 1;
+# Make sure we have all catalogs
+foreach my $a (@archs) {
+  foreach my $v (@vers) {
+    my $catalog = "/export/mirror/opencsw/distribution/allcatalogs/catalog-$a-$v-$date";
+    if( ! -f $catalog ) {
+      print STDERR "The catalog '$catalog' is missing.\n";
+      $ok = 0;
+    }
+  }
+}
+
+my $freeze = "$base/snapshots";
+mkdir( $freeze );
+
+my $fcurrent = "$freeze/${year}.${month}";
+mkdir( $fcurrent ) || die "Directory '$fcurrent' can not be created: $!" ;
+
+foreach my $a (@archs) {
+  mkdir "$fcurrent/$a";
+  foreach my $v (@vers) {
+    mkdir "$fcurrent/$a/$v";
+    system( "cp /export/mirror/opencsw/distribution/allcatalogs/catalog-$a-$v-$date $fcurrent/$a/$v/catalog");
+    system( "cp /export/mirror/opencsw/distribution/allcatalogs/descriptions-$a-$v-$date $fcurrent/$a/$v/descriptions");
+    # 9menu 1.8,REV=2006.05.19 CSW9menu 9menu-1.8,REV=2006.05.19-SunOS5.8-i386-CSW.pkg.gz 51eaeee15a71a4290789729feb956759 12196 CSWcommon none
+    open C, "$fcurrent/$a/$v/catalog";
+    my $drop; $drop = <C>; $drop = <C>; $drop = <C>;
+    while( <C> ) {
+      last if( /^-----/ );
+      chomp;
+      s/#.*//;
+      next if( /^$/ );
+      my ($cname, $rev, $pkgname, $fname, $md5sum, $size, $dep, $idep) = split;
+      link "$base/allpkgs/$fname", "$fcurrent/$a/$v/$fname" || print STDERR "Problem linking $fname: $!";
+    }
+    close C;
+  }
+}


Property changes on: buildfarm/bin/make-freeze-opencsw-future
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.