Masato Taruishi
taru****@users*****
2004年 10月 27日 (水) 21:40:16 JST
=================================================================== RCS file: utils/misc/ldifdiff/ldifdiff,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- utils/misc/ldifdiff/ldifdiff 2004/10/27 12:22:45 1.4 +++ utils/misc/ldifdiff/ldifdiff 2004/10/27 12:40:16 1.5 @@ -3,6 +3,7 @@ # Writen by Masato Taruishi <taru****@valin*****> use strict; +use MIME::Base64; use Getopt::Long; use File::Temp qw/ tempfile /; @@ -33,6 +34,7 @@ sub entry { my $in = shift; my $buf = ""; + my $e = ""; while ( <$in> ) { if ( $_ eq "\n" ) { goto BREAK; @@ -47,7 +49,15 @@ } } BREAK: - return $buf; + foreach (split /\n/, $buf ) { + if( $_ =~ /^([^:]+)::\s*(.*)/ ) { + $e = $e . "$1: " . decode_base64($2); + } else { + $e = $e . $_; + } + $e = $e . "\n"; + } + return $e; } sub modify {
