Changeset 10322


Ignore:
Timestamp:
2008-01-30T10:22:05+01:00 (8 years ago)
Author:
ralph
Message:
  • added package list function -r list packages of specified feed -s list the feed names only and their URL
  • refresh of usage text

-d-This line, and those below, will be ignored--

M feeds

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/feeds

    r10281 r10322  
    143143} 
    144144 
    145  
    146145sub search { 
    147146        my %opts; 
     
    151150                search_feed($feed->[1], @ARGV) if (!defined($opts{r}) or $opts{r} eq $feed->[1]); 
    152151        } 
     152} 
     153 
     154sub list_feed { 
     155        my $feed = shift; 
     156 
     157        get_feed($feed); 
     158        foreach my $name (sort { lc($a) cmp lc($b) } keys %package) { 
     159                my $pkg = $package{$name}; 
     160                if($pkg->{name}) { 
     161                        printf "\%-32s\t\%s\n", $pkg->{name}, $pkg->{title}; 
     162                } 
     163        } 
     164 
     165        return 0; 
     166} 
     167 
     168sub list { 
     169        my %opts; 
     170 
     171        getopts('r:sh', \%opts); 
     172        if ($opts{h}) { 
     173                usage(); 
     174                return 0; 
     175        } 
     176        if ($opts{s}) { 
     177                foreach my $feed (@feeds) { 
     178                        printf "\%-32s\tURL: %s\n", $feed->[1], $feed->[2]; 
     179                } 
     180                return 0; 
     181        } 
     182        foreach my $feed (@feeds) { 
     183                list_feed($feed->[1], @ARGV) if (!defined($opts{r}) or $opts{r} eq $feed->[1]); 
     184        } 
     185        return 0; 
    153186} 
    154187 
     
    333366 
    334367Commands: 
     368        list [options]: List feeds and their content 
     369        Options: 
     370            -s :           List of feed names and their URL. 
     371            -r <feedname>: List packages of specified feed. 
     372 
    335373        install [options] <package>: Install a package 
    336374        Options: 
    337             -a installs all packages from all feeds or from the specified feed 
    338             -p <feedname>: Prefer this feed when installing packages 
    339             -d <y|m|n>:    Set default for newly installed packages 
     375            -a :           Install all packages from all feeds or from the specified feed using the -p option. 
     376            -p <feedname>: Prefer this feed when installing packages. 
     377            -d <y|m|n>:    Set default for newly installed packages. 
    340378 
    341379        search [options] <substring>: Search for a package 
     
    344382 
    345383        uninstall -a|<package>: Uninstall a package 
    346             -a uninstalls all packages 
    347  
    348         update: Update packages and lists of feeds in feeds.list 
    349         clean: Remove downloaded/generated files 
     384            -a :           Uninstalls all packages. 
     385 
     386        update:            Update packages and lists of feeds in feeds.conf . 
     387 
     388        clean:             Remove downloaded/generated files. 
    350389 
    351390EOF 
     
    361400 
    362401my %commands = ( 
     402        'list' => \&list, 
    363403        'update' => sub { 
    364404                -d "feeds" or do { 
Note: See TracChangeset for help on using the changeset viewer.