$main['repname'] = "phLXR"
$main['path'] = "/"
$main['file'] = "/ident"

$HTTP_SERVER_VARS['PATH_INFO']: /phLXR/ident

	<?
	
	/*
	 *
	 *   Copyright (c) 2001, W.A.D, Roman Neuhauser
	 *   All rights reserved.
	 *   
	 *   Redistribution and use in source and binary forms, with or without 
	 *   modification, are permitted provided that the following conditions 
	 *   are met:
	 *   
	 *   * Redistributions of source code must retain the above copyright notice, 
	 *     this list of conditions and the following disclaimer. 
	 *   * Redistributions in binary form must reproduce the above copyright 
	 *     notice, this list of conditions and the following disclaimer in the 
	 *     documentation and/or other materials provided with the distribution. 
	 *   * Neither the name of the W.A.D nor the names of its contributors may be 
	 *     used to endorse or promote products derived from this software without 
	 *     specific prior written permission. 
	 *   
	 *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
	 *   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
	 *   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 
	 *   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR 
	 *   CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 
	 *   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
	 *   PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
	 *   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 
	 *   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
	 *   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
	 *   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	 *
	 *
	 *   $Id: ident,v 1.5 2001/04/16 21:15:34 cynicz Exp $
	 *
	 */
	
	
	error_reporting( E_ALL ) ;
	
	require( './include/config.inc' ) ;
	require( './include/functions.inc' ) ;
	require( './include/class.layout.inc' ) ;
	
	require( './include/class.logger.inc' ) ;
	$log = new Clogger( './log/ident.log' , 'w' ) ;
	
	newhtml( $page ) ;
	
	$db = db_connect() ;
	
	if( ! isset( $HTTP_SERVER_VARS['PATH_INFO'] ) || '/' == $HTTP_SERVER_VARS['PATH_INFO'] ) {
	    header( $_path ) ;
	    exit ;
	} 
	
	$path = $HTTP_SERVER_VARS['PATH_INFO'] ;
	if( $secondslash = strnpos( $path , '/' , 2 ) ) {
	    $repname = substr( $path , 1 , $secondslash-1 ) ;
	    $idname = substr( $path , $secondslash+1 ) ;
	    if( '/' == $idname ) {
	        header( "Location: $_path" ) ;
	        exit ;
	    }
	} else {
	    header( "Location: $_path" ) ;
	    exit ;
	}
	
	$q = 'select
	            id.idtype ,
	            file.file ,
	            id.linenr
	        from
	            identifier id ,
	            file ,
	            repository rep
	        where
	            id.idname = "' . $idname . '"
	          and
	            id.fileid = file.fileid
	          and
	            file.repid = rep.repid
	          and
	            rep.repname="' . $repname . '"' ;
	
	$rs = mysql_query( $q ) ;
	
	while( $def = mysql_fetch_assoc( $rs ) ) {
	    $defs[] = $def ;
	}
	
	$rs = mysql_query( 'select
	                        id.idname ,
	                        file.file ,
	                        loc.linenr
	                    from
	                        identifier id ,
	                        file ,
	                        location loc ,
	                        repository rep
	                    where
	                        id.idname = "' . $idname . '"
	                      and
	                        id.idid = loc.idid
	                      and
	                        loc.fileid = file.fileid
	                      and
	                        file.repid = rep.repid
	                      and 
	                        loc.linenr <> id.linenr
	                      and
	                        rep.repname="' . $repname . '"
	                    order by file.file, loc.linenr' ) ;
	
	
	while( $loc = mysql_fetch_assoc( $rs ) ) {
	    $locs[] = $loc ;
	}
	
	/*
	foreach( $defs as $def ) {
	    array_walk( $locs , 'remove_defs' , $def ) ;
	}
	
	function remove_defs( &$loc , $k , $def )
	{
	    if( $loc['file'] == $def['file'] && $loc['linenr'] == $def['linenr'] ) {
	        unset( $GLOBALS['locs'][$k] ) ;
	    }
	}
	*/
	
	insert( $page , heading( 1 , $idname ) ) ;
	foreach( $defs as $def ) {
	    insert( $page , block( 'Defined as <tt>' . get_identifier_type( $def['idtype'] ) . '</tt> in file ' ) ) ;
	    insert( $page , anchor( realuri( "source/$repname{$def['file']}#{$def['linenr']}" ) , 
	                            "<tt>{$def['file']}, line {$def['linenr']}</tt>" ) ) ;
	    insert( $page , generic( 'br' ) ) ;
	}
	
	insert( $page , block( 'Referenced (in ' . unique_files( $locs ) . ' files total) in:<br>' ) ) ;
	foreach( $locs as $loc ) {
	#    if( ! in_array( $loc , $defs ) ) {
	        insert( $page , anchor( realuri( "source/$repname{$loc['file']}#{$loc['linenr']}" ) , 
	                            "<tt>{$loc['file']}, line {$loc['linenr']}</tt>" ) ) ;
	        insert( $page , generic( 'br' ) ) ;
	#    }
	#         insert( $page , block( "<tt><a href='/phlxr/source/$repname{$loc['file']}#{$loc['linenr']}'>{$loc['file']}</a></tt> "
	#         . "on line <tt><a href='/phlxr/source/$repname{$loc['file']}#{$loc['linenr']}'>{$loc['linenr']}</a></tt><br>\n" ) ) ;
	}
	
	printhtml( $page ) ;
	
	?>