--- a/exigrey.pl	Wed Jan 03 16:58:30 2007 +0000
+++ b/exigrey.pl	Wed Jan 03 17:15:15 2007 +0000
@@ -63,17 +63,19 @@
 	print; exit 0;
     };
 
-
     if ($opt_list) {
-	my %h;
-	connectDB(\%h, shift);
-	iterate(%h, sub {
-	    my ($item, $v0, $v1, $c) = @_;
-	    printf "%-16s:\t$v0 $v1 (%3d %s %s)\n", 
-		    $item, $c,
-		    strftime("%F %T", localtime($v0)), 
-		    strftime("%F %T", localtime($v1));
-	});
+	foreach (@ARGV = getDBs(@ARGV)) {
+	    my %h;
+	    my $db = connectDB(\%h, $_);
+	    print "# $db\n";
+	    iterate(%h, sub {
+		my ($item, $v0, $v1, $c) = @_;
+		printf "$item: $v0 $v1 $c (%s %s)\n", 
+			strftime("%FT%T", localtime($v0)), 
+			strftime("%FT%T", localtime($v1));
+	    });
+	    print "\n" if @ARGV;
+	}
 	exit 0;
     }