1 package FS::part_export::status_shellcommands;
2 use base qw( FS::part_export::shellcommands );
7 tie my %options, 'Tie::IxHash',
8 'user' => { label=>'Remote username', default=>'root' },
10 'spam_enable' => { label=>'Spam filtering enable command', },
11 'spam_disable' => { label=>'Spam filtering disable command', },
12 'spam_tag2_level' => { label=>'Spam set tag2 level command', },
13 'spam_kill_level' => { label=>'Spam set kill level command', },
15 'ignore_all_output' => {
16 label => 'Ignore all output and errors from the command',
23 'desc' => 'Set mailbox status via shell commands',
24 'options' => \%options,
27 Set mailbox status information (vacation and spam settings) with shell commands.
31 #don't want to inherit these from shellcommands
33 sub _export_replace {}
35 sub _export_suspend {}
36 sub _export_unsuspend {}
38 sub export_setstatus {
39 my($self, $svc_acct, $hashref) = @_;
41 $self->_export_command('spam_enable', $svc_acct->email);
43 $self->_export_command('spam_tag2_level', $svc_acct->email, $hashref->{'spam_tag2_level'} );
44 $self->_export_command('spam_kill_level', $svc_acct->email, $hashref->{'spam_kill_level'} );