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
|
#!/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";
|
