/[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 61 by dpavlin, Sun Dec 13 17:35:36 2009 UTC revision 68 by dpavlin, Sun Feb 21 16:12:31 2010 UTC
# Line 32  my $config = { Line 32  my $config = {
32          upstream_ldap => 'ldap.ffzg.hr',          upstream_ldap => 'ldap.ffzg.hr',
33          upstream_ssl => 1,          upstream_ssl => 1,
34          overlay_prefix => 'ffzg-',          overlay_prefix => 'ffzg-',
35          log_file => 'log',  #       log_file => 'log/ldap-rewrite.log',
36    
37  };  };
38    
39  my $log_fh;  my $log_fh;
40    
41  sub log {  sub log {
42            return unless $config->{log_file};
43    
44          if ( ! $log_fh ) {          if ( ! $log_fh ) {
45                  open($log_fh, '>>', $config->{log_file}) || die "can't open ", $config->{log_file},": $!";                  open($log_fh, '>>', $config->{log_file}) || die "can't open ", $config->{log_file},": $!";
46                  print $log_fh "# " . time;                  print $log_fh "# " . time;
# Line 101  sub log_request { Line 103  sub log_request {
103                  if ( $request->{bindRequest}->{name} =~ m{@} ) {                  if ( $request->{bindRequest}->{name} =~ m{@} ) {
104                          my $old = $request->{bindRequest}->{name};                          my $old = $request->{bindRequest}->{name};
105                          $request->{bindRequest}->{name} =~ s/[@\.]/,dc=/g;                          $request->{bindRequest}->{name} =~ s/[@\.]/,dc=/g;
106                          $request->{bindRequest}->{name} =~ s/^/uid=/;                          $request->{bindRequest}->{name} =~ s/^/uid=/ unless $request->{bindRequest}->{name} =~ m/^uid=/;
107                          warn "rewrite bind cn $old -> ", $request->{bindRequest}->{name};                          warn "rewrite bind cn $old -> ", $request->{bindRequest}->{name};
108                          Convert::ASN1::asn_hexdump(\*STDOUT,$pdu) if $debug;                          Convert::ASN1::asn_hexdump(\*STDOUT,$pdu) if $debug;
109                          $pdu = $LDAPRequest->encode($request);                          $pdu = $LDAPRequest->encode($request);
Legend:
Removed from v.61  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.26