From: rgrosso <rgrosso@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Mon, 28 Jan 2008 14:01:16 +0000 (+0000)
Subject: Parsing the output of ldapsearch with a perl script to unfold lines and make it compa... 
X-Git-Url: http://git.uio.no/git/?a=commitdiff_plain;h=64e6e37d79832cb5c5ddad26f00c41bece8196e0;p=u%2Fmrichter%2FAliRoot.git

Parsing the output of ldapsearch with a perl script to unfold lines and make it compareble to the corresponding ldif file for diff
---

diff --git a/SHUTTLE/schema_prod/unfoldlines.pl b/SHUTTLE/schema_prod/unfoldlines.pl
new file mode 100755
index 00000000000..ae6d5615a72
--- /dev/null
+++ b/SHUTTLE/schema_prod/unfoldlines.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+# unfoldlines.pl is a script to unfold lines when they start with a leading
+# space. It is meant to correct the output of ldapsearch making it comparable
+# to the ldif files 
+# Usage: ldapsearch [...args...] | ./unfoldlines.pl > verify.out
+# if verify.out is the file to be diffed against the ldif files
+# 
+
+my @lines=<>;
+
+$folded=0;
+$cnt=1;
+while ($lines[$cnt]) {
+  $line = $lines[$cnt];
+  if ($line =~ /^ /) {
+    $folded = 1;
+    $line =~ s/^ //;
+    chomp $lines[$cnt-1];
+    $line = $lines[$cnt-1] . $line;
+    print $line;
+  } else {
+    if($folded==0) {print $lines[$cnt-1];}
+    $folded=0;
+  }
+  $cnt++;
+}
+
+close(FILE);
+
diff --git a/SHUTTLE/schema_prod/verify.sh b/SHUTTLE/schema_prod/verify.sh
index 4d3a9681350..122fcefe165 100755
--- a/SHUTTLE/schema_prod/verify.sh
+++ b/SHUTTLE/schema_prod/verify.sh
@@ -27,6 +27,8 @@ case "$1" in
 esac
 
 ldapsearch -H ldap://pcalishuttle01.cern.ch  -x -b "$SEARCH,o=shuttle_prod,dc=cern,dc=ch" -L -L -L > verify.out
+cat verify.out | ./unfoldlines.pl > verify1.out
 
-diff --ignore-space-change --ignore-blank-lines verify.out $FILE | grep -v "> #"
+diff --ignore-space-change --ignore-blank-lines verify1.out $FILE | grep -v "> #" | grep -v '^0[a-z]'
 
+rm verify.out verify1.out