/[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 23 by dpavlin, Mon Mar 16 13:27:44 2009 UTC revision 24 by dpavlin, Mon Mar 16 13:34:32 2009 UTC
# Line 131  sub run_proxy { Line 131  sub run_proxy {
131          die "Could not create listener socket: $!\n" unless $listenersock;          die "Could not create listener socket: $!\n" unless $listenersock;
132          die "Could not create connection to server: $!\n" unless $targetsock;          die "Could not create connection to server: $!\n" unless $targetsock;
133    
         # mark sockets as binary  
         binmode( $listenersock );  
         binmode( $targetsock );  
   
134          my $sel = IO::Select->new($listenersock);          my $sel = IO::Select->new($listenersock);
135          my %Handlers;          my %Handlers;
136          while (my @ready = $sel->can_read) {          while (my @ready = $sel->can_read) {
# Line 157  sub run_proxy { Line 153  sub run_proxy {
153  }  }
154    
155    
156    $ENV{LANG} = 'C'; # so we don't double-encode utf-8 if LANG is utf-8
157    
158  my $listenersock = IO::Socket::INET->new(  my $listenersock = IO::Socket::INET->new(
159          Listen => 5,          Listen => 5,
160          Proto => 'tcp',          Proto => 'tcp',

Legend:
Removed from v.23  
changed lines
  Added in v.24

  ViewVC Help
Powered by ViewVC 1.1.26