) { $scchecked = ' checked="checked"'; }
fclose(FILE);
}
if ($guest_vote) { $gvchecked = ' checked="checked"'; }
if ($hide_results) { $hrchecked = ' checked="checked"'; }
if ($multi_choice) { $mcchecked = ' checked="checked"'; }
if ($pie_legends) { $legchecked = ' checked="checked"'; }
$piecolarray = q~["",~;
for my $i ( 1 .. $numpolloptions ) {
if ( $split[$i] ) { $splitchecked[$i] = ' checked="checked"'; }
if ( $FORM{"slicecol$i"} ) {
$slicecolor[$i] = $FORM{"slicecol$i"} || 'transparent';
}
$mypoll_opt .= $my_poll_options;
$mypoll_opt =~ s/{yabb i}/$i/gsm;
$mypoll_opt =~ s/{yabb maxpo}/$maxpo/gsm;
$mypoll_opt =~ s/{yabb options_i}/$options[$i]/gsm;
$mypoll_opt =~ s/{yabb slicecolor_i}/$slicecolor[$i]/gsm;
$mypoll_opt =~ s/{yabb splitchecked_i}/$splitchecked[$i]/sm;
$piecolarray .= qq~"$slicecolor[$i]", ~;
}
$piecolarray =~ s/\, $//ism;
$piecolarray .= q~]~;
if ( $maxpc > 0 ) {
$my_maxpc = $my_poll_comment;
$my_maxpc .=
qq~
~;
$my_maxpc .= $my_poll_comment_b;
}
if ($poll_end) {
my $x = $poll_end - $date;
if ( $x <= 0 ) {
$poll_end_min = 1;
}
else {
$poll_end_days = int( $x / 86400 );
$poll_end_min =
int( ( $x - ( $poll_end_days * 86400 ) ) / 60 );
}
}
$my_pie = $mypost_poll_pie;
$my_pie .=
$poll_locked
? q{}
: $my_poll_end;
$my_pie .=
( $iamadmin || $iamgmod )
? $my_poll_sc
: q{};
$my_pie .= $my_poll_hide;
$my_pie =~ s/{yabb piecolarray}/$piecolarray/sm;
$my_pie =~ s/{yabb poll_end_days}/$poll_end_days/sm;
$my_pie =~ s/{yabb poll_end_min}/$poll_end_min/sm;
$my_pie =~ s/{yabb scchecked}/$scchecked/sm;
$my_pie =~ s/{yabb gvchecked}/$gvchecked/sm;
$my_pie =~ s/{yabb hrchecked}/$hrchecked/sm;
$my_pie =~ s/{yabb mcchecked}/$mcchecked/sm;
$my_pie =~ s/{yabb vote_limit}/$vote_limit/sm;
$my_pie =~ s/{yabb legchecked}/$legchecked/sm;
$my_pie =~ s/{yabb pie_radius}/$pie_radius/sm;
$my_pollsection = $mypost_poll_top;
$my_pollsection =~ s/{yabb poll_question}/$poll_question/sm;
$my_pollsection =~ s/{yabb maxpq}/$maxpq/sm;
$my_pollsection =~ s/{yabb pollthread}/$pollthread/sm;
$my_pollsection =~ s/{yabb mypoll_opt}/$mypoll_opt/sm;
$my_pollsection =~ s/{yabb my_maxpc}/$my_maxpc/sm;
$my_pollsection =~ s/{yabb my_pie}/$my_pie/sm;
}
if ( $postid ne 'Poll' ) {
$css = isempty( $css, 'windowbg' );
if ( $tmpmusername eq 'Guest' ) {
$liveusernamelink = qq~$mename~;
$livememberinfo = "$maintxt{'28'}";
$livememberstar = q{};
$livetemplate_postinfo = q{};
$tmplastmodified = q{};
$liveuserlocation = q{};
}
else {
if ( !${ $uid . $tmpmusername }{'password'} ) {
LoadUser($tmpmusername);
}
if ( $tmpmusername eq $username ) { LoadMiniUser($tmpmusername); }
if ( !$yyUDLoaded{$tmpmusername}
&& -e ("$memberdir/$tmpmusername.vars") )
{
my $tmpmess = $message;
LoadUserDisplay($tmpmusername);
$message = $tmpmess;
}
$liveusernamelink = $format{$tmpmusername};
$livememberinfo =
"$memberinfo{$tmpmusername}$addmembergroup{$tmpmusername}";
$livememberstar = $memberstar{$tmpmusername};
$livepostcount =
NumberFormat( ${ $uid . $tmpmusername }{'postcount'} );
$livetemplate_postinfo =
qq~$display_txt{'21'}: $livepostcount
~;
if ( ${ $uid . $tmpmusername }{'bday'}
&& $showuserage
&& ( !$showage || !${ $uid . $tmpmusername }{'hideage'} ) )
{
CalcAge( $tmpmusername, 'calc' );
$liveuser_age = qq~$display_txt{'age'}: $age
~;
}
if ( $showregdate && ${ $uid . $tmpmusername }{'regtime'} ) {
$dr_regdate =
timeformat( ${ $uid . $tmpmusername }{'regtime'} );
$dr_regdate = dtonly($dr_regdate);
$dr_regdate =~ s/(.*)(, 1?[0-9]):[0-9][0-9].*/$1/xsm;
$liveuser_regdate =
qq~$display_txt{'regdate'} $dr_regdate
~;
}
if ( ${ $uid . $tmpmusername }{'location'} ) {
$liveuserlocation =
qq~$display_txt{'location'}:~
. ${ $uid . $tmpmusername }{'location'}
. '
';
}
if ( $action eq 'modify' ) {
if (
$showmodify
&& ( !$tllastmodflag
|| ( $tmpmdate + ( $tllastmodtime * 60 ) ) < $date )
)
{
$tmplastmodified =
qq~« $display_txt{'211'}: ~
. timeformat($date,0,0,0,1)
. qq~ $display_txt{'525'} ${$uid.$username}{'realname'} »
~;
}
}
else {
$subjdate = timeformat($date);
$tmplastmodified = q{};
}
if ( ${ $uid . $tmpmusername }{'signature'} ) {
$livesignature_hr = q~
~;
}
}
$liveipimg = qq~
~;
$livemip = $display_txt{'511'};
$livemsgimg = qq~
~;
get_template('Post');
FromHTML($moddate);
$messageblock = $mypost_liveprev;
$messageblock =~ s/{yabb images}/$imagesdir/gsm;
$messageblock =~ s/{yabb css}/$css/gsm;
$messageblock =~
s/{yabb userlink}/$liveusernamelink<\/span>/gsm;
$messageblock =~ s/{yabb memberinfo}/$livememberinfo/gsm;
$messageblock =~ s/{yabb stars}/$livememberstar/gsm;
$messageblock =~ s/{yabb location}/$liveuserlocation/gsm;
$messageblock =~
s/{yabb gender}/${$uid.$tmpmusername}{'gender'}/gsm;
$messageblock =~
s/{yabb usertext}/${$uid.$tmpmusername}{'usertext'}/gsm;
$messageblock =~
s/{yabb userpic}/${$uid.$tmpmusername}{'userpic'}/gsm;
$messageblock =~ s/{yabb postinfo}/$livetemplate_postinfo/gsm;
$messageblock =~ s/{yabb msgdate}/$moddate/gsm;
$messageblock =~ s/{yabb msgimg}/$livemsgimg/gsm;
$messageblock =~ s/{yabb age}/$liveuser_age/gsm;
$messageblock =~ s/{yabb regdate}/$liveuser_regdate/gsm;
$messageblock =~
s/{yabb subject}/<\/span>/gsm;
$messageblock =~
s/{yabb message}/<\/span>/gsm;
$messageblock =~ s/{yabb modified}/$tmplastmodified/gsm;
$messageblock =~ s/{yabb ipimg}/$liveipimg/gsm;
$messageblock =~ s/{yabb ip}/$livemip/gsm;
$messageblock =~
s/{yabb signature}/${$uid.$tmpmusername}{'signature'}/gsm;
$messageblock =~ s/{yabb signaturehr}/$livesignature_hr/gsm;
$messageblock =~ s/{yabb (.+?)}//gsm;
if ( !$minlinkpost ) { $minlinkpost = 0; }
if ( ( $iamguest && $minlinkpost > 0 )
|| ${ $uid . $username }{'postcount'} < $minlinkpost
&& !$iamadmin
&& !$iamgmod
&& !$iammod )
{
$nolinkallow = 1;
}
$my_postsection_ajx = my_check_prev();
$topicstatus_row = q{};
$stselect = q{};
$lcselect = q{};
$hdselect = q{};
$threadclass = 'thread';
(
$mnum, $msub, $mname, $memail, $mdate,
$mreplies, $musername, $micon, $mstate
) = split /\|/xsm, $yyThreadLine;
if ( $FORM{'topicstatus'} ) { $thestatus = $FORM{'topicstatus'}; }
else { $thestatus = $mstate; }
if ( $currentboard eq $annboard ) {
$threadclass = 'announcement';
}
else {
if ( $mreplies >= $VeryHotTopic ) {
$threadclass = 'veryhotthread';
}
elsif ( $mreplies >= $HotTopic ) { $threadclass = 'hotthread'; }
}
if ( $action ne 'modalert' ) {
if ( $thestatus =~ /s/sm ) { $stselect = q~selected="selected"~; }
if ( $thestatus =~ /l/sm ) { $lcselect = q~selected="selected"~; }
if ( $thestatus =~ /h/sm ) { $hdselect = q~selected="selected"~; }
$hidestatus = q{};
if ( $staff && $sessionvalid == 1 ) {
$my_curbrd = $currentboard ne $annboard ? 3 : 2;
$my_stselect =
$currentboard ne $annboard
? qq~~
: q{};
$my_t_status = $mypost_topicstatus;
$my_t_status =~ s/{yabb my_curbrd}/$my_curbrd/sm;
$my_t_status =~ s/{yabb my_stselect}/$my_stselect/sm;
$my_t_status =~ s/{yabb lcselect}/$lcselect/sm;
$my_t_status =~ s/{yabb hdselect}/$hdselect/sm;
$my_t_status =~ s/{yabb threadclass}/$threadclass/sm;
$my_t_status =~
s/{yabb threadclass_img}/$micon_bg{$threadclass}/sm;
}
else {
$hidestatus =
qq~~;
}
}
$my_submax = $set_subjectMaxLength + ( $sub =~ /^Re: /sm ? 4 : 0 );
if ( $post ne 'imsend'
&& $postid ne 'Poll'
&& ( $action eq 'modify' || $action eq 'modify2' )
&& ( ( $staff && $staff_reason ) || $user_reason ) )
{
$my_reason = $mypost_reason;
$my_reason =~ s/{yabb reason}/$reason/sm;
}
$my_rem_smilies =
( !$removenormalsmilies
|| ( $showadded == 3 && $showsmdir != 2 )
|| ( $showsmdir == 3 && $showadded != 2 ) ) ? 2 : 3;
if ( $enable_ubbc && $showyabbcbutt ) {
$my_ubbc = postbox();
}
if ( $showadded == 2 || $showsmdir == 2 ) {
$mypost_smilie_array_top = q~
~;
$smilieslist = q{};
$smilie_url_array = q{};
$smilie_code_array = q{};
$i = 0;
if ( $showadded == 2 ) {
while ( $SmilieURL[$i] ) {
$smilieslist .= qq~ \n~;
if ( $SmilieURL[$i] =~ /\//ism ) {
$tmpurl = $SmilieURL[$i];
}
else { $tmpurl = qq~$defaultimagesdir/$SmilieURL[$i]~; }
$smilie_url_array .= qq~"$tmpurl", ~;
$tmpcode = $SmilieCode[$i];
$tmpcode =~ s/\"/\x22/gxsm;
FromHTML($tmpcode);
$tmpcode =~ s/&\x2336;/\$/gxsm;
$tmpcode =~ s/&\x2364;/\@/gxsm;
$smilie_code_array .= qq~" $tmpcode", ~;
$i++;
}
}
if ( $showsmdir == 2 ) {
opendir DIR, "$htmldir/Smilies";
@contents = readdir DIR;
closedir DIR;
foreach my $line ( sort { uc($a) cmp uc $b } @contents ) {
( $name, $extension ) = split /\./xsm, $line;
if ( $extension =~ /gif/ism
|| $extension =~ /jpg/ism
|| $extension =~ /jpeg/ism
|| $extension =~ /png/ism )
{
if ( $line !~ /banner/ism ) {
$smilieslist .=
qq~ \n~;
$smilie_url_array .=
qq~"$yyhtml_root/Smilies/$line", ~;
$smilie_code_array .= qq~" [smiley=$line]", ~;
$i++;
}
}
}
}
$smilie_url_array .= q~""~;
$smilie_code_array .= q~""~;
$mypost_smilie_array = qq~
$mypost_smilie_array_top
$mypost_smiley1
~;
$mypost_smilie_array =~ s/{yabb smilieslist}/$smilieslist/sm;
}
else {
$mypost_smilie_array .= q~
~;
}
$my_post_feata = $mypost_feata;
$my_post_feata .= qq~
$npf_txt{'features_text'}~;
if (
!$removenormalsmilies
&& ( !${ $uid . $username }{'hide_smilies_row'}
|| !$user_hide_smilies_row )
)
{
$my_smilies = $mypost_smilies;
$my_smilies .= smilies_list();
}
else {
$my_smilies = qq~$mypost_smilies ~;
}
if ( ( $showadded == 3 && $showsmdir != 2 )
|| ( $showsmdir == 3 && $showadded != 2 ) )
{
if ($removenormalsmilies) {
$my_smilies = $mypost_smilies;
}
$my_smilies .=
qq~$post_smiltxt{'1'}\n~;
}
$my_post_smilies .= $mypost_smilies_c;
$my_post_smilies =~ s/{yabb my_smilies}/$my_smilies/sm;
# File Attachment's Browse Box Code
$allowattach ||= 0;
if (
AccessCheck( $currentboard, 4 ) eq 'granted'
&& $allowattach > 0
&& ${ $uid . $currentboard }{'attperms'} == 1
&& -d "$uploaddir"
&& ( $action eq 'post'
|| $action eq 'post2'
|| $action eq 'modify'
|| $action eq 'modify2' )
&& ( ( $allowguestattach == 0 && !$iamguest )
|| $allowguestattach == 1 )
)
{
$mfn = $mfn || $FORM{'oldattach'};
my @files = split /,/xsm, $mfn;
if ( $allowattach > 1 ) {
$my_att_allow = qq~
~;
}
my $startcount;
for my $y ( 1 .. $allowattach ) {
if ( ( $action eq 'modify' || $action eq 'modify2' )
&& $files[ $y - 1 ] ne q{}
&& -e "$uploaddir/$files[$y-1]" )
{
$startcount++;
$my_att_a = qq~
$fatxt{'6'} $y:
~;
}
else {
$my_att_a = qq~
1
? q~ style="visibility:hidden; height:0px"~
: q{}
)
. qq~>$fatxt{'6'} $y:
1
? q~ style="visibility:hidden; height:0px"~
: q{}
)
. qq~>\n X
~;
}
$mypoll_att .= $my_att_a;
}
if ( !$startcount ) { $startcount = 1; }
if ( $allowattach > 1 ) {
$my_att_b = qq~
~;
}
$my_feat5 = $mypost_feat5;
$my_feat5 =~ s/{yabb mfn}/$mfn/sm;
$my_feat5 =~ s/{yabb my_att_mfn}/$my_att_mfn/sm;
$my_feat5 =~ s/{yabb my_att_allow}/$my_att_allow/sm;
$my_feat5 =~ s/{yabb filetype_info}/$filetype_info/sm;
$my_feat5 =~ s/{yabb filesize_info}/$filesize_info/sm;
$my_feat5 =~ s/{yabb mypoll_att}/$mypoll_att/sm;
$my_feat5 =~ s/{yabb my_att_b}/$my_att_b/sm;
}
# /File Attachment's Browse Box Code
### Return To start ###
my ($return_to);
my $rts =
$FORM{'return_to'}
? $FORM{'return_to'}
: ${ $uid . $username }{'return_to'};
for my $rt ( 1 .. 3 ) {
$return_to_select .=
$rts == $rt
? qq~~
: qq~~;
}
if ( $destination ne 'modalert2' && $destination ne 'guestpm2' ) {
$return_to = $mypost_return_to;
$return_to =~ s/{yabb return_to_select}/$return_to_select/sm;
}
### Return To modify end ###
$guestpost_col = $my_guestpost_col;
if ( $iamguest ) { $guestpost_col = $my_guestpost_col + 2; }
$my_postsec_b = postbox2();
$my_postsection = $mypost_postblock;
$my_postsection =~ s/{yabb my_postsection_ajx}/$my_postsection_ajx/sm;
$my_postsection =~ s/{yabb messageblock}/$messageblock/sm;
$my_postsection =~ s/{yabb my_t_status}/$my_t_status/sm;
$my_postsection =~ s/{yabb extra}/$extra/sm;
$my_postsection =~ s/{yabb name_field}/$guestpost_fields/sm;
$my_postsection =~ s/{yabb email_field}/$email_field/sm;
$my_postsection =~ s/{yabb verification_field}/$verification_field/sm;
$my_postsection =~ s/{yabb guestcol}/$guestpost_col/gsm;
$my_postsection =~ s/{yabb verification_question_field}/$verification_question_field/sm;
$my_postsection =~ s/{yabb sub}/$sub/sm;
$my_postsection =~ s/{yabb my_submax}/$my_submax/sm;
$my_postsection =~ s/{yabb myreason}/$my_reason/sm;
$my_postsection =~ s/{yabb my_rem_smilies}/$my_rem_smilies/sm;
$my_postsection =~ s/{yabb my_ubbc}/$my_ubbc/sm;
$my_postsection =~ s/{yabb my_postsec_b}/$my_postsec_b/sm;
$my_postsection =~ s/{yabb mypost_smilie_array}/$mypost_smilie_array/sm;
$my_postsection =~ s/{yabb my_post_feata}/$my_post_feata/sm;
$my_postsection =~ s/{yabb my_post_smilies}/$my_post_smilies/sm;
$my_postsection =~ s/{yabb my_feat5}/$my_feat5/sm;
$my_postsection =~ s/{yabb my_is_prev}/$my_is_prev/sm;
$my_postsection =~ s/{yabb notification}/$notification/sm;
$my_postsection =~ s/{yabb favoriteadd}/$favoriteadd/sm;
$my_postsection =~ s/{yabb lastmod}/$lastmod/sm;
$my_postsection =~ s/{yabb nscheck}/$nscheck/sm;
$my_postsection =~ s/{yabb return_to}/$return_to/sm;
}
# these are the buttons to submit
$my_post_submit = qq~$mypost_submit
$hidestatus
~;
}
if ( $action eq 'modify' || $action eq 'modify2' ) {
$displayname = qq~$mename~;
$moddate = $tmpmdate;
if (
$showmodify
&& ( !$tllastmodflag
|| ( $tmpmdate + ( $tllastmodtime * 60 ) ) < $date )
)
{
$tmplastmodified =
qq~« $display_txt{'211'}: ~
. timeformat($date,0,0,0,1)
. qq~ $display_txt{'525'} ${$uid.$username}{'realname'} »~;
}
$tmpmusername = $thismusername;
}
else {
$displayname = ${ $uid . $username }{'realname'};
$moddate = $date;
$tmplastmodified = q{};
$tmpmusername = $username;
}
$moddate = timeformat($moddate);
get_template('Display');
foreach (@months) { $jsmonths .= qq~'$_',~; }
$jsmonths =~ s/\,\Z//xsm;
$jstimeselected = ${ $uid . $username }{'timeselect'} || $timeselected;
if ( $postid ne 'Poll' ) {
$my_ajxcall = 'ajxmessage';
$my_postbox_3 = postbox3();
$my_postbox_3 .= qq~
~;
}
$yymain .= $ctmain;
$yymain .= $my_q_quote;
$yymain .= $my_adminim;
$yymain .= $mypost_ubbc;
$yymain .= $my_smilie_code;
$yymain .= $my_smiliewin;
$yymain .= $my_modalert;
$yymain .= $mypost_title;
$yymain .= $my_pollsection;
$yymain .= $my_postsection;
if ( $postid eq 'Poll' && $action eq 'modify') {
$yymain .= $mypoll_tablefix;
}
$yymain .= $my_post_submit;
$yymain .= $my_spdpost;
$yymain .= $mypost_formend;
$yymain .= $my_tclass;
$yymain .= $my_postbox_3;
$yymain .= $my_showCC;
$yymain =~ s/{yabb my_topper}/$my_topper/sm;
$yymain =~ s/{yabb icon}/$icon/sm;
$yymain =~ s/{yabb icon_img}/$micon_bg{$icon}/sm;
$yymain =~ s/{yabb yytitle}/$yytitle/sm;
$yymain =~ s/{yabb my_topview}/$my_tview/sm;
return;
}
## show Error
sub Preview {
my ($error) = @_;
ToHTML($error);
# allows the following HTML-tags in error messages:
$error =~ s/<br( \/)>/
/igsm;
$error =~ s/<(\/?)b>/<$1b>/igxsm;
if ( $action eq 'modify2' ) {
$tmpmusername = $thismusername;
}
else {
$tmpmusername = $username;
}
if ($error) {
LoadLanguage('Error');
$prevmain .= $mypost_prevmain_error;
$prevmain =~ s/{yabb preverror}/$error/sm;
$prevmain =~ s/{yabb error_occurred}/$error_txt{'error_occurred'}/sm;
}
$message = $mess;
if ($error) { $csubject = $error; }
$yytitle =
$error
? "$error_txt{'error_occurred'} $csubject"
: "$post_txt{'507'} - $csubject";
$settofield = 'message';
$postthread = 2;
if ( !$view ) {
Postpage();
if ( $threadid ne q{} && $post eq 'post' ) { doshowthread(); }
template();
}
return;
}
sub Post2 {
if ( $iamguest && $enable_guestposting == 0 ) {
fatal_error('not_logged_in');
}
if ( !$staff
&& $speedpostdetection
&& ${ $uid . $username }{'spamcount'} >= $post_speed_count )
{
$detention_time =
${ $uid . $username }{'spamtime'} + $spd_detention_time;
if ( $date <= $detention_time ) {
$detention_left = $detention_time - $date;
fatal_error('speedpostban');
}
else {
${ $uid . $username }{'spamcount'} = 0;
UserAccount( $username, 'update' );
}
}
if ( $iamguest && $gpvalid_en ) {
validation_check( $FORM{'verification'} );
}
if ( $iamguest
&& $spam_questions_gp
&& -e "$langdir/$language/spam.questions" )
{
SpamQuestionCheck( $FORM{'verification_question'},
$FORM{'verification_question_id'} );
}
my (
$email, $ns, $notify, $hasnotify, $i,
$mnum, $msub, $mname, $memail, $mdate,
$musername, $micon, $mstate, $pageindex, $tempname
);
BoardTotals( 'load', $currentboard );
# Get the form values
$name = $FORM{'name'};
$email = $FORM{'email'};
$subject = $FORM{'subject'};
$message = $FORM{'message'};
$icon = $FORM{'icon'};
$ns = $FORM{'ns'};
$ann = $FORM{'ann'};
$threadid = $FORM{'threadid'};
if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
$pollthread = $FORM{'pollthread'} || 0;
$posttime = $FORM{'post_entry_time'};
$notify = $FORM{'notify'};
$hasnotify = $FORM{'hasnotify'};
$favorite = $FORM{'favorite'};
$thestatus = $FORM{'topicstatus'};
$thestatus =~ s/\, //gsm;
chomp $thestatus;
# Check if poster isn't using a distilled email domain
email_domain_check($email);
my $spamdetected = spamcheck("$name $subject $message");
if ( !${ $uid . $FORM{$username} }{'spamcount'} ) {
${ $uid . $FORM{$username} }{'spamcount'} = 0;
}
$postspeed = $date - $posttime;
if ( !$staff ) {
if ( ( $speedpostdetection && $postspeed < $min_post_speed )
|| $spamdetected == 1 )
{
${ $uid . $username }{'spamcount'}++;
${ $uid . $username }{'spamtime'} = $date;
UserAccount( $username, 'update' );
$spam_hits_left_count =
$post_speed_count - ${ $uid . $username }{'spamcount'};
if ( $spamdetected == 1 ) { fatal_error('tsc_alert'); }
else { fatal_error('speed_alert'); }
}
}
# Permission checks for posting.
if ( !$threadid ) {
# Check for ability to post new threads
if ( AccessCheck( $currentboard, 1 ) ne 'granted' && !$pollthread ) {
fatal_error('no_perm_post');
}
}
else {
# Check for ability to reply to threads
if ( AccessCheck( $currentboard, 2 ) ne 'granted' && !$pollthread ) {
fatal_error('no_perm_reply');
}
$postthread = 2;
}
if ($pollthread) {
# Check for ability to post polls
if ( AccessCheck( $currentboard, 3 ) ne 'granted' ) {
fatal_error('no_perm_poll');
}
}
$allowattach ||= 0;
if ( $allowattach > 0 ) {
for my $y ( 1 .. $allowattach ) {
if ( $CGI_query && $CGI_query->upload("file$y") ) {
# Check once for ability to post attachments
if ( AccessCheck( $currentboard, 4 ) ne 'granted' ) {
fatal_error('no_perm_att');
}
last;
}
}
}
# End Permission Checks
## clean name and email - remove | from name and turn any _ to spaces for mail
if ( $name && $email ) {
ToHTML($name);
$email =~ s/\|//gxsm;
ToHTML($email);
$tempname = $name;
$name =~ s/\_/ /gsm;
}
# Fixes a bug with posting hexed characters.
$name =~ s/amp;//gxsm;
spam_protection();
$subject =~ s/[\r\n]//gxsm;
my $testsub = $subject;
$testsub =~ s/ |\ //gsm;
if ( $testsub eq q{} && $pollthread != 2 ) {
fatal_error( 'useless_post', "$testsub" );
}
my $testmessage = regex_1($message);
if ( $testmessage eq q{} && $message ne q{} && $pollthread != 2 ) {
fatal_error( 'useless_post', "$testmessage" );
}
if ( !$minlinkpost ) { $minlinkpost = 0; }
if ( ${ $uid . $username }{'postcount'} < $minlinkpost
&& !$staff )
{
if ( $message =~ m{http:\/\/}xsm
|| $message =~ m{https:\/\/}xsm
|| $message =~ m{ftp:\/\/}xsm
|| $message =~ m{www.}xsm
|| $message =~ m{ftp.}xsm =~ m{\[url}xsm
|| $message =~ m{\[link}xsm
|| $message =~ m{\[img}xsm
|| $message =~ m{\[ftp}xsm )
{
fatal_error('no_links_allowed');
}
}
FromChars($subject);
$convertstr = $subject;
$convertcut = $set_subjectMaxLength + ( $subject =~ /^Re: /sm ? 4 : 0 );
CountChars();
$subject = $convertstr;
ToHTML($subject);
$doadsubject = $subject;
$message = regex_2($message);
FromChars($message);
ToHTML($message);
$message = regex_3($message);
CheckIcon();
if ( -e ("$datadir/.txt") ) { unlink "$datadir/.txt"; }
if ( !$iamguest ) {
# If not guest, get name and email.
$name = ${ $uid . $username }{'realname'};
$email = ${ $uid . $username }{'email'};
}
else {
# If user is Guest, then make sure the chosen name and email
# is not reserved or used by a member.
if ( lc $name eq lc MemberIndex( 'check_exist', $name ) ) {
fatal_error( 'guest_taken', "($name)" );
}
if ( lc $email eq lc MemberIndex( 'check_exist', $email ) ) {
fatal_error( 'guest_taken', "($email)" );
}
}
my @poll_data;
if ($pollthread) {
$maxpq ||= 60;
$maxpo ||= 50;
$maxpc ||= 0;
$numpolloptions ||= 8;
my $numcount = 0;
my $testspaces = regex_1( $FORM{'question'} );
if ( length($testspaces) == 0 && length( $FORM{'question'} ) > 0 ) {
fatal_error( 'useless_post', "$testspaces" );
}
FromChars( $FORM{'question'} );
$convertstr = $FORM{'question'};
$convertcut = $maxpq;
CountChars();
$FORM{'question'} = $convertstr;
ToHTML( $FORM{'question'} );
$guest_vote = $FORM{'guest_vote'} || 0;
$hide_results = $FORM{'hide_results'} || 0;
$multi_choice = $FORM{'multi_choice'} || 0;
$poll_comment = $FORM{'poll_comment'} || q{};
$vote_limit = $FORM{'vote_limit'} || 0;
$pie_legends = $FORM{'pie_legends'} || 0;
$pie_radius = $FORM{'pie_radius'} || 100;
$poll_end_days = $FORM{'poll_end_days'};
$poll_end_min = $FORM{'poll_end_min'};
if ( $pie_radius =~ /\D/xsm ) { $pie_radius = 100; }
if ( $pie_radius < 100 ) { $pie_radius = 100; }
if ( $pie_radius > 200 ) { $pie_radius = 200; }
FromChars($poll_comment);
$convertstr = $poll_comment;
$convertcut = $maxpc;
CountChars();
$poll_comment = $convertstr;
ToHTML($poll_comment);
$poll_comment =~ s/\n/
/gsm;
$poll_comment =~ s/\r//gxsm;
if ( !$poll_end_days || $poll_end_days =~ /\D/xsm ) {
$poll_end_days = q{};
}
if ( !$poll_end_min || $poll_end_min =~ /\D/xsm ) {
$poll_end_min = q{};
}
if ($poll_end_days) { $poll_end = $poll_end_days * 86400; }
if ($poll_end_min) { $poll_end += $poll_end_min * 60; }
if ($poll_end) { $poll_end += $date; }
push @poll_data,
qq~$FORM{'question'}|0|$username|$name|$email|$date|$guest_vote|$hide_results|$multi_choice|||$poll_comment|$vote_limit|$pie_radius|$pie_legends|$poll_end\n~;
for my $i ( 1 .. $numpolloptions ) {
if ( $FORM{"option$i"} ) {
$FORM{"option$i"} =~ s/\ / /gsm;
$testspaces = regex_1( $FORM{"option$i"} );
if ( length($testspaces) == 0
&& length( $FORM{"option$i"} ) > 0 )
{
fatal_error( 'useless_post', "$testspaces" );
}
FromChars( $FORM{"option$i"} );
$convertstr = $FORM{"option$i"};
$convertcut = $maxpo;
CountChars();
$FORM{"option$i"} = $convertstr;
ToHTML( $FORM{"option$i"} );
$numcount++;
$split[$i] = $FORM{"split$i"} || 0;
push @poll_data,
qq~0|$FORM{"option$i"}|$FORM{"slicecol$i"}|$split[$i]\n~;
}
}
}
my ( $file, $fixfile, @filelist, %filesizekb );
$allowattach ||= 0;
if ( $allowattach > 0 ) {
for my $y ( 1 .. $allowattach ) {
if ($CGI_query) { $file = $CGI_query->upload("file$y"); }
if ($file) {
$fixfile = $file;
$fixfile =~ s/.+\\([^\\]+)$|.+\/([^\/]+)$/$1/xsm;
if ( $fixfile =~ /[^0-9A-Za-z\+\-\.:_]/xsm )
{ # replace all inappropriate characters
# Transliteration
my $x = 0;
foreach ( @uploadtranlist )
{
$fixfile =~ s/$_/$ISO_8859_1[$x]/gxsm;
$x++;
}
# END Transliteration. Thanks to "Velocity" for this contribution.
$fixfile =~ s/[^0-9A-Za-z\+\-\.:_]/_/gxsm;
}
my $fixname = $fixfile;
if ( $fixname =~ s/(.+)(\..+?)$/$1/xsm ) {
$fixext = $2;
}
$spamdetected = spamcheck("$fixname");
if ( !$staff ) {
if ( $spamdetected == 1 ) {
${ $uid . $username }{'spamcount'}++;
${ $uid . $username }{'spamtime'} = $date;
UserAccount( $username, 'update' );
$spam_hits_left_count =
$post_speed_count - ${ $uid . $username }{'spamcount'};
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error('tsc_alert');
}
}
if ( $use_guardian && $string_on ) {
@bannedstrings = split /\|/xsm, $banned_strings;
foreach (@bannedstrings) {
chomp $_;
if ( $fixname =~ m/$_/ism ) {
fatal_error( 'attach_name_blocked', "($_)" );
}
}
}
$fixext =~ s/\.(pl|pm|cgi|php)/._$1/ixsm;
$fixname =~ s/\.(?!tar$)/_/gxsm;
$fixfile = qq~$fixname$fixext~;
if ( !$overwrite ) {
$fixfile = check_existence( $uploaddir, $fixfile );
}
elsif ( $overwrite == 2 && -e "$uploaddir/$fixfile" ) {
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error('file_overwrite');
}
my $match = 0;
if ( !$checkext ) { $match = 1; }
else {
foreach my $ext (@ext) {
if ( grep { /$ext$/ixsm } $fixfile ) {
$match = 1;
last;
}
}
}
$allowattach ||= 0;
if ($match) {
if (
$allowattach == 0
|| ( ( $allowguestattach != 0 && $username eq 'Guest' )
&& $allowguestattach != 1 )
)
{
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error('no_perm_att');
}
}
else {
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error( q{}, "$fixfile $fatxt{'20'} @ext" );
}
my ( $size, $buffer, $filesize, $file_buffer );
while ( $size = read $file, $buffer, 512 ) {
$filesize += $size;
$file_buffer .= $buffer;
}
$limit ||= 0;
if ( $limit > 0 && $filesize > ( 1024 * $limit ) ) {
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error( q{},
"$fatxt{'21'} $fixfile ("
. int( $filesize / 1024 )
. " KB) $fatxt{'21b'} "
. $limit );
}
$dirlimit ||= 0;
if ( $dirlimit > 0 ) {
my $dirsize = dirsize($uploaddir);
if ( $filesize > ( ( 1024 * $dirlimit ) - $dirsize ) ) {
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error(
q{},
"$fatxt{'22'} $fixfile ("
. (
int( $filesize / 1024 ) -
$dirlimit +
int( $dirsize / 1024 )
)
. " KB) $fatxt{'22b'}"
);
}
}
# create a new file on the server using the formatted ( new instance ) filename
if ( fopen( NEWFILE, ">$uploaddir/$fixfile" ) ) {
binmode NEWFILE;
# needed for operating systems (OS) Windows, ignored by Linux
print {NEWFILE} $file_buffer
or croak "$croak{'print'} NEWFILE"; # write new file on HD
fclose(NEWFILE);
}
else
{ # return the server's error message if the new file could not be created
foreach (@filelist) { unlink "$uploaddir/$_"; }
fatal_error( 'file_not_open', "$uploaddir" );
}
# check if file has actually been uploaded, by checking the file has a size
$filesizekb{$fixfile} = -s "$uploaddir/$fixfile";
if ( !$filesizekb{$fixfile} ) {
foreach (qw("@filelist" $fixfile)) {
unlink "$uploaddir/$_";
}
fatal_error( 'file_not_uploaded', $fixfile );
}
$filesizekb{$fixfile} = int( $filesizekb{$fixfile} / 1024 );
if ( $fixfile =~ /\.(jpg|gif|png|jpeg)$/ism ) {
my $okatt = 1;
if ( $fixfile =~ /gif$/ism ) {
my $header;
fopen( ATTFILE, "$uploaddir/$fixfile" );
read ATTFILE, $header, 10;
my $giftest;
( $giftest, undef, undef, undef, undef, undef ) =
unpack 'a3a3C4', $header;
fclose(ATTFILE);
if ( $giftest ne 'GIF' ) { $okatt = 0; }
}
fopen( ATTFILE, "$uploaddir/$fixfile" );
while ( read ATTFILE, $buffer, 1024 ) {
if ( $buffer =~ /<(html|script|body)/igxsm ) {
$okatt = 0;
last;
}
}
fclose(ATTFILE);
if ( !$okatt ) { # delete the file as it contains illegal code
foreach (qw("@filelist" $fixfile)) {
unlink "$uploaddir/$_";
}
fatal_error( 'file_not_uploaded',
"$fixfile $fatxt{'20a'}" );
}
}
push @filelist, $fixfile;
}
}
}
#Create the list of files
$fixfile = join q{,}, @filelist;
# If no thread specified, this is a new thread.
# Find a valid random ID for it.
if ( $threadid eq q{} ) {
$newthreadid = getnewid();
}
else {
$newthreadid = q{};
}
# set announcement flag according to status of current board
if ($newthreadid) {
$mreplies = 0;
if ($staff) {
$mstate =
$currentboard eq $annboard ? "0a$thestatus" : "0$thestatus";
}
else { $mstate = '0'; }
# This is a new thread. Save it.
fopen( FILE, "<$boardsdir/$currentboard.txt", 1 )
or fatal_error( 'cannot_open', "$boardsdir/$currentboard.txt", 1 );
my @buffer = ;
fclose(FILE);
fopen( FILE, ">$boardsdir/$currentboard.txt", 1 )
or fatal_error( 'cannot_open', "$boardsdir/$currentboard.txt", 1 );
print {FILE}
qq~$newthreadid|$subject|$name|$email|$date|$mreplies|$username|$icon|$mstate\n~
or croak "$croak{'print'} FILE";
print {FILE} @buffer or croak "$croak{'print'} FILE";
fclose(FILE);
fopen( FILE, ">$datadir/$newthreadid.txt" )
or fatal_error( 'cannot_open', "$datadir/$newthreadid.txt", 1 );
print {FILE}
qq~$subject|$name|$email|$date|$username|$icon|0|$user_ip|$message|$ns|||$fixfile\n~
or croak "$croak{'print'} FILE";
fclose(FILE);
if (@filelist) {
fopen( AMP, ">>$vardir/attachments.txt" )
or fatal_error( 'cannot_open', "$vardir/attachments.txt" );
foreach my $fixfile (@filelist) {
print {AMP}
qq~$newthreadid|$mreplies|$subject|$name|$currentboard|$filesizekb{$fixfile}|$date|$fixfile|0\n~
or croak "$croak{'print'} AMP";
}
fclose(AMP);
}
if ($pollthread) { # Save Poll data for new thread
if ( ( $iamadmin || $iamgmod ) && $FORM{'scpoll'} )
{ # Save ShowcasePoll
fopen( SCFILE, ">$datadir/showcase.poll" );
print {SCFILE} $newthreadid or croak "$croak{'print'} SCFILE";
fclose(SCFILE);
}
fopen( POLL, ">$datadir/$newthreadid.poll" );
print {POLL} @poll_data or croak "$croak{'print'} POLL";
fclose(POLL);
}
## write the ctb file for the new thread
${$newthreadid}{'board'} = $currentboard;
${$newthreadid}{'replies'} = 0;
${$newthreadid}{'views'} = 0;
${$newthreadid}{'lastposter'} = $iamguest ? "Guest-$name" : $username;
${$newthreadid}{'lastpostdate'} = $newthreadid;
${$newthreadid}{'threadstatus'} = $mstate;
MessageTotals( 'update', $newthreadid );
if ( ( $enable_notifications == 1 || $enable_notifications == 3 )
&& -e "$boardsdir/$currentboard.mail" )
{
ToChars($subject);
$subject = Censor($subject);
NewNotify( $newthreadid, $subject );
}
}
else {
# This is an existing thread.
(
$mnum, $msub, $mname, $memail, $mdate,
$mreplies, $musername, $micon, $mstate
) = split /\|/xsm, $yyThreadLine;
if ( $mstate =~ /l/ism ) { # locked thread
if ($bypass_lock_perm) {
$icanbypass = checkUserLockBypass();
} # only if bypass switched on
if ( !$icanbypass ) { fatal_error('topic_locked'); }
}
if ($staff) {
$mstate =
$currentboard eq $annboard ? "0a$thestatus" : "0$thestatus";
} # Leave the status as is if the user isn't allowed to change it
# First load the current .ctb info but don't close the file before saving the changed data
# or you can get wrong .ctb files if two users save at the exact same moment.
# Therefore we can't use &MessageTotals("load", $threadid); here.
# File locking should be enabled in AdminCenter!
# Changes here on @tag must also be done in System.pm -> sub MessageTotals -> my @tag = ...
my $newtime = ctbtime();
my @tag =
qw(board replies views lastposter lastpostdate threadstatus repliers);
push @tag, 'like';
fopen( UPDATE_CTB, "+<$datadir/$threadid.ctb", 1 )
or fatal_error( 'cannot_open', "$datadir/$threadid.ctb", 1 );
while ( my $aa = ) {
if ( $aa =~ /^'(.*?)',"(.*?)"/xsm ) {
${$threadid}{$1} = $2;
}
}
truncate UPDATE_CTB, 0;
seek UPDATE_CTB, 0, 0;
print {UPDATE_CTB}
qq~### ThreadID: $threadid, LastModified: $newtime ###\n\n~
or croak "$croak{'print'} UPDATE_CTB";
# Check if thread has moved. And do necessary access check
if ( ${$threadid}{'board'} ne $currentboard ) {
if ( AccessCheck( ${$threadid}{'board'}, 2 ) ne 'granted' ) {
foreach my $cnt ( 0 .. $#tag ) {
print {UPDATE_CTB}
qq~'$tag[$cnt]',"${$threadid}{$tag[$cnt]}"\n~
or croak "$croak{'print'} UPDATE_CTB";
}
fclose(UPDATE_CTB);
fatal_error('no_perm_reply');
}
# Thread has moved, but we can still post
# the current board is now the new board.
$currentboard = ${$threadid}{'board'};
}
# update the ctb file for the existing thread with number of replies and lastposter
${$threadid}{'board'} = $currentboard;
${$threadid}{'replies'}++;
${$threadid}{'lastposter'} = $iamguest ? "Guest-$name" : $username;
${$threadid}{'lastpostdate'} = $date;
${$threadid}{'threadstatus'} = $mstate;
foreach my $cnt ( 0 .. $#tag ) {
print {UPDATE_CTB}
qq~'$tag[$cnt]',"${$threadid}{$tag[$cnt]}"\n~
or croak "$croak{'print'} UPDATE_CTB";
}
fclose(UPDATE_CTB);
# end of .ctb file saving
$mreplies = ${$threadid}{'replies'};
if ($pollthread) { # Save new Poll data
if ( ( $iamadmin || $iamgmod ) && $FORM{'scpoll'} )
{ # Save ShowcasePoll
fopen( SCFILE, ">$datadir/showcase.poll" );
print {SCFILE} $threadid or croak "$croak{'print'} SCFILE";
fclose(SCFILE);
}
fopen( POLL, ">$datadir/$threadid.poll" );
print {POLL} @poll_data or croak "$croak{'print'} POLL";
fclose(POLL);
}
fopen( BOARDFILE, "<$boardsdir/$currentboard.txt", 1 )
or fatal_error( 'cannot_open', "$boardsdir/$currentboard.txt", 1 );
my @buffer = ;
fclose( BOARDFILE );
foreach my $i ( 0 .. $#buffer ) {
if ( $buffer[$i] =~ m{\A$mnum\|}oxsm ) { $buffer[$i] = q{}; last; }
}
fopen( BOARDFILE, ">$boardsdir/$currentboard.txt", 1 )
or fatal_error( 'cannot_open', "$boardsdir/$currentboard.txt", 1 );
print {BOARDFILE}
qq~$mnum|$msub|$mname|$memail|$date|$mreplies|$musername|$micon|$mstate\n~
or croak "$croak{'print'} BOARDFILE";
print {BOARDFILE} @buffer or croak "$croak{'print'} BOARDFILE";
fclose(BOARDFILE);
fopen( THREADFILE, ">>$datadir/$threadid.txt" )
or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
print {THREADFILE}
qq~$subject|$name|$email|$date|$username|$icon|0|$user_ip|$message|$ns|||$fixfile\n~
or croak "$croak{'print'} THREADFILE";
fclose(THREADFILE);
if (@filelist) {
fopen( AMP, ">>$vardir/attachments.txt" )
or fatal_error( 'cannot_open', "$vardir/attachments.txt" );
foreach my $fixfile (@filelist) {
print {AMP}
qq~$mnum|$mreplies|$subject|$name|$currentboard|$filesizekb{$fixfile}|$date|$fixfile|0\n~
or croak "$croak{'print'} AMP";
}
fclose(AMP);
}
ToChars($subject);
$subject = Censor($subject);
if ( $enable_notifications == 1 || $enable_notifications == 3 ) {
ReplyNotify( $threadid, $subject, $mreplies );
}
} # end else
if ( !$iamguest ) {
${ $uid . $username }{'postlayout'} =
qq~$FORM{'messageheight'}|$FORM{'messagewidth'}|$FORM{'txtsize'}|$FORM{'col_row'}~;
# Increment post count and lastpost date for the member.
# Check whether zeropost board
if ( !${ $uid . $currentboard }{'zero'} ) {
${ $uid . $username }{'postcount'}++;
if ( ${ $uid . $username }{'position'} ) {
$grp_after = qq~${$uid.$username}{'position'}~;
}
else {
foreach my $postamount (
reverse sort { $a <=> $b }
keys %Post
)
{
if ( ${ $uid . $username }{'postcount'} >= $postamount ) {
( $title, undef ) =
split /\|/xsm, $Post{$postamount}, 2;
$grp_after = $title;
last;
}
}
}
ManageMemberinfo( 'update', $username, q{}, q{}, $grp_after,
${ $uid . $username }{'postcount'} );
}
UserAccount( $username, 'update', 'lastpost+lastonline' );
}
# The thread ID, regardless of whether it's a new thread or not.
$thread = $newthreadid || $threadid;
# Let's figure out what page number to show
$maxmessagedisplay ||= 10;
$pageindex = int( $mreplies / $maxmessagedisplay );
$start = $pageindex * $maxmessagedisplay;
${ $uid . $currentboard }{'messagecount'}++;
if ( !$FORM{'threadid'} ) {
${ $uid . $currentboard }{'threadcount'}++;
++$threadcount;
}
$myname = $iamguest ? qq~Guest-$name~ : $username;
${ $uid . $currentboard }{'lastposttime'} = $date;
${ $uid . $currentboard }{'lastposter'} = $myname;
${ $uid . $currentboard }{'lastpostid'} = $thread;
${ $uid . $currentboard }{'lastreply'} = $mreplies;
${ $uid . $currentboard }{'lastsubject'} = $doadsubject;
${ $uid . $currentboard }{'lasttopicstate'} = $mstate;
${ $uid . $currentboard }{'lasticon'} = $icon;
BoardTotals( 'update', $currentboard );
if ( !$iamguest ) { Recent_Write( 'incr', $thread, $username, $date ); }
if ( $favorite && !$hasfavorite ) {
require Sources::Favorites;
AddFav( $thread, $mreplies, 1 );
}
if ( $notify && !$hasnotify ) {
ManageThreadNotify( 'add', $thread, $username,
${ $uid . $username }{'language'},
1, 1 );
}
elsif ( !$notify && $hasnotify == 1 ) {
ManageThreadNotify( 'delete', $thread, $username );
}
my $rts = $FORM{'return_to'};
if ( $rts == 3 ) {
$yySetLocation = qq~$scripturl~;
dumplog( $currentboard, $date );
dumplog( $thread, $date );
if ( !$INFO{'num'} ) { MessageTotals( 'incview', $thread ); }
}
elsif ( $rts == 2 ) {
$yySetLocation = qq~$scripturl?board=$currentboard~;
dumplog( $thread, $date );
if ( !$INFO{'num'} ) { MessageTotals( 'incview', $thread ); }
}
else {
if ( $currentboard eq $annboard ) {
$yySetLocation =
qq~$scripturl?virboard=$FORM{'virboard'};num=$thread/$start#$mreplies~;
}
else {
$yySetLocation = qq~$scripturl?num=$thread/$start#$mreplies~;
}
}
redirectexit();
return;
}
# We load all the notification strings from a given language and store them in memory
sub LoadNotifyMessages {
my $languages = shift;
my $currentlang = $language;
${$languages}{$currentlang} = 1; # Load the current language too
foreach my $lang ( keys %{$languages} ) {
next
if $notifystrings{$lang}
{'boardnewtopicnotificationemail'}; # next if already loaded
$language = $lang;
LoadLanguage('Email');
$notifystrings{$lang} = {
'boardnewtopicnotificationemail' => $boardnewtopicnotificationemail,
'boardnotificationemail' => $boardnotificationemail,
'topicnotificationemail' => $topicnotificationemail,
};
LoadLanguage('Notify');
$notifysubjects{$lang} = {
'118' => $notify_txt{'118'},
'136' => $notify_txt{'136'},
};
$notifycharset{$lang} = { 'emailcharset' => $emailcharset, };
}
$language = $currentlang;
return;
}
sub NewNotify {
my ( $thisthread, $thissubject ) = @_;
my $thisauthor = ${ $uid . $username }{'realname'} || $maintxt{'28'};
my $thismessage = $message;
$thismessage =~ s/ /\t/g;
$thismessage =~ s~\[b\](.*?)\[/b\]~*$1*~ig;
$thismessage =~ s~\[i\](.*?)\[/i\]~/$1/~ig;
$thismessage =~ s~\[u\](.*?)\[/u\]~_$1_~ig;
$thismessage =~ s/\[.*?\]//g;
$thismessage =~ s/<(br|p).*?>/\n/ig;
$thismessage =~ s~[^\s>/]*))(?>(?:(?>[^>"']+)|"[^"]*"|'[^']*')*)>~~gxsm;
FromHTML($thismessage);
$thismessage =~ s/>/>/gsm;
$thismessage =~ s///gxsm;
FromHTML($thissubject);
require Sources::Mailer;
ManageMemberinfo('load');
ManageBoardNotify( 'load', $currentboard );
my %languages;
foreach ( keys %theboard ) {
$languages{ ( split /\|/xsm, $theboard{$_}, 2 )[0] } = 1;
}
LoadNotifyMessages( \%languages );
while ( my ( $curuser, $value ) = each %theboard ) {
my ( $curlang, undef ) = split /\|/xsm, $value, 2;
if ( $curuser ne $username ) {
LoadUser($curuser);
if ( ${ $uid . $curuser }{'notify_me'} == 1
|| ${ $uid . $curuser }{'notify_me'} == 3 )
{
( undef, $curmail, undef ) =
split /\|/xsm, $memberinf{$curuser}, 3;
sendmail(
$curmail,
"$notifysubjects{$curlang}{'136'}: $thissubject",
template_email(
$notifystrings{$curlang}
{'boardnewtopicnotificationemail'},
{ 'subject' => $thissubject, 'num' => $thisthread, 'tauthor' => $thisauthor, 'tmessage' => $thismessage }
),
q{},
$notifycharset{$curlang}{'emailcharset'}
);
}
undef %{ $uid . $curuser };
}
}
undef %theboard;
undef %memberinf;
return;
}
sub ReplyNotify {
my ( $thisthread, $thissubject, $tem ) = @_;
my $page = qq{$tem#$tem};
my $thisauthor = ${ $uid . $username }{'realname'} || $maintxt{'28'};
my $thismessage = $message;
$thismessage =~ s/ /\t/gsm;
$thismessage =~ s~\[b\](.*?)\[/b\]~*$1*~igxsm;
$thismessage =~ s~\[i\](.*?)\[/i\]~/$1/~igxsm;
$thismessage =~ s~\[u\](.*?)\[/u\]~_$1_~igxsm;
$thismessage =~ s/\[.*?\]//gxsm;
$thismessage =~ s/<(br|p).*?>/\n/igxsm;
$thismessage =~ s~[^\s>/]*))(?>(?:(?>[^>"']+)|"[^"]*"|'[^']*')*)>~~igsxm;
FromHTML($thismessage);
$thismessage =~ s/>/>/gxsm;
$thismessage =~ s///gxsm;
FromHTML($thissubject);
require Sources::Mailer;
my %mailsent;
ManageMemberinfo('load');
if ( -e "$boardsdir/$currentboard.mail" ) {
ManageBoardNotify( 'load', $currentboard );
my %languages;
foreach ( keys %theboard ) {
$languages{ ( split /\|/xsm, $theboard{$_}, 2 )[0] } = 1;
}
LoadNotifyMessages( \%languages );
while ( my ( $curuser, $value ) = each %theboard ) {
my ( $curlang, $notify_type, undef ) =
split /\|/xsm, $value;
if ( $curuser ne $username && $notify_type == 2 ) {
LoadUser($curuser);
if ( ${ $uid . $curuser }{'notify_me'} == 1
|| ${ $uid . $curuser }{'notify_me'} == 3 )
{
( undef, $curmail, undef ) =
split /\|/xsm, $memberinf{$curuser}, 3;
sendmail(
$curmail,
"$notifysubjects{$curlang}{'136'}: $thissubject",
template_email(
$notifystrings{$curlang}{'boardnotificationemail'},
{
'subject' => $thissubject,
'num' => $thisthread,
'start' => $page,
'tauthor' => $thisauthor,
'tmessage' => $thismessage
}
),
q{},
$notifycharset{$curlang}{'emailcharset'}
);
$mailsent{$curuser} = 1;
}
undef %{ $uid . $curuser };
}
}
undef %theboard;
}
if ( -e "$datadir/$thisthread.mail" ) {
ManageThreadNotify( 'load', $thisthread );
my %languages;
foreach ( keys %thethread ) {
$languages{ ( split /\|/xsm, $thethread{$_}, 2 )[0] } = 1;
}
LoadNotifyMessages( \%languages );
while ( my ( $curuser, $value ) = each %thethread ) {
my ( $curlang, $notify_type, $hasviewed ) =
split /\|/xsm, $value;
if ( $curuser ne $username
&& !exists $mailsent{$curuser}
&& $hasviewed )
{
LoadUser($curuser);
if ( ${ $uid . $curuser }{'notify_me'} == 1
|| ${ $uid . $curuser }{'notify_me'} == 3 )
{
( undef, $curmail, undef ) =
split /\|/xsm, $memberinf{$curuser}, 3;
sendmail(
$curmail,
"$notifysubjects{$curlang}{'118'}: $thissubject",
template_email(
$notifystrings{$curlang}{'topicnotificationemail'},
{
'subject' => $thissubject,
'num' => $thisthread,
'start' => $page,
'tauthor' => $thisauthor,
'tmessage' => $thismessage
}
),
q{},
$notifycharset{$curlang}{'emailcharset'}
);
$thethread{$curuser} = qq~$curlang|$notify_type|0~;
}
undef %{ $uid . $curuser };
}
}
ManageThreadNotify( 'save', $thisthread );
}
undef %memberinf;
return;
}
sub doshowthread {
my ( $line, $tempname, $tempdate );
if ( $INFO{'start'} ) { $INFO{'start'} = "/$INFO{'start'}"; }
if ( !ref( $thread_arrayref{$threadid} ) && $threadid ) {
fopen( THREADFILE, "$datadir/$threadid.txt" )
or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
@{ $thread_arrayref{$threadid} } = ;
fclose(THREADFILE);
}
my @messages = @{ $thread_arrayref{$threadid} };
if (@messages) {
if ( @messages < $cutamount ) { $cutamount = @messages; }
$showall = $post_cutts{'3'};
if ( @messages => $cutamount && $showpageall ) {
$showall .=
qq~ $post_cutts{'3a'} $post_cutts{'4'} $post_cutts{'5'} ~;
}
if ( $INFO{'showall'} ne q{} || $cutamount eq 'all' ) {
$origcutamount = $cutamount;
$cutamount = $pidtxt{'01'};
$showall =
qq~$post_cutts{'3'} $post_cutts{'3a'} $post_cutts{'4'} $post_cutts{'6'} ~;
}
$my_showmess_disnum = qq~
$post_txt{'468'} - $post_cutts{'2'} $cutamount $showall~;
if ( $tsreverse == 1 ) { @messages = reverse @messages; }
if ( $INFO{'showall'} ne q{} || $cutamount eq 'all' ) {
$cutamount = 1000;
}
foreach my $amounter ( 0 .. ( $cutamount - 1 ) ) {
(
undef, $temprname, undef, $tempdate, $tempname,
undef, undef, undef, $message, $ns
) = split /\|/xsm, $messages[$amounter];
$messagedate = $tempdate;
$tempdate = timeformat($tempdate);
$parseflash = 0;
if ( $tempname ne 'Guest'
&& -e ("$memberdir/$tempname.vars") )
{
LoadUser($tempname);
}
if ( ${ $uid . $tempname }{'regtime'} ) {
$registrationdate = ${ $uid . $tempname }{'regtime'};
}
else {
$registrationdate = int time;
}
if ( ${ $uid . $tempname }{'regdate'}
&& ( $messagedate > $registrationdate || $tempname eq 'admin' ) )
{
if ( $iamguest) {
$displaynamelink = qq~$format_unbold{$tempname}~;
}
else {
$displaynamelink =
qq~$format_unbold{$tempname}~;
}
}
elsif ($tempname !~ m{Guest}sm
&& $messagedate < $registrationdate )
{
$displaynamelink = qq~$tempname - $display_txt{'470a'}~;
}
else {
$displaynamelink = $temprname;
}
my $quickmessage = $message;
$quickmessage =~ s/<(br|p).*?>/\\r\\n/igsm;
$quickmessage =~ s/\x27/\\\x27/gxsm;
my $quote_mname = $useraccount{$tempname};
$quote_mname =~ s/\x27/\\\x27/gxsm;
my $quote_msg_id =
$tsreverse == 1
? ( @messages - $amounter - 1 )
: $amounter;
wrap();
( $message, undef ) = Split_Splice_Move( $message, $threadid );
if ($enable_ubbc) {
enable_yabbc();
$displayname = ${ $uid . $tempname }{'realname'};
DoUBBC();
}
wrap2();
ToChars($message);
$message = Censor($message);
if ( $message ne q{} ) {
$my_enable_markquote =
( $enable_markquote && $enable_quickreply )
? qq~ $img{'mquote'}~
: q{};
$my_enable_quickjump =
( $enable_quickjump
&& length($quickmessage) <= $quick_quotelength )
? qq~$menusep$img{'quote'}~
: q{};
$my_showmess_mess .= $mypost_showmessages_a;
$my_showmess_mess =~
s/{yabb displaynamelink}/$displaynamelink/sm;
$my_showmess_mess =~
s/{yabb my_enable_markquote}/$my_enable_markquote/sm;
$my_showmess_mess =~
s/{yabb my_enable_quickjump}/$my_enable_quickjump/sm;
$my_showmess_mess =~ s/{yabb tempdate}/$tempdate/sm;
$my_showmess_mess =~ s/{yabb quote_msg_id}/$quote_msg_id/sm;
$my_showmess_mess =~ s/{yabb message}/$message/sm;
}
}
$my_showmess = $mypost_showmessages;
$my_showmess =~ s/{yabb my_showmess_disnum}/$my_showmess_disnum/sm;
$my_showmess =~ s/{yabb my_showmess_mess}/$my_showmess_mess/sm;
}
else {
$my_showmess .= '';
}
$yymain .= $my_showmess;
return;
}
## Guest can send a PM to Admin
## this is a hybrid broadcast message, with fixed audience of Admin
## and some guest posting elements in, where id/email are required.
sub sendGuestPM {
if ( !$iamguest ) { $yySetLocation = $scripturl; redirectexit(); }
if ( !$PMenableGuestButton ) { fatal_error('no_access'); }
if ( $PMenableBm_level == 0 ) { fatal_error('no_access'); }
$INFO{'title'} = 'PostReply';
$postthread = 2;
$guestpost_fields = $mypost_guest_fields;
$guestpost_fields =~ s/{yabb name}/$FORM{'name'}/sm;
$guestpost_fields =~ s/{yabb email}/$FORM{'email'}/sm;
if ($gpvalid_en) {
validation_code();
$verification_field =
$verification eq q{}
? $mypost_guest_c
: q{};
$verification_field =~ s/{yabb showcheck}/$showcheck/sm;
$verification_field =~ s/{yabb flood_text}/$flood_text/sm;
}
if ( $iamguest
&& $spam_questions_gp
&& -e "$langdir/$language/spam.questions" )
{
SpamQuestion();
my $verification_question_desc;
if ($spam_questions_case) {
$verification_question_desc =
qq~
$post_txt{'verification_question_case'}~;
}
$verification_question_field =
$verification_question eq q{}
? $mypost_veri_c
: q{};
$verification_question_field =~
s/{yabb spam_question}/$spam_question/gsm;
$verification_question_field =~
s/{yabb verification_question_desc}/$verification_question_desc/gsm;
$verification_question_field =~
s/{yabb spam_question_id}/$spam_question_id/gsm;
$verification_question_field =~ s/{yabb spam_question_image}/$spam_image/gsm;
}
$sub = q{};
$settofield = 'subject';
$t_title = $post_txt{'sendmessguest'};
$submittxt = $post_txt{'148'};
$destination = 'guestpm2';
$icon = 'alert';
$post = 'guestpm';
$prevmain = q{};
$yytitle = $post_txt{'sendmessguest'};
Postpage();
template();
return;
}
sub sendGuestPM2 {
if ( !$iamguest ) { $yySetLocation = $scripturl; redirectexit(); }
if ( !$PMenableGuestButton ) { fatal_error('no_access'); }
if ( $PMenableBm_level == 0 ) { fatal_error('no_access'); }
if ($gpvalid_en) {
validation_check( $FORM{'verification'} );
}
if ( $iamguest
&& $spam_questions_gp
&& -e "$langdir/$language/spam.questions" )
{
SpamQuestionCheck( $FORM{'verification_question'},
$FORM{'verification_question_id'} );
}
# Poster is a Guest then evaluate the legality of name and email
$FORM{'name'} =~ s/\A\s+//xsm;
$FORM{'name'} =~ s/\s+\Z//xsm;
# Get the form values
$name = $FORM{'name'};
$email = $FORM{'email'};
$subject = $FORM{'subject'};
$message = $FORM{'message'};
$ns = $FORM{'ns'};
$threadid = $FORM{'threadid'};
$posttime = $FORM{'post_entry_time'};
if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
# Check if poster isn't using a distilled email domain
email_domain_check($email);
my $spamdetected = spamcheck("$name $subject $message");
${ $uid . $username }{'spamcount'} = 0;
$postspeed = $date - $posttime;
if ( ( $speedpostdetection && $postspeed < $min_post_speed )
|| $spamdetected == 1 )
{
${ $uid . $username }{'spamcount'}++;
$spam_hits_left_count =
$post_speed_count - ${ $uid . $username }{'spamcount'};
if ( $spamdetected == 1 ) { fatal_error('tsc_alert'); }
else { fatal_error('speed_alert'); }
}
## clean name and email - remove | from email and turn any _ to spaces in name
if ( $name && $email ) {
ToHTML($name);
$tempname = $name;
$name =~ s/\_/ /gsm;
$email =~ s/\|//gxsm;
ToHTML($email);
}
# Fixes a bug with posting hexed characters.
$name =~ s/amp;//gxsm;
# Check Message Length Precisely
my $mess_len = $message;
$mess_len =~ s/[\r\n ]//igsm;
$mess_len =~ s/&\x23\d{3,}?\;/X/igxsm;
undef $mess_len;
spam_protection();
my $testsub = $subject;
$testsub =~ s/[\r\n\ ]|\ //gsm;
if ( $testsub eq q{} ) { fatal_error( 'useless_post', $testsub ); }
my $testmessage = regex_1($message);
if ( $testmessage eq q{} && $message ne q{} ) {
fatal_error( 'useless_post', $testmessage );
}
$subject =~ s/[\r\n]//gxsm;
FromChars($subject);
$convertstr = $subject;
$convertcut = $set_subjectMaxLength + ( $subject =~ /^Re: /sm ? 4 : 0 );
CountChars();
$subject = $convertstr;
ToHTML($subject);
$message = regex_2($message);
FromChars($message);
ToHTML($message);
$message = regex_3($message);
CheckIcon();
if ( -e ("$datadir/.txt") ) { unlink "$datadir/.txt"; }
# User is Guest, then make sure the chosen name and email is not reserved or used by a member
if ( lc $name eq lc MemberIndex( 'check_exist', $name ) ) {
fatal_error( 'guest_taken', "($name)" );
}
if ( lc $email eq lc MemberIndex( 'check_exist', $email ) ) {
fatal_error( 'guest_taken', "($email)" );
}
# Find a valid random ID for it
$newthreadid = getnewid();
# Encode spaces in name, to avoid confusing bm
$name =~ s/ /%20/gsm;
$mreplies = 0;
# set announcement flag according to status of current board
if ( -e "$memberdir/broadcast.messages" ) {
fopen( INBOX, "$memberdir/broadcast.messages" );
@bmessages = ;
fclose(INBOX);
}
fopen( INBOX, ">$memberdir/broadcast.messages" );
# new format: #messageid|from user|touser(s)|(ccuser(s))|(bccuser(s))|
# subject|date|message|(parentmid)|(reply#)|ip|
# messagestatus|flags|storefolder|attachment
print {INBOX}
"$newthreadid|$name $email|admin|||$subject|$date|$message|$newthreadid|0|$ENV{'REMOTE_ADDR'}|g|||\n"
or croak "$croak{'print'} INBOX";
print {INBOX} @bmessages or croak "$croak{'print'} INBOX";
fclose(INBOX);
undef @bmessages;
# The thread ID, regardless of whether it's a new thread or not
$thread = $newthreadid || $threadid;
$yySetLocation = $scripturl;
redirectexit();
return;
}
sub modAlert {
if ( $iamguest && !$PMAlertButtonGuests ) {
fatal_error('not_logged_in');
}
if ( !$iamguest && !$PMenableAlertButton ) {
fatal_error('no_access');
}
if ( $currentboard eq q{} && !$iamguest ) {
fatal_error('no_access');
}
if ( !$PM_level ) { fatal_error('no_access'); }
my $quotemsg = $INFO{'quote'};
$postid = $INFO{'quote'};
$threadid = $INFO{'num'};
my (
$mnum, $msub, $mname, $memail, $mdate,
$mreplies, $musername, $micon, $mstate
) = split /\|/xsm, $yyThreadLine;
# Determine category
$curcat = ${ $uid . $currentboard }{'cat'};
BoardTotals( 'load', $currentboard );
# Figure out the name of the category
get_forum_master();
( $cat, $catperms ) = split /\|/xsm, $catinfo{$curcat};
ToChars($cat);
$INFO{'title'} =~ tr/+/ /;
$postthread = 2;
$guestpost_fields = q{};
if ( $iamguest ) {
$guestpost_fields = $mypost_guest_fields;
$guestpost_fields =~ s/{yabb name}/$FORM{'name'}/sm;
$guestpost_fields =~ s/{yabb email}/$FORM{'email'}/sm;
}
if ( $iamguest && $gpvalid_en ) {
validation_code();
$verification_field =
$verification eq q{}
? $mypost_guest_c
: q{};
$verification_field =~ s/{yabb showcheck}/$showcheck/sm;
$verification_field =~ s/{yabb flood_text}/$flood_text/sm;
}
if ( $iamguest
&& $spam_questions_gp
&& -e "$langdir/$language/spam.questions" )
{
SpamQuestion();
my $verification_question_desc;
if ($spam_questions_case) {
$verification_question_desc =
qq~
$post_txt{'verification_question_case'}~;
}
$verification_question_field =
$verification_question eq q{}
? $mypost_veri_c
: q{};
$verification_question_field =~
s/{yabb spam_question}/$spam_question/gsm;
$verification_question_field =~
s/{yabb verification_question_desc}/$verification_question_desc/gsm;
$verification_question_field =~
s/{yabb spam_question_id}/$spam_question_id/gsm;
$verification_question_field =~ s/{yabb spam_question_image}/$spam_image/gsm;
}
$sub = q{};
$settofield = 'subject';
if ( $threadid ne q{} ) {
if ( !ref $thread_arrayref{$threadid} ) {
fopen( FILE, "$datadir/$threadid.txt" )
or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
@{ $thread_arrayref{$threadid} } = ;
fclose(FILE);
}
if ( $quotemsg ne q{} ) {
(
$msubject, $mname, $memail, $mdate, $musername,
$micon, $mattach, $mip, $mmessage, $mns
) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[$quotemsg];
$message = $mmessage;
$message =~ s//\n/igsm;
$message =~ s/ \ \ \ /\t/igsm;
if ( !$nestedquotes ) {
$message =~
s/\n{0,1}\[quote([^\]]*)\](.*?)\[\/quote([^\]]*)\]\n{0,1}/\n/isgxm;
}
$mname = isempty( $mname, isempty( $musername, $post_txt{'470'} ) );
my $hidename = $musername;
if ( $musername eq 'Guest' ) { $hidename = $mname; }
if ($do_scramble_id) { $hidename = cloak($hidename); }
my $maxlengthofquote =
$MaxMessLen -
length(
qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]\[/quote\]\n~
) - 3;
if ( length $message >= $maxlengthofquote ) {
require Sources::System;
LoadLanguage('Error');
alertbox( $error_txt{'quote_too_long'} );
$message = substr( $message, 0, $maxlengthofquote ) . q{...};
}
$message =
qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]$message\[/quote\]\n~;
$msubject =~ s/\bre:\s+//igxsm;
if ( $mns eq 'NS' ) { $nscheck = 'checked'; }
}
else {
(
$msubject, $mname, $memail, $mdate, $musername,
$micon, $mattach, $mip, $mmessage, $mns
) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[0];
$msubject =~ s/\bre:\s+//igxsm;
}
$sub = "Re: $msubject";
$settofield = 'message';
}
$t_title = $post_txt{'alertmod'};
$submittxt = $post_txt{'148'};
$destination = 'modalert2';
$icon = 'alert';
$post = 'modalert';
$prevmain = q{};
$yytitle = $post_txt{'alertmod'};
Postpage();
template();
return;
}
sub modAlert2 {
if ( $iamguest && !$PMAlertButtonGuests ) {
fatal_error('not_logged_in');
}
if ( !$iamguest && !$PMenableAlertButton ) {
fatal_error('no_access');
}
if ( !$PM_level ) { fatal_error('no_access'); }
if ( $iamguest && $gpvalid_en ) {
validation_check( $FORM{'verification'} );
}
if ( $iamguest
&& $spam_questions_gp
&& -e "$langdir/$language/spam.questions" )
{
SpamQuestionCheck( $FORM{'verification_question'},
$FORM{'verification_question_id'} );
}
# Get the form values
$name = $FORM{'name'};
$gname = $FORM{'name'};
$email = $FORM{'email'};
$subject = $FORM{'subject'};
$message = $FORM{'message'};
$ns = $FORM{'ns'};
$threadid = $FORM{'threadid'};
$postid = $FORM{'postid'};
$posttime = $FORM{'post_entry_time'};
if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
if ($iamguest) {
$name =~ s/\A\s+//xsm;
$name =~ s/\s+\Z//xsm;
## clean name and email - remove | from name and turn any _ to spaces for email
ToHTML($name);
$tempname = $name;
$name =~ s/_/ /gsm;
$email =~ s/\|//gxsm;
ToHTML($email);
# Fixes a bug with posting hexed characters
$name =~ s/amp;//gxsm;
# If user is Guest, then make sure the chosen name and email is not reserved or used by a member
if ( lc $name eq lc MemberIndex( 'check_exist', $name ) ) {
fatal_error( 'guest_taken', "($name)" );
}
if ( lc $email eq lc MemberIndex( 'check_exist', $email ) ) {
fatal_error( 'guest_taken', "($email)" );
}
# Encode spaces in name, to avoid confusing!
$name =~ s/ /%20/gsm;
$name .= qq~ $email~;
}
else {
$name = $username;
}
# Check if poster isn't using a distilled email domain
email_domain_check($email);
my $spamdetected = spamcheck("$name $subject $message");
if ( !${ $uid . $FORM{$username} }{'spamcount'} ) {
${ $uid . $FORM{$username} }{'spamcount'} = 0;
}
$postspeed = $date - $posttime;
if ( !$staff ) {
if ( ( $speedpostdetection && $postspeed < $min_post_speed )
|| $spamdetected == 1 )
{
${ $uid . $username }{'spamcount'}++;
${ $uid . $username }{'spamtime'} = $date;
UserAccount( $username, 'update' );
$spam_hits_left_count =
$post_speed_count - ${ $uid . $username }{'spamcount'};
if ( $spamdetected == 1 ) { fatal_error('tsc_alert'); }
else { fatal_error('speed_alert'); }
}
}
spam_protection();
$subject =~ s/[\r\n]//gxsm;
my $tstsubject = $subject;
my $testsub = $subject;
$testsub =~ s/ |\ //gsm;
if ( $testsub eq q{} ) { fatal_error( 'useless_post', $testsub ); }
my $testmessage = regex_1($message);
if ( $testmessage eq q{} && $message ne q{} ) {
fatal_error( 'useless_post', $testmessage );
}
FromChars($subject);
$convertstr = $subject;
$convertcut = $set_subjectMaxLength + ( $subject =~ /^Re: /sm ? 4 : 0 );
CountChars();
$subject = $convertstr;
ToHTML($subject);
$message = regex_2($message);
FromChars($message);
ToHTML($message);
$message = regex_3($message);
if ( -e ("$datadir/.txt") ) { unlink "$datadir/.txt"; }
# Find a valid random ID for it
$newthreadid = getnewid();
my $x;
my $mods = ${ $uid . $currentboard }{'mods'};
my $modgrps = ${ $uid . $currentboard }{'modgroups'};
$modgrps =~ s/, /,/gsm;
# because modgroups are saved with ' ' and this MyCenter.pm does not understand ;-)
# If no BM is allowed and no mods is assigned => send the "AlertMod" to admin
if ( !$PMenableBm_level && !$mods ) {
$mods = $mods ? $mods : 'admin';
# If BM is allowed and no mods and no moderator group is assigned => send the "AlertMod" to admin and gmods via BM
}
elsif ( $PMenableBm_level && !$mods && !$modgrps ) {
$modgrps = $PMenableBm_level == 3 ? 'admins' : 'admins,gmods,fmods';
}
# Check if there is at least one user in the moderator group
# if not and no mod is assigned too => send the "AlertMod" to admin via PM
if ( $PMenableBm_level && $modgrps ) {
if ( $modgrps =~ /admins|gmods|fmods|mods/xsm ) { $x = 1; }
else {
if ( !%memberinf ) { ManageMemberinfo('load'); }
MANAGEINFO: foreach ( keys %memberinf ) {
for ( split /,/xsm, ( split /\|/xsm, $memberinf{$_} )[4] ) {
if ( $_ && $modgrps =~ /\b$_\b/xsm ) {
$x = 1;
last MANAGEINFO;
}
}
}
if ( !$x && !$mods ) { $mods = 'admin'; }
}
}
if ($mods) {
MANAGEMODS: foreach my $toBoardMod ( split /, ?/sm, $mods ) {
chomp $toBoardMod;
# Send notification (Will only work if Admin has allowed the Email Notification)
LoadUser($toBoardMod);
if ( ${ $uid . $toBoardMod }{'notify_me'} > 1
&& $enable_notifications > 1
&& ${ $uid . $toBoardMod }{'email'} ne q{} )
{
require Sources::Mailer;
$language = ${ $uid . $toBoardMod }{'language'};
LoadLanguage('Email');
LoadLanguage('Notify');
LoadLanguage('InstantMessage');
my $msubject = $tstsubject ? $tstsubject : $inmes_txt{'767'};
ToChars($msubject);
my $chmessage = $message;
ToChars($chmessage);
$chmessage = regex_4($chmessage);
$chmessage = template_email(
$privatemessagenotificationemail,
{
'date' => timeformat($date),
'subject' => $msubject,
'sender' => ${ $uid . $username }{'realname'},
'message' => $chmessage
}
);
if ($iamguest) { $fromname = $gname; }
else { $fromname = ${ $uid . $username }{'realname'}; }
sendmail(
${ $uid . $toBoardMod }{'email'},
qq~$notify_txt{'145'} $fromname ($msubject)~,
$chmessage, q{}, $emailcharset
);
}
elsif ( $PMenableBm_level && $x ) {
if ( !%memberinf ) { ManageMemberinfo('load'); }
for ( split /,/xsm,
( split /\|/xsm, $memberinf{$toBoardMod} )[4] )
{
if ( $_ && $modgrps =~ /\b$_\b/xsm ) { next MANAGEMODS; }
}
}
if ($iamguest) { $mstatus = q~ga~; }
else { $mstatus = q~a~; }
# Send message to user
fopen( INBOX, "$memberdir/$toBoardMod.msg" );
my @inmessages = ;
fclose(INBOX);
fopen( INBOX, ">$memberdir/$toBoardMod.msg" );
print {INBOX}
"$newthreadid|$name|$toBoardMod|||$subject|$date|$message|$newthreadid|0|$user_ip|$mstatus|u||\n"
or croak "$croak{'print'} INBOX";
print {INBOX} @inmessages or croak "$croak{'print'} INBOX";
fclose(INBOX);
require Sources::MyCenter;
updateIMS( $toBoardMod, $newthreadid, 'messagein' );
}
}
if ( $PMenableBm_level && $x ) {
# set announcement flag according to status of current board
if ($iamguest) { $mstatus = q~ga~; }
else { $mstatus = q~ab~; }
#if sender is guest and Alert is going to ModGroup
fopen( INBOX, "$memberdir/broadcast.messages" )
or fatal_error( 'cannot_open', "$memberdir/broadcast.messages" );
my @inmessages = ;
fclose(INBOX);
fopen( INBOX, ">$memberdir/broadcast.messages" );
print {INBOX}
"$newthreadid|$name|$modgrps|||$subject|$date|$message|$newthreadid|0|$ENV{'REMOTE_ADDR'}|$mstatus|||\n"
or croak "$croak{'print'} INBOX";
print {INBOX} @inmessages or croak "$croak{'print'} INBOX";
fclose(INBOX);
}
$yySetLocation = qq~$scripturl?num=$threadid/$postid#$postid~;
redirectexit();
return;
}
1;