Hi Robert, Robert Douglass <rob@robshouse.net> wrote:

I'd be pretty interested in seeing this code and would love to help you port it to Drupal. If you don't want to wait for CVS access we could put it in my sandbox.

It's not a lot of code so I've just pasted it in here. No problems with you putting it up in your sandbox. I'm still new to drupal so hints on locations for a temp directory where this could be written, the cache table is probably be used. Also, is there is an existing script timer tool built in. I can send along the class that this script uses if there isn't one built in. Also, the values I put in for the base number of cycles were designed so that they would take about a second on an old machine. A shorter number of cycles made it harder to judge the relative speed and more cycles caused the problems on really slow servers. /* Do some really simple math a bunch of times */ function profileProcessorSpeed($max = 1000) { // for ($i=0 ; $i < $max ; ++$i) { $bigArray[] = 3 * $i; } foreach($bigArray AS $bigItem) { $value = $bigItem / 2; } // echo "$value end"; } /* Read/Write a bunch of files to a temp directory */ function profileDiskSpeed($max = 400) { global $_PSL, $scriptTimer; $contents = $handle = null; $dir = $_PSL['basedir'] . '/updir/fileCache/'; $scriptTimer->start('diskSpeed'); for ($i=0 ; $i < $max ; ++$i) { if ($scriptTimer->get_current('diskSpeed') > 30) { echo "Script Interrupted, $i disk cycles completed"; return $i; break; } $filename = $dir . 'testFile_' . $i . '.txt'; $somecontent = "Add this to the file $i \n"; // Let's make sure the directory is writable first. if (is_writable($dir)) { // Open file if (!$handle = fopen($filename, 'a')) { echo "Cannot open file ($filename)"; exit; } // Write $somecontent to our opened file. if (fwrite($handle, $somecontent) === FALSE) { echo "Cannot write to file ($filename)"; exit; } fclose($handle); // Read contents $handle = fopen($filename, 'r'); $contents .= fread($handle, filesize($filename)); fclose($handle); unlink($filename); } else { echo "The directory $dir is not writable"; } } return null; } /* Insert/Update/Delete a bunch of files into a cache table */ function profileDBaccess($max = 400) { global $_PSL, $scriptTimer; $contents = null; $db = pslNew('BEDB'); $scriptTimer->start('dbSpeed'); for ($i=0 ; $i < $max ; ++$i) { if ($scriptTimer->get_current('dbSpeed') > 30) { echo "Script Interrupted, $i database cycles completed"; return $i; break; } $j = $i + 30000; $query = "SELECT value FROM psl_variable WHERE variable_id = '$j'"; $db->query($query); while ($db->next_record()) { if ($db->Record['value']) { $query = "DELETE FROM psl_variable WHERE variable_id = '$j'"; $db->query($query); } } $query = "INSERT INTO psl_variable (variable_id, value, variable_name) VALUES ('$j', 'Inserted Value $j', 'Test$j')"; $db->query($query); $query = "UPDATE psl_variable SET value = 'Updated Value $j' WHERE variable_id = '$j'"; $db->query($query); $query = "SELECT value FROM psl_variable WHERE variable_id = '$j'"; $db->query($query); if ($db->next_record()) { $contents .= $db->Record['value']; } $query = "DELETE FROM psl_variable WHERE variable_id = '$j'"; $db->query($query); } return null; } // Start log content $content = '<p>' . date("D M j G:i:s T Y") . ' - '; $scriptTimer->start('profile'); $processorCycles = 10000; profileProcessorSpeed($processorCycles); $processorSpeed = $scriptTimer->get_current('profile'); $content .= "Processor Speed ($processorCycles Cycles): $processorSpeed - "; $fileCycles = 400; $diskCycleResults = profileDiskSpeed($fileCycles); $diskCycleResults = (!empty($diskCycleResults)) ? $diskCycleResults : $fileCycles; $diskSpeed = $scriptTimer->get_current('profile') - $processorSpeed; $content .= "Disk Speed ($diskCycleResults Cycles): $diskSpeed - "; $dbCycles = 250; $dbCycleResults = profileDBaccess($dbCycles); $dbCycleResults = (!empty($dbCycleResults)) ? $dbCycleResults : $dbCycles; $dbSpeed = $scriptTimer->get_current('profile') - $processorSpeed - $diskSpeed; $content .= "DB Speed ($dbCycleResults Cycles): $dbSpeed </p>\n"; $dir = $_PSL['basedir'] . '/updir/fileCache'; $filenameLog = $dir . '/profileLog.txt'; $filenameAverage = $dir . '/profileAverage.txt'; // Read contents of log if (is_readable($filenameLog)) { $handle = fopen($filenameLog, 'r'); $contents .= fread($handle, filesize($filenameLog)); fclose($handle); } // Write log if (!$handle = fopen($filenameLog, 'a')) { echo "Cannot open file ($filenameLog)"; exit; } if (fwrite($handle, $content) === FALSE) { echo "Cannot write to file ($filenameLog)"; exit; } fclose($handle); // Read contents of log if (is_readable($filenameAverage)) { $handle = fopen($filenameAverage, 'r'); $values = unserialize(fread($handle, filesize ($filenameAverage))); fclose($handle); $count = $values['count'] + 1; $processor = (($values['processor'] * $values['count']) + $processorSpeed) / $count; $disk = (($values['disk'] * $values['count']) + $diskSpeed) / $count; $database = (($values['database'] * $values['count']) + $dbSpeed) / $count; } else { $count = 1; $processor = $processorSpeed; $disk = $diskSpeed; $database = $dbSpeed; } $average = "<p>Count $count - Processor Speed (100000 Cycles): $processor - Disk Speed (400 Cycles): $disk - DB Speed (250 Cycles): $database </p>"; // Write log $value = serialize(array('count' => $count, 'processor' => $processor, 'disk' => $disk, 'database' => $database)); if (!$handle = fopen($filenameAverage, 'w')) { echo "Cannot open file ($filenameAverage)"; exit; } if (fwrite($handle, $value) === FALSE) { echo "Cannot write to file ($filenameAverage)"; exit; } fclose($handle); echo "<h1>Last Results</h1> $content <h1>Average Results</h1> $average <h1>All Results</h1> $contents "; Feel free to enhance any of this. Would be neat to see it as a drupal module. Mike -- Mike Gifford, OpenConcept Consulting Free Software for Social Change -> http://www.openconcept.ca Latest launch Canadian Labour Congress / Congrès du travail du Canada http://canadianlabour.ca / http://congresdutravail.ca