Sticky Threads XXL Patch
1.0
Bugfix for the "Sticky Threads XXL" mod. Now, after delete a sticky thread, the thread will removed from the stickylist.
Bjoern Berg - cgi@bjoern-berg.de
http://www.wintotal.de/YaBB
Sources/RemoveThread.pl
unlink("$datadir/$thread.txt");
unlink("$datadir/$thread.mail");
unlink("$datadir/$thread.data");
#HbBB - StickyThreadsXXL Patch
fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
@stickys = ;
fclose(FILE);
$is_sticky = 0;
$stickynum = 0;
foreach $curstick (@stickys) {
chomp $curstick;
if ($curstick == $thread) { $is_sticky = 1; last; }
$stickynum++;
}
splice(@stickys,$stickynum,1);
fopen(FILE, ">$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
foreach $curline (@stickys) { chomp $curline; print FILE "$curline\n"; }
fclose(FILE);
##HbBB - StickyThreadsXXL Patch
Sources/ModifyMessage.pl
unlink("$datadir/$tnum.txt");
unlink("$datadir/$tnum.mail");
unlink("$datadir/$tnum.data");
#HbBB - StickyThreadsXXL Patch
fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
@stickys = ;
fclose(FILE);
$is_sticky = 0;
$stickynum = 0;
foreach $curstick (@stickys) {
chomp $curstick;
if ($curstick == $tnum) { $is_sticky = 1; last; }
$stickynum++;
}
splice(@stickys,$stickynum,1);
fopen(FILE, ">$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
foreach $curline (@stickys) { chomp $curline; print FILE "$curline\n"; }
fclose(FILE);
##HbBB - StickyThreadsXXL Patch