]>
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 ;
56 * Record count - the number of records in cacheV
62 * Memcache for all fetched revisions so we don't have to query-dupe
65 var $memcache = array ( 'revs' => array (), 'nodes' => array ());
67 // ###################################################################
69 * Constructor: initialies the registry
71 * @param object Controller
73 function cacheV (& $controller )
75 $this- > controller
=& $controller ;
79 // ###################################################################
81 * Sets the hash so we know what table we're dealing with
87 $this- > hash
= md5 ( $this- > controller
-> repospath
);
88 $this- > controller
-> registry
-> debug ( "hash: $this- >hash" );
91 // ###################################################################
93 * Returns a node string that has the beginning and ending slashes
94 * removed to allow it to match to the _nodes cacheV table
98 * @param string Original string
100 * @return string Matchable string
102 function fetch_node_string ( $node )
104 trigger_error ( 'You shouldn \' t be calling fetch_node_string. It \' s evil.' , E_USER_WARNING
);
105 return preg_replace ( '#(^/|/$)#' , '' , $node );
108 // ###################################################################
110 * Returns a specific log entry
114 * @param integer Revision number
116 * @return array Complete revision/commit entry
118 function fetch_revision ( $revision )
120 $revision = $this- > controller
-> registry
-> clean ( $revision , TYPE_UINT
);
122 if (! isset ( $this- > memcache
[ 'revs' ][ " $revision" ]))
124 $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" ));
125 $this- >memcache['revs'][" $revision" ][ 'files' ] = unserialize ( $this- > memcache
[ 'revs' ][ " $revision" ]['files']);
128 return $this- >memcache['revs'][" $revision" ];
131 // ###################################################################
133 * Returns the revision entry before the specified one
137 * @param integer Revision number
139 * @return array Complete revision/commit entry
141 function fetch_prev_revision ( $revision )
143 $data = $this- > fetch_node ();
144 $data = $data [ 'history' ];
145 if ( sizeof ( $data ) < 1 )
147 return $this- > fetch_revision ( 0 );
150 $list = array_keys ( $data );
151 $key = array_search ( $revision , $list );
153 if ( $revision == 'HEAD' )
158 $key ++
; // go to the next earliest revision
159 if (! isset ( $list [ " $key" ]))
164 return $this- >fetch_revision( $list [" $key" ]);
167 // ###################################################################
169 * Returns the latest revision that the file is at
173 * @return integer HEAD revision
175 function fetch_head_revision ()
177 $data = $this- > fetch_node ();
178 $data = $data [ 'history' ];
180 return max ( array_keys ( $data ));
183 // ###################################################################
185 * Returns the revision entry that it's in context with the node. For
186 * instance, if the version 50 was passed and this node only has 48 as
187 * it's max, 48 will be returned.
191 * @param integer Target revision
193 * @return integer Contextual revision
195 function fetch_revision_context ( $target )
197 $data = $this- > fetch_node ();
198 $data = $data [ 'history' ];
200 if ( isset ( $data [ " $target" ]))
202 return $this- >fetch_revision( $target );
205 $keys = array_keys( $data );
208 foreach ( $keys AS $id => $revnum )
210 if ( $target > $revnum )
218 else if ( $target < $revnum )
228 return $this- >fetch_revision( $rev );
231 // ###################################################################
233 * Fetches the latest revision for a given path
237 * @return integer Latest revision; FALSE if none (not in HEAD)
239 function fetch_node()
241 $node = $this- >controller->path;
242 if (!isset( $this- >memcache['nodes'][" $node" ]))
244 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT * FROM {$this->hash} _nodes WHERE name = '" . $this- > controller
-> registry
-> escape ( $node ) . "'" );
245 if ( $result == false )
250 $this- > memcache
[ 'nodes' ][ " $node" ] = $result ;
251 $this- >memcache['nodes'][" $node" ][ 'history' ] = unserialize ( $this- > memcache
[ 'nodes' ][ " $node" ]['history']);
254 return $this- >memcache['nodes'][" $node" ];
257 // ###################################################################
259 * Checks to see if a given node is a directory. Returns TRUE if so.
263 * @return bool TRUE if directory, FALSE if not
267 $node = $this- > fetch_node ();
268 if ( $node [ 'node' ] == 'dir' )
276 // ###################################################################
278 * Checks to see if it's necessary to rebuild the cacheV table for the
279 * current repository. This is done by making sure $count > 0. If not,
280 * then rebuild() is run. This also checks against the cacheV table
281 * to make sure that it's up-to-date against the root repository.
285 function exec_build ()
287 $result = $this- > controller
-> registry
-> db
-> query_first ( "SELECT MAX(revision) AS max FROM {$this->hash} _revs" );
288 $this- > count
= $result [ 'max' ];
290 // time to go from the start
291 if ( $this- > count
== 0 )
297 // send an Xquery to SVN to see if we need to update
298 $query = $this- > controller
-> library
-> svn ( 'info --xml ' . $this- > controller
-> repospath
);
299 $query = implode ( " \n " , $query );
301 $tree = $this- > controller
-> registry
-> xml
-> parse ( $query );
303 if ( $tree [ 'info' ][ 'entry' ][ 'revision' ] != $this- > count
)
305 $this- > build ( $this- > count
);
310 // ###################################################################
312 * Builds the cacheV table. This can be used to build only part of the
313 * cache or the entire thing, if the revision is set to NULL.
317 * @param integer Lower (current) revision
319 function build ( $revision )
321 $start = microtime ();
324 $output = $this- > controller
-> library
-> svn ( 'log --xml -v ' . ( $revision !== null ? '-r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
325 $output = implode ( " \n " , $output );
326 $tree = $this- > controller
-> registry
-> xml
-> parse ( $output );
329 $output = $this- > controller
-> library
-> svn ( 'info --xml -R ' . ( $revision !== null ? '-r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
330 $output = implode ( " \n " , $output );
331 $infolist = $this- > controller
-> registry
-> xml
-> parse ( $output );
333 // other part of _nodes: properties
334 $output = $this- > controller
-> library
-> svn ( 'proplist -v -R ' . ( $revision !== null ? ' -r' . $revision . ':HEAD ' : '' ) . $this- > controller
-> repospath
);
335 foreach ( $output AS $line )
337 if ( preg_match ( '#^Properties on \' (.*?) \' :$#' , $line , $bits ))
339 $proplist [ " $index" ][" $curprop" ] = trim ( $proplist [ " $index" ][" $curprop" ]);
340 $index = str_replace ( $this- > controller
-> repospath
, '' , $bits [ 1 ]);
345 if ( preg_match ( '#^\s+(.*)\s:\s(.*)#' , $line , $matches ))
347 $curprop = $matches [ 1 ];
348 $proplist [ " $index" ][" $curprop" ] = $matches [ 2 ] . " \n " ;
351 else if ( $capture == true )
353 $proplist [ " $index" ][" $curprop" ] .= $line . " \n " ;
358 // construct _revs inserts and the list of add revisions
359 foreach ( $tree [ 'log' ][ 'logentry' ] AS $log )
361 $this- > controller
-> registry
-> xml
-> unify_node ( $log [ 'paths' ][ 'path' ]);
363 $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' ])) . "')" ;
365 foreach ( $log [ 'paths' ][ 'path' ] AS $path )
367 if ( trim ( $path [ 'action' ]) == 'A' )
369 $path [ 'value' ] = preg_replace ( '#^/#' , '' , $path [ 'value' ]);
370 $addlist [ " $path [value]" ] = $log [ 'revision' ];
375 // construct list of HEAD nodes for _nodes
376 foreach ( $infolist [ 'info' ][ 'entry' ] AS $node )
378 $history = $this- > controller
-> library
-> svn ( 'log --xml ' . $node [ 'url' ][ 'value' ]);
379 $history = implode ( " \n " , $history );
380 $history = $this- > controller
-> registry
-> xml
-> parse ( $history );
384 foreach ( $history [ 'log' ][ 'logentry' ] AS $log )
386 // WHY THE HELL DOES THIS GET HIT ON REBUILDS?
393 $loglist [ " $log [revision]" ] = array (
394 'revision' => $log [ 'revision' ],
395 'author' => $log [ 'author' ][ 'value' ], // why does PHP5 hate this?
396 'date' => $log [ 'date' ][ 'value' ],
397 'message' => $log [ 'msg' ][ 'value' ]
401 $path = str_replace ( $this- > controller
-> repospath
, '' , $node [ 'url' ][ 'value' ]);
402 $path = ( $path == '' ? '/' : $path );
404 $inserts [ 'nodes' ][] = "(' $path' , '" . $node [ 'kind' ] . "', " . $node [ 'commit' ][ 'revision' ] . ", '" . $this- > controller
-> registry
-> escape ( serialize ( $loglist )) . "', '" . $this- > controller
-> registry
-> escape ( serialize ( $proplist [ " $path" ])) . " ')";
408 $this- >controller->registry->db->query("
409 REPLACE INTO {$this->hash} _revs
410 (revision, author, dateline, message, files)
412 " . implode(", \n ", $inserts [' revs
'])
416 $this- >controller->registry->db->query("
417 REPLACE INTO {$this->hash} _nodes
418 (name, node, revision, history, properties)
420 " . implode(", \n ", $inserts [' nodes
'])
423 $this- >controller->registry->debug("TIME TO (RE)BUILD: " . $this- >controller->registry->funct->fetch_microtime_diff( $start ));
427 /*=====================================================================*\
428 || ###################################################################
431 || ###################################################################
432 \*=====================================================================*/