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