Subversion Repositories DevTools

Rev

Rev 3347 | Rev 3859 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3347 Rev 3832
Line 47... Line 47...
47 
my $opt_onlyName;
 47 
my $opt_onlyName;
48 
my $opt_onlyFullName;
 48 
my $opt_onlyFullName;
49 
my $opt_touch;
 49 
my $opt_touch;
50 
my $opt_available;
 50 
my $opt_available;
51 
my $opt_all;
 51 
my $opt_all;
- 
 
 52 
my $opt_protected;
52 
 
 53 
 
53 
my %excludeRepos;
 54 
my %excludeRepos;
54 
 
 55 
 
55 
#-------------------------------------------------------------------------------
 56 
#-------------------------------------------------------------------------------
56 
# Function        : Main Entry
 57 
# Function        : Main Entry
Line 77... Line 78...
77 
                'byfullname'    => \$opt_onlyFullName,
 78 
                'byfullname'    => \$opt_onlyFullName,
78 
                'svn'           => \$opt_svn,            # Include SVNed packages
 79 
                'svn'           => \$opt_svn,            # Include SVNed packages
79 
                'touch:s'       => \$opt_touch,
 80 
                'touch:s'       => \$opt_touch,
80 
                'available:s'   => \$opt_available,
 81 
                'available:s'   => \$opt_available,
81 
                'all'           => \$opt_all,
 82 
                'all'           => \$opt_all,
- 
 
 83 
                'protected'     => \$opt_protected,
- 
 
 84 
 
82 
                );
 85 
                );
83 
 
 86 
 
84 
#
 87 
#
85 
#   Process help and manual options
 88 
#   Process help and manual options
86 
#
 89 
#
Line 131... Line 134...
131 
foreach my $pkgname ( keys %ScmRepoMap )
 134 
foreach my $pkgname ( keys %ScmRepoMap )
132 
{
 135 
{
133 
    my $entry = $ScmRepoMap{$pkgname};
 136 
    my $entry = $ScmRepoMap{$pkgname};
134 
    $keep = 1;
 137 
    $keep = 1;
135 
 
 138 
 
136 
    unless ( $opt_all )
 139 
    unless ( $opt_all || $opt_protected)
137 
    {
 140 
    {
138 
        if ( $entry->{protected} )
 141 
        if ( $entry->{protected} )
139 
        {
 142 
        {
140 
            $keep = 0;
 143 
            $keep = 0;
141 
            next;
 144 
            next;
142 
        }
 145 
        }
143 
    }
 146 
    }
144 
 
 147 
 
- 
 
 148 
    if ( $opt_protected )
- 
 
 149 
    {
- 
 
 150 
        my $prot = $entry->{protected} ? $entry->{protected} :' ';
- 
 
 151 
        $prot =~ m~(.)~;
- 
 
 152 
        $prot = $1;
- 
 
 153 
        if ( $prot eq 'B' )
- 
 
 154 
        {
- 
 
 155 
            $keep = 0;
- 
 
 156 
            next;
- 
 
 157 
        }
- 
 
 158 
    }
- 
 
 159 
 
145 
    if ( $opt_repoExclude )
 160 
    if ( $opt_repoExclude )
146 
    {
 161 
    {
147 
        $entry->{repo} =~ m~^(.*?)(/|$)~;
 162 
        $entry->{repo} =~ m~^(.*?)(/|$)~;
148 
        my $baseRepo = $1;
 163 
        my $baseRepo = $1;
149 
        if ( exists $excludeRepos{$baseRepo} || exists $excludeRepos{$entry->{repo}}  )
 164 
        if ( exists $excludeRepos{$baseRepo} || exists $excludeRepos{$entry->{repo}}  )
Line 305... Line 320...
305 
    -excludeRepo=name  - Exclude repos
 320 
    -excludeRepo=name  - Exclude repos
306 
    -age=nn            - Select last build age > nn
 321 
    -age=nn            - Select last build age > nn
307 
    -user=nn           - Select last user build age> nn
 322 
    -user=nn           - Select last user build age> nn
308 
    -available=path    - Select if in named directory
 323 
    -available=path    - Select if in named directory
309 
    -all               - Include Protected and Broken packages
 324 
    -all               - Include Protected and Broken packages
- 
 
 325 
    -protected         - Include Protected packages
310 
   Output Sorting
 326 
   Output Sorting
311 
    -byage             - Sort by last build age
 327 
    -byage             - Sort by last build age
312 
    -byuser            - Sort by last User Mode age
 328 
    -byuser            - Sort by last User Mode age
313 
    -byprepo           - Sort by repository name
 329 
    -byrepo            - Sort by repository name
314 
   Display control
 330 
   Display control
315 
    -tail=nn           - Display last nn items
 331 
    -tail=nn           - Display last nn items
316 
    -byname            - Only display package names
 332 
    -byname            - Only display package names
317 
    -byfullname        - Only display package names and repo
 333 
    -byfullname        - Only display package names and repo
318 
   Process control
 334 
   Process control