Perl::Check - check

Navigation

Die Funktion check_referer() prüft ob ein Referer existiert und ob die Domain des Referer in einer Whitelist @domains vorhanden ist. Bei Erfolg wird TRUE (bzw. 1) zurück gegeben im Fehler wird FALSE (bzw. 0) zurück gegeben.

Snippet
Information

check_referer

```
#!/usr/bin/perl
```
```
 
```

my @domains=('newmedia24.de','tuxnet24.de');

```
 
```
```
print "Content-Type: text/html\n\n";
```
```
 
```

if (check_referer($ENV{'HTTP_REFERER'})) {

    my $host=$1 if ($ENV{'HTTP_REFERER'} =~ m|^https?://([\w\.]+)|i);

```
    print "Referer Check: OK - $host";
```
```
} else {
```
```
    print "Referer Check: FALSCH";
```
```
}
```
```
 
```

# **************************************************************

```
# Referer checken...
```
```
 
```
```
sub check_referer {
```
```
 
```
```
my $referer=shift;
```
```
if ($referer) {
```
```
    foreach $domain(@domains) {
```

        if ($referer =~ m|https?://([^/]*)$domain|i) {

```
            return 1;
```
```
            last;
```
```
        }
```
```
    }
```
```
} else {
```
```
    return 1;
```
```
}
```
```
return 0;
```
```
 
```
```
}
```
```
 
```

Parsed in 0.002 seconds at 333.50 KB/s

Tags Cloud
array backup base64 calculate check class crontab css transparent date decode directory encode environment files function hash html image iso8601 library logfiles mysql radius random redirect regexp rfc2822 rotate class scripts sendmail shadow stderr string string encode md5 apr1 system template time validation

Latest snippets

str2seconds (Bash::Function)	0% of 0 votes
is_integer (Bash::Function)	0% of 0 votes
file_rotate (Bash::Function)	0% of 0 votes
confirm (Bash::Function)	0% of 0 votes
is_workingtime (Bash::Function)	0% of 0 votes
last day of last month (Bash::Snippets)	0% of 0 votes
crypt_apr1_md5 (PHP::Function)	80% of 1 votes
crypt_apr1_md5 (Perl::Function)	80% of 1 votes
transparent (CSS)	60% of 1 votes
rfc2822Toiso8601 (PHP::Function)	60% of 1 votes