36
36
while ( list($k, $line) = each($lines) ){
37
37
if (ereg("^>", $line)) $line = ""; //ignore quoted lines
38
38
if (!ereg("[a-zA-Z ]", $line)) $line = ""; //ignore lines that contain no text
40
41
if (!empty($line)) $started = true; //we won't write leading empty lines
41
42
if ($started) fputs($fp, $line."\r\n");