3 * Squid purge benchmark script
10 require_once( "commandLine.inc" );
13 function benchSquid( $urls, $trials = 1 ) {
15 for( $i = 0; $i < $trials; $i++
) {
16 SquidUpdate
::purge( $urls );
18 $delta = wfTime() - $start;
19 $pertrial = $delta / $trials;
20 $pertitle = $pertrial / count( $urls );
21 return sprintf( "%4d titles in %6.2fms (%6.2fms each)",
22 count( $urls ), $pertrial * 1000.0, $pertitle * 1000.0 );
26 function randomUrlList( $length ) {
28 for( $i = 0; $i < $length; $i++
) {
29 $list[] = randomUrl();
35 function randomUrl() {
36 global $wgServer, $wgArticlePath;
37 return $wgServer . str_replace( '$1', randomTitle(), $wgArticlePath );
41 function randomTitle() {
43 $length = mt_rand( 1, 20 );
44 for( $i = 0; $i < $length; $i++
) {
45 $str .= chr( mt_rand( ord('a'), ord('z') ) );
47 return ucfirst( $str );
51 wfDie( "Squid purge benchmark doesn't do much without squid support on.\n" );
53 printf( "There are %d defined squid servers:\n", count( $wgSquidServers ) );
54 #echo implode( "\n", $wgSquidServers ) . "\n";
55 if( isset( $options['count'] ) ) {
56 $lengths = array( intval( $options['count'] ) );
58 $lengths = array( 1, 10, 100 );
60 foreach( $lengths as $length ) {
61 $urls = randomUrlList( $length );
62 $trial = benchSquid( $urls );