summaryrefslogtreecommitdiffstats
path: root/pkg/solaris/solpkg
blob: ce8533cb4bf579ccbe895d00998ed183516f821f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
#!/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";
$egrep = "/usr/bin/egrep";

# 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 |$egrep -v \"^.(/usr(/local)|/opt)?\$\" | $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";