#!/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) ; }