#!/usr/bin/perl -w

use strict;
use warnings;
use Gear::Remotes;
use Getopt::Long;

my $action='gear-uupdate';
my $verbose=1;
my ($help);

my $result = GetOptions (
    'verbose+' => \$verbose,
    'q|quiet'  => sub {$verbose=0},
    'h|help'   => \$help,
    'action=s'   => \$action,
    );

&Gear::Remotes::Helper::watch_remotes(
    -action => $action,
    -verbose => $verbose,
    );
