]>
src.bluestatic.org Git - viewsvn.git/blob - includes/cachev.php
2 /*=====================================================================*\
3 || ###################################################################
4 || # ViewSVN [#]version[#]
5 || # Copyright ©2002-[#]year[#] Iris Studios, Inc.
7 || # This program is free software; you can redistribute it and/or modify
8 || # it under the terms of the GNU General Public License as published by
9 || # the Free Software Foundation; version [#]gpl[#] of the License.
11 || # This program is distributed in the hope that it will be useful, but
12 || # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13 || # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 || # You should have received a copy of the GNU General Public License along
17 || # with this program; if not, write to the Free Software Foundation, Inc.,
18 || # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
19 || ###################################################################
20 \*=====================================================================*/
23 * File container for cacheV class
31 * This class is responsible for interacting with a given cacheV table.
32 * It controls rebuilding from scratch, updates, and querying the cache.
34 * @author Iris Studios, Inc.
35 * @copyright Copyright ©2002 - [#]year[#], Iris Studios, Inc.
47 var $controller = null ;
57 * Record count - the number of records in cacheV
64 * Memcache for all fetched revisions so we don't have to query-dupe
68 var $memcache = array ( 'revs' => array (), 'nodes' => array ());
70 // ###################################################################
72 * Constructor: initialies the registry
74 * @param object Controller
76 function cacheV (& $controller )
78 $this- > controller
=& $controller ;
82 // ###################################################################
84 * Sets the hash so we know what table we're dealing with
90 $this- > hash
= md5 ( $this- > controller
-> repospath
);
91 $this- > controller
-> registry
-> debug ( "hash: $this- >hash" );
94 // ###################################################################
96 * Returns a node string that has the beginning and ending slashes
97 * removed to allow it to match to the _nodes cacheV table
101 * @param string Original string
103 * @return string Matchable string
105 function fetch_node_string ( $node )
107 trigger_error ( 'You shouldn \' t be calling fetch_node_string. It \' s evil.' , E_USER_WARNING
);
108 return preg_replace ( '#(^/|/$)#' , '' , $node );
111 // ###################################################################
113 * Returns a specific log entry
117 * @param integer Revision number
119 * @return array Complete revision/commit entry
121 function fetch_revision ( $revision )
123 $revision = $this- > controller
-> registry
-> clean ( $revision , TYPE_UINT
);
125 if (! isset ( $this- > memcache
[ 'revs' ][ " $revision" ]))
127 $this- >memcache['revs'][" $revision" ] = $this- > controller
-> registry
-> db
-> query_first ( "SELECT * FROM {$this->hash} _revs " . ( $revision == 0 ? " ORDER BY revision DESC LIMIT 1" : "WHERE revision = $revision" ));
128 $this- >memcache['revs'][" $revision" ][ 'files' ] = unserialize ( $this- > memcache
[ 'revs' ][ " $revision" ]['files']);
131 return $this- >memcache['revs'][" $revision" ];
134 // ###################################################################
136 * Returns the revision entry before the specified one
140 * @param integer Revision number
142 * @return array Complete revision/commit entry
144 function fetch_prev_revision ( $revision )
146 $data = $this- > fetch_node ();
147 $data = $data [ 'history' ];
148 if ( sizeof ( $data ) < 1 )
150 return $this- > fetch_revision ( 0 );
153 $list = array_keys ( $data );
154 $key = array_search ( $revision , $list );
156 if ( $revision == 'HEAD' )
161 $key ++
; // go to the next earliest revision
162 if (! isset ( $list [ " $key" ]))
167 return $this- >fetch_revision( $list [" $key" ]);
170 // ###################################################################
172 * Returns the latest revision that the file is at
176 * @return integer HEAD revision
178 function fetch_head_revision ()
180 $data = $this- > fetch_node ();
181 $data = $data [ 'history' ];
183 return max ( array_keys ( $data ));
186 // ###################################################################
188 * Returns the revision entry that it's in context with the node. For
189 * instance, if the version 50 was passed and this node only has 48 as
190 * it's max, 48 will be returned.
194 * @param integer Target revision
196 * @return integer Contextual revision
198 function fetch_revision_context ( $target )
200 $data = $this- > fetch_node ();
201 $data = $data [ 'history' ];
203 if ( isset ( $data [ " $target" ]))
205 return $this- >fetch_revision( $target );
208 $keys = array_keys( $data );
211 foreach ( $keys AS $id => $revnum )
213 if ( $target > $revnum )
221 else if ( $target < $revnum )
231 return $this- >fetch_revision( $rev );
234 // ###################################################################
236 * Fetches the latest revision for a given path
240 * @return integer Latest revision; FALSE if none (not in HEAD)
242 function fetch_node()
244 $node = $this- >controller->path;
245 if (!isset( $this- >memcache['nodes'][" $node" ]))
247 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT * FROM {$this->hash} _nodes WHERE name = '" . $this- > controller
-> registry
-> escape ( $node ) . "'" );
248 if ( $result == false )
253 $this- > memcache
[ 'nodes' ][ " $node" ] = $result ;
254 $this- >memcache['nodes'][" $node" ][ 'history' ] = unserialize ( $this- > memcache
[ 'nodes' ][ " $node" ]['history']);
257 return $this- >memcache['nodes'][" $node" ];
260 // ###################################################################
262 * Checks to see if a given node is a directory. Returns TRUE if so.
266 * @return bool TRUE if directory, FALSE if not
270 $node = $this- > fetch_node ();
271 if ( $node [ 'node' ] == 'dir' )
279 // ###################################################################
281 * Checks to see if it's necessary to rebuild the cacheV table for the
282 * current repository. This is done by making sure $count > 0. If not,
283 * then rebuild() is run. This also checks against the cacheV table
284 * to make sure that it's up-to-date against the root repository.
288 function exec_build ()
290 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT MAX(revision) AS max FROM {$this->hash} _revs" );
291 $this- > count
= $result [ 'max' ];
293 // time to go from the start
294 if ( $this- > count
== 0 )
300 // send an Xquery to SVN to see if we need to update
301 $query = $this- > controller
-> library
-> svn ( 'info --xml ' . $this- > controller
-> repospath
);
302 $query = implode ( " \n " , $query );
304 $tree = $this- > controller
-> registry
-> xml
-> parse ( $query );
306 if ( $tree [ 'info' ][ 'entry' ][ 'revision' ] != $this- > count
)
308 $this- > build ( $this- > count
);
313 // ###################################################################
315 * Builds the cacheV table. This can be used to build only part of the
316 * cache or the entire thing, if the revision is set to NULL.
320 * @param integer Lower (current) revision
322 function build ( $revision )
324 $start = microtime ();
327 $output = $this- > controller
-> library
-> svn ( 'log --xml -v ' . ( $revision !== null ? '-r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
328 $output = implode ( " \n " , $output );
329 $tree = $this- > controller
-> registry
-> xml
-> parse ( $output );
332 $output = $this- > controller
-> library
-> svn ( 'info --xml -R ' . ( $revision !== null ? '-r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
333 $output = implode ( " \n " , $output );
334 $infolist = $this- > controller
-> registry
-> xml
-> parse ( $output );
336 // other part of _nodes: properties
337 $output = $this- > controller
-> library
-> svn ( 'proplist -v -R ' . ( $revision !== null ? ' -r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
338 foreach ( $output AS $line )
340 if ( preg_match ( '#^Properties on \' (.*?) \' :$#' , $line , $bits ))
342 $proplist [ " $index" ][" $curprop" ] = trim ( $proplist [ " $index" ][" $curprop" ]);
343 $index = str_replace ( $this- > controller
-> repospath
, '' , $bits [ 1 ]);
348 if ( preg_match ( '#^\s+(.*)\s:\s(.*)#' , $line , $matches ))
350 $curprop = $matches [ 1 ];
351 $proplist [ " $index" ][" $curprop" ] = $matches [ 2 ] . " \n " ;
354 else if ( $capture == true )
356 $proplist [ " $index" ][" $curprop" ] .= $line . " \n " ;
361 // construct _revs inserts and the list of add revisions
362 foreach ( $tree [ 'log' ][ 'logentry' ] AS $log )
364 $this- > controller
-> registry
-> xml
-> unify_node ( $log [ 'paths' ][ 'path' ]);
366 $inserts [ 'revs' ][] = "( $log [revision], ' {$log['author']['value']} ', ' {$log['date']['value']} ', '" . $this- > controller
-> registry
-> escape ( $log [ 'msg' ][ 'value' ]) . "', '" . $this- > controller
-> registry
-> escape ( serialize ( $log [ 'paths' ][ 'path' ])) . "')" ;
368 foreach ( $log [ 'paths' ][ 'path' ] AS $path )
370 if ( trim ( $path [ 'action' ]) == 'A' )
372 $path [ 'value' ] = preg_replace ( '#^/#' , '' , $path [ 'value' ]);
373 $addlist [ " $path [value]" ] = $log [ 'revision' ];
378 // construct list of HEAD nodes for _nodes
379 foreach ( $infolist [ 'info' ][ 'entry' ] AS $node )
381 $history = $this- > controller
-> library
-> svn ( 'log --xml ' . $node [ 'url' ][ 'value' ]);
382 $history = implode ( " \n " , $history );
383 $history = $this- > controller
-> registry
-> xml
-> parse ( $history );
387 foreach ( $history [ 'log' ][ 'logentry' ] AS $log )
389 // WHY THE HELL DOES THIS GET HIT ON REBUILDS?
396 $loglist [ " $log [revision]" ] = array (
397 'revision' => $log [ 'revision' ],
398 'author' => $log [ 'author' ][ 'value' ], // why does PHP5 hate this?
399 'date' => $log [ 'date' ][ 'value' ],
400 'message' => $log [ 'msg' ][ 'value' ]
404 $path = str_replace ( $this- > controller
-> repospath
, '' , $node [ 'url' ][ 'value' ]);
405 $path = ( $path == '' ? '/' : $path );
407 $inserts [ 'nodes' ][] = "(' $path' , '" . $node [ 'kind' ] . "', " . $node [ 'commit' ][ 'revision' ] . ", '" . $this- > controller
-> registry
-> escape ( serialize ( $loglist )) . "', '" . $this- > controller
-> registry
-> escape ( serialize ( $proplist [ " $path" ])) . " ')";
411 $this- >controller->registry->db->query("
412 REPLACE INTO {$this->hash} _revs
413 (revision, author, dateline, message, files)
415 " . implode(", \n ", $inserts [' revs
'])
419 $this- >controller->registry->db->query("
420 REPLACE INTO {$this->hash} _nodes
421 (name, node, revision, history, properties)
423 " . implode(", \n ", $inserts [' nodes
'])
426 $this- >controller->registry->debug("TIME TO (RE)BUILD: " . $this- >controller->registry->funct->fetch_microtime_diff( $start ));
430 /*=====================================================================*\
431 || ###################################################################
434 || ###################################################################
435 \*=====================================================================*/