Compare commits
3 Commits
99d51f625d
...
da3539c83a
Author | SHA1 | Date | |
---|---|---|---|
da3539c83a | |||
64a5505821 | |||
a76248a9cb |
@ -1,5 +1,5 @@
|
||||
.\" man page for prt-auf
|
||||
.\" last edited March 2023 by John McQuah, jmcquah at disroot dot org
|
||||
.\" last edited May 2023 by John McQuah, jmcquah at disroot dot org
|
||||
.\"
|
||||
.\" based on original work by Johannes Winkelmann, jw at tks6 dot net
|
||||
.\"
|
||||
@ -200,7 +200,7 @@ built by an 'install' command).
|
||||
|
||||
.TP
|
||||
.B depends [\-\-softdeps] <package1> [<package2> ...]
|
||||
print a sorted list of dependencies needed to install the packages passed
|
||||
Print a sorted list of dependencies needed to install the packages passed
|
||||
as argument. Packages that need to be installed first are listed first. It
|
||||
shows a list of the dependencies that were found in the ports tree, followed by
|
||||
a list of the dependencies that could not be found. Pass the --softdeps flag if
|
||||
@ -209,7 +209,7 @@ the output.
|
||||
|
||||
.TP
|
||||
.B quickdep [\-\-softdeps] <package1> [<package2> ...]
|
||||
mostly the same output as depends, but stripped of the installation status
|
||||
Mostly the same output as depends, but stripped of the installation status
|
||||
indicator, and separated by spaces rather than newlines. Also, ports that
|
||||
cannot be found in the ports tree are omitted from the results. This formatting
|
||||
is useful in command substitution, e.g. instead of running
|
||||
@ -225,7 +225,7 @@ needed for successful builds.
|
||||
|
||||
.TP
|
||||
.B deptree [\-\-softdeps] <package>
|
||||
print a tree of the dependencies of
|
||||
Print a tree of the dependencies of
|
||||
.B <package>.
|
||||
|
||||
Pass the --softdeps flag if you want optional dependencies to appear in the
|
||||
@ -241,20 +241,20 @@ occurred.
|
||||
|
||||
.TP
|
||||
.B dependent [\-\-softdeps] [\-\-all] [\-\-recursive] [\-\-tree] <package>
|
||||
print a list of ports which have
|
||||
Print a list of ports which have
|
||||
.B <package>
|
||||
in their "Depends on:" line. To also search the "Optional:" lines, pass the
|
||||
--softdeps flag. By default, output is restricted to ports that are installed.
|
||||
To see all hard dependencies, add the --all switch; use --recursive to get a
|
||||
To see all the dependencies, add the --all switch; use --recursive to get a
|
||||
recursive list (without duplication), and --tree to get a nicely indented one.
|
||||
|
||||
.TP
|
||||
.B ls [--path] <port>
|
||||
Prints out a listing of the port's directory
|
||||
Print out a listing of the port's directory
|
||||
|
||||
.TP
|
||||
.B cat <port> [<file>]
|
||||
Prints out the file to stdout. If <file> is not specified, 'Pkgfile' is used.
|
||||
Print out the file to stdout. If <file> is not specified, 'Pkgfile' is used.
|
||||
|
||||
.TP
|
||||
.B edit <port> [<file>]
|
||||
@ -336,27 +336,27 @@ are replaced like this:
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%P -> optional dependencies
|
||||
%P \-> optional dependencies
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%M -> Maintainer
|
||||
%M \-> Maintainer
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%R -> Readme ("yes"/"no")
|
||||
%R \-> Readme ("yes"/"no")
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%E -> pre-install script ("yes"/"no")
|
||||
%E \-> pre-install script ("yes"/"no")
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%O -> post-install script ("yes"/"no")
|
||||
%O \-> post-install script ("yes"/"no")
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
%l -> is locked ("yes"/"no")
|
||||
%l \-> is locked ("yes"/"no")
|
||||
|
||||
.TP
|
||||
\ \ \ \(bu
|
||||
@ -432,15 +432,20 @@ be affected by the operation.
|
||||
|
||||
.TP
|
||||
.B \-fr
|
||||
Force rebuild, Implies 'pkgmk -f'; same as --margs=-f
|
||||
Force rebuild. Implies 'pkgmk -f'; same as --margs=-f
|
||||
.TP
|
||||
In the most common uses of \fB\-fr\fP, it is not desired to rebuild all the
|
||||
dependencies too, even the ones that are out of date. Hence the \fB\-fr\fP flag
|
||||
will be interpreted to imply also \fB\-\-nodeps\fP. But you can override this
|
||||
side effect by passing \fB\-\-depsort\fP AFTER the \fB\-fr\fP flag.
|
||||
|
||||
.TP
|
||||
.B \-us
|
||||
Update signature, implies 'pkgmk -us'; same as --margs=-us
|
||||
Update signature. Implies 'pkgmk -us'; same as --margs=-us
|
||||
|
||||
.TP
|
||||
.B \-is
|
||||
Ignore signature, implies 'pkgmk -is'; same as --margs=-is
|
||||
Ignore signature. Implies 'pkgmk -is'; same as --margs=-is
|
||||
|
||||
.TP
|
||||
.B \-uf
|
||||
@ -467,6 +472,13 @@ note that \-d is already passed to pkgmk anyway.
|
||||
.B \-\-aargs="...", e.g. \-\-aargs="\-f"
|
||||
Pass these additional arguments to pkgadd
|
||||
|
||||
.TP
|
||||
.B \-\-install\-root="...", e.g. \-\-install\-root="/mnt"
|
||||
Specify a mountpoint other than "/", where the built packages are to be
|
||||
installed. This setting affects the package database that is subject to
|
||||
read/write operations, but not the ports tree (which remains governed by
|
||||
the prtdir directives in \fBprt-get.conf(5)\fP).
|
||||
|
||||
.TP
|
||||
.B \-\-cache
|
||||
Use cache file for this command
|
||||
@ -491,7 +503,7 @@ Interpret filter and search pattern as regular expression
|
||||
|
||||
.SH "CONFIGURATION"
|
||||
|
||||
Most of the directives available in prt\-get.conf(5) are also recognized and
|
||||
Most of the directives available in \fBprt\-get.conf(5)\fP are also recognized and
|
||||
respected by \fBprt\-auf\fP. Notably, you can specify the active port
|
||||
collections by ensuring that they appear on lines beginning with 'prtdir '.
|
||||
You can also toggle the running of pre-/post-install scripts by editing the
|
||||
@ -584,7 +596,15 @@ looking for, without needing to clutter the code base by reimplementing shell
|
||||
wildcards.
|
||||
|
||||
.TP
|
||||
.B no "--ignore" switch.
|
||||
.B no \-\-config\-prepend, \-\-config\-append, or \-\-config\-set switches.
|
||||
Users of \fBprt\-get\fP might find it inconvenient not to have such a
|
||||
mechanism for overriding the config file settings on a temporary basis. The
|
||||
workaround is to create different variations of the config file, and use the
|
||||
\fB\-\-config=\fP switch to select the appropriate file whenever a
|
||||
non-default setting is desired.
|
||||
|
||||
.TP
|
||||
.B no \-\-ignore switch.
|
||||
This feature is easy enough to add at a later date, but a newcomer to CRUX will
|
||||
likely be confused at having such fine-grained control over the automatic
|
||||
dependency resolution. The two main reasons to use "--ignore" (an erroneous
|
||||
|
@ -14,8 +14,8 @@ use strict;
|
||||
my $title="prt-auf"; my $version=0.51; my $cache_ver="V5.1";
|
||||
my $CONFDIR="/var/lib/pkg"; my $prtalias="/etc/prt-get.aliases";
|
||||
my $pkgdb="$CONFDIR/db"; my $prtlocker="$CONFDIR/prt-get.locker";
|
||||
my $prtcache="$CONFDIR/prt-get.cache"; my %LOCKED; my %ALIASES; my %DEPENDS;
|
||||
my @allports; my %V_REPO; my %V_INST; my %DESC; my %SOFTDEPS;
|
||||
my $prtcache="$CONFDIR/prt-get.cache"; my $altroot=""; my %LOCKED; my %ALIASES;
|
||||
my @allports; my %V_REPO; my %V_INST; my %DESC; my %DEPENDS; my %SOFTDEPS;
|
||||
my @results; my $strf; my $ind; my $hh; my $portpath; my $built_pkg;
|
||||
my %osearch = ( cache=>0, regex=>0, path=>0, exact=>0, verbose=>0 );
|
||||
my %odepends = ( inject=>1, soft=>0, tree=>0, recursive=>0, all=>0 );
|
||||
@ -47,7 +47,7 @@ if (($action !~ /^(fsearch|isinst|current)$/) and ($osearch{cache}==0)) {
|
||||
if ($osearch{cache}==1) { fill_hashes_from_cache(); }
|
||||
|
||||
if ($action !~ /^(search|dsearch|fsearch|info|dup|ls|readme|cat)$/) {
|
||||
open (DB, $pkgdb) or die "Could not open package database!\n";
|
||||
open (DB, "$altroot$pkgdb") or die "Could not open package database!\n";
|
||||
local $/="";
|
||||
while (<DB>) { $V_INST{$1} = $2 if m/^(.*)\n(.*)\n/; }
|
||||
close (DB);
|
||||
@ -147,11 +147,9 @@ if (($action =~ /^(listinst|listorphans|dependent)/) and
|
||||
"Readme", "PreInstall", "PostInstall");
|
||||
for (my $i=0; $i<9; $i++) { printf $strf, $fields[$i], $results[$i] unless ($results[$i] =~ /^\s*$/); }
|
||||
} elsif ($action eq "remove") {
|
||||
my %removed = %$ind;
|
||||
my @successes = grep { $removed{$_}==1 } keys %removed;
|
||||
my @failures = grep { $removed{$_}==0 } keys %removed;
|
||||
print "Ports removed:\n" if (@successes);
|
||||
foreach my $p (@successes) { print "$p\n"; }
|
||||
my @removed = @$ind;
|
||||
print "Ports removed:\n" if (@removed);
|
||||
foreach my $p (@removed) { print "$p\n"; }
|
||||
} elsif ($action =~ /^(install|sysup)$/) {
|
||||
my @ok = @{$results[0]}; my %ok_pre = %{$results[1]}; my %ok_post = %{$results[2]};
|
||||
my @ok_readme = @{$results[3]}; my @not_ok = @{$results[4]}; my $note;
|
||||
@ -215,8 +213,11 @@ sub parse_args {
|
||||
} elsif ($arg eq "-fi") { $opkg{aargs} .= " -f";
|
||||
} elsif ($arg =~ /^(-uf|-if|-us|-is|-ns|-kw)$/) { $opkg{margs} .= " $1";
|
||||
} elsif ($arg =~ /^--margs=(.+)/) { $opkg{margs} .= $1;
|
||||
} elsif ($arg =~ /^--aargs=(-r|--root)=(.+)/) { $opkg{aargs} .= "$1 $2";
|
||||
} elsif ($arg =~ /^--rargs=(-r|--root)=(.+)/) { $opkg{rargs} .= "$1 $2";
|
||||
} elsif ($arg =~ /^--install-root=(.+)$/) { $altroot=$1;
|
||||
} elsif ($arg =~ /^--aargs=(-r|--root)=(.+)/) { $altroot=$2;
|
||||
} elsif ($arg =~ /^--rargs=(-r|--root)=(.+)/) { $altroot=$2;
|
||||
} elsif ($arg =~ /^--aargs=(.+)/) { $opkg{aargs} .= " $1";
|
||||
} elsif ($arg =~ /^--rargs=(.+)/) { $opkg{rargs} .= " $1";
|
||||
} elsif ($arg =~ /^-/) {
|
||||
print "'$arg' is not a recognized option.\n";
|
||||
} else { push (@query, $arg); }
|
||||
@ -309,13 +310,13 @@ sub find_dups {
|
||||
}
|
||||
|
||||
sub get_locked_and_aliased {
|
||||
if (-f $prtalias) {
|
||||
open (AL, $prtalias);
|
||||
if (-f "$altroot$prtalias") {
|
||||
open (AL, "$altroot$prtalias");
|
||||
while (<AL>) { $ALIASES{$1} = $2 if m/^\s*(.*)\s*:\s*(.*)/; }
|
||||
close (AL);
|
||||
}
|
||||
if (-f $prtlocker) {
|
||||
open (LK, $prtlocker);
|
||||
if (-f "$altroot$prtlocker") {
|
||||
open (LK, "$altroot$prtlocker");
|
||||
while (<LK>) { chomp; $LOCKED{$_}=1 unless /^\s*$/; }
|
||||
close (LK);
|
||||
}
|
||||
@ -433,6 +434,7 @@ sub get_pkgfile_fields {
|
||||
if (($Version =~ m/\$\(.*\)/) or ($Version =~ m/`.*`/)) {
|
||||
open(ECHO,"-|","bash -c \'source $pkgfile; echo \$version\'");
|
||||
while(<ECHO>) { chomp; $Version = $_; }
|
||||
close(ECHO);
|
||||
}
|
||||
|
||||
$Dependencies =~ s/, / /g; $Dependencies =~ s/,/ /g;
|
||||
@ -491,12 +493,16 @@ sub uninstall {
|
||||
my @rubbish = grep { ! defined $V_INST{$_} } @_;
|
||||
foreach my $r (@rubbish) { print "$r not installed; ignoring.\n"; }
|
||||
my %removed = map { $_ => 0 } @targets;
|
||||
if (($altroot ne "") and ($opkg{rargs} !~ m/(-r|--root)/)) {
|
||||
$opkg{rargs} .= " -r $altroot";
|
||||
}
|
||||
foreach my $t (@targets) {
|
||||
($opkg{test} eq "no") ? system($PKGRM,$opkg{rargs},$t) : print "$PKGRM $opkg{rargs} $t\n";
|
||||
$removed{$t}=1 if ($?>>8 == 0);
|
||||
if (($LOCKED{$t}) and ($opkg{test} eq "no")) { port_unlock($t); }
|
||||
}
|
||||
return \%removed;
|
||||
my @successes = grep { $removed{$_} == 1 } keys %removed;
|
||||
return @successes;
|
||||
}
|
||||
|
||||
sub port_lock {
|
||||
@ -759,12 +765,15 @@ sub up_inst { # returns scalar references to five arrays
|
||||
$pvars{'%p'} = find_port_by_name($t,1,1,0); $pdirs{$t} = $pvars{'%p'};
|
||||
$pvars{'%v'} = $1 if ( $V_REPO{$t} =~ m/(.+)-[0-9]+$/ );
|
||||
$pvars{'%r'} = $1 if ( $V_REPO{$t} =~ m/-([0-9]+)$/ );
|
||||
$builtpkg{$t} = ($PKG_DIR) ? "$PKG_DIR/$t#$pvars{'%v'}-$pvars{'%r'}.pkg.tar.$COMPRESSION" : "$pvars{'%p'}/$t#$pvars{'%v'}-$pvars{'%r'}.pkg.tar.$COMPRESSION";
|
||||
$builtpkg{$t} = ($PKG_DIR ne "") ? "$PKG_DIR/$t#$pvars{'%v'}-$pvars{'%r'}.pkg.tar.$COMPRESSION" : "$pvars{'%p'}/$t#$pvars{'%v'}-$pvars{'%r'}.pkg.tar.$COMPRESSION";
|
||||
$builtpkg{$t} =~ s/uuiName/$t/g;
|
||||
$builtpkg{$t} =~ s/uuiVer/$pvars{'%v'}/g;
|
||||
$builtpkg{$t} =~ s/uuiRel/$pvars{'%r'}/g;
|
||||
$mkcmd{$t} = "$PKGMK -d $opkg{$t}";
|
||||
$addcmd{$t} = "$PKGADD -u $builtpkg{$t}";
|
||||
if (($altroot ne "") and ($opkg{aargs} !~ m/(-r|--root)/)) {
|
||||
$opkg{aargs} .= " -r $altroot";
|
||||
}
|
||||
$addcmd{$t} = "$PKGADD -u $opkg{aargs} $builtpkg{$t}";
|
||||
if ($olog{write} eq "enabled") {
|
||||
$logfile{$t} = $olog{file};
|
||||
$logfile{$t} =~ s/(%n|%v|%r|%p)/$pvars{$1}/g;
|
||||
@ -788,8 +797,12 @@ sub up_inst { # returns scalar references to five arrays
|
||||
next BUILDLOG;
|
||||
}
|
||||
if ($mkcmd{$t} ne "") {
|
||||
if ((-f "$pdirs{$t}/pre-install") and ($opkg{runscripts} eq "yes")) {
|
||||
if (($opkg{runscripts} eq "yes") and (-f "$pdirs{$t}/pre-install")) {
|
||||
if ($altroot ne "") {
|
||||
system("chroot",$altroot,"sh","$pdirs{$t}/pre-install");
|
||||
} else {
|
||||
system("sh","$pdirs{$t}/pre-install");
|
||||
}
|
||||
( $?>>8 == 0 ) ? $ok_pre{$t} = 1 : delete $ok_pre{$t};
|
||||
}
|
||||
chdir $pdirs{$t}; system("$mkcmd{$t}"); $status=( $?>>8 == 0 );
|
||||
@ -811,9 +824,13 @@ sub up_inst { # returns scalar references to five arrays
|
||||
} elsif ( ($not_ok{$t}) and (-f "$builtpkg{$t}") ) {
|
||||
system("mv $builtpkg{$t} $builtpkg{$t}.CHECKME");
|
||||
}
|
||||
if (($ok{$t}) and (-f "$pdirs{$t}/post-install")
|
||||
and ($opkg{runscripts} eq "yes")) {
|
||||
if (($ok{$t}) and ($opkg{runscripts} eq "yes")
|
||||
and (-f "$pdirs{$t}/post-install")) {
|
||||
if ($altroot ne "") {
|
||||
system("chroot",$altroot,"sh","$pdirs{$t}/post-install");
|
||||
} else {
|
||||
system("sh","$pdirs{$t}/post-install");
|
||||
}
|
||||
( $?>>8 == 0 ) ? $ok_post{$t}=1 : delete $ok_post{$t};
|
||||
}
|
||||
}
|
||||
@ -836,11 +853,11 @@ sub parse_pkgmk_conf {
|
||||
my @pkgmkVars;
|
||||
my $heredoc = "bash -c 'name=uuiName; version=uuiVer;";
|
||||
$heredoc .= "release=uuiRel; source /etc/pkgmk.conf; ";
|
||||
$heredoc .= "printf \"%s\\t%s\" \"\$PKGMK_PACKAGE_DIR\" ";
|
||||
$heredoc .= "printf \"%s:%s\" \"\$PKGMK_PACKAGE_DIR\" ";
|
||||
$heredoc .= "\$PKGMK_COMPRESSION_MODE;'";
|
||||
|
||||
open (CF,"-|",$heredoc) or return;
|
||||
while (<CF>) { @pkgmkVars = split /\t/;
|
||||
while (<CF>) { @pkgmkVars = split /:/;
|
||||
} close (CF);
|
||||
|
||||
my $COMPRESSION = ($pkgmkVars[1] eq "") ? "gz" : $pkgmkVars[1];
|
||||
|
47
scripts/prtorphan.awk
Executable file
47
scripts/prtorphan.awk
Executable file
@ -0,0 +1,47 @@
|
||||
#!/usr/bin/awk -f
|
||||
#
|
||||
# reimplementation in awk of the prtorphan script by Opel (2003).
|
||||
# Only detects installed ports that have been dropped from the repos,
|
||||
# does NOT accept the argument '-d' to activate directory mode.
|
||||
|
||||
BEGIN {
|
||||
RS="\n\n"; FS="\n";
|
||||
while ( (getline < "/var/lib/pkg/db") > 0 ) {
|
||||
Version[$1] = $2;
|
||||
}
|
||||
|
||||
RS="\n"; FS=" ";
|
||||
while ( (getline line < "/etc/prt-get.conf") > 0 ) {
|
||||
if (line ~ /^prtdir /) {
|
||||
sub(/^prtdir /,"",line);
|
||||
sub(/ #.*$/,"",line);
|
||||
if (line !~ /:/) {
|
||||
portdirs[line] = 1;
|
||||
} else {
|
||||
split(line,a,":");
|
||||
base = a[1];
|
||||
split(a[2],filter,",");
|
||||
for (i in filter) {
|
||||
portdirs[(base "/" filter[i])] = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for (dir in portdirs) {
|
||||
ports = "find " dir " -name Pkgfile -printf '%h\n'";
|
||||
while ((ports | getline entry) > 0 ) {
|
||||
sub(/.*\//,"",entry);
|
||||
if (entry == ".") {
|
||||
validports[dir] = 1;
|
||||
} else {
|
||||
validports[entry] = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# print the orphaned ports
|
||||
for (name in Version) {
|
||||
if (! (name in validports)) { printf("%s\n",name); }
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user