#!/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();