Result:
found more than 681 distributions - search limited to the first 2000 files matching your query
( run in 0.831 )
Zoom-Meeting
view release on metacpan or search on metacpan
local/lib/perl5/x86_64-linux-thread/HTML/Parser.pm view on Meta::CPAN
"by HTML::Parser $VERSION");
}
if ($api_version < 3) {
# Set up method callbacks compatible with HTML-Parser-2.xx
$self->handler(text => "text", "self,text,is_cdata");
$self->handler(end => "end", "self,tagname,text");
$self->handler(process => "process", "self,token0,text");
$self->handler(start => "start",
"self,tagname,attr,attrseq,text");
local/lib/perl5/x86_64-linux-thread/HTML/Parser.pm view on Meta::CPAN
Event causes the event name to be passed.
The event name is one of C<text>, C<start>, C<end>, C<declaration>,
C<comment>, C<process>, C<start_document> or C<end_document>.
=item C<is_cdata>
Is_cdata causes a TRUE value to be passed if the event is inside a CDATA
section or between literal start and end tags (C<script>,
C<style>, C<xmp>, C<iframe>, C<title>, C<textarea> and C<plaintext>).
if the flag is FALSE for a text event, then you should normally
either use C<dtext> or decode the entities yourself before the text is
local/lib/perl5/x86_64-linux-thread/HTML/Parser.pm view on Meta::CPAN
This is equivalent to the following method calls:
$p->handler(start => "start", "self, tagname, attr, attrseq, text");
$p->handler(end => "end", "self, tagname, text");
$p->handler(text => "text", "self, text, is_cdata");
$p->handler(process => "process", "self, token0, text");
$p->handler(
comment => sub {
my ($self, $tokens) = @_;
for (@$tokens) { $self->comment($_); }
boolean
view release on metacpan or search on metacpan
- &boolean(1,2,3) now dies like boolean(1,2,3)
- &boolean() now dies like boolean()
0.24 Thu Jan 13 15:27:09 EST 2011
- @Schwern++ found out how to make true and false immutable. Kudos to
#strategicdata++.
- Document the boolean() function.
- Added is_true and is_false methods.
- Added boolean, is_true, and is_false autobox methods
0.23 Thu Sep 16 19:27:54 PDT 2010
cppAdaptive1
view release on metacpan or search on metacpan
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
element_start, // the first tag of an element
element_end, // the last tag of an element
empty_element, // the singular tag of an empty element
pi, // processing instruction
chars, // the non-markup data between tags
chars_cdata, // the data from a CDATA section
eof, // this token is returned when we reach the end of input
error, // this token indicates that the tokenizer couldn't
// determine which category the next token fits into
dtd, // this token is for an entire dtd
comment // this is a token for comments
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
dh_list[i]->start_document();
}
std::string chars_buf; // used to collect chars data between consecutive
// chars and chars_cdata tokens so that
// document_handlers receive all chars data between
// tags in one call
// variables to be used with the parsing functions
attrib_list atts;
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
}
}break;
// ----------------------------------------
case chars_cdata:
{
if (tags.size() != 0)
{
chars_buf += token_text;
}
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
break;
get_next_token(in,token_text,token_kind,line_number);
// if the next token is not a chars or chars_cdata token then flush
// the chars_buf to the document_handlers
if ( (token_kind != chars) &&
(token_kind != chars_cdata) &&
(token_kind != dtd) &&
(token_kind != comment) &&
(chars_buf.size() != 0)
)
{
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
switch (ch2)
{
// ---------------------------------
// this is a dtd, comment, or chars_cdata token
case '!':
{
// if this is a CDATA section *******************************
if ( in.peek() == '[')
{
token_kind = chars_cdata;
// throw away the '['
in.get();
// make sure the next chars are CDATA[
cppAdaptive2
view release on metacpan or search on metacpan
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
element_start, // the first tag of an element
element_end, // the last tag of an element
empty_element, // the singular tag of an empty element
pi, // processing instruction
chars, // the non-markup data between tags
chars_cdata, // the data from a CDATA section
eof, // this token is returned when we reach the end of input
error, // this token indicates that the tokenizer couldn't
// determine which category the next token fits into
dtd, // this token is for an entire dtd
comment // this is a token for comments
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
dh_list[i]->start_document();
}
std::string chars_buf; // used to collect chars data between consecutive
// chars and chars_cdata tokens so that
// document_handlers receive all chars data between
// tags in one call
// variables to be used with the parsing functions
attrib_list atts;
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
}
}break;
// ----------------------------------------
case chars_cdata:
{
if (tags.size() != 0)
{
chars_buf += token_text;
}
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
break;
get_next_token(in,token_text,token_kind,line_number);
// if the next token is not a chars or chars_cdata token then flush
// the chars_buf to the document_handlers
if ( (token_kind != chars) &&
(token_kind != chars_cdata) &&
(token_kind != dtd) &&
(token_kind != comment) &&
(chars_buf.size() != 0)
)
{
src/dlib/xml_parser/xml_parser_kernel_1.h view on Meta::CPAN
switch (ch2)
{
// ---------------------------------
// this is a dtd, comment, or chars_cdata token
case '!':
{
// if this is a CDATA section *******************************
if ( in.peek() == '[')
{
token_kind = chars_cdata;
// throw away the '['
in.get();
// make sure the next chars are CDATA[
dotReader
view release on metacpan or search on metacpan
util/anno_server view on Meta::CPAN
sub check_auth {
my $self = shift;
my ($string, $server) = @_;
# bits from HTTPD::Authen (corrected) and LWP
my %cdata = $self->parse_digest_request($string);
exists($cdata{username}) or return;
# XXX may not have a cleartext password, but I need at least H(A1)
my $password = $server->can('get_password') ?
$server->get_password($cdata{username}) : undef;
#warn "user's password: $password\n";
return($self->verify_digest(
%cdata,
_server => $server,
_password => $password,
));
} # end subroutine check_auth definition
########################################################################
util/anno_server view on Meta::CPAN
=head2 parse_digest_request
See rfc2617 "3.2.2 The Authorization Request Header"
(http://www.ietf.org/rfc/rfc2617.txt).
my %cdata = $self->parse_digest_request($string);
=cut
sub parse_digest_request {
my $self = shift;
my ($string) = @_;
my %cdata;
while($string =~ s/^([a-z-]+)=((?:"[^"]+")|[^,]+)(?:, *|$)//) {
my ($k, $v) = ($1, $2);
($v =~ s/^"//) and ($v =~ s/"$//); # could be harsher
exists($cdata{$k}) and die "duplicate key $k";
$cdata{$k} = $v;
}
$string and die "now I'm mad ($string)";
0 and warn "we parsed: ",
join(", ", map({"$_ => $cdata{$_}"} keys %cdata));
return(%cdata);
} # end subroutine parse_digest_request definition
########################################################################
=head2 verify_digest
$username = $self->verify_digest(
%cdata,
_server => $server,
_password => $password,
);
=cut
go-perl
view release on metacpan or search on metacpan
GO/IO/OBDXML.pm view on Meta::CPAN
}
# Populate the node with: label, source, and description.
if( $label ){
$self->{writer}->startTag('label');
$self->{writer}->cdata($label);
$self->{writer}->endTag('label');
}
if( $source ){
$self->{writer}->emptyTag('source', 'about'=>$source);
}
GO/IO/OBDXML.pm view on Meta::CPAN
if( $type ){ $attr_hash{'type'} = $type; }
$self->{writer}->startTag($tag,
%attr_hash);
$self->{writer}->startTag('label');
$self->{writer}->cdata($label);
$self->{writer}->endTag('label');
$self->{writer}->endTag($tag);
}
libxml-enno
view release on metacpan or search on metacpan
lib/XML/Checker.pm view on Meta::CPAN
$self->Char ($data);
}
}
# PerlSAX API
sub start_cdata
{
$_[0]->{InCDATA} = 1;
}
# PerlSAX API
sub end_cdata
{
$_[0]->{InCDATA} = 0;
}
sub Char
lib/XML/Checker.pm view on Meta::CPAN
}
# Treat CDATASection same as Char (Text)
sub CData
{
my ($self, $cdata) = @_;
my $context = $self->{Context};
$context->[0]->Char ($self, $cdata);
# CDATASection can never be insignificant whitespace
$INSIGNIF_WS = 0;
#?? I'm not sure if this assumption is correct
}
lib/XML/Checker.pm view on Meta::CPAN
XML::Checker now also supports the PerlSAX interface, so you can use XML::Checker
wherever you use PerlSAX handlers.
XML::Checker implements the following methods: start_document, end_document,
start_element, end_element, characters, processing_instruction, comment,
start_cdata, end_cdata, entity_reference, notation_decl, unparsed_entity_decl,
entity_decl, element_decl, attlist_decl, doctype_decl, xml_decl
Not implemented: set_document_locator, ignorable_whitespace
See PerlSAX.pod for details. (It is called lib/PerlSAX.pod in the libxml-perl
libxml-perl
view release on metacpan or search on metacpan
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
if (UNIVERSAL::can($doc_h, 'characters'));
push (@handlers, Proc => sub { $self->_handle_proc(@_) } )
if (UNIVERSAL::can($doc_h, 'processing_instruction'));
push (@handlers, Comment => sub { $self->_handle_comment(@_) } )
if (UNIVERSAL::can($doc_h, 'comment'));
push (@handlers, CdataStart => sub { $self->_handle_cdatastart(@_) } )
if (UNIVERSAL::can($doc_h, 'start_cdata'));
push (@handlers, CdataEnd => sub { $self->_handle_cdataend(@_) } )
if (UNIVERSAL::can($doc_h, 'end_cdata'));
if (UNIVERSAL::can($doc_h, 'entity_reference')) {
push (@handlers, Default => sub { $self->_handle_default(@_) } );
$self->{UseEntRefs} = 1;
}
}
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
my $data = shift;
$self->{DocumentHandler}->comment( { Data => $data } );
}
sub _handle_cdatastart {
my $self = shift;
my $expat = shift;
$self->{DocumentHandler}->start_cdata( { } );
}
sub _handle_cdataend {
my $self = shift;
my $expat = shift;
$self->{DocumentHandler}->end_cdata( { } );
}
# Default receives all characters that aren't handled by some other
# handler, this means a lot of stuff goes through here. All we're
# looking for are `&NAME;' entity reference sequences
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
Receive notification of a comment.
Data The comment data, if any.
=item start_cdata
Receive notification of the start of a CDATA section.
No properties defined.
=item end_cdata
Receive notification of the end of a CDATA section.
No properties defined.
mod_perl
view release on metacpan or search on metacpan
xs/tables/current/Apache2/StructureTable.pm view on Meta::CPAN
'type' => 'const char *',
'name' => 'lang'
},
{
'type' => 'apr_text_header',
'name' => 'first_cdata'
},
{
'type' => 'apr_text_header',
'name' => 'following_cdata'
},
{
'type' => 'apr_xml_elem *',
'name' => 'parent'
},
oEdtk
view release on metacpan or search on metacpan
lib/oEdtk/Main.pm view on Meta::CPAN
fmt_address
fmt_address_sender
fmt_monetary
prodEdtk_Current_Rec
prodEdtk_Previous_Rec
prodEtk_rec_cdata_join
recEdtk_erase
recEdtk_join_tmplte
recEdtk_post_process
recEdtk_redefine
toC7date
oe_app_usage
oe_CAP_sans_accents
oe_cdata_table_build
oe_char_xlate
oe_clean_addr_line
oe_close_fo
oe_compo_link
oe_compo_set_value
lib/oEdtk/Main.pm view on Meta::CPAN
#$LAST_ENR=$Rec_ID;
return 1, $Rec_ID;
}
sub prodEtk_rec_cdata_join ($){ # migrer prodEtk_rec_cdata_join
$PUSH_VALUE .=shift;
1;
}
sub prodEdtk_Previous_Rec () { # migrer oe_previous_rec
lib/oEdtk/Main.pm view on Meta::CPAN
return ${$refValue};
}
# NE SERT PLUS À RIEN DANS LE CONTEXTE LaTeX
sub oe_compo_set_value ($;$){ # oe_cdata_set
my ($value, $noedit) = @_;
# A RETIRER : CERTAINS NUM SONT DÉJÀ US
# -> oe_compo_set_value($value) => oe_compo_set_value(oe_num2txt_us($value))
my $result = $TAG_L_SET . oe_num2txt_us($value);
lib/oEdtk/Main.pm view on Meta::CPAN
return $result;
}
# NE SERT PLUS À RIEN DANS LE CONTEXTE LaTeX
sub oe_cdata_table_build($@){ # oe_xdata_table_build
my $name = shift;
my @DATATAB = shift;
my $cdata="";
for (my $i = 0; $i <= $#DATATAB; $i++) {
my $elem = sprintf("%.6s%0.2d", $name, $i);
$cdata .= oe_data_build($elem, $DATATAB[$i] || "");
}
#warn "\n";
return $cdata;
}
sub oe_include_build ($$){ # dans le cadre nettoyage code C7 il faudra raccourcir ces appels
my ($name, $path)= @_;
perl
view release on metacpan or search on metacpan
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm view on Meta::CPAN
if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) {
(my $xdc = $exportlist) =~ s#def\z#xdc#;
$xdc = '$(BASEEXT).xdc';
push @m, sprintf <<'MAKE_FRAG', $xdc, $exportlist;
$(MPKTOOL) $(XDCFLAGS) %s
$(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> %s
MAKE_FRAG
}
# Reconstruct the X.Y.Z version.
my $version = join '.', map { sprintf "%d", $_ }
"$]" =~ /(\d)\.(\d{3})(\d{2})/;
perlSGML.1997Sep
view release on metacpan or search on metacpan
lib/SGML/DTD.pm view on Meta::CPAN
my $this = shift;
$this->{ParEntity} = {}; # Int parameter entities
$this->{PubParEntity} = {}; # Ext public parameter entities
$this->{SysParEntity} = {}; # Ext system parameter entities
$this->{GenEntity} = {}; # (pcdata) general entities
$this->{StartTagEntity} = {}; # Start tag entities (STARTTAG)
$this->{EndTagEntity} = {}; # End tag entities (ENDTAG)
$this->{MSEntity} = {}; # Marked section ents (MS)
$this->{MDEntity} = {}; # Markup declaration ents (MD)
$this->{PIEntity} = {}; # Processing instructions ents (PI)
lib/SGML/DTD.pm view on Meta::CPAN
$this->{SDataEntity} = {}; # System data ents (SDATA)
## Following ent structures currently not used.
$this->{PubEntity} = {}; # External public ents (PUBLIC)
$this->{SysEntity} = {}; # External system ents (SYSTEM)
$this->{SysCDEntity} = {}; # Ext cdata ents (SYSTEM CDATA)
$this->{SysNDEntity} = {}; # Ext non-SGML ents (SYSTEM NDATA)
$this->{SysSDEntity} = {}; # Ext sdata ents (SYSTEM SDATA)
$this->{SysSubDEntity} = {}; # Ext sub doc ents (SYSTEM SUBDOC)
$this->{SysNotation} = {}; # Notations w/SYSTEM ids
lib/SGML/DTD.pm view on Meta::CPAN
if $tmp =~ /^\s*$MS\s*$/io;
$this->do_ge_md($name, $line), last GENSW
if $tmp =~ /^\s*$MD\s*$/io;
$this->do_ge_pi($name, $line), last GENSW
if $tmp =~ /^\s*$PI\s*$/io;
$this->do_ge_cdata($name, $line), last GENSW
if $tmp =~ /^\s*$CDATA\s*$/io;
$this->do_ge_sdata($name, $line), last GENSW
if $tmp =~ /^\s*$SDATA\s*$/io;
$this->do_ge_public($name, $line), last GENSW
if $tmp =~ /^\s*$PUBLIC\s*$/io;
lib/SGML/DTD.pm view on Meta::CPAN
$tmp = &get_next_group($line);
$this->{PIEntity}{$name} = $tmp;
$this->{_AGE}{$name} = $pio_ . $tmp . $pic_;
}
sub do_ge_cdata {
my $this = shift;
my($name, $line) = @_;
my($tmp);
$tmp = &get_next_group($line);
perl_mlb
view release on metacpan or search on metacpan
sub _style {
my ($self,$style) = @_;
my (@result);
my $type = 'text/css';
my $cdata_start = $XHTML ? "\n<!--/* <![CDATA[ */" : "\n<!-- ";
my $cdata_end = $XHTML ? "\n/* ]]> */-->\n" : " -->\n";
if (ref($style)) {
my($src,$code,$verbatim,$stype,$foo,@other) =
rearrange([SRC,CODE,VERBATIM,TYPE],
'-foo'=>'bar', # trick to allow dash to be omitted
) if $src;
}
if ($verbatim) {
push(@result, "<style type=\"text/css\">\n$verbatim\n</style>");
}
push(@result,style({'type'=>$type},"$cdata_start\n$code\n$cdata_end")) if $code;
} else {
my $src = $style;
push(@result,$XHTML ? qq(<link rel="stylesheet" type="$type" href="$src" $other/>)
: qq(<link rel="stylesheet" type="$type" href="$src"$other>));
}
my $comment = '//'; # javascript by default
$comment = '#' if $type=~/perl|tcl/i;
$comment = "'" if $type=~/vbscript/i;
my ($cdata_start,$cdata_end);
if ($XHTML) {
$cdata_start = "$comment<![CDATA[\n";
$cdata_end .= "\n$comment]]>";
} else {
$cdata_start = "\n<!-- Hide script\n";
$cdata_end = $comment;
$cdata_end .= " End script hiding -->\n";
}
my(@satts);
push(@satts,'src'=>$src) if $src;
push(@satts,'language'=>$language) unless defined $type;
push(@satts,'type'=>$type);
$code = "$cdata_start$code$cdata_end" if defined $code;
push(@result,script({@satts},$code || ''));
}
@result;
}
END_OF_FUNC
pmcheck
view release on metacpan or search on metacpan
use Module::Build;
my $builder = Module::Build->new(
add_to_cleanup => ['pmcheck-*'],
build_requires => { 'Test::Differences' => 0, },
dist_author => 'Andrew Pam <andrew.pam@strategicdata.com.au>',
dist_version_from => 'script/pmcheck',
license => 'perl',
module_name => 'pmcheck',
recommends => { 'Module::Used' => 0, 'Term::Activity' => 0, },
requires => { 'PPI::Document' => 0, 'perl' => '5.10.0', 'version' => 0, },
rss2leafnode
view release on metacpan or search on metacpan
t/RSS2Leafnode.t view on Meta::CPAN
<rss version="2.0">
<channel>
<item>
<description>
<p>This bit subelem.</p><br/>
<![CDATA[This bit cdata.]]>
<b><a href="page.html">This bit more subelem</a></b><br/>
</description>
</item>
</channel>
</rss>
HERE
'<p>This bit subelem.</p><br/>
This bit cdata.
<b><a href="page.html">This bit more subelem</a></b><br/>'],
) {
my ($xml, $want) = @$data;
simplexmlparse
view release on metacpan or search on metacpan
lib/simpleXMLParse.pm view on Meta::CPAN
use strict;
no warnings;
#use open ':encoding(utf8)';
my @cdata;
my $cdataInd = 0;
my $MAXIND = 10000;
sub new {
my $class = shift;
my %args = (@_ == 1) ? ((ref($_[0]) eq 'HASH') ? %{$_[0]}:(input => $_[0])):@_;
lib/simpleXMLParse.pm view on Meta::CPAN
$self->{"data"} = _ParseXML( $self->{"xml"}, $altstyle );
my $ret = bless $self;
if ($altstyle) {
$ret->_convertToStyle();
}
$cdataInd = $cdataInd % $MAXIND;
return $ret;
}
sub parse {
my $self = shift;
lib/simpleXMLParse.pm view on Meta::CPAN
}
}
}
}
sub _cdatasub {
my $cdata = shift;
my $tmpind = $cdataInd++;
$cdata[$tmpind] = $cdata;
return "0x0CDATA0x0".($tmpind)."0x0";
}
sub _cdatasubout {
my $ind = shift;
my $cdata = $cdata[$ind];
return $cdata;
}
sub _unescp {
my $firsttag = shift;
$firsttag =~ s/\\\\/\\/gs;
lib/simpleXMLParse.pm view on Meta::CPAN
}
sub _ParseXML {
my ($xml, $altstyle) = @_;
# $xml =~ s/\n//g;
$xml =~ s/\<\!\[CDATA\[(.*?)\]\]\>/&_cdatasub($1)/egs;
$xml =~ s/\<\!\-\-.*?\-\-\>//gs;
$xml =~ s/\<\?xml.*?\?\>//gs;
$xml =~ s/\<\?[^\>]*?\?\>//gs;
$xml =~ s/\<\!\-\-[^\>]*?\-\-\>//gs;
$xml =~ s/\<\!ELEMENT[^\>]*?\>//gs;
lib/simpleXMLParse.pm view on Meta::CPAN
$xmlfragment = $2;
$attr =~ s/\/\>$//gs;
} else {
if (!ref($xml)) {
$xml = _entity($xml);
$xml =~ s/0x0CDATA0x0(\d+?)0x0/&_cdatasubout($1)/egs;
}
if ($xml eq '') {
return {};
} else {
return $xml;
text-highlight
view release on metacpan or search on metacpan
lib/Text/Highlight/HTML.pm view on Meta::CPAN
'idref' => 'IDREF',
'name' => 'name',
'scheme' => 'scheme',
'charset' => 'charset',
'prompt' => 'prompt',
'#pcdata' => '#PCDATA',
'frameborder' => 'frameborder',
'onmousedown' => 'onmousedown',
'rev' => 'rev',
'title' => 'title',
'span' => 'span',
lib/Text/Highlight/HTML.pm view on Meta::CPAN
'headers' => 'headers',
'scrolling' => 'scrolling',
'noresize' => 'noresize',
'rules' => 'rules',
'rows' => 'rows',
'cdata' => 'CDATA',
'onfocus' => 'onfocus',
'alink' => 'alink',
'rowspan' => 'rowspan',
'colspan' => 'colspan',
'defer' => 'defer',
tk-zinc
view release on metacpan or search on metacpan
static void
UpdateTristrip(CurveItem cv,
ZnPoly *poly,
ZnBool revert)
{
ZnCombineData *cdata, *cnext;
GLdouble v[3];
unsigned int j, k;
int i;
//printf("UpdateTristrips sur %d\n", ((ZnItem) cv)->id);
//printf("\n");
gluTessEndContour(ZnTesselator.tess);
}
}
gluTessEndPolygon(ZnTesselator.tess);
cdata = ZnTesselator.combine_list;
//printf("Combine length: %d\n", ZnTesselator.combine_length);
while (cdata) {
ZnTesselator.combine_length--;
cnext = cdata->next;
ZnFree(cdata);
cdata = cnext;
}
ZnTesselator.combine_list = NULL;
}
//printf("Fin UpdateTristrips sur %d\n", ((ZnItem) cv)->id);
}
static void
UpdateOutlines(CurveItem cv,
ZnPoly *poly,
ZnBool revert)
{
ZnCombineData *cdata, *cnext;
GLdouble v[3];
unsigned int j, k;
int i;
//printf("UpdateOutlines sur %d\n", ((ZnItem) cv)->id);
}
gluTessEndContour(ZnTesselator.tess);
}
}
gluTessEndPolygon(ZnTesselator.tess);
cdata = ZnTesselator.combine_list;
while (cdata) {
ZnTesselator.combine_length--;
cnext = cdata->next;
ZnFree(cdata);
cdata = cnext;
}
ZnTesselator.combine_list = NULL;
}
//printf("Fin UpdateOutlines sur %d\n", ((ZnItem) cv)->id);
}
webrobot
view release on metacpan or search on metacpan
t/plan-assert-file.t
t/plan-assert-file/constant_html_1.txt
t/plan-assert-get-neg.t
t/plan-assert-get.t
t/plan-assert-header.t
t/plan-cdata.t
t/plan-child-id.t
t/plan-get.t
t/plan-globalassert-2.t
t/plan-globalassert-2a.t
t/plan-globalassert-neg.t
xmltv
view release on metacpan or search on metacpan
lib/XMLTV.pm.in view on Meta::CPAN
my @children = get_subelements($node);
if (@children == 0) {
return '';
}
elsif (@children == 1) {
my $v = $children[0]->pcdata();
t 'got pcdata: ' . d $v;
if (not defined $v) {
my $name = get_name($node);
warn "node $name expected to contain text has other stuff\n";
}
else {
zxid
view release on metacpan or search on metacpan
PKCS12_add_localkeyid(bag, keyid, keyidlen);
sk_push((_STACK*)bags, (char*)bag);
/* Turn certbags into encrypted (why?) authsafe */
if (!(authsafe = PKCS12_pack_p7encdata(NID_pbe_WithSHA1And40BitRC2_CBC,
pkcs12_passwd, -1 /* use strlen */,
NULL /*salt*/, 0 /*saltlen*/,
PKCS12_DEFAULT_ITER, bags)))
GOTO_ERR("PKCS12_pack_p7encdata");
sk_pop_free((_STACK*)bags, (void (*)(void *))PKCS12_SAFEBAG_free);
bags = NULL;
if (!(safes = (STACK_OF(PKCS7)*)sk_new(NULL))) GOTO_ERR("no memory?");
sk_push((_STACK*)safes, (char*)authsafe);
/*if (canames) sk_free(canames);*/
/* Turn certbags into encrypted authsafe */
if (!(authsafe = PKCS12_pack_p7encdata(NID_pbe_WithSHA1And40BitRC2_CBC,
pkcs12_passwd, -1 /* use strlen */,
NULL /*salt*/, 0 /*saltlen*/,
PKCS12_DEFAULT_ITER, bags)))
GOTO_ERR("PKCS12_pack_p7encdata");
sk_pop_free((_STACK*)bags, (void (*)(void *))PKCS12_SAFEBAG_free);
if (!(safes = (STACK_OF(PKCS7)*)sk_new(NULL))) GOTO_ERR("no memory?");
sk_push((_STACK*)safes, (char *)authsafe);
if (bagnid == NID_pkcs7_data) {
bags = M_PKCS12_unpack_p7data(authsafe);
} else if (bagnid == NID_pkcs7_encrypted) {
/* undo transport armour encryption */
bags = M_PKCS12_unpack_p7encdata(authsafe, pkcs12_passwd, -1);
} else continue; /* unrecognized bag type */
if (!bags) GOTO_ERR("02 no bags found (is this a PKCS12 file?)");
/* Now iterate over all bags found */
if (bagnid == NID_pkcs7_data) {
bags = M_PKCS12_unpack_p7data(authsafe);
} else if (bagnid == NID_pkcs7_encrypted) {
/* undo transport armour encryption */
bags = M_PKCS12_unpack_p7encdata(authsafe, pkcs12_passwd, -1);
} else continue; /* unrecognized bag type */
if (!bags) GOTO_ERR("02 no bags found (is this a PKCS12 file?)");
/* Now iterate over all bags found */
( run in 0.831 second using v1.01-cache-2.11-cpan-0c5ce583b80 )