\n";
# Version 2 insert the new message at the top
#
$fp = fopen ($file,"r+");
$current = fread($fp,filesize($file));
$current = eregi_replace('<\? \$id=[0-9]*; \?>','',$current);
fseek($fp,0);
fputs($fp,"$m\n$current");
# Version 1 append the new message at the end
#
# $fp = fopen($file,"a");
# fwrite ($fp, $m);
fclose ($fp);
header("Location: ./");
} else {
$i=0;$j=1;
while(1) {
if ( file_exists("$dir/$j") )
$j++;
else
break;
}
$head ="