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