]>
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 c {$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 ( $target == 'HEAD' )
205 $target = $this- > fetch_head_revision ();
208 if ( isset ( $data [ " $target" ]))
210 return $this- >fetch_revision( $target );
213 $keys = array_keys( $data );
216 foreach ( $keys AS $id => $revnum )
218 if ( $target > $revnum )
226 else if ( $target < $revnum )
236 return $this- >fetch_revision( $rev );
239 // ###################################################################
241 * Fetches the latest revision for a given path
245 * @return integer Latest revision; FALSE if none (not in HEAD)
247 function fetch_node()
249 $node = $this- >controller->path;
250 if (!isset( $this- >memcache['nodes'][" $node" ]))
252 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT * FROM c {$this->hash} _nodes WHERE name = '" . $this- > controller
-> registry
-> escape ( $node ) . "'" );
253 if ( $result == false )
258 $this- > memcache
[ 'nodes' ][ " $node" ] = $result ;
259 $this- >memcache['nodes'][" $node" ][ 'history' ] = unserialize ( $this- > memcache
[ 'nodes' ][ " $node" ]['history']);
260 $this- >memcache['nodes'][" $node" ][ 'properties' ] = unserialize ( $this- > memcache
[ 'nodes' ][ " $node" ]['properties']);
263 return $this- >memcache['nodes'][" $node" ];
266 // ###################################################################
268 * Checks to see if a given node is a directory. Returns TRUE if so.
272 * @return bool TRUE if directory, FALSE if not
276 $node = $this- > fetch_node ();
277 if ( $node [ 'node' ] == 'dir' )
285 // ###################################################################
287 * Checks to see if it's necessary to rebuild the cacheV table for the
288 * current repository. This is done by making sure $count > 0. If not,
289 * then rebuild() is run. This also checks against the cacheV table
290 * to make sure that it's up-to-date against the root repository.
294 function exec_build ()
296 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT MAX(revision) AS max FROM c {$this->hash} _revs" );
297 $this- > count
= $result [ 'max' ];
299 // time to go from the start
300 if ( $this- > count
== 0 )
306 // send an Xquery to SVN to see if we need to update
307 $query = $this- > controller
-> library
-> svn ( 'info --xml ' . $this- > controller
-> repospath
);
308 $query = implode ( " \n " , $query );
310 $tree = $this- > controller
-> registry
-> xml
-> parse ( $query );
312 if ( $tree [ 'info' ][ 'entry' ][ 'revision' ] != $this- > count
)
314 $this- > build ( $this- > count
);
319 // ###################################################################
321 * Builds the cacheV table. This can be used to build only part of the
322 * cache or the entire thing, if the revision is set to NULL.
326 * @param integer Lower (current) revision
328 function build ( $revision )
330 $start = microtime ();
333 $output = $this- > controller
-> library
-> svn ( 'log --xml -v ' . ( $revision !== null ? '-r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
334 $output = implode ( " \n " , $output );
335 $tree = $this- > controller
-> registry
-> xml
-> parse ( $output );
338 $output = $this- > controller
-> library
-> svn ( 'info --xml -R ' . $this- > controller
-> repospath
);
339 $output = implode ( " \n " , $output );
340 $infolist = $this- > controller
-> registry
-> xml
-> parse ( $output );
342 // other part of _nodes: properties
343 $output = $this- > controller
-> library
-> svn ( 'proplist -v -R ' . $this- > controller
-> repospath
);
345 foreach ( $output AS $line )
347 if ( preg_match ( '#^Properties on \' (.*?) \' :$#' , $line , $bits ))
351 $proplist [ " $index" ][" $curprop" ] = trim ( $proplist [ " $index" ][" $curprop" ]);
355 $index = str_replace ( $this- > controller
-> repospath
, '' , $bits [ 1 ]);
356 $index = ( $index == '' ? '/' : $index );
361 if ( preg_match ( '#^\s+(.*)\s:\s(.*)#' , $line , $matches ))
363 $curprop = $matches [ 1 ];
364 $proplist [ " $index" ][" $curprop" ] = $matches [ 2 ] . " \n " ;
367 else if ( $capture == true )
369 $proplist [ " $index" ][" $curprop" ] .= $line . " \n " ;
374 // construct _revs inserts and the list of add revisions
375 foreach ( $tree [ 'log' ][ 'logentry' ] AS $log )
377 $this- > controller
-> registry
-> xml
-> unify_node ( $log [ 'paths' ][ 'path' ]);
379 $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' ])) . "')" ;
381 foreach ( $log [ 'paths' ][ 'path' ] AS $path )
383 if ( trim ( $path [ 'action' ]) == 'A' )
385 $path [ 'value' ] = preg_replace ( '#^/#' , '' , $path [ 'value' ]);
386 $addlist [ " $path [value]" ] = $log [ 'revision' ];
391 // construct list of HEAD nodes for _nodes
392 foreach ( $infolist [ 'info' ][ 'entry' ] AS $node )
394 $history = $this- > controller
-> library
-> svn ( 'log --xml ' . $node [ 'url' ][ 'value' ]);
395 $history = implode ( " \n " , $history );
396 $history = $this- > controller
-> registry
-> xml
-> parse ( $history );
400 foreach ( $history [ 'log' ][ 'logentry' ] AS $log )
402 // WHY THE HELL DOES THIS GET HIT ON REBUILDS?
409 $loglist [ " $log [revision]" ] = array (
410 'revision' => $log [ 'revision' ],
411 'author' => $log [ 'author' ][ 'value' ], // why does PHP5 hate this?
412 'date' => $log [ 'date' ][ 'value' ],
413 'message' => $log [ 'msg' ][ 'value' ]
417 $path = str_replace ( $this- > controller
-> repospath
, '' , $node [ 'url' ][ 'value' ]);
418 $path = ( $path == '' ? '/' : $path );
420 $inserts [ 'nodes' ][] = "(' $path' , '" . $node [ 'kind' ] . "', " . $node [ 'commit' ][ 'revision' ] . ", '" . $this- > controller
-> registry
-> escape ( serialize ( $loglist )) . "', '" . $this- > controller
-> registry
-> escape ( serialize ( $proplist [ " $path" ])) . " ')";
424 $this- >controller->registry->db->query("
425 REPLACE INTO c {$this->hash} _revs
426 (revision, author, dateline, message, files)
428 " . implode(", \n ", $inserts [' revs
'])
432 $this- >controller->registry->db->query("
433 REPLACE INTO c {$this->hash} _nodes
434 (name, node, revision, history, properties)
436 " . implode(", \n ", $inserts [' nodes
'])
439 $this- >controller->registry->debug("TIME TO (RE)BUILD: " . $this- >controller->registry->funct->fetch_microtime_diff( $start ));
443 /*=====================================================================*\
444 || ###################################################################
447 || ###################################################################
448 \*=====================================================================*/