[PATCH] WIP

[Eric Wong <e@80x24.org>]

---
 perl/dtas-graph | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/perl/dtas-graph b/perl/dtas-graph
index a41e2e0..cabe5de 100755
--- a/perl/dtas-graph
+++ b/perl/dtas-graph
@@ -82,21 +82,24 @@ while (my $pid = shift @to_scan) {
 #
 foreach my $pid (keys %pids) {
 	my @out = `lsof -p $pid`;
-	# output is like this:
-	# play    12739   ew    0r  FIFO    0,7      0t0 36924019 pipe
+# output is like this:
+# play    12739  no1  0r  FIFO        0,7  0t0 36924019 pipe
+# daemon  10742  no1  3u  unix 0xdc6aea87  0t0 19554016 /path type=SEQPACKET
 	foreach my $l (@out) {
 		my @l = split(/\s+/, $l);
-		$l[4] eq "FIFO" or next;
-
 		my $fd = $l[3];
-		my $pipe_ino = $l[7];
-		my $info = $pipes{$pipe_ino} ||= { r => [], w => [] };
-		if ($fd =~ s/r\z//) {
-			push @{$info->{r}}, [ $pid, $fd ];
-		} elsif ($fd =~ s/w\z//) {
-			push @{$info->{w}}, [ $pid, $fd ];
+		my $type = $l[4];
+		my $ino = $l[7];
+		if ($type eq 'FIFO') {
+			my $info = $pipes{$ino} ||= { r => [], w => [] };
+			if ($fd =~ s/r\z//) {
+				push @{$info->{r}}, [ $pid, $fd ];
+			} elsif ($fd =~ s/w\z//) {
+				push @{$info->{w}}, [ $pid, $fd ];
+			}
+		} elsif ($type eq 'unix') {
+			my $info = $unix{$ino}
 		}
-
 	}
 }