view release on metacpan or  search on metacpan

plugins/demo/gallery  view on Meta::CPAN

    </perl-vars>
  </config>

  <image>
    <filename>$file</filename>
    <filesize>$filesize</filesize>
    <size>$size</size>
    <modified>$mod</modified>
    <uri>$uri</uri>
    <dirpath>$path</dirpath>
    <content-type>$ct</content-type>
  </image>    
</imagesheet>
EOXML
    
    $input->dom($xml);
    
    my $rdf = $self->get_exif_rdf("$path/$file");
    
    if ($rdf) {
        my ($image_node) = $input->dom->findnodes('/imagesheet/image');

plugins/demo/gallery  view on Meta::CPAN

    
    $self->log(LOGINFO, "Augmenting images info");
    
	for my $node ($dom->findnodes('//images/image'), $dom->findnodes('//albums/album'))
        {
	   my $filename = $node->findnodes('./filename/text()');
	   my $fullpath = catfile($dirpath, "$filename");
       my $ct = $mm->checktype_filename($fullpath);
       $node->appendWellBalancedChunk(<<EOXML);
<dirpath>$dirpath</dirpath>
<content-type>$ct</content-type>
EOXML
    }
    
    # Finally we add in the config info
    $self->log(LOGINFO, "Augmenting config info");
    
	my @variables = qw(ProofsheetColumns ImagesPerProofsheet
            			GalleryCache GalleryThumbQuality);

	my $config_xml = "<perl-vars>\n";