tools/sunw-history-package

   1 #!/usr/perl5/bin/perl
   2 #
   3 # CDDL HEADER START
   4 #
   5 # The contents of this file are subject to the terms of the
   6 # Common Development and Distribution License (the "License").
   7 # You may not use this file except in compliance with the License.
   8 #
   9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10 # or http://www.opensolaris.org/os/licensing.
  11 # See the License for the specific language governing permissions
  12 # and limitations under the License.
  13 #
  14 # When distributing Covered Code, include this CDDL HEADER in each
  15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16 # If applicable, add the following below this CDDL HEADER, with the
  17 # fields enclosed by brackets "[]" replaced with your own identifying
  18 # information: Portions Copyright [yyyy] [name of copyright owner]
  19 #
  20 # CDDL HEADER END
  21 #
  22 # Copyright (c) 2011, Oracle and/or its affiliates. All rights reserved.
  23 #
  24 # sunw-history-package
  25 #  A simple program to generate the actions contained in the SUNW package
  26 #  that maps between the old (pre build-133) and new ips package names.
  27 #
  28
  29 $|=1;
  30
  31 use Getopt::Long;
  32 use File::Basename /qw basename/;
  33
  34 my $PKG = '/usr/bin/pkg';
  35
  36 sub generate_manifest {
  37         local ($package_name) = @_;
  38         my ($package, %depends) = ();
  39
  40         # gather some data
  41         open($FP, "$PKG contents -r -H -o action.raw $package_name |");
  42
  43         while (<$FP>) { # save what we want
  44                 if (m{set\s+name=pkg.fmri\s+value=pkg://.+/(.+):.+$}) {
  45                         $package = $1;
  46                 } elsif (m{depend fmri=(.+)\s+type=require$}) {
  47                         $depends{$1} = 1;
  48                 }
  49         }
  50
  51         close($FP);
  52
  53         # generate the manifest actions
  54         print <<EOF;
  55 set name=pkg.fmri value=pkg:/$package
  56 set name=pkg.renamed value=true
  57
  58 set name=org.opensolaris.consolidation value=\$(CONSOLIDATION)
  59
  60 set name=variant.opensolaris.zone value=global value=nonglobal
  61 set name=variant.arch value=\$(ARCH)
  62
  63 EOF
  64         foreach (sort keys %depends) {
  65                 (m{^consolidation/}) ||
  66                         print "depend fmri=$_ type=require\n"
  67         }
  68 }
  69
  70 sub usage {
  71         my $program = basename($0);
  72         print <<EOF;
  73 Usage: $program (--package (new-ips-name)) ...
  74
  75 EOF
  76         exit(1);
  77 }
  78
  79 sub main {
  80         my (@current_packages, %SUNWpackages) = ();
  81
  82         GetOptions('package:s' => \@current_packages);
  83
  84         ($#current_packages == -1) && usage();
  85
  86         # find all SUNW packages that require the supplied packages
  87         foreach (@current_packages) {
  88                 open($FP, "$PKG search -r -H -o pkg.name 'SUNW*:depend::*/$_' |");
  89
  90                 while (<$FP>) {
  91                         chomp;
  92                         $SUNWpackages{$_} = 1;
  93                 }
  94
  95                 close($FP);
  96         }
  97
  98         # generate manifests for each SUNWpackage
  99         foreach (sort keys %SUNWpackages) {
 100                 print "\n\n$_.p5m actions:\n";
 101                 generate_manifest($_);
 102         }
 103 }
 104
 105 #
 106 # Main execution starts here.
 107 #
 108 main();