-/* $Id: perlread.c,v 1.8.2.3 2004-09-06 09:23:51 adam Exp $
+/* $Id: perlread.c,v 1.8.2.5 2006-12-05 21:14:44 adam Exp $
Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
Index Data Aps
for more details.
You should have received a copy of the GNU General Public License
-along with Zebra; see the file LICENSE.zebra. If not, write to the
-Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
*/
#if HAVE_PERL
if (!context->origi) {
context->perli = perl_alloc();
PERL_SET_CONTEXT(context->perli);
- logf (LOG_LOG, "Initializing new perl interpreter context (%p)",context->perli);
+ yaz_log(YLOG_LOG, "Initializing new perl interpreter context (%p)",context->perli);
} else {
- logf (LOG_LOG, "Using existing perl interpreter context (%p)",context->origi);
+ yaz_log(YLOG_LOG, "Using existing perl interpreter context (%p)",context->origi);
}
context->perli_ready = 0;
strcpy(context->filterClass, "");
{
struct perl_context *context = (struct perl_context *) clientData;
- logf (LOG_LOG, "Destroying perl interpreter context");
+ yaz_log(YLOG_LOG, "Destroying perl interpreter context");
if (context->perli_ready) {
/*
FREETMPS;
/* parse, and run the init call */
if (context->origi == NULL) {
- logf (LOG_LOG, "Interpreting filter class:%s", filterClass);
+ yaz_log(YLOG_LOG, "Interpreting filter class:%s", filterClass);
arglist[2] = (char *) data1_get_tabpath(p->dh);
sprintf(modarg,"-M%s",filterClass);
the filter object reference may go out of scope... */
if (!sv_isa(context->filterRef, context->filterClass)) {
Filter_create(context);
- logf (LOG_DEBUG,"Filter recreated");
+ yaz_log(YLOG_DEBUG,"Filter recreated");
}
if (!SvTRUE(context->filterRef))
{
- logf (LOG_WARN,"Failed to initialize perl filter %s",context->filterClass);
+ yaz_log(YLOG_WARN,"Failed to initialize perl filter %s",context->filterClass);
return (0);
}