ARSperl
view release on metacpan or search on metacpan
(void) ARError_reset();
#ifdef PROFILE
/* XXX
This is something of a hack... a safemalloc will always
complain about differing structures. However, it's
pretty deep into the code. Perhaps a static would be cleaner?
*/
ctrl = (ARControlStruct *)MALLOCNN(sizeof(ars_ctrl));
Zero(ctrl, 1, ars_ctrl);
((ars_ctrl *)ctrl)->queries = 0;
((ars_ctrl *)ctrl)->startTime = 0;
((ars_ctrl *)ctrl)->endTime = 0;
#else
DBG( ("safemalloc ARControlStruct\n") );
ctrl = (ARControlStruct *)safemalloc(sizeof(ARControlStruct));
/* DBG( ("malloc ARControlStruct\n") );
ctrl = (ARControlStruct *)MALLOCNN(sizeof(ARControlStruct)); */
Zero(ctrl, 1, ARControlStruct);
#endif
#ifdef PROFILE
if (gettimeofday(&tv, 0) != -1)
((ars_ctrl *)ctrl)->startTime = tv.tv_sec;
else
perror("gettimeofday");
#endif
ctrl->cacheId = 0;
#if AR_EXPORT_VERSION >= 4
ctrl->sessionId = 0;
#endif
ctrl->operationTime = 0;
strncpy(ctrl->user, username, sizeof(ctrl->user));
ctrl->user[sizeof(ctrl->user)-1] = 0;
ars_GetProfileInfo(ctrl)
ARControlStruct * ctrl
CODE:
{
RETVAL = newHV();
sv_2mortal( (SV*) RETVAL );
(void) ARError_reset();
#ifdef PROFILE
hv_store(RETVAL, "queries", strlen("queries") ,
newSViv(((ars_ctrl *)ctrl)->queries), 0);
hv_store(RETVAL, "startTime", strlen("startTime") ,
newSViv(((ars_ctrl *)ctrl)->startTime), 0);
#else /* profiling not compiled in */
(void) ARError_add( AR_RETURN_ERROR, AP_ERR_OPT_NA,
"Optional profiling code not compiled into this build of ARSperl");
#endif
}
OUTPUT:
RETVAL
void
ars_Logoff(ctrl)
StructDef.pl view on Meta::CPAN
_data => 'p->recursiveSchemaAlias',
},
queryFromList => {
_type => 'ARMultiSchemaQueryFromList',
_data => 'p->queryFromList',
},
getListFields => {
_type => 'ARMultiSchemaFieldIdList',
_data => 'p->getListFields',
},
startQual => {
_type => 'ARMultiSchemaQualifierStruct*',
_data => 'p->startQual',
},
recursionQual => {
_type => 'ARMultiSchemaQualifierStruct*',
_data => 'p->recursionQual',
},
levelsToRetrieve => {
_type => 'int',
_data => 'p->levelsToRetrieve',
},
},
StructDef.pl view on Meta::CPAN
_data => 'p->recursiveSchemaAlias',
},
queryFromList => {
_type => 'ARMultiSchemaFuncQueryFromList',
_data => 'p->queryFromList',
},
getListFuncs => {
_type => 'ARMultiSchemaFieldFuncList',
_data => 'p->getListFuncs',
},
startQual => {
_type => 'ARMultiSchemaQualifierStruct*',
_data => 'p->startQual',
},
recursionQual => {
_type => 'ARMultiSchemaQualifierStruct*',
_data => 'p->recursionQual',
},
levelsToRetrieve => {
_type => 'int',
_data => 'p->levelsToRetrieve',
},
groupBy => {
html/copying.html view on Meta::CPAN
stating that you changed the files and the date of any change.<p>
<dt>b)
<dd>You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.<p>
<dt>c)
<dd>If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)<p>
</dl>
html/copying.html view on Meta::CPAN
</dl>
<center><p align=center>END OF TERMS AND CONDITIONS</p></center>
<hr>
<center><h2 align=center>Appendix: How to Apply These Terms to Your New Programs</h2></center>
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.<p>
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.<p>
<dl>
<dd><one line to give the program's name and a brief idea of what it does.><br>
Copyright (C) 19yy <name of author><p>
<dd>This program 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; either version 2 of the License, or
html/copying.html view on Meta::CPAN
GNU General Public License for more details.<p>
<dd>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., 675 Mass Ave, Cambridge, MA 02139, USA.<p>
</dl>
Also add information on how to contact you by electronic and paper mail.<p>
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:<p>
<dl>
<dd><tt>Gnomovision version 69, Copyright (C) 19yy name of author<br>
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.<br>
This is free software, and you are welcome to redistribute it<br>
under certain conditions; type `show c' for details.<p></tt>
</dl>
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
html/manual/ars_GetListEntry.html view on Meta::CPAN
<p>
The sorting type can be 1 for ascending, or 2 for descending. Also, note that if you want to
retain the order of the entry ids returned, then you must assign the list to an array, and
not a hash.
</p>
<p>
Setting <code>maxRetrieve = 0</code> will return as many matches as the server will allow.
This is the default.
</p>
<p>
<code>firstRetrieve</code> specifies which entry to start with. The default (zero) is to
start with the first entry that matches the qualifier.
</p>
<p></p>
<dl>
<dt class="c1">
On success
</dt>
<dd>
Returns a list of <i>(entry_id, resultslist)</i> pairs.
</dd>
<dt class="c1">
html/manual/ars_GetProfileInfo.html view on Meta::CPAN
<H2><CODE>ars_GetProfileInfo(ctrl)</CODE></H2>
<A HREF="ds_profile_hash.html">Returns a HASH</A> consisting of ARSperl profiling statistics.
<P>
Here is an example:<P>
<PRE>
%profile = ars_GetServerStatistics($ctrl);
print "startTime= ".$profile->{startTime}." queries=".$profile->{queries}."\n";
</PRE>
<DL>
<DT><B>On success</B><DD>
returns a HASH
<DT><B>On failure</B><DD>
returns undef
</DL>
<P>
html/manual/ars_SetLogging.html view on Meta::CPAN
<DL>
<DT><B>On success</B><DD>
returns 1
<DT><B>On failure</B><DD>
returns 0
</DL>
<P>Example:
<PRE>
# start filter and sql logging
# (the logfile gets opened for appending)
ars_SetLogging( $c, ARS::AR_DEBUG_SERVER_FILTER | ARS::AR_DEBUG_SERVER_SQL,
"/var/log/filter_sql.log" ) ||
die ("SetLogging (start): $ars_errstr");
# call any ARS API function
my $id = ars_CreateEntry( $c, "User", 101 => "TestUser", 109 => 1 );
# stop logging (specify logTypeMask = 0 and no file)
# (the logfile gets closed)
ars_SetLogging( $c, 0 ) ||
die ("SetLogging (end): $ars_errstr");
</PRE>
html/manual/ds_profile_hash.html view on Meta::CPAN
<HTML>
<HEAD>
<TITLE>ARSperl Manual - GetProfile Hash</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H2>GetProfile Hash</H2>
<PRE>
{
"startTime" => integer,
"queries" => integer
}
</PRE>
<P>
<HR WIDTH="30%">
<P>
<A HREF="toc.html"><IMG ALT="<--" SRC="arrow.gif" ALIGN=CENTER> Table of Contents </A>
<p>
<address>
support-h.template view on Meta::CPAN
#endif
typedef struct {
unsigned int numItems;
void *array;
} ARList;
typedef struct {
ARControlStruct ctrl;
int queries;
long startTime;
long endTime;
} ars_ctrl;
#define TYPEMAP_LAST 0xFFFFFFFFL
typedef struct {
unsigned int number;
char *name;
} TypeMapStruct;
supportrev_generated.c view on Meta::CPAN
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"levelsToRetrieve\"" );
return -1;
}
}
{
SV **val;
strncpy( k, "startQual", 255 );
val = hv_fetch( h, "startQual", 9, 0 );
if( val && *val && SvOK(*val) ){
{
p->startQual = MALLOCNN(sizeof(ARMultiSchemaQualifierStruct)); rev_ARMultiSchemaQualifierStruct( ctrl, h, k, p->startQual );
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"startQual\"" );
return -1;
}
}
{
SV **val;
strncpy( k, "groupBy", 255 );
val = hv_fetch( h, "groupBy", 7, 0 );
if( val && *val && SvOK(*val) ){
supportrev_generated.c view on Meta::CPAN
if( SvTYPE(SvRV(*val)) == SVt_PVHV ){
int i = 0, num = 0;
HV *h = (HV* ) SvRV((SV*) *val);
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "startQual", 255 );
val = hv_fetch( h, "startQual", 9, 0 );
if( val && *val && SvOK(*val) ){
{
p->startQual = MALLOCNN(sizeof(ARMultiSchemaQualifierStruct)); rev_ARMultiSchemaQualifierStruct( ctrl, h, k, p->startQual );
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"startQual\"" );
return -1;
}
}
{
SV **val;
strncpy( k, "queryFromList", 255 );
val = hv_fetch( h, "queryFromList", 13, 0 );
if( val && *val && SvOK(*val) ){
t/aptest51.def view on Meta::CPAN
vui {
id : 536873337
name : TEST_FixedWebView
label : TEST_FixedWebView
timestamp : 1225458854
vui-locale : fr_FR
vui-type : 3
owner : Demo
last-changed : Demo
display-prop : 6\20\4\17\TEST_FixedWebView\264\6\0\251\6\0\252\6\0\60019\4\16\TestFixedWebView\83\4\1125\<HTML>
<HEAD>
<%@ page contentType="text/html; charset=win
display-prop : dows-1252"%><%@ taglib uri="remedy_arsys" prefix="arsys" %><arsys:preamble /></HEAD>
<BODY><!--METADATA TYPE="DesignerControl" startspan
<OBJECT cla
display-prop : ssid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=1600 height=20>
<PARAM NAME="ARType" VALUE="26">
<PARAM NAME="ViewID" VALUE="536873337">
display-prop : </OBJECT>-->
<arsys:open_services>
<arsys:form server="@@SERVER@@" name="@@FORM@@" vuiid="536873337"/>
</arsys:open_services><!--METADAT
display-prop : A TYPE="DesignerControl" endspan--><!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=
display-prop : 900 height=50>
<PARAM NAME="ARType" VALUE="31">
<PARAM NAME="Form" VALUE="ARSperl Test3">
</OBJECT>--><arsys:form_view/><!--METADATA TYPE=
display-prop : "DesignerControl" endspan--><!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=1600 he
display-prop : ight=20>
<PARAM NAME="ARType" VALUE="27">
</OBJECT>--><arsys:close_services/><!--METADATA TYPE="DesignerControl" endspan--></BODY>
</HTML>
\
display-prop :
}
field {
id : 1
name : Request-ID
datatype : 4
fieldtype : 1
create-mode : 2
option : 3
( run in 0.336 second using v1.01-cache-2.11-cpan-0d8aa00de5b )