New Thread Notification 2.0 (SP1) This mod makes YaBB to send a mail to the webmaster if a new thread is started. It is optional for each board ******************************************* Original by : PtPtH - Email: ptpth@peter88.cjb.net Update to SP1 by Sonic ******************************************* Sonic (fixed by DummyProof) www.scotsonphones.co.uk/YaBB 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]; chomp $curboardname; $descr = $boardinfo[1]; undef $mailnewthreadc; $mailnewthread="$boardinfo[6]"; if (!$mailnewthread) { $mailnewthread = 0; } if ($mailnewthread == 1) {$mailnewthreadc = "checked"; } $mailnew{'1'}    $mailnew{'1'}    $yySetLocation = qq~$cgi;action=manageboards~; &redirectexit; fopen(BOARD, "$boardsdir/$FORM{'id'}.dat"); @boardinfo = ; fclose(BOARD); if ($boardinfo[3]) { $var1 = "$boardinfo[3]"; } else { $var1 = "\n"; } if ($boardinfo[4]) { $var2 = "$boardinfo[4]"; } else { $var2 = "\n"; } if ($boardinfo[5]) { $var3 = "$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.dat"); $FORM{'descr'} =~ s/\n/ /g; $FORM{'descr'} =~ s/\r//g; $FORM{'moderator'} =~ s/\s*,\s*/|/g; print FILE "$FORM{'boardname'}\n"; print FILE "$FORM{'descr'}\n"; print FILE "$FORM{'moderator'}\n"; fclose(FILE); fopen(FILE, ">$boardsdir/$id.txt"); print FILE ''; fclose(FILE); fopen(BOARD, "$boardsdir/$FORM{'id'}.dat"); @boardinfo = ; fclose(BOARD); if ($boardinfo[3]) { $var1 = "$boardinfo[3]"; } else { $var1 = "\n"; } if ($boardinfo[4]) { $var2 = "$boardinfo[4]"; } else { $var2 = "\n"; } if ($boardinfo[5]) { $var3 = "$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); english.lng 1; $mailnew{'1'} = "Email New Threads?"; 1;