New Thread Notification 1.0 This mod makes YaBB to send a mail to the webmaster if a new thread is started. It is optional for each board Email: ptpth@peter88.cjb.net PtPtH Sources/Post.pl if($newthreadid) { # This is a new thread. Save it. fopen(FILE, "$boardsdir/$currentboard.dat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.dat"); @mailcheck = ; fclose(FILE); chomp($mailcheck[6]); if($mailcheck[6] eq "1") { # Mail webmaster about new post $mailsub = "A new thread has been started, $subject. On board: $mailcheck[0] It's located here:\n $cgi&action=display&num=$newthreadid"; $board = $INFO{'board'}; &sendmail( $webmaster_email, "$board. New Thread: $subject", $mailsub); } Sources/ManageBoards.pl fopen(BOARD, "$boardsdir/$curboard.dat"); @boardinfo = ; fclose(BOARD); $curboardname="$boardinfo[0]"; $descr="$boardinfo[1]"; undef $mailnewthreadc; $mailnewthread="$boardinfo[6]"; if (!$mailnewthread) { $mailnewthread = 0; } if ($mailnewthread == 1) {$mailnewthreadc = "checked"; }
$descr Email bij nieuwe thread?    $txt{'299'}: Email bij nieuwe thread?    $yySetLocation = qq~$cgi&action=manageboards~; &redirectexit; fopen(BOARD, "$boardsdir/$FORM{'id'}.dat"); @boardinfo = ; fclose(BOARD); if ($boardinfo[3] == 1) { $var1 = "$boardinfo[3]"; } else { $var1 = "\n"; } if ($boardinfo[4] == 1) { $var1 = "$boardinfo[4]"; } else { $var2 = "\n"; } if ($boardinfo[5] == 1) { $var1 = "$boardinfo[5]"; } else { $var3 = "\n"; } fopen(FILE, ">$boardsdir/$FORM{'id'}.dat", 1); print FILE "$FORM{'boardname'}\n"; print FILE "$FORM{'descr'}\n"; print FILE "$FORM{'moderator'}\n"; print FILE "$var1"; print FILE "$var2"; print FILE "$var3"; print FILE "$FORM{'mailnewthread'}\n"; fclose(FILE); fopen(FILE, ">$boardsdir/$id.txt"); print FILE ''; fclose(FILE); fopen(BOARD, "$boardsdir/$FORM{'id'}.dat"); @boardinfo = ; fclose(BOARD); if ($boardinfo[3] == 1) { $var1 = "$boardinfo[3]"; } else { $var1 = "\n"; } if ($boardinfo[4] == 1) { $var1 = "$boardinfo[4]"; } else { $var2 = "\n"; } if ($boardinfo[5] == 1) { $var1 = "$boardinfo[5]"; } else { $var3 = "\n"; } fopen(FILE, ">$boardsdir/$FORM{'id'}.dat", 1); print FILE "$FORM{'boardname'}\n"; print FILE "$FORM{'descr'}\n"; print FILE "$FORM{'moderator'}\n"; print FILE "$var1"; print FILE "$var2"; print FILE "$var3"; print FILE "$FORM{'mailnewthread'}\n"; fclose(FILE);