parse error in very first script!

nedals

This is my first attempt at PHP. I'm experienced with javascript and Perl, so please not too basic.

I have two errors.
This gives me a parse error.

$msgSplit = split('<hr>',$dataSplit[1]);  // Split into seperate messages 
if (count($msgSplit) > 10) { $msgSplit = array_pop($msgSplit) };

This returns the "...file not writable" message

if (is_writable($filename)) {  // file is CHMOD to 755 
   if (!$fp = fopen($filename, 'w')) { echo "Cannot open file ($filename)";  exit; }
   fwrite($fp,$dataSplit[0]);
   fwrite($fp,$dataSplit[1]);
   fwrite($fp,$dataSplit[2]);
   fclose($fp);
} else { echo "The file $filename is not writable";  exit; }

This is probably simple, but I don't really know what I'm doing.

jerdo

755 isn't the proper chmod to be writable by a php script running from the web, try 777 or make the owner of the file the same user as your webserver.

nedals

Originally posted by jerdo
755 isn't the proper chmod to be writable by a php script running from the web, try 777 or make the owner of the file the same user as your webserver.

Of course, been using CGI too long 🙂
But,alas, that didn't work. I tried 777 and 666. I don't understand make the owner of the file the same user as your webserver.

xblue

the first issue: you placed the semicolon wrong, it is supposed to be right after the function call, not after the closing }. I'd recommend to use line breaks and indent your code.

$msgSplit = split('<hr>',$dataSplit[1]);  // Split into seperate messages 
if (count($msgSplit) > 10) { 
    $msgSplit = array_pop($msgSplit);
}

nedals

xblue,
That solved the problem. In Perl you don't need a ';' at the end of a statement if followed by a curly brace. I have, maybe, a bad habit of minimizing the number of lines of code.

I also solved the 'not writable' issue, I was using $filename = "http://www.domain.com/testfile.html". If I changed this to $filename = testfile.html, it worked (with CHMOD 777)

Thanks to both; This PHP stuff looks pretty easy and seems to result in a lot less code than Perl. Just a few habits to change.

Again, Thanks! 🙂