#!/usr/bin/perl
# make a Solaris software package by reading filenames on standard inp
+ut
# see man pages for pkginfo/pkgmk/pkgtrans
# usage:
#    mkpkg -n package_name -v version -d description  
#            
#
use POSIX qw (strftime);
use Getopt::Long;
use Cwd;
chomp($ARCH=`uname -p`);
$result=GetOptions("n=s",\$pkgname,'v=s',\$version,'d=s',\$description
+);
if (!$result || !defined($pkgname) || !defined($version) || !defined($
+description)) {
    &usage;
}
#
# gather files
#
while (<>) {
    chomp;
    if (! -e ) {
        die("No such file: [$_]\n");
    }
    if (! m#^/#) {
        die("Not an absolute path: [$_]\n");
    } 
    push(@files,$_);
}
if (@files == 0) {
   die("No file list!");
}
$TEMPDIR="/tmp/mkpkg.$$";
mkdir($TEMPDIR,0700) or 
  die("Can't make temp dir [$TEMPDIR]: $!\n");
# 
$cwd=getcwd;
$DESTFILE="${cwd}/${pkgname}.${version}.pkg";
chdir($TEMPDIR) or die("Can't change dir to temp dir [$TEMPDIR]\n");
# make "Prototype" file
#
my($time)=strftime("%m/%d/%Y %H:%M",localtime);
open(PKGINFO,">pkginfo") or die;
print PKGINFO <<EOF;
PKG=$pkgname
NAME="$pkgname $version"
VERSION="$version"
ARCH="$ARCH"
CLASSES="none"
CATEGORY="utility"
PSTAMP="$time"
VENDOR="Locally Created"
EMAIL="root\@localhost"
ISTATES="S s 1 2 3"
RSTATES="S s 1 2 3"
BASEDIR="/"
DESC="$description"
EOF

close PKGINFO;
#
# make package prototype
#
open(PROTO,">Prototype") or die;
print PROTO "i pkginfo\n";
close PROTO;
open(MKPROTO,"|pkgproto >> Prototype");
foreach $file (@files) {
    print MKPROTO "$file\n";
}
close MKPROTO or die;
#
#
# call pkgmk to create the package, then
# pkgtrans to convert it to a stream type package
#
system("pkgmk -o -r / -d $TEMPDIR -f Prototype"); 
system("pkgtrans -s $TEMPDIR $DESTFILE $pkgname"); 
chdir("/") or die ("Can't chdir to /:$!\n");
system("rm -rf $TEMPDIR");
#
#
sub usage {
    print STDERR "Usage: $0 -n <package name> -v <version number> -d <
+description>\n";
    print STDERR "\tYou must supply a list of filenames on stdin\n";
    exit 1;
}

[download]

In reply to mkpkg by kschwab

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.