#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Long;
use WWW::Moreshet;

my %opts;
usage() if not @ARGV;
GetOptions(\%opts, 
        'user=s', 'password=s', 
        'list', 
        'mode=s',
        'help',
) or usage();
usage() if $opts{help};

my $w = WWW::Moreshet->new();
$w->login($opts{user}, $opts{password});

if ($opts{list}) {
    $w->list_sites();
    exit;
}

if ($opts{mode}) {
    $w->set_mode($opts{mode});
}

sub usage {
    print <<"END_USAGE";
Moreshet filter configuration $WWW::Moreshet::VERSION

Usage: $0
        --help


        --user      USERNAME
        --password  PASSWORD

        --list                   list urls
        --mode      MODE_NUMBER  set the given mode

        modes:
END_USAGE
    my %MODE = $w->modes_hash;
    foreach my $mode (sort {$a <=> $b} keys %MODE) {
        print "            $mode  $MODE{$mode}\n";
    }
    exit;
}