projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1c31887
)
for debug=2 validate records and print a warning in case of problems.
author
Wolfram Schneider
<wosch@indexdata.dk>
Wed, 28 Apr 2010 15:21:30 +0000
(17:21 +0200)
committer
Wolfram Schneider
<wosch@indexdata.dk>
Wed, 28 Apr 2010 15:21:30 +0000
(17:21 +0200)
bin/irspy-rewrite-records.pl
patch
|
blob
|
history
diff --git
a/bin/irspy-rewrite-records.pl
b/bin/irspy-rewrite-records.pl
index
3dbd731
..
4c89286
100755
(executable)
--- a/
bin/irspy-rewrite-records.pl
+++ b/
bin/irspy-rewrite-records.pl
@@
-6,7
+6,7
@@
use lib '../lib';
use Data::Dumper;
use Getopt::Long;
use ZOOM::IRSpy;
use Data::Dumper;
use Getopt::Long;
use ZOOM::IRSpy;
-use ZOOM::IRSpy::Utils qw(render_record);
+use ZOOM::IRSpy::Utils qw(render_record validate_record);
use strict;
use warnings;
use strict;
use warnings;
@@
-48,6
+48,15
@@
print STDERR "rewriting ", $rs->size(), " target records" if $debug;
foreach my $i ( 1 .. $rs->size() ) {
my $xml = render_record( $rs, $i - 1, "zeerex" );
my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
foreach my $i ( 1 .. $rs->size() ) {
my $xml = render_record( $rs, $i - 1, "zeerex" );
my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
+
+ if ( $debug >= 2 ) {
+ my ( $ok, $errors ) = validate_record($rec);
+ if ( !$ok ) {
+ my @e = @$errors;
+ my $id = shift @e;
+ print "Id: $id => ", join( " / ", @e ), "\n";
+ }
+ }
ZOOM::IRSpy::_rewrite_zeerex_record( $spy->{conn}, $rec );
print STDERR "." if $debug;
}
ZOOM::IRSpy::_rewrite_zeerex_record( $spy->{conn}, $rec );
print STDERR "." if $debug;
}