1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
<?vsp
--
-- $Id$
--
-- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
-- project.
--
-- Copyright (C) 1998-2018 OpenLink Software
--
-- This project is free software; you can redistribute it and/or modify it
-- under the terms of the GNU General Public License as published by the
-- Free Software Foundation; only version 2 of the License, dated June 1991.
--
-- This program is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- General Public License for more details.
--
-- You should have received a copy of the GNU General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
--
http_rewrite ();
http_request_status ('HTTP/1.1 200 OK');
http_flush ();
declare domain_id, user_id, msg_id, error integer;
declare scopy, options, settings, address any;
domain_id := cast(get_keyword('did', params, '0') as integer);
user_id := cast(get_keyword('uid', params, '0') as integer);
msg_id := cast(get_keyword('mid', params, '0') as integer);
address := get_keyword('addr', params);
settings := OMAIL.WA.omail_get_settings (domain_id, user_id, 'base_settings');
scopy := get_keyword ('save_copy', settings, '1');
options := vector ('scopy', scopy);
OMAIL.WA.omail_send_msg(domain_id, user_id, options, msg_id, address, error);
?>
|
