/[A3C]/bin/ldap2model.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/ldap2model.pl

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

revision 107 by dpavlin, Thu May 1 16:31:00 2008 UTC revision 108 by dpavlin, Fri May 2 14:38:45 2008 UTC
# Line 74  sub entry { Line 74  sub entry {
74          my $name = $_->{name} || die "no name?";          my $name = $_->{name} || die "no name?";
75          $methods .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}};          $methods .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}};
76          my $out = qq/\tcolumn $name =>\n\t\tlabel is _('$_->{desc}')/;          my $out = qq/\tcolumn $name =>\n\t\tlabel is _('$_->{desc}')/;
77          $out .= qq/,\n\t\t# single-value/ if $_->{'single-value'};  #       $out .= qq/,\n\t\t# single-value/ if $_->{'single-value'};
78    #       $out .= qq/,\n\t\tfilters are qw(A3C::Filter::Array)/ unless $_->{'single-value'};
79          $out .= qq/,\n\t\tmax_length is $_->{max_length}/ if $_->{'max_length'};          $out .= qq/,\n\t\tmax_length is $_->{max_length}/ if $_->{'max_length'};
80          $out .= qq/,\n\t\t$add/ if $add;          $out .= qq/,\n\t\t$add/ if $add;
81          $out .= qq/;\n\n/;          $out .= qq/;\n\n/;
# Line 90  $model .= qq/\t# $objectClass must:\n\n/ Line 91  $model .= qq/\t# $objectClass must:\n\n/
91  map {  map {
92          warn "# $objectClass must: ",dump( $_ ) if $debug;          warn "# $objectClass must: ",dump( $_ ) if $debug;
93          $model .= entry( $_, 'is mandatory' );          $model .= entry( $_, 'is mandatory' );
94          $create->{$_->{name}} = $_->{name};          $create->{$_->{name}} = $_->{'single-value'} ? $_->{name} : [ $_->{name}, $_->{desc} ];
95  } $schema->must( $objectClass );  } $schema->must( $objectClass );
96    
97  $model .= qq/\t# $objectClass may:\n\n/;  $model .= qq/\t# $objectClass may:\n\n/;
# Line 178  $test =~ s/_objectClass_/$objectClass/gs Line 179  $test =~ s/_objectClass_/$objectClass/gs
179    
180  foreach my $round ( 1 .. 2 ) {  foreach my $round ( 1 .. 2 ) {
181          my $data;          my $data;
182          $data .= qq/\t\t'$_' => '$_ $round',\n/ foreach keys %$create;          $data .= qq/\t\t'$_' => / . dump( $create->{$_} ) . qq/,\n/ foreach keys %$create;
183          warn "$round data = $data\n" if $debug;          warn "$round data = $data\n" if $debug;
184          $test =~ s/_create_${round}_/$data/gs;          $test =~ s/_create_${round}_/$data/gs;
185  }  }

Legend:
Removed from v.107  
changed lines
  Added in v.108

  ViewVC Help
Powered by ViewVC 1.1.26