blob: 129d727d18405ee5b6d4d48ca773436566e82fec (
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
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/perl
use lib "../lib";
use Bucky;
my $bucky = new Bucky;
print "Content-type: text/html\n\n";
my $files = $bucky->db->select("file", "group by thread");
my $i = 0;
my $count = 0;
print "<font size=-1><table>";
foreach my $file (@$files)
{
my $z_thread = $file->{'thread'};
my $z_img;
if ($file->{'filename'} =~ /(jpg|png|gif)/i)
{
my $ext = $1;
my $username = $file->{'username'};
my $filename = $file->{'filename'};
my $lc_filename = lc($file->{'filename'});
my $label_filename = $filename;
$label_filename =~ s/\.$ext//g;
$label_filename =~ s/\W+/ /g;
$label_filename =~ s/_+/ /g;
$z_img .= "<a href='/bucky/data/$z_thread/$filename' target=_new>";
$z_img .= "<img src=\"/bucky/data/$z_thread/.thumb/t.$lc_filename\" width=200 hspace=10 vspace=10>";
$z_img .= "</a>";
$z_img .= "<br>".$label_filename;
}
next unless $z_img;
if ($i == 0)
{ print "<tr>"; }
print "<td>";
print $z_img;
print "</td>";
$i++;
$count++;
if ($i == 5)
{ print "</tr>\n"; $i = 0; }
}
print "</table>";
print $count." images found\n";
1;
|
