/[virtual-ldap]/bin/ldap-rewrite.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/ldap-rewrite.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 28 by dpavlin, Tue Mar 17 09:33:44 2009 UTC revision 29 by dpavlin, Tue Mar 17 09:39:05 2009 UTC
# Line 20  use YAML qw/LoadFile/; Line 20  use YAML qw/LoadFile/;
20    
21  my $config = {  my $config = {
22          yaml_dir => './yaml/',          yaml_dir => './yaml/',
23          listen => 'localhost:2389',          listen => 'localhost:1389',
24          upstream_ldap => 'ldap.ffzg.hr',          upstream_ldap => 'ldap.ffzg.hr',
25          upstream_ssl => 1,          upstream_ssl => 1,
26          overlay_prefix => 'ffzg-',          overlay_prefix => 'ffzg-',
# Line 177  my $listenersock = IO::Socket::INET->new Line 177  my $listenersock = IO::Socket::INET->new
177          Proto => 'tcp',          Proto => 'tcp',
178          Reuse => 1,          Reuse => 1,
179          LocalAddr => $config->{listen},          LocalAddr => $config->{listen},
180  );  ) || die "can't open listen socket: $!";
181    
182    
183  my $targetsock = $config->{upstream_ssl}  my $targetsock = $config->{upstream_ssl}
# Line 187  my $targetsock = $config->{upstream_ssl} Line 187  my $targetsock = $config->{upstream_ssl}
187                  PeerPort => 389,                  PeerPort => 389,
188          )          )
189          : IO::Socket::SSL->new( $config->{upstream_ldap} . ':ldaps')          : IO::Socket::SSL->new( $config->{upstream_ldap} . ':ldaps')
190          ;          || die "can't open upstream socket: $!";
191    
192    binmode( $listenersock );
193    binmode( $targetsock );
194    
195  run_proxy($listenersock,$targetsock);  run_proxy($listenersock,$targetsock);
196    
Legend:
Removed from v.28  
changed lines
  Added in v.29
  ViewVC Help
Powered by ViewVC 1.1.26