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