Parent Directory | Revision Log
convert ldif file to graphviz dot
1 | #!/usr/local/bin/perl -w |
2 | |
3 | print "digraph ldif {\n"; |
4 | |
5 | while(<>) { |
6 | chomp; |
7 | if (/^dn: *(.*)/) { |
8 | @dn=split(/, */,$1); |
9 | undef $lval; # last value |
10 | foreach (@dn) { |
11 | ($el,$val) = split (/= */,$_); |
12 | next if ($el eq "uid"); |
13 | if (!defined($exist{$val})) { |
14 | $exist{$val}++; |
15 | } |
16 | if ($lval && $conn{$val} ne $lval) { |
17 | print "\"$val\" -> \"$lval\";\n"; |
18 | $conn{$val}=$lval; |
19 | } |
20 | $lval = $val; |
21 | } |
22 | } |
23 | } |
24 | |
25 | print "}\n"; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |