first pass at BarnOwl filteredit command

barnowl-filteredit.pl

#!/usr/bin/env perl

use warnings;
use strict;

sub cmd_filteredit {
    my $cmd = shift;
    my $filtername = shift;

    my $filter = BarnOwl::getfilter($filtername);
    chomp $filter;
    BarnOwl::command("start-command filter " . $filter);
}

BarnOwl::new_command('filteredit' => \&cmd_filteredit, {
    summary             => 'edit the named filter',
    usage               => 'filteredit FILTERNAME',
    description         => 'Edit the named filter'
    });

1;