 |
|
|
|
| Autokennzeichen : Kennzeichen Y |
Start / Autokennzeichen / Kennzeichen Y
#!/usr/bin/perl
require 'http.pl';
print "Content-type: text/html\n\n";
my @parts = split(/\//, $ENV{'QUERY_STRING'});
$esp_qry = $parts[$#parts - 1];
if($esp_qry =~ /_/) {
my @qry_parts = split(/_/, $esp_qry);
$esp_qry = $qry_parts[$#qry_parts];
};
my $qry_enc = &URLencode($esp_qry);
my $addr = "http://affiliate.espotting.de/search/qsearch/results.asp?affiliateid=15&keyword=$qry_enc";
my($real_URL, $title, $description, $emg, $espot_results, $i) = ();
my $page = &get_URL($addr,10);
my @parts = split(/P=/, $page);
my $i = 1; my $j=1;
while (($j<4) && ($i<$#parts) ) {
if($parts[$i] =~ /redirector\.asp/) {
if($parts[$i] =~ m{T=(.*?)\nD=(.*?)\nU=(.*?)\n.*?I=(.*?)\n}isg) {
$title = $1;
$description = $2;
$real_URL = $3;
$emg = $4;
if(!($emg =~ /^http/)) {
$emg = 'http://metaspinner-media.de/mdsme/mdsme-docs/images/metaspinner50x50.gif';
};
$espot_results .= <<"endofhtml";
|
|
$title
$description
weiter... |
endofhtml
$j++;
};
};
$i++;
};
if($espot_results) {
print <<"endofhtml";
| automarken.info Webtipps: $esp_qry |
|
|
|
endofhtml
}
########################
sub URLencode # URL encoding of illegal characters
{
my($s) = @_; # string to encode
my($str, $c, $c1, $c2, $char) = ();
my @h = ('A'..'F'); # hex numbers
while ($s =~ m/(.)/g) {
$char = $1;
if($char !~ /([\w\. ])/ ) { # encode only non-word symbols
$c = ord $char;
$c1 = $c % 16; # making first hex digit
if($c1 > 9) {
$c1 = $h[$c1 - 10];
};
$c2 = int ($c / 16); # making the second hex digit
if($c2 > 9) {
$c2 = $h[$c2 - 10];
};
$char = "%$c2$c1"; # this is the hex code of the symbol
};
$str .= $char;
};
$str =~ s/ /+/g; # encode white spaces with + signs
return $str; # return URL-encoded string
};
| |
| [an error occurred while processing this directive] | |
|
|
|
