Subversion Repositories DevTools

Rev

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

Rev 2450 Rev 2764
Line 201... Line 201...
201
 
201
 
202
my $count = 0;
202
my $count = 0;
203
my $total = scalar keys %ScmRepoMap;
203
my $total = scalar keys %ScmRepoMap;
204
my @printOrder;
204
my @printOrder;
205
 
205
 
-
 
206
sub sortRepoName
-
 
207
{
-
 
208
    my $rv = lc $ScmRepoMap{$a}{repo} cmp lc $ScmRepoMap{$b}{repo};
-
 
209
    return $rv if ( $rv );
-
 
210
    return $a cmp $b
-
 
211
}
-
 
212
 
206
if ( $opt_ageorderUser ) {
213
if ( $opt_ageorderUser ) {
207
    @printOrder = sort {$ScmRepoMap{$a}{ynr} <=> $ScmRepoMap{$b}{ynr}} keys %ScmRepoMap;
214
    @printOrder = sort {$ScmRepoMap{$a}{ynr} <=> $ScmRepoMap{$b}{ynr}} keys %ScmRepoMap;
208
} elsif ( $opt_ageorder ) {
215
} elsif ( $opt_ageorder ) {
209
    @printOrder = sort {$ScmRepoMap{$a}{youngest} <=> $ScmRepoMap{$b}{youngest}} keys %ScmRepoMap;
216
    @printOrder = sort {$ScmRepoMap{$a}{youngest} <=> $ScmRepoMap{$b}{youngest}} keys %ScmRepoMap;
210
} elsif ( $opt_reposort ) {
217
} elsif ( $opt_reposort ) {
211
    @printOrder = sort {lc $ScmRepoMap{$a}{repo} cmp lc $ScmRepoMap{$b}{repo}} keys %ScmRepoMap;
218
    @printOrder = sort sortRepoName keys %ScmRepoMap;
212
} else {
219
} else {
213
    @printOrder =  sort {$a cmp $b} keys %ScmRepoMap ;
220
    @printOrder =  sort {$a cmp $b} keys %ScmRepoMap ;
214
}
221
}
215
 
222
 
216
 
-
 
-
 
223
my $lastRepo = '';
217
foreach my $pkgname ( @printOrder )
224
foreach my $pkgname ( @printOrder )
218
{
225
{
219
    $count++;
226
    $count++;
220
    if ( $opt_tail && ($count <= ($total - $opt_tail)) )
227
    if ( $opt_tail && ($count <= ($total - $opt_tail)) )
221
    {
228
    {
222
        next;
229
        next;
223
    }
230
    }
224
 
231
 
-
 
232
    my $entry = $ScmRepoMap{$pkgname};
225
    if ( $opt_onlyName )
233
    if ( $opt_onlyName )
226
    {
234
    {
-
 
235
        my $prefix = '';
-
 
236
        if ($opt_reposort)
-
 
237
        {
-
 
238
            $prefix = '    ';
-
 
239
            if ( $entry->{repo} ne $lastRepo )
-
 
240
            {
-
 
241
                $lastRepo =  $entry->{repo};
-
 
242
                print  $lastRepo,"\n";
-
 
243
            }
-
 
244
        }
227
        print "$pkgname\n";
245
        print "$prefix$pkgname\n";
228
    }
246
    }
229
    else
247
    else
230
    {
248
    {
231
        my $entry = $ScmRepoMap{$pkgname};
-
 
232
 
249
 
233
        my $repo = $entry->{repo};
250
        my $repo = $entry->{repo};
234
        my $svn = $entry->{SVN} ? 'SVN' : '---';
251
        my $svn = $entry->{SVN} ? 'SVN' : '---';
235
        my $prot = $entry->{protected} ? $entry->{protected} :' ';
252
        my $prot = $entry->{protected} ? $entry->{protected} :' ';
236
        $prot =~ m~(.)~;
253
        $prot =~ m~(.)~;
Line 278... Line 295...
278
    -verbose           - Enable verbosity
295
    -verbose           - Enable verbosity
279
   Package Selection
296
   Package Selection
280
    -svn               - Include packages in SVN too
297
    -svn               - Include packages in SVN too
281
    -repo=name         - Select named repos (default all)
298
    -repo=name         - Select named repos (default all)
282
    -excludeRepo=name  - Exclude repos
299
    -excludeRepo=name  - Exclude repos
283
    -last=nn           - Select last build > nn
300
    -age=nn            - Select last build age > nn
284
    -user=nn           - Select last user > nn
301
    -user=nn           - Select last user build age> nn
285
    -available=path    - Select if in named directory
302
    -available=path    - Select if in named directory
286
    -all               - Include Protected and Broken packages
303
    -all               - Include Protected and Broken packages
287
   Output Sorting
304
   Output Sorting
288
    -byage             - Sort by last build age
305
    -byage             - Sort by last build age
289
    -byuser            - Sort by last User Mode age
306
    -byuser            - Sort by last User Mode age