toolbox/create_projects_bom.pl

   1 #!/usr/bin/perl
   2
   3 # create_projects_bom.pl - generate list of files to backup
   4 # Copyright (C) 2020 Kyle J. McKay.  All rights reserved.
   5 # License GPLv2+: GNU GPL version 2 or later.
   6 # www.gnu.org/licenses/gpl-2.0.html
   7 # This is free software: you are free to change and redistribute it.
   8 # There is NO WARRANTY, to the extent permitted by law.
   9
  10 use strict;
  11 use warnings;
  12 use vars qw($VERSION);
  13 BEGIN {*VERSION = \'1.0.0'}
  14 use lib "__BASEDIR__";
  15 use Girocco::Config;
  16 use Girocco::CLIUtil;
  17 use Girocco::Project;
  18
  19 exit(&main(@ARGV)||0);
  20
  21 my @projparts;
  22 BEGIN {@projparts = qw(
  23         .bypass
  24         .bypass_fetch
  25         .last_refresh
  26         .no_blob_plain
  27         .noconfig
  28         .nofetch
  29         .nogc
  30         .nohooks
  31         HEAD
  32         README.dat
  33         README.html
  34         config
  35         ctags
  36         description
  37         info
  38         info/lastactivity
  39         mob
  40         mob/HEAD
  41         mob/config
  42         mob/description
  43         mob/hooks
  44         mob/info
  45         mob/objects
  46         mob/packed-refs
  47         mob/refs
  48         mob/refs/heads
  49         mob/refs/mob
  50         objects
  51         objects/info
  52         objects/info/alternates
  53         packed-refs
  54         private
  55         private/HEAD
  56         private/config
  57         private/gc.pid
  58         private/objects
  59         private/packed-refs
  60         private/refs
  61         refs
  62 )}
  63
  64 sub list_files($$) {
  65         my ($rdir, $pdir) = @_;
  66         my $odir = "$rdir/$pdir";
  67         opendir LISTDIR, "$odir" or return;
  68         my @tags = grep { !/^\./ && !/[,\s\/\\]/ && ! -l "$odir/$_" && -f "$odir/$_" } readdir(LISTDIR);
  69         closedir LISTDIR;
  70         print "$pdir/$_\n" foreach sort({lc($a) cmp lc($b) || $a cmp $b} @tags);
  71 }
  72
  73 sub bom_for_project($) {
  74         my $rroot = $Girocco::Config::reporoot;
  75         my $proj = shift;
  76         print "$proj.git\n";
  77         -l "$rroot/$proj.git" and return;
  78
  79         # For each entry from @projparts that exists, output
  80         # a line.  BUT, if it exists AND it's a symlink, SKIP
  81         # outputting a line for anything beneath it that's also
  82         # in @projparts.
  83
  84         my %links = ();
  85         my $test = "$rroot/$proj.git";
  86         foreach (@projparts) {
  87                 my $idx = index($_, "/");
  88                 next if $idx > 0 && $links{substr($_, 0, $idx)};
  89                 if (-l "$test/$_") {
  90                         $links{$_} = 1;
  91                         print "$proj.git/$_\n";
  92                         next;
  93                 } elsif ($_ eq "packed-refs") {
  94                         next;
  95                 } elsif (-e "$test/$_") {
  96                         print "$proj.git/$_\n";
  97                         list_files($rroot, "$proj.git/$_") if $_ eq "ctags";
  98                 }
  99         }
 100 }
 101
 102 sub main {
 103         local *ARGV = \@_;
 104         my %projects = map({$_ => 1} Girocco::Project::get_full_list());
 105         my @names;
 106         my $rroot = $Girocco::Config::reporoot;
 107         if (@ARGV) {
 108                 my @list = ();
 109                 foreach (@ARGV) {
 110                         s/\.git$//i;
 111                         $_ ne "" or next;
 112                         $projects{$_} || (-l "$rroot/$_.git" && -d "$rroot/$_.git") or
 113                                 die "no such project: $_\n";
 114                         push(@list, $_);
 115                 }
 116                 my %list = map({$_ => 1} @list);
 117                 @names = sort({lc($a) cmp lc($b) || $a cmp $b} keys(%list));
 118         } else {
 119                 if (opendir REPOROOT, $rroot) {
 120                         my @links = grep {
 121                                 /^[^._]/ && s/\.git$//i &&
 122                                 -l "$rroot/$_.git" && -d "$rroot/$_.git"
 123                         } readdir(REPOROOT);
 124                         closedir REPOROOT;
 125                         $projects{$_} = 1 foreach @links;
 126                 }
 127                 @names = sort({lc($a) cmp lc($b) || $a cmp $b} keys(%projects));
 128         }
 129         @names or die "no projects specified\n";
 130         #print map("$_\n", @names);
 131         bom_for_project($_) foreach @names;
 132         exit 0;
 133 }