From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/cgi-bin/images | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 bucky2/cgi-bin/images

(limited to 'bucky2/cgi-bin/images')

diff --git a/bucky2/cgi-bin/images b/bucky2/cgi-bin/images
new file mode 100755
index 0000000..129d727
--- /dev/null
+++ b/bucky2/cgi-bin/images
@@ -0,0 +1,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;
-- 
cgit v1.2.3-70-g09d2