cgi-bin & lib

1 files changed, 24 insertions, 0 deletions

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();
+