Bivio::Biz::Action::MailForward
# Copyright (c) 2006-2014 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Biz::Action::MailForward;
use strict;
use Bivio::Base 'Biz.Action';
b_use('IO.ClassLoaderAUTOLOAD');
sub REWRITE_FROM_DOMAIN_URI {
return 'user';
}
sub execute {
return _execute(shift, shift);
}
sub execute_rewrite_from_domain {
my($proto, $req) = @_;
return _execute($proto, $req, Model_Email()->new($req)->load->get('email'));
}
sub _execute {
my(undef, $req, $recipient) = @_;
my($mr) = $req->get('Model.MailReceiveDispatchForm');
Mail_Outgoing()->new(
Mail_Incoming()->new($mr->get('message')->{content}),
)->set_recipients(
$recipient || $mr->get('recipient'),
$req,
)->set_headers_for_forward(
$mr->unsafe_get('email_alias_incoming'),
$req,
)->enqueue_send($req);
return;
}
1;