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	# special mungle file which prepare data_structure from XML
2
3	my $h = get_ds->{node};
4	#warn "## hash to work on = ",dump( $h );
5
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