pkg_add/OpenBSD/PackageRepository.pm

2 # $OpenBSD: PackageRepository.pm,v 1.177 2023/11/25 10:29:23 espie Exp $
23 use OpenBSD::PackageRepository::Installed;
24 $OpenBSD::PackageRepository::Installed::ISA = qw(OpenBSD::PackageRepository);
26 package OpenBSD::PackageRepository;
27 our @ISA=(qw(OpenBSD::PackageRepositoryBase));
29 use OpenBSD::PackageLocation;
30 use OpenBSD::Paths;
31 use OpenBSD::Error;
32 use OpenBSD::Temp;
36 	$object->{errors} = OpenBSD::Temp->file;
38 		$self->{state}->fatal(OpenBSD::Temp->last_error);
78 OpenBSD::Handler->atend(
95 sub ftp($) { 'OpenBSD::PackageRepository::FTP' }
96 sub http($) { 'OpenBSD::PackageRepository::HTTP' }
97 sub https($) { 'OpenBSD::PackageRepository::HTTPS' }
98 sub scp($) { 'OpenBSD::PackageRepository::SCP' }
99 sub file($) { 'OpenBSD::PackageRepository::Local' }
100 sub installed($) { 'OpenBSD::PackageRepository::Installed' }
117 #		require OpenBSD::PackageRepository::HTTP;
125 		require OpenBSD::PackageRepository::SCP;
150 		require OpenBSD::PackageName;
156 		$self->{stemlist} = OpenBSD::PackageName::avail2stems(@l);
167 		OpenBSD::Error->rmtree($dir);
168 		OpenBSD::Temp->reclaim($dir);
363 	OpenBSD::Temp->reclaim($filename);
435 	exec {OpenBSD::Paths->signify}
441 	    OpenBSD::Paths->signify, $!);
457 package OpenBSD::PackageRepository::Local;
458 our @ISA=qw(OpenBSD::PackageRepository);
459 use OpenBSD::Error;
476 		use OpenBSD::Paths;
477 		$pkg_db = $ENV{"PKG_DBDIR"} || OpenBSD::Paths->pkgdb;
567 package OpenBSD::PackageRepository::Distant;
568 our @ISA=qw(OpenBSD::PackageRepository);
607 	my ($copy, $filename) = OpenBSD::Temp::permanent_file($dir, $name) or
608 		$self->{state}->fatal(OpenBSD::Temp->last_error);
728 package OpenBSD::PackageRepository::HTTPorFTP;
729 our @ISA=qw(OpenBSD::PackageRepository::Distant);
760 	return OpenBSD::Paths->ftp;
903 		my $error = OpenBSD::Temp->file;
905 			$self->{state}->fatal(OpenBSD::Temp->last_error);
932 package OpenBSD::PackageRepository::HTTP;
933 our @ISA=qw(OpenBSD::PackageRepository::HTTPorFTP);
945 package OpenBSD::PackageRepository::HTTPS;
946 our @ISA=qw(OpenBSD::PackageRepository::HTTP);
955 	require OpenBSD::Temp;
962 	my ($fh, undef) = OpenBSD::Temp::fh_file("session",
965 		$self->{state}->fatal(OpenBSD::Temp->last_error);
983 package OpenBSD::PackageRepository::FTP;
984 our @ISA=qw(OpenBSD::PackageRepository::HTTPorFTP);