equal
deleted
inserted
replaced
653 # create tmpfile and link ldif object with it |
653 # create tmpfile and link ldif object with it |
654 # |
654 # |
655 if ( $use_temp ) { |
655 if ( $use_temp ) { |
656 my ( undef, $fname ) = |
656 my ( undef, $fname ) = |
657 File::Temp::tempfile( 'shelldap_XXXXXXXX', SUFFIX => '.ldif', DIR => '/tmp', UNLINK => 1 ); |
657 File::Temp::tempfile( 'shelldap_XXXXXXXX', SUFFIX => '.ldif', DIR => '/tmp', UNLINK => 1 ); |
658 $self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => $self->wrapsize ); |
658 $self->{'ldif'} = Net::LDAP::LDIF->new( $fname, 'w', sort => 1, wrap => 0 ) |
659 $self->{'ldif_fname'} = $fname; |
659 $self->{'ldif_fname'} = $fname; |
660 } |
660 } |
661 |
661 |
662 # ldif -> stdout |
662 # ldif -> stdout |
663 else { |
663 else { |
2246 package main; |
2246 package main; |
2247 use strict; |
2247 use strict; |
2248 use warnings; |
2248 use warnings; |
2249 |
2249 |
2250 $0 = 'shelldap'; |
2250 $0 = 'shelldap'; |
2251 my $VERSION = '1.0.2'; |
2251 my $VERSION = '1.2.0'; |
2252 |
2252 |
2253 use Getopt::Long; |
2253 use Getopt::Long; |
2254 use YAML::Syck; |
2254 use YAML::Syck; |
2255 use Pod::Usage; |
2255 use Pod::Usage; |
2256 eval 'use Term::ReadLine::Gnu'; |
2256 eval 'use Term::ReadLine::Gnu'; |