our @ISA = qw/Exporter/;
-our @EXPORT = qw/viewForumThread addForumPost markThreadAsRead/;
+our @EXPORT = qw/viewForumThread addForumPost addForumThread markThreadAsRead/;
sub viewForumThread {
my ($thread) = @_;
my $template = HTML::Template->new(filename => "templates/viewthread.tmpl", global_vars => 1, cache => 1);
- $template->param(Subject => $thread->{subject});
$template->param(Id => $thread->{id});
$template->param(Post => $thread->{post});
- my $posts = $ND::DBH->prepare(q{SELECT u.username,date_trunc('minute',fp.time::timestamp) AS time,fp.message,COALESCE(fp.time > ftv.time,TRUE) AS unread
+ my $posts = $ND::DBH->prepare(q{SELECT u.username,date_trunc('seconds',fp.time::timestamp) AS time,fp.message,COALESCE(fp.time > ftv.time,TRUE) AS unread
FROM forum_threads ft JOIN forum_posts fp USING (ftid) JOIN users u USING (uid) LEFT OUTER JOIN (SELECT * FROM forum_thread_visits WHERE uid = $2) ftv ON ftv.ftid = ft.ftid
WHERE ft.ftid = $1
ORDER BY fp.time ASC
$post->{message} = parseMarkup($post->{message});
push @posts,$post;
}
+
+ if (defined param('cmd') && param('cmd') eq 'Preview'){
+ my $text = parseMarkup(escapeHTML(param('message')));
+ $text .= p b $@ if $@;
+ push @posts,{message => $text, unread => 1, username => 'PREVIEW', Time => 'Not submitted yet', NewPosts => $old ? 1 : 0};
+
+ $text = escapeHTML param('message');
+ $text =~ s/\x{3}\d\d?//g; #mirc color TODO: possibly match until \x{0F} and change to [color] block
+ $text =~ s/[^\x{9}\x{A}\x{D}\x{20}-\x{D7FF}\x{E000}-\x{FFFD}\x{10000}-\x{10FFFF}]//g;
+ $template->param(Message => $text);
+ }
$template->param(Posts => \@posts);
markThreadAsRead($thread->{id});
return 1;
}
+sub addForumThread {
+ my ($dbh,$board,$uid,$subject) = @_;
+
+ my $insert = $dbh->prepare(q{INSERT INTO forum_threads (fbid,subject) VALUES($1,$2)});
+
+ if ($insert->execute($board->{id},escapeHTML($subject))){
+ my $id = $dbh->last_insert_id(undef,undef,undef,undef,"forum_threads_ftid_seq");
+ return $dbh->selectrow_hashref(q{SELECT ftid AS id, subject, $2::boolean AS post FROM forum_threads WHERE ftid = $1}
+ ,undef,$id,$board->{post})
+ or $ND::ERROR .= p($dbh->errstr);
+ }else{
+ $ND::ERROR .= p($dbh->errstr);
+ }
+}
+
sub markThreadAsRead {
my ($thread) = @_;
my $rows = $ND::DBH->do(q{UPDATE forum_thread_visits SET time = now()