Result:
found 674 distributions and 1899 files matching your query !
( run in 0.459 )
AC-MrGamoo
view release on metacpan or search on metacpan
lib/AC/MrGamoo/AC/FileList.pm view on Meta::CPAN
use AC::ISOTime;
use AC::Yenta::Direct;
use JSON;
use strict;
my $YDBFILE = "/home/acdata/logfile.ydb";
# return an array of:
# {
# filename => www/2010/01/17/23/5943_prod_5x2N5qyerdeddsNi
# location => [ scrib@a2be021bd31c, scrib@a2be021ad31c ]
AC-Yenta
view release on metacpan or search on metacpan
lib/AC/Yenta.pm view on Meta::CPAN
to configure the same set of maps on all servers. maps should be
configured similarly on all servers that they are on.
map users {
backend bdb
dbfile /home/acdata/users.ydb
history 4
}
=back
AFS-PAG
view release on metacpan or search on metacpan
kafs/sys-linux.c view on Meta::CPAN
/*
* The struct passed to ioctl to do an AFS system call. Definition taken from
* the afs/afs_args.h OpenAFS header.
*/
struct afsprocdata {
long param4;
long param3;
long param2;
long param1;
long syscall;
kafs/sys-linux.c view on Meta::CPAN
*/
static int
k_syscall(long call, long param1, long param2, long param3, long param4,
int *rval)
{
struct afsprocdata syscall_data;
int fd, oerrno;
fd = open("/proc/fs/openafs/afs_ioctl", O_RDWR);
if (fd < 0)
fd = open("/proc/fs/nnpfs/afs_ioctl", O_RDWR);
Acme-MetaSyntactic-Themes
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
net2display
net8_cman
netadmin
netagent
netangel
netapp_icdata
netapp_icmgmt
netapp_sync
netarx
netaspi
netassistant
Algorithm-CheckDigits
view release on metacpan or search on metacpan
lib/Algorithm/CheckDigits/MBase_001.pm view on Meta::CPAN
L<perl>,
L<CheckDigits>,
F<www.pruefziffernberechnung.de>,
F<www.export911.com/e911/coding/upcChar.htm>,
F<www.adams1.com/pub/russadam/upccode.html>,
F<http://www.upcdatabase.com>.
=cut
Algorithm-Cluster
view release on metacpan or search on metacpan
perl/Cluster.xs view on Meta::CPAN
SV * clusterid_ref;
int transpose;
char * method;
PREINIT:
SV * cdata_ref;
SV * cmask_ref;
int * clusterid;
double ** matrix;
int ** mask;
double ** cdata;
int ** cmask;
int cnrows = 0; /* Initialize to make the compiler shut up */
int cncols = 0; /* Initialize to make the compiler shut up */
int i;
perl/Cluster.xs view on Meta::CPAN
croak("failed to read input data for _clustercentroids\n");
}
/* ------------------------
* Create the output variables cdata and cmask.
*/
i = 0;
cdata = malloc(cnrows * sizeof(double*));
cmask = malloc(cnrows * sizeof(int*));
if (cdata && cmask) {
for ( ; i < cnrows; i++) {
cdata[i] = malloc(cncols*sizeof(double));
cmask[i] = malloc(cncols*sizeof(int));
if (!cdata[i] || !cmask[i]) break;
}
}
if (i < cnrows)
{
if (cdata[i]) free(cdata[i]);
if (cmask[i]) free(cmask[i]);
while (--i >= 0) {
free(cdata[i]);
free(cmask[i]);
}
if (cdata) free(cdata);
if (cmask) free(cmask);
free(clusterid);
free_matrix_int(mask, nrows);
free_matrix_dbl(matrix, nrows);
croak("memory allocation failure in _clustercentroids\n");
perl/Cluster.xs view on Meta::CPAN
* Run the library function
*/
ok = getclustercentroids(
nclusters, nrows, ncols,
matrix, mask, clusterid,
cdata, cmask, transpose, method[0]);
if (ok) {
/* ------------------------
* Convert generated C matrices to Perl matrices
*/
cdata_ref = matrix_c2perl_dbl(aTHX_ cdata, cnrows, cncols);
cmask_ref = matrix_c2perl_int(aTHX_ cmask, cnrows, cncols);
/* ------------------------
* Push the new Perl matrices onto the return stack
*/
XPUSHs(sv_2mortal( cdata_ref ));
XPUSHs(sv_2mortal( cmask_ref ));
}
/* ------------------------
* Free what we've malloc'ed
*/
free_matrix_int(mask, nrows);
free_matrix_dbl(matrix, nrows);
free_matrix_int(cmask, cnrows);
free_matrix_dbl(cdata, cnrows);
free(clusterid);
if (!ok) {
croak("memory allocation failure in _clustercentroids\n");
}
Alien-BWIPP
view release on metacpan or search on metacpan
share/barcode.ps view on Meta::CPAN
% uk.co.terryburton.bwipp/hibccode128 0.0 2014073001
%%EndData
%%EndResource
% --END ENCODER hibccode128--
% --BEGIN ENCODER hibcdatamatrix--
% --REQUIRES preamble raiseerror renmatrix datamatrix--
% --DESC: HIBC Data Matrix
% --EXAM: A123BJC5D6E71
% --EXOP:
% --RNDR: renmatrix
%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrix 0.0 2014073001 65577 65249
%%BeginData: 30 ASCII Lines
currentfile /ASCII85Decode filter cvx exec
06:]HE+*6lBl7RH \pKT_ @s)g4 ASuU/ @: O(e DJ()6E ckq9F(K
H4@:O(eDJ+B\</: R<2 3KpPE a`['A S# n&D fV" #06M
%_@rEuAATDg:@W c^5Df .1 :GA2# 8P1l (D OuP +8ASu ?nF E2)?O uP+;
share/barcode.ps view on Meta::CPAN
RfLsF`!:7P'CnaFD5Z2F,gN:Df0Z-Eaa06EckrVG].PCBl@m1NX^/?Ch[EgFCerqARfLf@;L!r
P'AWgEbBG9@UX:eDe*E%DfBf4Df0VL04\L5@;TFpEbTc]5E[g2EbBHR")i.#DfBf4Df0WZG[YW
*F!,"3DKKE0@<[lR0/%?WDJ`g(EbTc]<0B7iOq*X205,'/@q9"i@;TFpEbTc]30If*F_`U>D_?
-CEcQG7F`MSBDD#CBBlJ#6A7]@eDImj"F)Q2A@qCgGOuY1:ATVm"@r#drB9KiQP'(hWFDtYuCM
@[!I?IP~>
% uk.co.terryburton.bwipp/hibcdatamatrix 0.0 2014073001
%%EndData
%%EndResource
% --END ENCODER hibcdatamatrix--
% --BEGIN ENCODER hibcpdf417--
% --REQUIRES preamble raiseerror renmatrix pdf417--
% --DESC: HIBC PDF417
% --EXAM: A123BJC5D6E71
Alien-Base
view release on metacpan or search on metacpan
lib/Alien/Base.pm view on Meta::CPAN
my $name = $self->config('name');
require Alien::Base::PkgConfig;
my $command = Alien::Base::PkgConfig->pkg_config_command . " @{[ $static ? '--static' : '' ]} --\L$keyword\E $name";
$! = 0;
chomp ( my $pcdata = capture_merged { system( $command ) } );
# if pkg-config fails for whatever reason, then we try to
# fallback on alien_provides_*
$pcdata = '' if $! || $?;
$pcdata =~ s/\s*$//;
if($self->config('system_provides')) {
if(my $system_provides = $self->config('system_provides')->{$keyword}) {
$pcdata = length $pcdata ? "$pcdata $system_provides" : $system_provides;
}
}
return $pcdata;
}
# use parsed info from build .pc file
my $dist_dir = $self->dist_dir;
my @pc = $self->_pkgconfig(@_);
Alien-Build
view release on metacpan or search on metacpan
lib/Alien/Base.pm view on Meta::CPAN
my $name = $self->config('name');
require Alien::Base::PkgConfig;
my $command = Alien::Base::PkgConfig->pkg_config_command . " @{[ $static ? '--static' : '' ]} --\L$keyword\E $name";
$! = 0;
chomp ( my $pcdata = capture_stdout { system( $command ) } );
# if pkg-config fails for whatever reason, then we try to
# fallback on alien_provides_*
$pcdata = '' if $! || $?;
$pcdata =~ s/\s*$//;
if($self->config('system_provides')) {
if(my $system_provides = $self->config('system_provides')->{$keyword}) {
$pcdata = length $pcdata ? "$pcdata $system_provides" : $system_provides;
}
}
return $pcdata;
}
# use parsed info from build .pc file
my $dist_dir = $self->dist_dir;
my @pc = $self->_pkgconfig(@_);
Alien-FreeImage
view release on metacpan or search on metacpan
src/Source/LibJXR/jxrgluelib/JXRMeta.c view on Meta::CPAN
ofsInteroperabilityIFD = value;
}
else
{
U32 ofsdstdata = ofsdstdir + 2 * sizeof(U16) + sizeof(U32);
U32 ofssrcdata = ofssrcdir + 2 * sizeof(U16) + sizeof(U32);
size = count * IFDEntryTypeSizes[type];
if ( size > 4 )
{
ofssrcdata = value;
Call(setbfdw(pbdst, cbdst, ofsdstdata, ofsdstnextdata));
ofsdstdata = ofsdstnextdata;
ofsdstnextdata += size;
}
FailIf(ofssrcdata + size > cbsrc || ofsdstdata + size > cbdst, WMP_errBufferOverflow);
if ( size == count || endian == WMP_INTEL_ENDIAN )
// size == count means 8-bit data means endian doesn't matter
memcpy(&pbdst[ofsdstdata], &pbsrc[ofssrcdata], size);
else
{ // big endian source and endian matters
U32 j;
switch ( IFDEntryTypeSizes[type] )
{
case 2:
for ( j = 0; j < count; j++ )
{
U16 w;
getbfwbig(pbsrc, cbsrc, ofssrcdata + j * sizeof(U16), &w);
setbfw(pbdst, cbdst, ofsdstdata + j * sizeof(U16), w);
}
break;
case 8:
if ( type == WMP_typDOUBLE )
{
for ( j = 0; j < count; j++ )
{
U32 dwlo;
U32 dwhi;
getbfdwbig(pbsrc, cbsrc, ofssrcdata + j * 8, &dwhi);
getbfdwbig(pbsrc, cbsrc, ofssrcdata + j * 8 + sizeof(U32), &dwlo);
setbfdw(pbdst, cbdst, ofsdstdata + j * 8, dwlo);
setbfdw(pbdst, cbdst, ofsdstdata + j * 8 + sizeof(U32), dwhi);
}
break;
}
src/Source/LibJXR/jxrgluelib/JXRMeta.c view on Meta::CPAN
// RATIONAL's fall through to be handled as LONG's
case 4:
for ( j = 0; j < count; j++ )
{
U32 dw;
getbfdwbig(pbsrc, cbsrc, ofssrcdata + j * sizeof(U32), &dw);
setbfdw(pbdst, cbdst, ofsdstdata + j * sizeof(U32), dw);
}
break;
}
}
src/Source/LibJXR/jxrgluelib/JXRMeta.c view on Meta::CPAN
ofsInteroperabilityIFD = value;
}
else
{
U32 ofsdstdata = ofsdstdir + 2 * sizeof(U16) + sizeof(U32);
U32 ofssrcdata = ofssrcdir + 2 * sizeof(U16) + sizeof(U32);
size = count * IFDEntryTypeSizes[type];
if ( size > 4 )
{
ofssrcdata = value;
Call(setbfdw(pbdst, cbdst, ofsdstdata, ofsdstnextdata));
ofsdstdata = ofsdstnextdata;
ofsdstnextdata += size;
}
FailIf(ofsdstdata + size > cbdst, WMP_errBufferOverflow);
Call(pWS->SetPos(pWS, ofssrcdata));
Call(pWS->Read(pWS, &pbdst[ofsdstdata], size));
}
ofssrcdir += SizeofIFDEntry;
ofsdstdir += SizeofIFDEntry;
}
Alien-IUP
view release on metacpan or search on metacpan
patches/Makefile_im.mingw view on Meta::CPAN
CF_im_jp2 = -c -Wall -O2 -Ilibjasper -I../include -DEXCLUDE_JPG_SUPPORT -DEXCLUDE_MIF_SUPPORT -DEXCLUDE_PNM_SUPPORT -DEXCLUDE_BMP_SUPPORT -DEXCLUDE_PGX_SUPPORT -DEXCLUDE_RAS_SUPPORT -DEXCLUDE_TIFF_SUPPORT -DJAS_GEO_OMIT_PRINTING_CODE -DJAS_WIN_M...
LF_im_jp2 = -lim -lzlib1 -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -luuid -loleaut32 -lole32 -lcomctl32 $(LF_im_jp2_EXTRA)
SLIB_im_jp2 = ../lib/$(BUILDNICK)/libim_jp2.a
DLIB_im_jp2 = ../lib/$(BUILDNICK)/libim_jp2.dll.a
ILIB_im_jp2 = ../lib/$(BUILDNICK)/im_jp2_alien_.dll
OBJS_im_jp2 = ../obj/$(BUILDNICK)/im_jp2/jas_binfile.o ../obj/$(BUILDNICK)/im_jp2/im_format_jp2.o ../obj/$(BUILDNICK)/im_jp2/jas_cm.o ../obj/$(BUILDNICK)/im_jp2/jas_icc.o ../obj/$(BUILDNICK)/im_jp2/jas_init.o ../obj/$(BUILDNICK)/im_jp2/jas_stream.o ....
../obj/$(BUILDNICK)/im_jp2/jas_binfile.o : ./jas_binfile.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/im_format_jp2.o : ./im_format_jp2.cpp ; g++ $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_cm.o : ./libjasper/base/jas_cm.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_icc.o : ./libjasper/base/jas_icc.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_init.o : ./libjasper/base/jas_init.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_stream.o : ./libjasper/base/jas_stream.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_version.o : ./libjasper/base/jas_version.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_debug.o : ./libjasper/base/jas_debug.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_iccdata.o : ./libjasper/base/jas_iccdata.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_malloc.o : ./libjasper/base/jas_malloc.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_string.o : ./libjasper/base/jas_string.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_tmr.o : ./libjasper/base/jas_tmr.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_getopt.o : ./libjasper/base/jas_getopt.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
../obj/$(BUILDNICK)/im_jp2/jas_image.o : ./libjasper/base/jas_image.c ; gcc $(CF_ALL) $(CF_im_jp2) $^ -o $@
Alien-SVN
view release on metacpan or search on metacpan
src/subversion/CHANGES view on Meta::CPAN
memory consumption (#1107), merge of property add (#1109),
'..' relative path (#1111), commit/cleanup/diff3 (#1119),
.svn/entries checksum (#1120), svn commit in / (#1122),
status on uncontrolled directory (#1124), commit message eol
characters (#1126), cat -r PREV (#1134), ra_dav wcprops (#1136)
split XML cdata/attribute encoding (#1118)
Version 0.17.1 (released 22 Jan 2003, revision 4503, branches/0.17.1)
User-visible changes:
Alien-SwaggerUI
view release on metacpan or search on metacpan
share/swagger-ui-bundle.js view on Meta::CPAN
/*!
* https://github.com/Starcounter-Jack/JSON-Patch
* (c) 2017 Joachim Wester
* MIT license
*/
var n=this&&this.__extends||function(e,t){for(var n in t)t.hasOwnProperty(n)&&(e[n]=t[n]);function r(){this.constructor=e}e.prototype=null===t?Object.create(t):(r.prototype=t.prototype,new r)},r=Object.prototype.hasOwnProperty;function o(e,t){return ...
/** @license React v16.8.6
* react-is.production.min.js
*
* Copyright (c) Facebook, Inc. and its affiliates.
*
share/swagger-ui-bundle.js view on Meta::CPAN
*
* Copyright(c) 2016 Gregory Jacobs <greg@greg-jacobs.com>
* MIT License
*
* https://github.com/gregjacobs/Autolinker.js
*/o=[],void 0===(i="function"==typeof(r=function(){var e,t,n,r,o,i,a,s=function(e){e=e||{},this.version=s.version,this.urls=this.normalizeUrlsCfg(e.urls),this.email="boolean"!=typeof e.email||e.email,this.twitter="boolean"!=typeof e.twitter||e.twitt...
//# sourceMappingURL=swagger-ui-bundle.js.map
Alien-Web-ExtJS-V3
view release on metacpan or search on metacpan
share/examples/direct/php/router.php view on Meta::CPAN
$data->data = array($_POST, $_FILES);
}else{
die('Invalid request.');
}
function doRpc($cdata){
global $API;
try {
if(!isset($API[$cdata->action])){
throw new Exception('Call to undefined action: ' . $cdata->action);
}
$action = $cdata->action;
$a = $API[$action];
doAroundCalls($a['before'], $cdata);
$method = $cdata->method;
$mdef = $a['methods'][$method];
if(!$mdef){
throw new Exception("Call to undefined method: $method on action $action");
}
doAroundCalls($mdef['before'], $cdata);
$r = array(
'type'=>'rpc',
'tid'=>$cdata->tid,
'action'=>$action,
'method'=>$method
);
require_once("classes/$action.php");
$o = new $action();
$params = isset($cdata->data) && is_array($cdata->data) ? $cdata->data : array();
$r['result'] = call_user_func_array(array($o, $method), $params);
doAroundCalls($mdef['after'], $cdata, $r);
doAroundCalls($a['after'], $cdata, $r);
}
catch(Exception $e){
$r['type'] = 'exception';
$r['message'] = $e->getMessage();
$r['where'] = $e->getTraceAsString();
}
return $r;
}
function doAroundCalls(&$fns, &$cdata, &$returnData=null){
if(!$fns){
return;
}
if(is_array($fns)){
foreach($fns as $f){
$f($cdata, $returnData);
}
}else{
$fns($cdata, $returnData);
}
}
$response = null;
if(is_array($data)){
Alien-Web-HalBrowser
view release on metacpan or search on metacpan
share/vendor/js/jquery-1.10.2.js view on Meta::CPAN
},
// Contents
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is only affected by element nodes and content nodes(including text(3), cdata(4)),
// not comment, processing instructions, or others
// Thanks to Diego Perini for the nodeName shortcut
// Greater than "@" means alpha characters (specifically not starting with "#" or "?")
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeName > "@" || elem.nodeType === 3 || elem.nodeType === 4 ) {
Alien-cares
view release on metacpan or search on metacpan
libcares/Makefile.netware view on Meta::CPAN
ifeq ($(DB),DEBUG)
@echo $(DL)debug$(DL) >> $@
endif
@echo $(DL)threadname "$^"$(DL) >> $@
ifdef XDCOPT
@echo $(DL)xdcdata $(@:.def=.xdc)$(DL) >> $@
endif
ifeq ($(LDRING),0)
@echo $(DL)flag_on 16$(DL) >> $@
endif
ifeq ($(LDRING),3)
Alt-Crypt-OpenSSL-PKCS12-Broadbean
view release on metacpan or search on metacpan
} else {
alg_print(aTHX_ bio, p7->d.encrypted->enc_data->algorithm, NULL);
}
}
}
bags = PKCS12_unpack_p7encdata(p7, pass, passlen);
} else {
continue;
}
AltaVista-PerlSDK
view release on metacpan or search on metacpan
avs_search_getdatalen
avs_search_getdate
avs_search_getdocid
avs_search_getdocidlen
avs_search_getrelevance
avs_setdocdata
avs_setdocdate
avs_setdocdatetime
avs_setparseflags
avs_setrankval
avs_startdoc
avs_search_getdocidlen(searchHdl)
avs_search_getrelevance(psearchHdl)
avs_setdocdata(idx, pDocData, len)
avs_setdocdate(idx, year, month, day)
avs_setdocdatetime(idx, year, month, day, hour, minute, second)
Amethyst
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
TimeTracker => <reply> $who, TimeTracker is an Athena Widget-based program to keep track of time.. URL: http://www.alvestrand.no/harald/titrax/TimeTracker.html
TiMidity++ => <reply> $who, Experimental MIDI to WAVE converter. URL: http://www.goice.co.jp/member/mo/timidity/
YAX YUGO System => <reply> $who, A basic implementation of the YAX Graphic System. URL: http://yax.netpedia.net/
tinc => <reply> $who, Virtual private network daemon. URL: http://www.nl.linux.org/pub/linux/tinc/
tinlink => <reply> $who, Creates elf binaries with a 74 bytes header - useful for intros (4kb and 64kb). URL: http://sed.free.fr/tinlink/index.html
tintin++ => <reply> $who, (T)he k(I)cki(N) (T)ickin d(I)kumud clie(N)t. URL: http://www.kcdata.com/~grimmy/
Tiny Beat Watch => <reply> $who, Clock displaying the Swatch NetBeat. URL: http://www.tomix.de/niels/soft/tbwatch/
TinyFugue => <reply> $who, MUD client. URL: http://tf.tcp.com/~hawkeye/tf/
TinyGL => <reply> $who, A small and fast subset of OpenGL. URL: http://www-stud.enst.fr/~bellard/TinyGL.html
TinyMARE => <reply> $who, TinyMARE (Multi-user Adventure Roleplaying Epic) MUD Server. URL: http://www.musenet.org/~gandalf/tinymare/
tinyProg => <reply> $who, Tinyprog is a project for programming PIC controllers under Linux. URL: http://members.tripod.lycos.nl/LostEden/html/tinyprog.html
AnyData
view release on metacpan or search on metacpan
lib/AnyData/Format/XML.pm view on Meta::CPAN
my $p= $tags[$i-1];
my $pos = $twig->root->next_elt($p);
$pos ||= $twig->root;
my $e= new XML::Twig::Elt($t);
#if ($col_text->{$e->gi.'#PCDATA'}) {
# $e->append_pcdata("xxx");
#}
$e->paste('last_child',$pos);
# if ($col_text->{$e->gi.'#PCDATA'} ) {
# print $e->gi.'#PCDATA'."\n";
# $twig->root->next_elt($e->gi)->append_pcdata('x');
# }
}
}
my $atts;
while (my($k,$v)=each%{$self->{dtd}->{att}}) {
AnyEvent-RPC
view release on metacpan or search on metacpan
lib/AnyEvent/RPC/Enc/REST.pm view on Meta::CPAN
arrs => 0,
attr => '-',
# text => '~',
join => '',
trim => 1,
cdata => undef,
comm => undef,
);
sub request {
my $self = shift;
AnyEvent-XMPP
view release on metacpan or search on metacpan
t/parser_test.t view on Meta::CPAN
my $stanza = "<message><![CDATA[FOOAREE<<>>>]]></message>";
$p->feed ("<stream>");
$p->feed ($stanza);
is ($recv, $stanza, "cdata was parsed and stored correctly");
Apache-DAV
view release on metacpan or search on metacpan
xs/Apache/DAV/Resource/Resource.pm view on Meta::CPAN
sub print_tag
{
my ($e) = @_ ;
print '<', $e -> name, '>', "\n" ;
my $t = $e -> first_cdata ;
if ($t)
{
my $txt = $t -> first ;
while ($txt)
{
xs/Apache/DAV/Resource/Resource.pm view on Meta::CPAN
$name = '???' if (!$name) ;
$namespaces{$ns} = $nsid++ if (!exists $namespaces{$ns}) ;
my $text = Apache::DAV::Text -> new ({ text => $set -> {$_} });
my $elem = Apache::DAV::XMLElem -> new ({name => $name, ns => $namespaces{$ns},}) ;
my $header = $elem -> first_cdata;
$header->first($text);
$header->last ($text);
$set[-1] -> next($elem) if (@set) ;
$elem->parent($setprop);
push @set, $elem ;
Apache-PSP
view release on metacpan or search on metacpan
lib/Template/PSP.pm view on Meta::CPAN
}
$parser = HTML::Parser->new( api_version => 3,
start_h => [\&start, "tagname,attr,text"],
end_h => [\&end, "tagname,text"],
text_h => [\&text, "text,is_cdata"],
comment_h => [\&comment, "text"],
default_h => [\&default, "text"]
);
# send unbroken text instead of chunks to improve performance
Apache-SdnFw
view release on metacpan or search on metacpan
lib/Apache/SdnFw/js/tinymce/changelog.txt view on Meta::CPAN
Fixed bug where positive values for checked, readonly, disabled and selected attributes wasn't forced to valid values.
Fixed bug where selecting the first option in a native select box would produce an undefined error.
Fixed bug where tabindex 32768 could be outputted on IE if element attributes where cloned.
Fixed bug where the media dialogs preview window would display incorrect contents due to duplicate clsid prefixes.
Fixed bug where non pixel or percent heights for textarea elements would produce errors on IE.
Fixed bug where cdata sections in script elements wasn't handled correctly.
Fixed bug where nowrap of table cells would produce a 65535 value output.
Fixed bug where media plugin would produce an error if you selected the first item in the items list.
Fixed bug where media plugin would modify links with the item _value in them.
Fixed so table width/height is better forced if inline_styles is enabled. Patch contributed by daKmoR.
Fixed css for IE 8 such as opacity and other rendering quirks.
Apache-Voodoo
view release on metacpan or search on metacpan
lib/Apache/Voodoo/Install/Distribution.pm view on Meta::CPAN
if (-e $conf_file) {
$self->{'is_existing'} = 1;
$self->info("Found one. We will be performing an upgrade");
my $old_config = Config::General->new($conf_file);
my %old_cdata = $old_config->getall();
# save old (maybe customized?) config variables
foreach ('session_dir','devel_mode','debug','devel_mode','cookie_name','database') {
$self->{'old_conf_data'}->{$_} = $old_cdata{$_};
}
my $dbhost = $old_cdata{'database'}->{'connect'};
my $dbname = $old_cdata{'database'}->{'connect'};
$dbhost =~ s/.*\bhost=//;
$dbhost =~ s/[^\w\.-]+.*$//;
$dbname =~ s/.*\bdatabase=//;
$dbname =~ s/[^\w\.-]+.*$//;
$self->{'dbhost'} ||= $dbhost;
$self->{'dbname'} ||= $dbname;
$self->{'dbuser'} ||= $old_cdata{'database'}->{'username'};
$self->{'dbpass'} ||= $old_cdata{'database'}->{'password'};
}
else {
$self->info("not found. This will be a fresh install.");
}
}
lib/Apache/Voodoo/Install/Distribution.pm view on Meta::CPAN
my $self = shift;
my $new_conf = File::Spec->catfile($self->{'unpack_dir'},$self->{'ac'}->conf_file());
my $config = Config::General->new($new_conf);
my %cdata = $config->getall();
foreach (keys %{$self->{'old_conf_data'}}) {
$self->debug("Merging config data: $_");
$cdata{$_} = $self->{'old_conf_data'}->{$_};
}
$self->debug("Merging database config");
$cdata{'database'}->{'username'} = $self->{'dbuser'} if $self->{'dbuser'};
$cdata{'database'}->{'password'} = $self->{'dbpass'} if $self->{'dbpass'};
$cdata{'database'}->{'connect'} =~ s/\bdatabase=[^;"]+/database=$self->{'dbname'}/ if $self->{'dbname'};
$cdata{'database'}->{'connect'} =~ s/\bhost=[^;"]+/host=$self->{'dbhost'}/ if $self->{'dbhost'};
$self->{'pretend'} || $config->save_file($new_conf,\%cdata);
}
sub install_files {
my $self = shift;
Apache2-AutoIndex-XSLT
view release on metacpan or search on metacpan
examples/apache/conf/filetypes.dat view on Meta::CPAN
Type: odccubefile
MimeType:
DisplayName:
IconDesc: C:\PROGRA~1\COMMON~1\MICROS~1\OFFICE11\MSO.DLL,22
Extension: .odcdatabasefile
Type: odcdatabasefile
MimeType:
DisplayName:
IconDesc: C:\PROGRA~1\COMMON~1\MICROS~1\OFFICE11\MSO.DLL,23
Extension: .odcnewfile
App-EventStreamr
view release on metacpan or search on metacpan
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
},
// Contents
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is only affected by element nodes and content nodes(including text(3), cdata(4)),
// not comment, processing instructions, or others
// Thanks to Diego Perini for the nodeName shortcut
// Greater than "@" means alpha characters (specifically not starting with "#" or "?")
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeName > "@" || elem.nodeType === 3 || elem.nodeType === 4 ) {
App-MHFS
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
use Digest::SHA qw(sha1);
MHFS::BitTorrent::Bencoding->import();
use Data::Dumper;
sub Parse {
my ($srcdata) = @_;
my $tree = bdecode($srcdata, 0);
return undef if(! $tree);
return MHFS::BitTorrent::Metainfo->_new($tree->[0]);
}
sub mktor {
App-Music-ChordPro
view release on metacpan or search on metacpan
lib/ChordPro/lib/SVGPDF.pm view on Meta::CPAN
content => $e->{content},
root => $self,
);
# If there are <style> elements, these must be processed first.
my $cdata = "";
for ( $svg->get_children ) {
next unless ref($_) eq "SVGPDF::Style";
# DDumper($_->get_children) unless scalar($_->get_children) == 1;
croak("ASSERT: 1 child") unless scalar($_->get_children) == 1;
for my $t ( $_->get_children ) {
croak("# ASSERT: non-text child in style")
unless ref($t) eq "SVGPDF::TextElement";
$cdata .= $t->content;
}
}
if ( $cdata =~ /\S/ ) {
$css->read_string($cdata);
}
my $atts = $svg->atts;
# The viewport, llx lly width height.
( run in 0.459 second using v1.01-cache-2.11-cpan-454fe037f31 )