1package Vimana::Command::Update; 2use warnings; 3use strict; 4 5use URI; 6use base qw(App::CLI::Command); 7use Vimana::Logger; 8 9sub options { 10 ( 11 'v|verbose' => 'verbose', 12 ); 13} 14 15 16require Vimana::VimOnline; 17require Vimana::VimOnline::Search; 18require Vimana::VimOnline::ScriptPage; 19 20sub fetch_index { 21 return Vimana::VimOnline::Search->fetch( 22 keyword => '', 23 show_me => 3000, 24 order_by => 'creation_date', 25 direction => 'ascending' 26 ); 27} 28 29 30sub run { 31 my ($self, @args ) = @_; 32 $logger->info("Fetching..."); 33 my $results = fetch_index(); 34 35 my $index = Vimana->index(); 36 $index->update( $results ); 37 38 # XXX: check installed packages , calcuate outdated items 39} 40 41 42 431; 44