summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthias Beyer <mail@beyermatthias.de>2019-06-18 19:50:58 +0200
committerMatthias Beyer <mail@beyermatthias.de>2019-06-18 19:50:58 +0200
commit885c1754ee48f0d08d136b5183f284febc948c13 (patch)
tree034224982618bad2c1584b8639c644b9c3b8335a
parent8e7558975bfc354c9eeec22aa58778ae02ffde73 (diff)
Add options endlist and skiplistadd-endlist-skiplist-arg
This patch adds options to override the default endlist and skiplist. Signed-off-by: Matthias Beyer <mail@beyermatthias.de>
-rwxr-xr-xdebtree52
1 files changed, 33 insertions, 19 deletions
diff --git a/debtree b/debtree
index 3b703ec..290c210 100755
--- a/debtree
+++ b/debtree
@@ -58,6 +58,8 @@ my $show_all = 0;
my $do_rotate = 0;
my $do_condense = 0;
my $ARCH="";
+my $endlist="";
+my $skiplist="";
my $download_size=0;
my $total_size=0;
@@ -93,6 +95,8 @@ GetOptions(
'rotate|r' => \$do_rotate,
'condense' => \$do_condense,
'arch=s' => \$ARCH,
+ 'endlist=s' => \$endlist,
+ 'skiplist=s' => \$skiplist,
'quiet|q' => \$quiet,
'verbose|v+' => \$verbose,
) or usage;
@@ -1157,25 +1161,35 @@ sub process_package {
# to determine their dependencies
if (! $show_all) {
my $file;
- for $file ("$HOME/.debtree/skiplist", "/etc/debtree/skiplist") {
- if (-r $file) {
- info(3, "Using list of 'skip' packages from $file");
- if (! $no_skip) {
- import_list($file, "skip");
- } else {
- # Change skip packages to end packages
- import_list($file, "end");
- }
- last;
- }
- }
- for $file ("$HOME/.debtree/endlist", "/etc/debtree/endlist") {
- if (-r $file) {
- info(3, "Using list of 'end' packages from $file");
- import_list($file, "end");
- last;
- }
- }
+ if (-r $skiplist) {
+ info(3, "Using list of 'end' packages from $skiplist");
+ import_list($skiplist, "skip");
+ } else {
+ for $file ("$HOME/.debtree/skiplist", "/etc/debtree/skiplist") {
+ if (-r $file) {
+ info(3, "Using list of 'skip' packages from $file");
+ if (! $no_skip) {
+ import_list($file, "skip");
+ } else {
+ # Change skip packages to end packages
+ import_list($file, "end");
+ }
+ last;
+ }
+ }
+ }
+ if (-r $endlist) {
+ info(3, "Using list of 'end' packages from $endlist");
+ import_list($endlist, "end");
+ } else {
+ for $file ("$HOME/.debtree/endlist", "/etc/debtree/endlist") {
+ if (-r $file) {
+ info(3, "Using list of 'end' packages from $file");
+ import_list($file, "end");
+ last;
+ }
+ }
+ }
}
# ptype B/S indicates "start" binary/source package