Changeset 7900
- Timestamp:
- 2004-08-06T16:23:22+12:00 (20 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GAPlug.pm
r6408 r7900 39 39 } 40 40 41 42 sub get_default_process_exp { 43 my $self = shift (@_); 44 45 return q^(?i)doc\.xml$^; 46 } 47 41 48 my $options = { 'name' => "GAPlug", 42 49 'desc' => "{GAPlug.desc}", … … 57 64 $self->{'metadata_value'} = ""; 58 65 $self->{'content'} = ""; 59 66 60 67 return bless $self, $class; 61 68 } … … 69 76 sub xml_doctype { 70 77 my $self = shift(@_); 78 71 79 my ($expat, $name, $sysid, $pubid, $internal) = @_; 72 80 … … 76 84 77 85 my $outhandle = $self->{'outhandle'}; 78 print $outhandle "GAP Lug: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;86 print $outhandle "GAPlug: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 79 87 } 80 88 … … 88 96 if ($self->{'section_level'} == 0) { 89 97 $self->open_document(); 90 } else {98 } else { 91 99 my $doc_obj = $self->{'doc_obj'}; 92 100 $self->{'section'} = 93 101 $doc_obj->insert_section($doc_obj->get_end_child($self->{'section'})); 94 102 } 103 95 104 $self->{'section_level'} ++; 96 105 } … … 110 119 } 111 120 elsif ($element eq "Metadata") { 112 $self->{'doc_obj'}->add_utf8_metadata($self->{'section'}, $self->{'metadata_name'}, 113 $self->{'metadata_value'}); 121 $self->{'doc_obj'}->add_utf8_metadata($self->{'section'}, $self->{'metadata_name'},$self->{'metadata_value'}); 114 122 $self->{'metadata_name'} = ""; 115 123 $self->{'metadata_value'} = ""; -
trunk/gsdl/perllib/plugins/XMLPlug.pm
r7508 r7900 67 67 'Doctype' => \&Doctype, 68 68 'Default' => \&Default 69 } 70 ); 69 }); 70 71 72 71 73 $self->{'parser'} = $parser; 72 74 … … 100 102 $self->{'parser'}->parsefile($filename); 101 103 }; 104 102 105 if ($@) { 103 106 … … 109 112 # we'll just continue quietly 110 113 114 ## print STDERR "**** Error is: $@\n"; 115 111 116 my ($msg) = $@ =~ /Carp::croak\(\'(.*?)\'\)/; 112 117 if (defined $msg) { … … 115 120 print $outhandle "$plugin_name failed to process $file ($msg)\n"; 116 121 } 122 117 123 # reset ourself for the next document 118 124 $self->{'section_level'}=0; 119 125 return -1; # error during processing 120 126 } 121 122 127 return 1; # processed the file 123 128 } … … 250 255 1; 251 256 257 258 259
Note:
See TracChangeset
for help on using the changeset viewer.