Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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;
Add Comment
Please, Sign In to add comment