Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/05/2005, 07:23
RakoVky
 
Fecha de Ingreso: diciembre-2002
Mensajes: 100
Antigüedad: 21 años, 4 meses
Puntos: 1
Equivalente - Perl -> PHP ?

Código PHP:
#============= Sample Code ===============
sub check_url
{
    
my @referers = ( "www.2checkout.com""2checkout.com""www2.2checkout.com" );
    
my $check_referer 0;
    if ( 
$ENV{HTTP_REFERER} )
    {
        foreach 
my $referer( @referers )
        {
            if ( 
$ENV{HTTP_REFERRER} =~ m|https?:://([^/]*)$referer|i )
            
{
                
$check_referer 1;
            }
        }
    }
    else
    {
        
$check_referer 1;
    }
    
    if ( 
$check_referer != )
    {
        ...
        
"Insert Code to execute when the check fails";
        ...
    }
}
#================ End Sample ==============