Return to HarvestmetaHandler.pm CVS log

Up to [Repository] / foxridge-archiver

Annotation of foxridge-archiver/HarvestmetaHandler.pm, revision 1.1

1.1     ! casties     1: #
        !             2: # SAX handler for harvestmeta
        !             3: #
        !             4: 
        !             5: package HarvestmetaHandler;
        !             6: 
        !             7: use strict;
        !             8: 
        !             9: use base qw(XML::SAX::Base);
        !            10: 
        !            11: use lib '/usr/local/mpiwg/archive';
        !            12: use MPIWGStor;
        !            13: 
        !            14: my @currElemPath;
        !            15: my $currElem;
        !            16: my $currText;
        !            17: my $currAttrib;
        !            18: my @elements;
        !            19:   
        !            20: sub getData {
        !            21:     return @elements;
        !            22: }
        !            23: 
        !            24: sub start_document {
        !            25:     my ($self, $doc) = @_;
        !            26:     # process document start event
        !            27:     #logger('DEBUG', "startdoc: $self, $doc");
        !            28:     @currElemPath = ();
        !            29:     $currElem = "";
        !            30:     $currText = "";
        !            31:     $currAttrib ="";
        !            32:     @elements = ();
        !            33: }
        !            34: 
        !            35: sub start_element {
        !            36:     my ($self, $el) = @_;
        !            37:     # process element start event
        !            38:     #logger('DEBUG', "startelem: $self, $el");
        !            39:     # check if the last element needs to be finished
        !            40:     if ($currElem) {
        !            41:    my $elem = join "/", @currElemPath;
        !            42:    push @elements, [$elem, "", $currAttrib];
        !            43:     }
        !            44:     # element name is either LocalName or Name
        !            45:     my $name = $$el{'LocalName'};
        !            46:     $name = $$el{'Name'} unless ($name);
        !            47:     #logger('DEBUG', "  name: $name");
        !            48:     # assemble attributes string
        !            49:     $currAttrib ="";
        !            50:     foreach $a (values %{$$el{'Attributes'}}) {
        !            51:    my $n = $$a{'LocalName'};
        !            52:    $n = $$a{'Name'} unless ($n);
        !            53:    my $v = $$a{'Value'};
        !            54:    $currAttrib .= "$n=\"$v\" ";
        !            55:     }
        !            56:     # start element name
        !            57:     push @currElemPath, $name;
        !            58:     $currElem = $name;
        !            59:     $currText = "";
        !            60: }
        !            61: 
        !            62: sub end_element {
        !            63:     my ($self, $el) = @_;
        !            64:     # process element end event
        !            65:     #logger('DEBUG', "endelem: $self, $el");
        !            66:     # check element name
        !            67:     my $name = $$el{'LocalName'};
        !            68:     $name = $$el{'Name'} unless ($name);
        !            69:     my $lastag = $currElemPath[$#currElemPath];
        !            70:     if ($lastag ne $name) {
        !            71:    logger('ERROR', "closing tag '$lastag' doesn't match '$name'!");
        !            72:     }
        !            73:     # assemble element path
        !            74:     my $elem = join "/", @currElemPath;
        !            75:     # strip whitespace from element content
        !            76:     $currText =~ s/^\s*//;
        !            77:     $currText =~ s/\s*$//;
        !            78:     if ($currText) {
        !            79:    # put pair in elements array
        !            80:    push @elements, [$elem, $currText, $currAttrib];
        !            81:    #logger('DEBUG', "  elem: $elem = $currText");
        !            82:     }
        !            83:     # end element name
        !            84:     pop @currElemPath;
        !            85:     $currElem = "";
        !            86:     $currText = "";
        !            87:     $currAttrib ="";
        !            88: }
        !            89: 
        !            90: sub characters {
        !            91:     my ($self, $char) = @_;
        !            92:     # process character data event
        !            93:     #logger('DEBUG', "characters: $self, $char");
        !            94:     # add to current content
        !            95:     $currText .= $$char{'Data'};
        !            96:     #logger('DEBUG', " Text: $currText");
        !            97: }
        !            98: 
        !            99: 
        !           100: 1;