Parent Directory
| 
Revision Log
convert ldif file to graphviz dot
| 1 | dpavlin | 1.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 |