1 files changed, 35 insertions, 0 deletions
diff --git a/bin/participation_matrix.pl b/bin/participation_matrix.pl
new file mode 100644
index 0000000..4742183
--- /dev/null
+++ b/bin/participation_matrix.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+$dbh = DBI->connect ($dsn);
+
+our ($USER, $lastlog) = checkin();
+our $loggedin = ($USER != -1);
+
+my ($threads) = get_threads();
+my ($keywords) = get_keywords();
+
+open HMATRIX, ">".$BUCKY_CONFIG->{BASE_PATH}."/docs/hmatrix.html";
+
+print HMATRIX "<html><body>";
+foreach $t (keys (%$threads))
+	{
+	my ($files, $comments) = get_attachments($t);
+	}
+
+sub check_user_hash
+	{
+	my ($userhash, $fakehash) = @_;
+	foreach $k (keys %$fakehash)
+		{
+		$userhash->{$fakehash->{username}} += 1;
+		}
+	}
+
+sub get_attachments
+    {
+	my ($id) = @_;
+    my $files = get_files($t->{id});
+    my $comments = get_comments ($t->{id});
+
+	return ($files, $comments) ;
+	}