git.rot13.org Git - webpac2/blob - conf/mungle/perlmonks-xml.pl

   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