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