Necesito Ayuda

[Pelgriego]

Es que no encuentro el archivo y ya miré casi todo, encontré este pero como de esto no entiendo, igualmente sos muy amable, te has ocupado y si se puede medir la belleza con lo que te has ocupado debes ser hermosa.jejejejeje!!!!
te agradezco

$removethreadplver = "1 Gold - SP 1.1";

sub RemoveThread {
my( $threadcount, $messagecount, $lastposttime, $lastposter, $tmpa, $tmpb, $checknum, $a, $mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mattach, $thread, @threads, $mnum2 );
$thread = $INFO{'thread'};
if ($thread =~ m~/~){ &fatal_error($txt{'224'}); }
if ($thread =~ m~\\~){ &fatal_error($txt{'225'}); }
if((!exists $moderators{$username}) && $settings[7] ne "Administrator") {
&fatal_error("$txt{'73'}");
}

fopen(FILE, "$boardsdir/$currentboard.txt") || &fatal_error("7542 $txt{'23'} $currentboard.txt");
@threads = <FILE>;
fclose(FILE);

($mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split(/\|/,$yyThreadLine);
$tmpb = $mreplies + 1;

( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($currentboard);
--$threadcount;
$messagecount -= $tmpb;

if( $yyThreadPosition == 0 ) {
($mnum2, $tmpb, $tmpb, $tmpb, $lastposttime) = split(/\|/, $threads[1]);
if( $mnum2 ) {
fopen(FILE, "$datadir/$mnum2.data");
$tmpa = <FILE>;
fclose(FILE);
($tmpa, $lastposter) = split(/\|/, $tmpa);
}
else {
$lastposttime = 'N/A';
$lastposter = 'N/A';
}
}

$threads[$yyThreadPosition] = '';
fopen(FILE, ">$boardsdir/$currentboard.txt", 1) || &fatal_error("7543 $txt{'23'} $currentboard.txt");
print FILE @threads;
fclose(FILE);

&BoardCountSet( $currentboard, $threadcount, $messagecount, $lastposttime, $lastposter );

unlink("$datadir/$thread.txt");
unlink("$datadir/$thread.mail");
unlink("$datadir/$thread.data");
&Sticky_remove($thread);

&dumplog($currentboard);
$yySetLocation = qq~$cgi~;
&redirectexit;
}

1;