view release on metacpan or search on metacpan
lib/Net/OSCAR.pm view on Meta::CPAN
$self->{proxy_type}, $self->{proxy_host}, $self->{proxy_port},
$self->{proxy_username}, $self->{proxy_password}, $self->{local_ip},
$self->{local_port}, $self->{pass_is_hashed}, $self->{stealth}) =
delete @args{qw(screenname password host port proxy_type proxy_host proxy_port proxy_username proxy_password local_ip local_port pass_is_hashed stealth)};
$self->{svcdata} = \%args;
if(defined($self->{proxy_type})) {
$self->{proxy_type} = uc($self->{proxy_type});
die "You must specify proxy_host if proxy_type is specified!\n" unless $self->{proxy_host};
if($self->{proxy_type} eq "HTTP" or $self->{proxy_type} eq "HTTPS") {
lib/Net/OSCAR.pm view on Meta::CPAN
sub send_im($$$;$) {
my($self, $to, $msg, $away) = @_;
return must_be_on($self) unless $self->{is_on};
if(!$self->{svcdata}->{hashlogin}) {
return 0 if length($msg) >= 7987;
} else {
return 0 if length($msg) > 2000;
}
lib/Net/OSCAR.pm view on Meta::CPAN
my($port) = sockaddr_in(getsockname($connection->{socket}));
my $size = 0;
$size += length($_->{data}) foreach @filerefs;
my %svcdata = (
file_count_status => (@filerefs > 1 ? 2 : 1),
file_count => scalar(@filerefs),
size => $size,
files => [map {$_->{name}} @filerefs]
);
lib/Net/OSCAR.pm view on Meta::CPAN
status => "propose",
client_1_ip => $ip,
client_2_ip => $ip,
port => $port,
proxy_ip => unpack("N", inet_aton("63.87.248.248")), # TODO: What's this really supposed to be?
svcdata_charset => "us-ascii",
svcdata => protoparse($self, "file_transfer_rendezvous_data")->pack(%svcdata)
);
my($req_id) = $self->send_message($screenname, 2, pack("nn", 3, 0) . protoparse($self, "rendezvous_IM")->pack(%protodata), 0, $cookie);
$self->{rv_proposals}->{$cookie} = $connection->{rv} = {
view release on metacpan or search on metacpan
t/07-htmlparse.t view on Meta::CPAN
'rss'=>"http://www.livejournal.com/~brad/data/rss",
'atom'=>"http://www.livejournal.com/~brad/data/atom",
},'everything from consumer.pm comments' );
my $uri3 = 'http://openid.example.com/cdata_crap';
addf_uri($uri3,content => <<END );
<html><head>
<link rel="openid.server" href="http://www.livejournal.com/misc/openid.bml" />
<link rel="openid.delegate" href="http://openid1.net/delegate" />
<script type="text/javascript">//<![CDATA[
view release on metacpan or search on metacpan
t/03-seminfo.t view on Meta::CPAN
'rss'=>"http://www.livejournal.com/~brad/data/rss",
'atom'=>"http://www.livejournal.com/~brad/data/atom",
},'everything from consumer.pm comments' );
my $uri3 = 'http://openid.example.com/cdata_crap';
addf_uri($uri3,content => <<END );
<html><head>
<link rel="openid.server" href="http://www.livejournal.com/misc/openid.bml" />
<link rel="openid.delegate" href="http://openid1.net/delegate" />
<script type="text/javascript">//<![CDATA[
view release on metacpan or search on metacpan
t/linkparse.txt view on Meta::CPAN
<head>
<![CDATA[
<link>
Name: cdata-like
Link*:
<html>
<head>
<![ACORN[
view release on metacpan or search on metacpan
examples/realifmon.pl view on Meta::CPAN
-community => ($opt{c} || "public")
);
die "[ERROR] $err\n" unless defined $ses;
# main loop
my (%pdata, %cdata); # flag, previous and current octets data
my $first = 1;
while ( 1 ){
%cdata = ();
(my $ret, $err) = snmpwalk(
snmp => $ses,
oids => {
sysUpTime => '1.3.6.1.2.1.1.3',
ifTable => [
examples/realifmon.pl view on Meta::CPAN
my ($s, $host, $key, $val) = @_;
return 1 if $key ne 'ifTable';
my $name = $val->[0][1];
return 0 if ( $regexp && $name !~ /$regexp/ );
# storing current octets data
$cdata{$name}{t} = time;
$cdata{$name}{i} = $val->[3][1];
$cdata{$name}{o} = $val->[4][1];
return 1;
}
);
die "[ERROR] $err\n" unless $ret;
examples/realifmon.pl view on Meta::CPAN
$name, $i, $astat, $ostat, $bw/1000, '-', '-';
next; # skip first
}
# calculate (k)bps
my $td = $cdata{$name}{t} - $pdata{$name}{t};
my ($inbps, $outbps) = map {
my $delta = $cdata{$name}{$_} - $pdata{$name}{$_};
$delta<0? 0: $delta / $td / 1000; # Kbps
} qw( i o );
printf "%-30s (%-10d) %2d %2d %10.1f %10.1f %10.1f\n",
$name, $i, $astat, $ostat, map { $_/1000 } ($bw, $inbps, $outbps);
}
%pdata = %cdata;
$first = 0;
sleep $wait;
}
__END__
view release on metacpan or search on metacpan
lib/Net/SSH/Perl/Key/Ed25519.xs view on Meta::CPAN
unsigned char *data = (unsigned char *) SvPVbyte(sv_mortalcopy(sv_data),datalen);
if (datalen % 8)
croak("data must be in 8-byte chunks");
uint16_t words = datalen / 4;
uint32_t cdata[words];
uint16_t j = 0;
int i;
int rounds = SvIVx(sv_rounds);
for (i=0; i<words; i++)
cdata[i] = Blowfish_stream2word(data, datalen, &j);
for (i=0; i<rounds; i++)
blf_enc(ctx, cdata, sizeof(cdata) / sizeof(uint64_t));
for (i=0; i<words; i++) {
data[4 * i + 3] = (cdata[i] >> 24) & 0xff;
data[4 * i + 2] = (cdata[i] >> 16) & 0xff;
data[4 * i + 1] = (cdata[i] >> 8) & 0xff;
data[4 * i ] = cdata[i] & 0xff;
}
RETVAL = newSVpvn ((char *) data, datalen);
}
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
UPCDatabase.pm view on Meta::CPAN
use 5.008;
use Frontier::Client;
our $VERSION = '0.07';
our $DEFAULTURL = 'http://www.upcdatabase.com/rpc';
=head1 NAME
Net::UPCDatabase - Simple OO interface to UPCDatabase.com
UPCDatabase.pm view on Meta::CPAN
# .. or ..
$upcObject = Net::UPCDatabase->new( url => $aDifferentUrlThanDefault );
Accepts an B<OPTIONAL> argument, a URL to use instead of the default. Unless you're really sure what you're doing, don't give it a URL. It defaults to 'http://www.upcdatabase.com/rpc', which is probably the right thing.
Returns the object.
=cut
UPCDatabase.pm view on Meta::CPAN
Report bugs on the CPAN bug tracker.
Please, do complain if something is broken.
=head1 SEE ALSO
L<http://www.upcdatabase.com/>
=head1 COPYRIGHT AND LICENSE
Copyright 2005-2009 by Dusty Wilson
view release on metacpan or search on metacpan
lib/Net/XMPP/Namespaces.pm view on Meta::CPAN
a new child, and GetXXX() will return a new Stanza
object representing the packet.
flag - This is for child elements that are tags by themselves:
<foo/>. Since the presence of the tag is what is
important, and there is no cdata to store, we just call
it a flag.
jid - The value is a Jabber ID. GetXXX() will return a
Net::XMPP::JID object unless you pass it "jid", then it
returns a string.
view release on metacpan or search on metacpan
lib/Net/XMPP3/Namespaces.pm view on Meta::CPAN
a new child, and GetXXX() will return a new Stanza
object representing the packet.
flag - This is for child elements that are tags by themselves:
<foo/>. Since the presence of the tag is what is
important, and there is no cdata to store, we just call
it a flag.
jid - The value is a Jabber ID. GetXXX() will return a
Net::XMPP3::JID object unless you pass it "jid", then it
returns a string.
view release on metacpan or search on metacpan
lib/Net/iContact.pm view on Meta::CPAN
my ($self, $subject, $campaign, $text, $html) = @_;
my $call = 'message';
my $X = new XML::Generator ':pretty';
my $xml = $X->xml($X->message(
$X->subject($X->xmlcdata($subject)),
$X->campaign($campaign),
$X->text_body($X->xmlcdata($text)),
$X->html_body($X->xmlcdata($html)),
))->stringify;
my $root = $self->put($call, { $self->_stdargs }, $xml);
return unless $root;
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
/doc/libisc44/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/libiptcdata0/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/libio-string-perl/
view release on metacpan or search on metacpan
lib/Nile.pm view on Meta::CPAN
<vars type="perl">system ('dir *.cgi');</vars>
</pre>
<br>
<vars type="var" name="singleline" width="400px" height="300px" content="ahmed<b>class/subclass">
cdata start here is may have html tags and 'single' and "double" qoutes
</vars>
<br>
<vars type="var" name="multiline" width="400px" height="300px"><![CDATA[
cdata start here is may have html tags <b>hello</b> and 'single' and "double" qoutes
another cdata line
]]></vars>
<br>
<vars type="perl"><![CDATA[
say "";
view release on metacpan or search on metacpan
lib/ODF/lpOD_Helper.pm view on Meta::CPAN
$result->set_attribute('c', $right_count); # possibly zero
return $result
}
elsif ($text_elt->tag eq '#PCDATA') {
my $existing_len = length($text_elt->text);
confess ivis 'offset $offset exceeds existing pcdata length ($existing_len)'
if $offset > $existing_len;
return $text_elt->split_at($offset);
}
elsif ($offset == 0) {
#my $para = $elt->passes(PARA_FILTER) ? $elt : $elt->parent(PARA_FILTER);
view release on metacpan or search on metacpan
SV *
proc_info_int(int pid, int flags)
{
PQTOPLEVEL top;
PQPROCESS procdata;
PQTHREAD threads;
PQMODULE moddata;
SV *sv;
AV *top_av, *procs_av, *mods_av;
ULONG rc;
av_push(top_av, newRV((SV*)procs_av));
SvREFCNT_dec(procs_av); /* Ouch! */
av_push(top_av, newRV((SV*)mods_av));
SvREFCNT_dec(mods_av); /* Ouch! */
procdata = top->procdata;
while (procdata && procdata->rectype == 0x01) {
AV *proc_av = newAV();
AV *threads_av = newAV();
AV *dlls_av = newAV();
int dll_c = 0;
av_push(procs_av, newRV_noinc((SV*)proc_av));
av_push(proc_av, newRV_noinc((SV*)threads_av));
av_push(proc_av, newSViv(procdata->pid));
av_push(proc_av, newSViv(procdata->ppid));
av_push(proc_av, newSViv(procdata->type));
av_push(proc_av, newSViv(procdata->state));
av_push(proc_av, newSViv(procdata->sessid));
av_push(proc_av, newSViv(procdata->hndmod));
av_push(proc_av, newSViv(procdata->threadcnt));
av_push(proc_av, newSViv(procdata->privsem32cnt));
av_push(proc_av, newSViv(procdata->sem16cnt));
av_push(proc_av, newSViv(procdata->dllcnt));
av_push(proc_av, newSViv(procdata->shrmemcnt));
av_push(proc_av, newSViv(procdata->fdscnt));
av_push(proc_av, newRV_noinc((SV*)dlls_av));
while (dll_c < procdata->dllcnt) {
av_push(dlls_av, newSViv(procdata->dlls[dll_c++]));
}
threads = procdata->threads;
while (threads && threads->rectype == 0x100) { /* Thread block. */
AV *thread_av = newAV();
av_push(threads_av, newRV_noinc((SV*)thread_av));
av_push(thread_av, newSViv(threads->systime));
av_push(thread_av, newSViv(threads->usertime));
av_push(thread_av, newSViv(threads->state));
threads++;
}
procdata = (PQPROCESS) threads; /* Next process data. */
}
/*
if (procdata)
warn("After: procdata->rectype = 0x%x", procdata->rectype);
*/
moddata = top->moddata;
while (moddata) {
AV *mod_av = newAV();
int handles = moddata->refcnt;
view release on metacpan or search on metacpan
lib/Object/Pad/ClassAttr/Struct.xs view on Meta::CPAN
enum {
FLAG_READONLY = (1<<0),
};
static bool struct_apply(pTHX_ ClassMeta *classmeta, SV *value, SV **attrdata_ptr, void *_funcdata)
{
U32 flags = 0;
if(value && SvPOK(value)) {
const char *s = SvPVX(value), *e = s + SvCUR(value);
lib/Object/Pad/ClassAttr/Struct.xs view on Meta::CPAN
mop_class_apply_attribute(classmeta, "strict", sv_2mortal(newSVpvs("params")));
return TRUE;
}
static void struct_post_add_field(pTHX_ ClassMeta *classmeta, SV *attrdata, void *_funcdata, FieldMeta *fieldmeta)
{
if(mop_field_get_sigil(fieldmeta) != '$')
return;
U32 flags = attrdata ? SvUV(attrdata) : 0;
lib/Object/Pad/ClassAttr/Struct.xs view on Meta::CPAN
mop_field_apply_attribute(fieldmeta, "reader", NULL);
else
mop_field_apply_attribute(fieldmeta, "mutator", NULL);
}
static void struct_post_seal(pTHX_ ClassMeta *classmeta, SV *attrdata, void *_funcdata)
{
dSP;
ENTER;
SAVETMPS;
view release on metacpan or search on metacpan
lib/Object/Pad/FieldAttr/Checked.xs view on Meta::CPAN
SETs(ret);
RETURN;
}
static SV *checked_parse(pTHX_ FieldMeta *fieldmeta, SV *valuesrc, void *_funcdata)
{
if(mop_field_get_sigil(fieldmeta) != '$')
croak("Can only apply the :Checked attribute to scalar fields");
dSP;
lib/Object/Pad/FieldAttr/Checked.xs view on Meta::CPAN
LEAVE;
return ret;
}
static bool checked_apply(pTHX_ FieldMeta *fieldmeta, SV *value, SV **attrdata_ptr, void *_funcdata)
{
if(mop_field_get_sigil(fieldmeta) != '$')
croak("Can only apply the :Checked attribute to scalar fields");
struct DataChecks_Checker *checker = make_checkdata(value);
lib/Object/Pad/FieldAttr/Checked.xs view on Meta::CPAN
*attrdata_ptr = (SV *)checker;
return TRUE;
}
static void checked_gen_accessor_ops(pTHX_ FieldMeta *fieldmeta, SV *attrdata, void *_funcdata,
enum AccessorType type, struct AccessorGenerationCtx *ctx)
{
struct DataChecks_Checker *checker = (struct DataChecks_Checker *)attrdata;
switch(type) {
lib/Object/Pad/FieldAttr/Checked.xs view on Meta::CPAN
default:
croak("TODO: Unsure what to do with accessor type %d and :Checked", type);
}
}
static OP *checked_gen_valueassert_op(pTHX_ FieldMeta *fieldmeta, SV *attrdata, void *_funcdata,
OP *valueop)
{
struct DataChecks_Checker *checker = (struct DataChecks_Checker *)attrdata;
return make_assertop(checker, valueop);
view release on metacpan or search on metacpan
lib/Object/Pad/FieldAttr/Final.xs view on Meta::CPAN
#include "perl.h"
#include "XSUB.h"
#include "object_pad.h"
static void final_post_construct(pTHX_ FieldMeta *fieldmeta, SV *_hookdata, void *_funcdata, SV *field)
{
SvREADONLY_on(field);
}
static void final_seal(pTHX_ FieldMeta *fieldmeta, SV *hookdata, void *_funcdata)
{
if(mop_field_get_attribute(fieldmeta, "writer"))
warn("Applying :Final attribute to field %" SVf " which already has :writer", SVfARG(mop_field_get_name(fieldmeta)));
}
view release on metacpan or search on metacpan
lib/Object/Pad/FieldAttr/Isa.xs view on Meta::CPAN
static const MGVTBL vtbl = {
.svt_set = &magic_set,
};
static bool isa_apply(pTHX_ FieldMeta *fieldmeta, SV *value, SV **attrdata_ptr, void *_funcdata)
{
struct Data *data;
Newx(data, 1, struct Data);
data->is_weak = false;
lib/Object/Pad/FieldAttr/Isa.xs view on Meta::CPAN
*attrdata_ptr = (SV *)data;
return TRUE;
}
static void isa_seal(pTHX_ FieldMeta *fieldmeta, SV *attrdata, void *_funcdata)
{
struct Data *data = (struct Data *)attrdata;
if(mop_field_get_attribute(fieldmeta, "weak"))
data->is_weak = true;
}
static void isa_post_makefield(pTHX_ FieldMeta *fieldmeta, SV *attrdata, void *_funcdata, SV *field)
{
sv_magicext(field, newSV(0), PERL_MAGIC_ext, &vtbl, (char *)attrdata, 0);
}
static const struct FieldHookFuncs isa_hooks = {
view release on metacpan or search on metacpan
lib/Object/Pad/FieldAttr/LazyInit.xs view on Meta::CPAN
mg_freeext(sv, PERL_MAGIC_ext, &vtbl);
return 1;
}
static bool lazyinit_apply(pTHX_ FieldMeta *fieldmeta, SV *value, SV **attrdata_ptr, void *_funcdata)
{
mop_field_set_default_sv(fieldmeta, newRV_inc(unassigned_val));
return TRUE;
}
static void lazyinit_post_makefield(pTHX_ FieldMeta *fieldmeta, SV *attrdata, void *_funcdata, SV *field)
{
SV *weakself = newSVsv(PAD_SVl(PADIX_SELF));
sv_rvweaken(weakself);
sv_magicext(field, weakself, PERL_MAGIC_ext, &vtbl, (char *)attrdata, HEf_SVKEY);
view release on metacpan or search on metacpan
lib/Object/Pad/FieldAttr/Trigger.xs view on Meta::CPAN
#include "object_pad.h"
#include "perl-backcompat.c.inc"
static void trigger_gen_accessor_ops(pTHX_ FieldMeta *fieldmeta, SV *hookdata, void *_funcdata, enum AccessorType type, struct AccessorGenerationCtx *ctx)
{
if(type != ACCESSOR_WRITER)
return;
OP *selfop;
lib/Object/Pad/FieldAttr/Trigger.xs view on Meta::CPAN
ctx->post_bodyops = op_append_list(OP_LINESEQ, ctx->post_bodyops, callop);
return;
}
static void trigger_seal(pTHX_ FieldMeta *fieldmeta, SV *hookdata, void *_funcdata)
{
if(mop_field_get_attribute(fieldmeta, "writer"))
return;
warn("Applying :Trigger attribute to field %" SVf " is not useful without a :writer",
view release on metacpan or search on metacpan
lib/Object/Pad/SlotAttr/Final.xs view on Meta::CPAN
#include "perl.h"
#include "XSUB.h"
#include "object_pad.h"
static void final_post_construct(pTHX_ SlotMeta *slotmeta, SV *_hookdata, void *_funcdata, SV *slot)
{
SvREADONLY_on(slot);
}
static void final_seal(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata)
{
if(mop_slot_get_attribute(slotmeta, "writer"))
warn("Applying :Final attribute to slot %" SVf " which already has :writer", SVfARG(mop_slot_get_name(slotmeta)));
}
view release on metacpan or search on metacpan
lib/Object/Pad/SlotAttr/Isa.xs view on Meta::CPAN
static const MGVTBL vtbl = {
.svt_set = &magic_set,
};
static bool isa_apply(pTHX_ SlotMeta *slotmeta, SV *value, SV **hookdata_ptr, void *_funcdata)
{
struct Data *data;
Newx(data, 1, struct Data);
data->is_weak = false;
lib/Object/Pad/SlotAttr/Isa.xs view on Meta::CPAN
*hookdata_ptr = (SV *)data;
return TRUE;
}
static void isa_seal(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata)
{
struct Data *data = (struct Data *)hookdata;
if(mop_slot_get_attribute(slotmeta, "weak"))
data->is_weak = true;
}
static void isa_post_initslot(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata, SV *slot)
{
sv_magicext(slot, newSV(0), PERL_MAGIC_ext, &vtbl, (char *)hookdata, 0);
}
static const struct SlotHookFuncs isa_hooks = {
view release on metacpan or search on metacpan
lib/Object/Pad/SlotAttr/LazyInit.xs view on Meta::CPAN
mg_freeext(sv, PERL_MAGIC_ext, &vtbl);
return 1;
}
static bool lazyinit_apply(pTHX_ SlotMeta *slotmeta, SV *value, SV **hookdata_ptr, void *_funcdata)
{
mop_slot_set_default_sv(slotmeta, newRV_inc(unassigned_val));
return TRUE;
}
static void lazyinit_post_initslot(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata, SV *slot)
{
SV *weakself = newSVsv(PAD_SVl(PADIX_SELF));
sv_rvweaken(weakself);
sv_magicext(slot, weakself, PERL_MAGIC_ext, &vtbl, (char *)hookdata, HEf_SVKEY);
view release on metacpan or search on metacpan
lib/Object/Pad/SlotAttr/Trigger.xs view on Meta::CPAN
#include "object_pad.h"
#include "perl-backcompat.c.inc"
static void trigger_gen_accessor_ops(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata, enum AccessorType type, struct AccessorGenerationCtx *ctx)
{
if(type != ACCESSOR_WRITER)
return;
OP *selfop;
lib/Object/Pad/SlotAttr/Trigger.xs view on Meta::CPAN
ctx->post_bodyops = op_append_list(OP_LINESEQ, ctx->post_bodyops, callop);
return;
}
static void trigger_seal(pTHX_ SlotMeta *slotmeta, SV *hookdata, void *_funcdata)
{
if(mop_slot_get_attribute(slotmeta, "writer"))
return;
warn("Applying :Trigger attribute to slot %" SVf " is not useful without a :writer",
view release on metacpan or search on metacpan
direct_slots AV
0.57 2021-11-18
[CHANGES]
* Defined new ABI version for class/slot hooks
+ Adds `funcdata` at registration and callback time
+ Adds MOP accessor functions for slotmeta default SV
* Added :isa() and :does() class attributes; encourage those rather
than the older keyword style
* Added more MOP methods:
+ $classmeta->direct_methods, ->get_direct_method
view release on metacpan or search on metacpan
OOCBuilder.pm view on Meta::CPAN
$self->{cpars}{sheets}=1;
$self->{cpars}{autoc}=0;
$self->{cpars}{autor}=0;
# - data
$self->{cdata} = undef; # {cdata}{sheetnb}{}{}
$self->{sheetname}= undef; # {sheetname}{sheetnb}=name
$self->{cstyle} = undef; # {cstyle}{sheetnb}{}{}
$self->{colwidth} = undef; # {colwidth}{sheetnb}{c}
$self->{rowheight}= undef; # {rowheight}{sheetnb}{r}
OOCBuilder.pm view on Meta::CPAN
# - check data
$data=$self->encode_data ($data) if ($data);
# - store (ATTENTION $r before $c because of the way we need to generate xml)
$self->{cdata}{$sheet}{$r}{$c}{type}=$type;
$self->{cdata}{$sheet}{$r}{$c}{format}=$format if ($format);
$self->{cdata}{$sheet}{$r}{$c}{data}=$data;
$self->{cdata}{$sheet}{$r}{$c}{style}=$self->{actstyle};
$self->cell_update if ($self->{cpars}{autoc} || $self->{cpars}{autor});
1;
} # - - End set_data_sheet_xy
sub set_auto_xy {
OOCBuilder.pm view on Meta::CPAN
if ($t>1) {
$content.=qq{<table:table-column table:style-name="$prevcolid" table:number-columns-repeated="$t" table:default-cell-style-name="Default"/>};
} else {
$content.=qq{<table:table-column table:style-name="$prevcolid" table:default-cell-style-name="Default"/>};
}
$rows=&$subGetMaxRange ($self->{cdata}{$sheet});
for (1 .. $rows) {
$r=$_;
# TODO row style ?
$content.=q{<table:table-row table:style-name="ro1">};
$columns=&$subGetMaxRange ($self->{cdata}{$sheet}{$r});
for (1 .. $columns) {
$c=$_;
$type=$self->{cdata}{$sheet}{$r}{$c}{type};
$format=$self->{cdata}{$sheet}{$r}{$c}{format};
$data=$self->{cdata}{$sheet}{$r}{$c}{data};
$style=$self->{cdata}{$sheet}{$r}{$c}{style};
if ($style eq $self->{defstyle} || ! $style) {
$stylexml='';
} else {
if (! exists($cellstyleids{$style})) {
++$cellmaxid;
view release on metacpan or search on metacpan
lib/OpenOffice/PerlPoint.pm view on Meta::CPAN
ping
skipmetadata
imagebufferdir
metadataTemplate
userdefinedDocdata
);
# define data: delimiter handling
my %delimiters=(
lib/OpenOffice/PerlPoint.pm view on Meta::CPAN
keywords describing the document
=item User defined fields
All names defined by C<userdefinedDocdata>.
=back
=item %tools
lib/OpenOffice/PerlPoint.pm view on Meta::CPAN
=item skipmetadata
If set to a true value meta data processing is bypassed.
=item userdefinedDocdata
Each OO document can be described by various predefined data, which are set automatically
(like the modification date) or set up by the document author in a dialog (like the
documents title). Additionally, OO allows to define up to four user informations. Called
C<info1> to I<info4> by default, they can be named individually if required.
lib/OpenOffice/PerlPoint.pm view on Meta::CPAN
$me->{$_}=$pars{$_} for qw(
file
imagebufferdir
skipmetadata
metadataTemplate
userdefinedDocdata
);
# aggregate a user agent object
$me->{userAgent}=new LWP::UserAgent;
$me->{userAgent}->timeout(1);
lib/OpenOffice/PerlPoint.pm view on Meta::CPAN
title
);
# get user defined metadata, as set up by caller
my %userDefinedMetadata=$me->{metadata}->user_defined;
$me->{metaData}{$_}=$userDefinedMetadata{$_} || 'unknown' for @{$me->{userdefinedDocdata}};
# get generator
$generator=$me->{metadata}->generator;
$generator='unknown program' unless $generator;
}
view release on metacpan or search on metacpan
lib/auto/OpusVL/AppKit/root/static/js/wymeditor/jquery.wymeditor.js view on Meta::CPAN
options = options || false;
return '<'+name+(options ? this.tagOptions(options) : '')+'>'+content+'</'+name+'>';
};
/*
* @name cdataSection
* @description
* Returns a CDATA section for the given +content+. CDATA sections
* are used to escape blocks of text containing characters which would
* otherwise be recognized as markup. CDATA sections begin with the string
* <tt><![CDATA[</tt> and } with (and may not contain) the string
* <tt>]]></tt>.
*/
WYMeditor.XmlHelper.prototype.cdataSection = function(content)
{
return '<![CDATA['+content+']]>';
};
view release on metacpan or search on metacpan
if ($_[0] =~ m|\.xml$|i) { # XML descriptor
local $/;
my $content = <SITEFILE>;
my $xml_cdata_re = '(<!\[CDATA\[)?\015?\012?(.*?)\015?\012?(]]>)?';
$self->{id} = $1 if $content =~ m|<site id="(.*?)">|i;
foreach my $tag (qw/charset score expression template proc/) {
$self->{$tag} = $2 if $content =~ m|<$tag>$xml_cdata_re</$tag>|is;
}
foreach my $tag (qw/url var name info/) {
$self->{$tag}{lc($1)} = $3 while
$content =~ s|<$tag \w+="(.*?)">$xml_cdata_re</$tag>||is;
}
if ($content =~ m|<category>(.*?)</category>|i) {
$self->{category} = [ split(',', $1) ];
}
view release on metacpan or search on metacpan
}
elsif ($_[0] =~ m|\.xml$|i) {
local $/;
my $content = <SITEFILE>;
my $xml_cdata_re = '(<!\[CDATA\[)?\015?\012?(.*?)\015?\012?(]]>)?';
$self->{id} = $1 if $content =~ m|<site id="(.*?)">|i;
foreach my $tag ('charset', 'score', 'expression', 'template', 'proc') {
$self->{$tag} = $2 if $content =~ m|<$tag>$xml_cdata_re</$tag>|is;
}
foreach my $tag ('url', 'var', 'name', 'info') {
$self->{$tag}{lc($1)} = $3 while
$content =~ s|<$tag \w+="(.*?)">$xml_cdata_re</$tag>||is;
}
if ($content =~ m|<category>(.*?)</category>|i) {
$self->{category} = [ split(',', $1) ];
}