Changeset dab82f29 for perlconfig.c
- Timestamp:
- Mar 28, 2009, 5:00:34 PM (16 years ago)
- Branches:
- owl
- Children:
- 4de643d
- Parents:
- 5189631
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r4e0f545 rdab82f29 1 /* Copyright (c) 2002,2003,2004,2009 James M. Kretchmar 2 * 3 * This file is part of Owl. 4 * 5 * Owl is free software: you can redistribute it and/or modify 6 * it under the terms of the GNU General Public License as published by 7 * the Free Software Foundation, either version 3 of the License, or 8 * (at your option) any later version. 9 * 10 * Owl is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * 15 * You should have received a copy of the GNU General Public License 16 * along with Owl. If not, see <http://www.gnu.org/licenses/>. 17 * 18 * --------------------------------------------------------------- 19 * 20 * As of Owl version 2.1.12 there are patches contributed by 21 * developers of the the branched BarnOwl project, Copyright (c) 22 * 2006-2008 The BarnOwl Developers. All rights reserved. 23 */ 24 1 25 #include <stdio.h> 2 26 #include <stdlib.h> … … 74 98 hv_store(h, "id", strlen("id"), newSViv(owl_message_get_id(m)),0); 75 99 hv_store(h, "deleted", strlen("deleted"), newSViv(owl_message_is_delete(m)),0); 100 hv_store(h, "private", strlen("private"), newSViv(owl_message_is_private(m)),0); 76 101 77 102 if (owl_message_is_type_zephyr(m)) blessas = "owl::Message::Zephyr"; … … 325 350 char *ptr = NULL; 326 351 if (owl_perlconfig_is_function("owl::receive_msg")) { 327 owl_perlconfig_call_with_message(subname?subname352 ptr = owl_perlconfig_call_with_message(subname?subname 328 353 :"owl::_receive_msg_legacy_wrap", m); 329 354 }
Note: See TracChangeset
for help on using the changeset viewer.