conf/mungle/perlmonks-xml.pl

# special mungle file which prepare data_structure from XML

my $h = get_ds->{node};
#warn "## hash to work on = ",dump( $h );

set_ds(
        Title =>        $h->{title},
        Author =>       $h->{author}->{content},
        Date =>         $h->{created},
        Content =>      $h->{doctext}->{content},
        Type =>         $h->{type}->{content},
);


1	dpavlin	991	# special mungle file which prepare data_structure from XML
2
3			my $h = get_ds->{node};
4	dpavlin	992	#warn "## hash to work on = ",dump( $h );
5	dpavlin	991
6			set_ds(
7			Title => $h->{title},
8			Author => $h->{author}->{content},
9			Date => $h->{created},
10			Content => $h->{doctext}->{content},
11			Type => $h->{type}->{content},
12			);
13
14