1 files changed, 80 insertions, 0 deletions

diff --git a/pkg/solaris/solpkg b/pkg/solaris/solpkg
new file mode 100755
index 0000000..0b82bce
--- /dev/null
+++ b/pkg/solaris/solpkg
@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+
+$pkgdevice = $ARGV[0] || die "Unable to determine device ($!)\n";
+
+$find = "/usr/bin/find";
+$pkgproto = "/usr/bin/pkgproto";
+$pkgmk = "/usr/bin/pkgmk";
+$pkgtrans = "/usr/bin/pkgtrans";
+$prototype = "prototype";
+$pkginfo = "pkginfo";
+
+# Sanity check
+
+$pwd = `pwd`;
+if ($pwd =~ '\/usr\/local') {
+        $pwd = $`;
+}            
+die  "Wrong location, please cd to <PKGBASE>/usr/local/ and run again.\n"
+        if ($pwd eq "");
+
+open (PREPROTO,"$find . -print |$pkgproto |") ||
+        die "Unable to read prototype information ($!)\n";
+open (PROTO,">$prototype") ||
+        die "Unable to write file prototype ($!)\n";
+print PROTO "i pkginfo=./$pkginfo\n";
+while (<PREPROTO>) {
+        # Read in the prototype information
+        chomp;
+        $thisline = $_;
+        if ($thisline =~ " prototype "
+          or $thisline =~ " pkginfo ") {
+            # Don't do anything as they aren't important
+        } elsif ($thisline =~ "^[fd] ") {
+          # Change the ownership of files and directories
+          ($dir, $none, $file, $mode, $user, $group) = split / /,$thisline;
+          print PROTO "$dir $none $file $mode bin bin\n";
+        } else {
+          # Symlinks and other stuff should be printed also
+          print PROTO "$thisline\n";
+        }
+}
+close PROTO;
+close PREPROTO;
+
+# Now we can start building the package
+
+$os = `uname -r`;
+$os =~ '\.'; 
+$os = "sol$'";
+chomp $os;   
+
+open (PKGINFO,"<$pkginfo") ||
+        die "Unable to read package information ($!)\n";
+while (<PKGINFO>) {
+        # Read in the package information
+        chomp;
+        $thisline = $_;
+        ($var,$value) = split /=/,$thisline;
+        if ("$var" eq "NAME" 
+          or "$var" eq "VERSION"
+          or "$var" eq "ARCH") {
+                $tmp = lc($var);
+                $value =~ s/\"//g;
+                if ("$tmp" eq "version"
+                  and $value =~ ",REV") {
+                        ($value,$var) = split /\,/,$value;
+                        $$tmp = $value;
+                } else {
+                        $$tmp = $value;
+                }
+        }
+}       
+close PKGINFO;
+
+$packagename = "$name-$version-$os-$arch-local";
+
+print "Building package\n";
+system ("$pkgmk -o -r `pwd` -d $pkgdevice");
+system ("(cd $pkgdevice && $pkgtrans -s `pwd` ../$packagename)");
+print "Done. ($packagename)\n";