<?
/*
########################################################################                                        
Copyright 2007, Michael Schrenk                                                                                 
   This software is designed for use with the book,                                                             
   "Webbots, Spiders, and Screen Scarpers", Michael Schrenk, 2007 No Starch Press, San Francisco CA             
                                                                                                                
W3CŽ SOFTWARE NOTICE AND LICENSE                                                                                
                                                                                                                
This work (and included software, documentation such as READMEs, or other                                       
related items) is being provided by the copyright holders under the following license.                          
 By obtaining, using and/or copying this work, you (the licensee) agree that you have read,                     
 understood, and will comply with the following terms and conditions.                                           
                                                                                                                
Permission to copy, modify, and distribute this software and its documentation, with or                         
without modification, for any purpose and without fee or royalty is hereby granted, provided                    
that you include the following on ALL copies of the software and documentation or portions thereof,             
including modifications:                                                                                        
   1. The full text of this NOTICE in a location viewable to users of the redistributed                         
      or derivative work.                                                                                       
   2. Any pre-existing intellectual property disclaimers, notices, or terms and conditions.                     
      If none exist, the W3C Software Short Notice should be included (hypertext is preferred,                  
      text is permitted) within the body of any redistributed or derivative code.                               
   3. Notice of any changes or modifications to the files, including the date changes were made.                
      (We recommend you provide URIs to the location from which the code is derived.)                           
                                                                                                                
THIS SOFTWARE AND DOCUMENTATION IS PROVIDED "AS IS," AND COPYRIGHT HOLDERS MAKE NO REPRESENTATIONS OR           
WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO, WARRANTIES OF MERCHANTABILITY OR FITNESS          
FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF THE SOFTWARE OR DOCUMENTATION WILL NOT INFRINGE ANY THIRD         
PARTY PATENTS, COPYRIGHTS, TRADEMARKS OR OTHER RIGHTS.                                                          
                                                                                                                
COPYRIGHT HOLDERS WILL NOT BE LIABLE FOR ANY DIRECT, INDIRECT, SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT     
OF ANY USE OF THE SOFTWARE OR DOCUMENTATION.                                                                    
                                                                                                                
The name and trademarks of copyright holders may NOT be used in advertising or publicity pertaining to the      
software without specific, written prior permission. Title to copyright in this software and any associated     
documentation will at all times remain with copyright holders.                                                  
########################################################################                                        
*/

########################################################################
#                                                                       
# LIB_resolve_addresses                                                 
#                                                                       
# Questa libreria fornisce delle routine per creare degli indirizzi web
# (URL) completi
#                                                                       
#-----------------------------------------------------------------------
# FUNZIONI
#                                                                       
#       resolve_address()               						        
#		    Questa funzione restituisce un URL completo corrispondente a $link     
#		    che potrebbe essere un'immagine, un css, un file javascript, etc.
#                                                                       
#       get_base_page_address() 										
#           Cerca da destra a sinistra la prima occorrenza di "/".
#           Dopo di che utilizza la parte a sinistra del carattere "/" come
#           l'indirizzo della page base.											
#                                                                       
#       get_base_domain_address()                                       
#           Ritorna l'indirizzo del DOMAIN base, che e' diverso dall'indirizzo 
#           della PAGE base. Mentre la page base potrebbe contenere una 
#           struttura di directory, l'indirizzo del domain base e' semplicemente
#           il dominio, senza alcuna struttura di directory.
#                                                                       
#-----------------------------------------------------------------------

/***********************************************************************
resolve_address($link, $page_base)						                
-------------------------------------------------------------			
DESCRIZIONE:															
        Questa funzione restituisce un URL completo corrispondente a $link     
        che potrebbe essere un'immagine, un css, un file javascript, etc.
OUTPUT:																
		L'URL completo corrispondente a $link						        
***********************************************************************/
function resolve_address($link, $page_base)
	{
    #---------------------------------------------------------- 
    # RIFORMATTA L'INDIRIZZO DEL LINK IN INPUT
	#
	$link = trim($link);
	$page_base = trim($page_base);
    
	// Se non e' presente, aggiunte un "/" alla fine del $page_base
	$page_base = trim($page_base);
	if( (strrpos($page_base, "/")+1) != strlen($page_base) )
		$page_base = $page_base."/";
    
	// Rimuove dal link i caratteri non voluti 
	$link = str_replace(";", "", $link);			// Rimuove i ;
	$link = str_replace("\"", "", $link);			// Rimuove le "
	$link = str_replace("'", "", $link);			// Rimuove gli '
	$abs_address = $page_base.$link;
    
    $abs_address = str_replace("/./", "/", $abs_address);
    
	$abs_done = 0;
    
    #---------------------------------------------------------- 
    # CERCA I RIFERIMENTI ALL'INDIRIZZO DI BASE DEL DOMINIO
    #---------------------------------------------------------- 
    # Ci sono sostanzialmente quattro tipi di indirizzi da risolvere:
    # 1. Riferimenti all'indirizzo di base del dominio
    # 2. Riferimenti a directory di livello superiore
    # 3. Riferimenti alla directory di base
    # 4. Indirizzi URL completi
	#
	if($abs_done==0)
		{
		// Se il $link inizia per "/", usa l'indirizzo domain base
		if (substr($link, 0, 1) == "/")
			{
			// Trova il "." piu' a sinistra
			$pos_left_most_dot = strrpos($page_base, ".");
	
			// Trova il "/" piu' a sinistra in $page_base dopo il "."
			for($xx=$pos_left_most_dot; $xx<strlen($page_base); $xx++)
				{
				if( substr($page_base, $xx, 1)=="/")
					break;
				}
            
			$domain_base_address = get_base_domain_address($page_base);
            
			$abs_address = $domain_base_address.$link;
			$abs_done=1;
			}
		}

    #---------------------------------------------------------- 
    # CERCA I RIFERIMENTI A DIRECTORY DI LIVELLO SUPERIORE
	#
	if($abs_done==0)
		{
		if (substr($link, 0, 3) == "../")
			{
			$page_base=trim($page_base);
			$right_most_slash = strrpos($page_base, "/");
	        
			// Rimuove lo "/" se alla fine di $page base
			if($right_most_slash==strlen($page_base)-1)
				{
				$page_base = substr($page_base, 0, strlen($page_base)-1);
				$right_most_slash = strrpos($page_base, "/");
				}
            
			if ($right_most_slash<8)
				$unadjusted_base_address = $page_base;
	        
			$not_done=TRUE;
			while($not_done)
				{
				// Sposta la page base su di un livello
				list($page_base, $link) = move_address_back_one_level($page_base, $link);
				if(substr($link, 0, 3)!="../")
					$not_done=FALSE;
				}
				if(isset($unadjusted_base_address))		
					$abs_address = $unadjusted_base_address."/".$link;
				else
					$abs_address = $page_base."/".$link;
			$abs_done=1;
			}
		}
        
    #---------------------------------------------------------- 
    # CERCA RIFERIMENTI ALLA DIRECTORY DI BASE
	#
	if($abs_done==0)
		{
		if (substr($link, 0, "1") == "/")
			{
			$link = substr($link, 1, strlen($link)-1);	// Rimuove il "/" iniziale
			$abs_address = $page_base.$link;			// Combina l'oggetto con l'indirizzo di base
			$abs_done=1;
			}
		}
    
    #---------------------------------------------------------- 
    # CERCA RIFERIMENTI CHE SONO GIA' ASSOLUTI
	#
    if($abs_done==0)
		{
		if (substr($link, 0, 4) == "http")
			{
			$abs_address = $link;
			$abs_done=1;
			}
		}
    
    #---------------------------------------------------------- 
    # AGGIUNGE L'IDENTIFICATORE DEL PROTOCOLLO SE NECESSARIO
	#
	if( (substr($abs_address, 0, 7)!="http://") && (substr($abs_address, 0, 8)!="https://") )
		$abs_address = "http://".$abs_address;
    
	return $abs_address;  
	}

/***********************************************************************
get_base_page_address($url)												
-------------------------------------------------------------			
DESCRIZIONE:															
		Cerca da destra a sinistra la prima occorrenza di "/". 			
 		Dopo di che usa la parte che precede quel carattere come
 		l'indirizzo della page base
																		
		Se la posizione del "/" e' inferiore a 7, il carattere fa parte di un
		URL diretto, che non contiene riferimenti a pagine o directory. 					
			(i.e. "http://www.someplace.com")						
		Con URL diretti, bisogna sempre assicurarsi che la pase base
		termini sempre con un "/".
INPUTS:																	
		$url															
OUTPUT:																
		L'indirizzo della base page per $url									
***********************************************************************/
function get_base_page_address($url)
	{
	$slash_position = strrpos($url, "/");

	if ($slash_position>8)
		$page_base = substr($url, 0, $slash_position+1);  	// "$slash_position+1" per includere il "/".
	else
		{
		$page_base = $url;  	// $url e' gia' la page base, senza alcuna modifica.
		if($slash_position!=strlen($url))
			$page_base=$page_base."/";
		}

		
	// Se la page base finisce con un //, lo sostituisce con un /
	$last_two_characters = substr($page_base, strlen($page_base)-2, 2);
	if($last_two_characters=="//")
		$page_base = substr($page_base, 0, strlen($page_base)-1);

	return $page_base;
	}

/***********************************************************************
get_base_domain_address($page_base)										
-------------------------------------------------------------			
DESCRIZIONE:															
        Ritorna l'indirizzo del DOMAIN base, che e' diverso dall'indirizzo 
        della PAGE base. Mentre la page base potrebbe contenere una 
        struttura di directory, l'indirizzo del domain base e' semplicemente
        il dominio, senza alcuna struttura di directory.
																		
		L'indirizzo del DOMAIN base si trova prendendo tutto cio' che segue
		il primo "/" dopo gli "/" iniziali che si trovano dopo il protocollo
		(http:// o https://)
INPUTS:																	
		$page_base, (da get_base_page_address)						
OUTPUT:																
		L'indirizzo del domain base dell'URL							
***********************************************************************/
function get_base_domain_address($page_base)
	{
	for ($pointer=8; $pointer<strlen($page_base); $pointer++)
		{
		if (substr($page_base, $pointer, 1)=="/")
			{
			$domain_base=substr($page_base, 0, $pointer);
			break;
			}
		}
	
	$last_two_characters = substr($page_base, strlen($page_base)-2, 2);
	if($last_two_characters=="//")
		$page_base = substr($page_base, 0, strlen($page_base)-1);

	return $domain_base;
	}


/***********************************************************************
move_address_back_one_level($page_base, $object_source)                 
-------------------------------------------------------------			
DESCRIZIONE:															
		Questa funzione e' usata dalla libreria e non serve
		a scopi esterni.                                                
-------------------------------------------------------------			
*/
function move_address_back_one_level($page_base, $object_source)
	{
	// Porta la page base su di un livello
	$right_most_slash = strrpos($page_base, "/");
	$new_page_base = substr($page_base, 0, $right_most_slash);

	// Rimuove "../" dall'inizio di $object_source
	$object_source = substr($object_source, 3, strlen($object_source)-3);

	$return_array[0]=$new_page_base;
	$return_array[1]=$object_source;
	return $return_array;
	}
?>