From e9192b3d42660a5781101df4357d276318151e8a Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:14:41 -0500
Subject: cgi-bin & lib

---
 cgi-bin/settings | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 cgi-bin/settings

(limited to 'cgi-bin/settings')

diff --git a/cgi-bin/settings b/cgi-bin/settings
new file mode 100644
index 0000000..e2b3b1f
--- /dev/null
+++ b/cgi-bin/settings
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use localbucky;
+
+$dbh = DBI->connect ($dsn);
+
+our ($USER, $lastlog) = checkin();
+our $loggedin = ($USER != -1);
+
+#nice_redirect() if ($USER->{ulevel} != 3);
+
+header("bucky spritz tester", qq(<a href="$BUCKY/adminzz">roll back adminzz</a>) );
+menu();
+my $id = exists($input->{id}) ? $input->{id} : 165;
+my $thread = get_thread($id);
+my $keyword = get_keyword($thread->{keyword});
+my $files = get_files($id);
+print qq(<center><table border=0 cellpadding=0 cellspacing=0><tr><td>);
+find_jpeg($files, $thread->{flagged});
+sideshow_comments($thread, $keyword);
+reply_form($thread->{id}, $thread);
+print qq(</td></tr></table></center>);
+footer();
+
-- 
cgit v1.2.3-70-g09d2