From 79670053c7247d3a49b607960efd284e93f057e5 Mon Sep 17 00:00:00 2001 From: Jules Laplace Date: Fri, 2 Aug 2013 17:14:26 -0500 Subject: install.pl --- bin/participation_matrix.pl | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 bin/participation_matrix.pl (limited to 'bin/participation_matrix.pl') 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 ""; +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) ; + } -- cgit v1.2.3-70-g09d2