pkg_add/OpenBSD/ArcCheck.pm

25 # 	$o = $archive->prepare_long($item);
31 # - make sure all relevant users/modes are recorded in the PLIST item
34 #	$o->validate_meta($item) or
61 sub validate_meta($o, $item)
63 	$o->{cwd} = $item->cwd;
64 	if (defined $item->{symlink} || $o->isSymLink) {
65 		if (!defined $item->{symlink}) {
67 			    $item->name, $o->{linkname});
73 			    $item->name, $item->{symlink});
77 		if (!$o->_check_linkname($item->{symlink})) {
79 			    $o->{linkname}, $item->{symlink});
82 	} elsif (defined $item->{link} || $o->isHardLink) {
83 		if (!defined $item->{link}) {
85 			    $item->name, $o->{linkname});
91 			    $item->name, $item->{link});
95 		if (!$o->_check_linkname($item->{link})) {
97 			    $o->{linkname}, $item->{link});
101 		if (!defined $item->{size}) {
103 			    $item->fullname);
105 		} elsif ($item->{size} != $o->{size}) {
107 			    $item->fullname);
112 		    $item->name);
115 	return $o->verify_modes($item);
118 sub _strip_modes($o, $item)
123 	if (!defined $item->{mode}) {
125 		if (defined $item->{owner}) {
131 		if ($item->is_a_library) {
139 	if (defined $item->{group} || defined $item->{owner}) {
151 sub verify_modes($o, $item)
155 	if (!defined $item->{owner}) {
158 			    $item->fullname, $o->{uname});
162 	if (!defined $item->{group}) {
165 			    $item->fullname, $o->{gname});
172 		$o->_errsay("Error: weird mode for #1: #2", $item->fullname,
191 # prepare item according to pkg_create's rules.
192 sub prepare_long($self, $item)
195 	if (defined $item->{wtempname}) {
196 		$entry = $self->prepare($item->{wtempname}, '');
198 		$entry = $self->prepare($item->name);
200 	if (defined $item->{owner}) {
201 		$entry->{uname} = $item->{owner};
202 		if (defined $item->{uid}) {
203 			$entry->{uid} = $item->{uid};
211 	if (defined $item->{group}) {
212 		$entry->{gname} = $item->{group};
213 		if (defined $item->{gid}) {
214 			$entry->{gid} = $item->{gid};
234 		    $item->name, $entry->{uid});
238 		    $item->name, $entry->{gid});
241 	$entry->{mode} = $entry->_strip_modes($item) & ~(S_ISUID|S_ISGID);
242 	if (defined $item->{ts}) {
246 	$entry->set_name($item->name);