Automatically use ldif syntax highlighting for editors that understand

LDIF.  (rickh_shelldap@printstring.com)

FossilOrigin-Name: 8db00eefabf3ad6299552ad9aa401a21077c9e8a17647460947e484662dd0b65
This commit is contained in:
mahlon@laika.com 2013-05-15 19:17:51 +00:00
parent 7402148c97
commit 7eae67f0a3

View file

@ -617,7 +617,7 @@ sub ldif
# #
if ( $use_temp ) { if ( $use_temp ) {
my ( undef, $fname ) = my ( undef, $fname ) =
File::Temp::tempfile( 'shelldap_XXXXXXXX', DIR => '/tmp', UNLINK => 1 ); File::Temp::tempfile( 'shelldap_XXXXXXXX', SUFFIX => '.ldif', DIR => '/tmp', UNLINK => 1 );
$self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => $self->wrapsize ); $self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => $self->wrapsize );
$self->{'ldif_fname'} = $fname; $self->{'ldif_fname'} = $fname;
} }
@ -1352,7 +1352,7 @@ sub run_create
my $fh; my $fh;
( $fh, $self->{'create_file'} ) = ( $fh, $self->{'create_file'} ) =
File::Temp::tempfile( 'shelldap_XXXXXXXX', DIR => '/tmp', UNLINK => 1 ); File::Temp::tempfile( 'shelldap_XXXXXXXX', SUFFIX => '.ldif', DIR => '/tmp', UNLINK => 1 );
# first print out the dn and object classes. # first print out the dn and object classes.
# #