HTML
# # # END HTML # # #
#open, read and print topic content
foreach $topic(@topics) {
if ($topic =~ /^(forum_(\d*))\/(\d*\.topic)$/s) { #this only happens when you perform a search
$topic_dir = "$simpleforum_dir/$1";
$forum_id = $2;
$topic = $3;
$highlight = "&highlight=$searchkey";
}
if ($topic =~ /(.*?).topic$/sg) {
$topic_id = $1;
$topic_replies = 0;
#open the topic
open(TOPIC,"< $topic_dir/$topic") or dienice("Couldn't open $topic_dir/$topic: $!");
$topic_content = join '', ;
close TOPIC;
open(STATS,"< $simpleforum_dir/viewcount.sf");
$stats_content = join '', ;
close STATS;
#get necessary content
if ($topic_content =~ /(.*?)<\/name>/s) {
$topic_name = $1;
# if this is a known user, get his real user name
if (-e "$users_dir/$topic_name.prf") {
open PRF, "$users_dir/$topic_name.prf";
while () {
if (/(.*?)<\/user_name>/) {
$topic_name = "$1";
}
}
close PRF;
}
}
if ($topic_content =~ /(.*?)<\/subject>/s) {
$topic_subject = $1;
}
if ($stats_content =~ /<$topic_id>(.*?)\n/s) {
$topic_views = $1;
} else { $topic_views = 0; }
if ($topic_content =~ /(.*)(.*?)<\/name>(.*?)
";
}
sub print_topic {
# close or re-open a topic
if (param('action') eq "close" or param('action') eq "open" and ($admin_access or $moderator_access)) {
open(TPC, "+>> $simpleforum_dir/forum_$forum_id/$topic_id.topic") or dienice("Couldn't open topic file: $!");
flock TPC, 2;
seek TPC, 0, 0;
$tpc_content = join '', ;
truncate TPC, 0;
if (param('action') eq "close") { print TPC "\n\n"; }
else { $tpc_content =~ s/\n\n//sg; }
print TPC $tpc_content;
close TPC;
}
# unsubscribe to a topic
if (param('action') eq "unsubscribe") {
open (TOPIC, "+>> $topic_dir/$topic_id.topic") or dienice("Couldn't open $topic_dir/$topic_id.topic");
flock TOPIC, 2;
seek TOPIC, 0, 0;
$tpc_content = join '', ;
seek TOPIC, 0, 0;
truncate TOPIC, 0;
$tpc_content =~ s/(.*?)\|$user<\/subscribe>\n/$1<\/subscribe>\n/s;
$tpc_content =~ s/$user\|(.*?)<\/subscribe>\n/$1<\/subscribe>\n/s;
$tpc_content =~ s/$user<\/subscribe>\n/<\/subscribe>\n/s;
$tpc_content =~ s/(.*?)\|$user\|(.*?)<\/subscribe>\n/$1\|$2<\/subscribe>\n/s;
print TOPIC $tpc_content;
close TOPIC;
}
#open the specific topic
open(TOPIC,"< $topic_dir/$topic_id.topic") or dienice("Couldn't open $topic_dir/$topic_id.topic");
$topic_content = join '', ;
close TOPIC;
#write stats for the topic
open (STATS, "+>> $simpleforum_dir/viewcount.sf") or dienice("Couldn't open viewcount file: $!");
flock STATS, 2;
seek STATS, 0, 0;
$stats_content = join '', ;
seek STATS, 0, 0;
truncate STATS, 0;
if ($stats_content =~ /<$topic_id>(\d*)\n/) {
$views = $1 + 1;
$stats_content =~ s/<$topic_id>(\d*)\n/<$topic_id>$views\n/sg;
} else {
print STATS "<$topic_id>1\n";
}
print STATS $stats_content;
close STATS;
#if this is a read-only forum, act as if the topic is a "CLOSED" topic, EXCEPT if you have admin access
open (FORUMINFO, "< $simpleforum_dir/forum_$forum_id/forum.info") or dienice("Couldn't open forum.info file for reading: $!");
$forum_info = join '', ;
close FORUMINFO;
if ($forum_info =~ /(.*?)<\/forum_perm>/s) { $forum_perm = $1; }
if ($forum_perm eq "read-only" and !$admin_access and !$moderator_access) { $topic_closed = 1; }
if ($topic_content =~ /(.*?)<\/subject>/s) { $topic_title = $1; }
$original_topic_title = $topic_title;
$topic_title = add_html($topic_title);
# # # # HTML # # # #
print <
HTML
# # # END HTML # # #
# check if this is a closed topic
if ($topic_content =~ //s) { $topic_closed = 1; }
# check if the user is subscribed to this topic
if ($topic_content =~ /(.*?)<\/subscribe>\n/ and $logged_in) { $subscribe = $1; if ($subscribe =~ /^$user$/ or $subscribe =~ /^$user\|(.*)/ or $subscribe =~ /(.*)\|$user$/) { $user_subscribed = 1; } }
if ($qs =~ /page=(\d*)/s) {
$page_start = $1;
$topic_start = ($page_start * $posts_per_page) - ($posts_per_page - 1);
} else {
$topic_start = 1;
}
$topic_end = $posts_per_page + $topic_start;
while ($topic_content =~ /(.*?)<\/post>/sg) {
#reset vars
$post_user = ""; $post_avatar = ""; $post_title = ""; $post_posts = ""; $post_status = "";
$post_number++;
#get necessary content and print it
if ($post_number >= $topic_start and $post_number < $topic_end) {
$post_amount++;
$post_content = $1;
if ($post_content =~ /(.*?)<\/name>/sg) {
$post_name = $1;
}
if ($post_content =~ /(.*?)<\/status>/sg) {
$post_status = $1;
}
if ($post_content =~ /(.*?)<\/email>/sg) {
$post_email = $1;
}
if ($post_content =~ /(.*?)<\/subject>/sg) {
$post_subject = $1;
}
if ($post_content =~ /
HTML
}
if ($post_amount > 2) {
print "
".&select_a_forum."
";
} else {
print " \n";
}
# # # # HTML # # # #
print "$lang_back ";
# check guest access; if read-only the user is not allowed to post
if ($user eq "guest" and $guest_access eq "read-only") {
print "
- [ $lang_back ] -
HTML
&page_end;
}
sub post_form {
# check guest access; if read-only the user is not allowed to post
if ($user eq "guest" and $guest_access eq "read-only") {
print "
";
&login;
return undef;
}
# check the permissions for this forum
open(FORUM_INFO, "< $simpleforum_dir/forum_$forum_id/forum.info") or dienice("Couldn't open forum.info for reading: $!");
$forum_info_content = join '', ;
close FORUM_INFO;
# if this is the post form below a preview of a post, $message and $subject need to be defined
if (param('preview')) {
$subject = param('subject');
$textarea_content = param('message');
$cookie_name = param('name'); # replace the cookie name by the new name
$cookie_email = param('email'); # replace the cookie email by the new one
if (param('subscribe')) { $subscribe_checked = "CHECKED"; }
$attachment = param('attachment');
}
# check if this is a read-only forum and only give access to admins and moderators
if ($forum_info_content =~ /(.*?)<\/forum_perm>/s) {
$forum_perm = $1;
if ($forum_perm eq 'read-only' and !$admin_access and !$moderator_access) {
print "
$lang_read_only_forum_not_authorized
$lang_back";
return undef;
}
}
my($type) = @_;
if ($original_topic_title) { $replyto_topic_title = "Re: ".$original_topic_title; }
# print the form
if ($type eq "post" and !param('preview')) {
print "
";
}
if ($msg_id) { #reply to a specific post
open(REPLY, "< $simpleforum_dir/forum_$forum_id/$topic_id.topic") or dienice("Couldn't open topic for reading: $!");
$reply_content = join '', ;
close REPLY;
# check if the user is subscribed to this topic
if ($reply_content =~ /(.*?)<\/subscribe>\n/ and $logged_in) { $subscribe = $1; if ($subscribe =~ /^$user$/ or $subscribe =~ /^$user\|(.*)/ or $subscribe =~ /(.*)\|$user$/) { $user_subscribed = 1; } }
if ($reply_content =~ /(.*)((.*?)
HTML
# # # END HTML # # #
}
sub post_preview {
# prints the preview page without the edit preview form, this form can be found in sub post_form
$post_message = add_html(param('message'));
$post_subject = add_html(param('subject'));
$topic_title = param('topic_title');
if ($topic_title) { $menu_topic_title = " » $lang_topic: $topic_title"; }
date_time(time); # set time
if (&random_signature) {
$print_signature = &add_html(&random_signature."\n");
$print_signature = "
<$bigfont>$user_name
HTML
# if there's a user title and user titles are turned on print it
if ($user_title and $enable_user_titles eq "on") { print " <$smallfont>$user_title"; }
if ($user_posts) { print " <$smallfont>$lang_posts: $user_posts"; }
print <
<$smallfont> $reply_to_this_post $edit_this_post $quickdel_link $move_topic
HTML
if ($user_avatar) { print "
HTML
}
sub verify_content {
# check the user input
# check the name field
$name = param('name');
if (!param('name')) {
$error .= "
You forgot to enter your name
\n";
}
# check the email field on syntax
if (param('email')) {
$mailcheck = param('email');
if ($mailcheck !~ /[\w\-]+\@[\w\-]+\.[\w\-]+/g) {
$error .= "
\"$mailcheck\" is not a valid email address
\n";
}
}
# check the subject field
if (!param('subject')) {
$error = $error."
You forgot to enter a subject
\n";
}
# check the message field, message is not required if there's an attachment
if (!param('message') and !param('attachment')) {
$error = $error."
You forgot to enter a message
\n";
}
# check if a guest's name isn't already used by a registered user
if (!param('logged_in')) {
open_dir($users_dir);
foreach (@files) {
if (/$name\.prf/i) {
$error = $error."
The name you specified is already in use by a registered user, please choose a different name
\n";
}
}
}
# you can't have an attachment in previews, give an error if this is the case
if (param('attachment') and param('preview')) {
$error .= "
You cannot preview attachments, please preview your post without attachments and add it at the end before sending
\n";
}
# if any of the above checks results in an error, print the error and abort
if ($error) {
&page_start;
print "
";
&page_end;
exit;
}
# all fields are ok, store them in vars
#[$name = param('name');] this is done above
$subject = param('subject');
$message = param('message');
$email = param('email');
# The part that takes care of the attachment
$file = param("attachment");
if ($file and $allow_attachments eq "yes") {
if ($file =~ /(.*)\/(.*?)$/s) { #unix filesystem
$filename = $2;
} elsif ($file =~ /(.*)\\(.*?)$/s) { #windows filesystem
$filename = $2;
} else {
$filename = $file;
}
#check if the file doesn't already exist
if (-e "$attachments_dir/$filename") {
dienice("$lang_upload_file_exists");
}
if ($ENV{'CONTENT_LENGTH'} > $attachments_uploadmax) {
#file too large
$attachments_uploadmax_kb = $attachments_uploadmax/1024;
dienice("$lang_file_too_large $attachments_uploadmax_kb kb.");
}
$file_size = $ENV{'CONTENT_LENGTH'};
if ($file_size >= 1024000) {
$file_size_kbmb = sprintf("%.1f",($file_size/1024000))."Mb";
} else {
$file_size_kbmb = sprintf("%.2f",($file_size/1024))."kb";
}
# So far so good, now the only thing we need to do is upload the file
#UPLOAD THE FILE
if (!-e "$attachments_dir") {
# attachments dir doesn't exist, so we need to creat this dir first
mkdir("$attachments_dir",0777) or dienice("$!
If the above error sais \"Permission Denied\" this means that the attachments directory does not exist or that the script has not got the sufficient previleges to write the attachment to the attachments directory. Please create this directory and set its permissions (hint: chmod 777)");
}
open(OUT,">$attachments_dir/$filename") or dienice("Couldn't write the attachment ($attachments_dir/$filename): $!");
binmode OUT;
flock OUT, 2;
$flen = 0;
while (read($file,$i,1024)) {
print OUT $i;
$flen = $flen + 1024;
if ($flen > $attachments_uploadmax) {
close(OUT);
}
}
close(OUT);
if ($message) { $message .= "\n\n"; }
$ctype = uploadInfo($file)->{'Content-Type'};
if ($ctype eq "image/gif" or $ctype eq "image/jpeg" or $ctype eq "image/pjpeg" or $ctype eq "image/png") {
$attachments_url =~ s/^http:(\/\/(.*?))$/$1/s;
$message .= "\[img:$attachments_url/$filename]";
} else {
$message .= "\[$lang_attachment: \[url=$attachments_url/$filename\]$filename\[/url\] ($file_size_kbmb)\]";
}
}
}
sub quick_delete {
if ($dele_id == '1') {
# delete entire topic
unlink "$simpleforum_dir/forum_$forum_id/$topic_id.topic";
&edit_statistics_file("tpc_amount--");
print redirect("$script_name?fid=$forum_id");
exit;
}
if (!$admin_access and !$moderator_access) { print "$lang_not_authorized \n"; }
if (!param('posted')) {
&page_start;
open (DELE, "< $simpleforum_dir/forum_$forum_id/$topic_id.topic") or dienice("Couldn't open topic for deletion. Refresh the forum and try again.");
$dele_content = join '', ;
close DELE;
if ($dele_content =~ /(.*)((.*?)
![\"\"](\"$images_dir/menu/$menu_display/btn_admin.gif\")
