pkg_add/OpenBSD/Add.pm

2 # $OpenBSD: Add.pm,v 1.196 2023/10/11 13:54:43 espie Exp $
20 package OpenBSD::Add;
21 use OpenBSD::Error;
22 use OpenBSD::PackageInfo;
23 use OpenBSD::ArcCheck;
24 use OpenBSD::Paths;
65 	use OpenBSD::PackingElement;
134 	# For "tied" entries, also see tie_files in OpenBSD::PkgAdd.
199 	my $plist = OpenBSD::PackingList->from_installation($pkgname);
205 		OpenBSD::PackingElement::ManualInstallation->add($plist);
217 			OpenBSD::PackingElement::Firmware->add($plist);
221 		OpenBSD::PackingElement::ManualInstallation->add($plist);
229 			$user_tagged->{OpenBSD::PackageName::url2pkgname($n)} = 1;
254 # deletion is delayed into OpenBSD::SharedItems, since several packages
257 package OpenBSD::PackingElement;
258 use OpenBSD::Error;
300 		require OpenBSD::IdCache;
303 			$uidcache = OpenBSD::UidCache->new;
304 			$gidcache = OpenBSD::GidCache->new;
320 			$state->system(OpenBSD::Paths->chmod,
329 package OpenBSD::PackingElement::Meta;
338 package OpenBSD::PackingElement::Cwd;
341 	&OpenBSD::PackingElement::Meta::find_extractible;
344 package OpenBSD::PackingElement::ExtraInfo;
345 use OpenBSD::Error;
355 package OpenBSD::PackingElement::NewAuth;
356 use OpenBSD::Error;
398 package OpenBSD::PackingElement::NewUser;
400 sub command($) { OpenBSD::Paths->useradd }
413 package OpenBSD::PackingElement::NewGroup;
415 sub command($) { OpenBSD::Paths->groupadd }
422 package OpenBSD::PackingElement::FileBase;
423 use OpenBSD::Error;
426 use OpenBSD::Temp;
510 	my ($fh, $tempname) = OpenBSD::Temp::permanent_file($d, "pkg");
515 			$state->errsay(OpenBSD::Temp->last_error);
518 		$state->fatal(OpenBSD::Temp->last_error);
638 package OpenBSD::PackingElement::Extra;
644 package OpenBSD::PackingElement::RcScript;
651 package OpenBSD::PackingElement::Sample;
652 use OpenBSD::Error;
729 package OpenBSD::PackingElement::Sampledir;
736 	&OpenBSD::PackingElement::Dir::install;
739 package OpenBSD::PackingElement::Mandir;
750 package OpenBSD::PackingElement::Manpage;
758 package OpenBSD::PackingElement::InfoFile;
760 use OpenBSD::Error;
767 	$state->vsystem(OpenBSD::Paths->install_info,
771 package OpenBSD::PackingElement::Shell;
779 	open(my $shells, '<', $destdir.OpenBSD::Paths->shells) or return;
785 	open(my $shells2, '>>', $destdir.OpenBSD::Paths->shells) or return;
789 	    $destdir.OpenBSD::Paths->shells) if $state->verbose;
792 package OpenBSD::PackingElement::Dir;
819 package OpenBSD::PackingElement::Exec;
820 use OpenBSD::Error;
832 package OpenBSD::PackingElement::ExecAdd;
838 package OpenBSD::PackingElement::ExecUpdate;
844 package OpenBSD::PackingElement::Tag;
853 package OpenBSD::PackingElement::Lib;
861 package OpenBSD::PackingElement::SpecialFile;
862 use OpenBSD::PackageInfo;
863 use OpenBSD::Error;
884 package OpenBSD::PackingElement::FCONTENTS;
889 package OpenBSD::PackingElement::AskUpdate;
894 		my $key = "update_".OpenBSD::PackageName::splitstem($pkgname);
910 package OpenBSD::PackingElement::FDISPLAY;
920 package OpenBSD::PackingElement::FUNDISPLAY;