Subversion Repositories DevTools

Rev

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

Rev 2764 Rev 3347
Line 43... Line 43...
43
my $opt_tail;
43
my $opt_tail;
44
my $opt_ageorder;
44
my $opt_ageorder;
45
my $opt_ageorderUser;
45
my $opt_ageorderUser;
46
my $opt_reposort;
46
my $opt_reposort;
47
my $opt_onlyName;
47
my $opt_onlyName;
-
 
48
my $opt_onlyFullName;
48
my $opt_touch;
49
my $opt_touch;
49
my $opt_available;
50
my $opt_available;
50
my $opt_all;
51
my $opt_all;
51
 
52
 
52
my %excludeRepos;
53
my %excludeRepos;
Line 71... Line 72...
71
                'tail:i'        => \$opt_tail,
72
                'tail:i'        => \$opt_tail,
72
                'byage'         => \$opt_ageorder,
73
                'byage'         => \$opt_ageorder,
73
                'byuser'        => \$opt_ageorderUser,
74
                'byuser'        => \$opt_ageorderUser,
74
                'byrepo'        => \$opt_reposort,
75
                'byrepo'        => \$opt_reposort,
75
                'byname'        => \$opt_onlyName,
76
                'byname'        => \$opt_onlyName,
-
 
77
                'byfullname'    => \$opt_onlyFullName,
76
                'svn'           => \$opt_svn,            # Include SVNed packages
78
                'svn'           => \$opt_svn,            # Include SVNed packages
77
                'touch:s'       => \$opt_touch,
79
                'touch:s'       => \$opt_touch,
78
                'available:s'   => \$opt_available,
80
                'available:s'   => \$opt_available,
79
                'all'           => \$opt_all,
81
                'all'           => \$opt_all,
80
                );
82
                );
Line 242... Line 244...
242
                print  $lastRepo,"\n";
244
                print  $lastRepo,"\n";
243
            }
245
            }
244
        }
246
        }
245
        print "$prefix$pkgname\n";
247
        print "$prefix$pkgname\n";
246
    }
248
    }
-
 
249
    elsif ($opt_onlyFullName)
-
 
250
    {
-
 
251
        printf ("%-45s %s\n", $pkgname, $entry->{repo} );
-
 
252
    }
247
    else
253
    else
248
    {
254
    {
249
 
255
 
250
        my $repo = $entry->{repo};
256
        my $repo = $entry->{repo};
251
        my $svn = $entry->{SVN} ? 'SVN' : '---';
257
        my $svn = $entry->{SVN} ? 'SVN' : '---';
Line 306... Line 312...
306
    -byuser            - Sort by last User Mode age
312
    -byuser            - Sort by last User Mode age
307
    -byprepo           - Sort by repository name
313
    -byprepo           - Sort by repository name
308
   Display control
314
   Display control
309
    -tail=nn           - Display last nn items
315
    -tail=nn           - Display last nn items
310
    -byname            - Only display package names
316
    -byname            - Only display package names
-
 
317
    -byfullname        - Only display package names and repo
311
   Process control
318
   Process control
312
    -touch=path        - Create a file named after the package
319
    -touch=path        - Create a file named after the package
313
                         Delete 'available' marker file
320
                         Delete 'available' marker file
314
 
321
 
315
=head1 OPTIONS
322
=head1 OPTIONS