blob: 47421833b336b077a3ebb791a6bb4ee4c6a03c0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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) ;
}
|
