SHUTTLE/schema_prod/unfoldlines.pl

   1 #!/usr/bin/perl
   2 # unfoldlines.pl is a script to unfold lines when they start with a leading
   3 # space. It is meant to correct the output of ldapsearch making it comparable
   4 # to the ldif files
   5 # Usage: ldapsearch [...args...] | ./unfoldlines.pl > verify.out
   6 # if verify.out is the file to be diffed against the ldif files
   7 #
   8
   9 my @lines=<>;
  10
  11 $folded=0;
  12 $cnt=1;
  13 while ($lines[$cnt]) {
  14   $line = $lines[$cnt];
  15   if ($line =~ /^ /) {
  16     $folded = 1;
  17     $line =~ s/^ //;
  18     chomp $lines[$cnt-1];
  19     $line = $lines[$cnt-1] . $line;
  20     print $line;
  21   } else {
  22     if($folded==0) {print $lines[$cnt-1];}
  23     $folded=0;
  24   }
  25   $cnt++;
  26 }
  27
  28 close(FILE);
  29