Просмотр файла parkerforum2/delete.php

Размер файла: 934B
<?
if(QUERY_STRING=="logged");
$logged=0;
session_start();
include"params.php";
if($epass==$pass and $elog==$log)
{
$logged=1;
}

if($object=="topic" and $line!="" and $logged==1)
{
$file=file("topics.dat");
list($Id,$Date,$Author,$Mail,$Icq,$Site,$Topic,$Msg)=split("::",$file[$line]);
unlink("data/answers/$Id.dat");
unlink("data/seens/$Id.dat");
$fp=fopen("topics.dat","w");
for($i=0;$i<sizeof($file);$i++)
{
if($i==$line)
{
unset($file[$i]);
}
}
fputs($fp,implode("",$file));
fclose($fp);
print "<meta http-equiv=refresh content='0; url=index.php'>";
}

if($object=="answer" and $logged==1 and $line!="")
{
$file=file("data/answers/$fileid.dat");
$fp=fopen("data/answers/$fileid.dat","w");
for($i=0;$i<sizeof($file);$i++)
{
if($i==$line)
{
unset($file[$i]);
}
}
fputs($fp,implode("",$file));
fclose($fp);
print "<meta http-equiv=refresh content='0; url=showtopic.php?line=$Line'>";
}
?>