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(
        Node_ID =>      $h->{id},
        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	Node_ID => $h->{id},
8	Title => $h->{title},
9	Author => $h->{author}->{content},
10	Date => $h->{created},
11	Content => $h->{doctext}->{content},
12	Type => $h->{type}->{content},
13	);
14
15