summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
046f92a)
Possibly need to refine this.. Maybe rename to ::log.
- * $Id: SimpleServer.xs,v 1.34 2004-09-03 13:27:19 mike Exp $
+ * $Id: SimpleServer.xs,v 1.35 2005-11-09 09:35:47 adam Exp $
* ----------------------------------------------------------------------
*
* Copyright (c) 2000-2004, Index Data.
* ----------------------------------------------------------------------
*
* Copyright (c) 2000-2004, Index Data.
+void
+yazlog(arg)
+ SV *arg
+ CODE:
+ STRLEN len;
+ char *ptr;
+ ptr = SvPV(arg, len);
+ yaz_log(YLOG_LOG, "%.*s", len, ptr);
-## $Id: ztest.pl,v 1.13 2004-05-28 20:27:16 sondberg Exp $
+## $Id: ztest.pl,v 1.14 2005-11-09 09:35:47 adam Exp $
## ------------------------------------------------------------------
##
## Copyright (c) 2000-2004, Index Data.
## ------------------------------------------------------------------
##
## Copyright (c) 2000-2004, Index Data.
+Net::Z3950::SimpleServer::yazlog("hello");
my $handler = new Net::Z3950::SimpleServer(
INIT => "main::my_init_handler",
my $handler = new Net::Z3950::SimpleServer(
INIT => "main::my_init_handler",