r1542@llin: dpavlin | 2007-11-04 18:24:56 +0100

 quick

 $ ./run.pl --only perl --offset 600 --limit 1 --debug

 to add another field to output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1001 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/conf/log.conf b/conf/log.conf
index 507930e..6f98dba 100644 (file)
--- a/conf/log.conf
+++ b/conf/log.conf
@@ -40,7 +40,7 @@ log4perl.rootLogger=INFO, LOG, SCREEN
 #log4perl.logger.WebPAC.Input.Gutenberg=DEBUG
 #log4perl.logger.WebPAC.Input.DBF=DEBUG
 #log4perl.logger.WebPAC.Input.ISI=DEBUG
-#log4perl.logger.WebPAC.Input.XML=DEBUG
+log4perl.logger.WebPAC.Input.XML=DEBUG
 
 #log4perl.logger.WebPAC.Normalize.=DEBUG
 #log4perl.logger.WebPAC.Normalize.new=DEBUG

diff --git a/conf/mungle/perlmonks-xml.pl b/conf/mungle/perlmonks-xml.pl
index dc28d70..d7b1f37 100755 (executable)
--- a/conf/mungle/perlmonks-xml.pl
+++ b/conf/mungle/perlmonks-xml.pl
@@ -4,6 +4,7 @@ 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},

diff --git a/conf/normalize/perlmonks.pl b/conf/normalize/perlmonks.pl
index 168bf56..8ac0206 100644 (file)
--- a/conf/normalize/perlmonks.pl
+++ b/conf/normalize/perlmonks.pl
@@ -1,5 +1,6 @@
 
 search_display( $_, rec( $_ ) ) foreach ( qw/
+Node_ID
 Title
 Author
 Date