Foros del Web » Programando para Internet » PHP »

Equivalente - Perl -> PHP ?

Estas en el tema de Equivalente - Perl -> PHP ? en el foro de PHP en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 16/05/2005, 07:23
 
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 ============== 
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:30.