dot

diff --git a/zk b/zk
index 5f1fe40d50f26cf79cf78cab8af68cc5b9848b4b..8b2a8d750fdc561d386cea15df0f19fb372db4a5 100755 (executable)
--- a/zk
+++ b/zk
@@ -97,7 +97,9 @@ sub usage {
     print STDERR "Usage:
 \t$0 links PAGE
 \t$0 backs PAGE
-\t$0 htmls DIR\n";
+\t$0 htmls DIR
+\t$0 dot | dot -Tpng >png
+";
     exit 1;
 }
 
@@ -302,6 +304,14 @@ if ($ARGV[0] eq "dump") {
         @s = stat($pth) or die "$!";
         utime $s[9], $s[9], "$ARGV[1]/$pth.html";
     }
+} elsif ($ARGV[0] eq "dot") {
+    print "digraph d {\n";
+    while (my ($from, $v) = each %links) {
+        foreach (@{$v}) {
+            print "\t\"$from\" -> \"$_\"\n";
+        }
+    }
+    print "}\n";
 } else {
     usage;
 }