/[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 70 by dpavlin, Mon Feb 22 22:18:55 2010 UTC
# Line 24  our $VERSION = '0.3'; Line 24  our $VERSION = '0.3';
24  use fields qw(socket target);  use fields qw(socket target);
25  use YAML qw/LoadFile/;  use YAML qw/LoadFile/;
26    
27  my $debug = 1;  my $debug = 0;
28    
29  my $config = {  my $config = {
30          yaml_dir => './yaml/',          yaml_dir => './yaml/',
# 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;
Legend:
Removed from v.61  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.26