Oldtimer : Oldtimer Europa
Start / Oldtimer / Oldtimer Europa
#!/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
};
Rubriken
Alfa Romeo (1) Alfa Romeo, Italien Amilcar (1) Amilcar, Frankreich. Austin (1) Austin, England Autobianchi (2) Autobianchi, Italien Citroën (9) Citroën, Frankreich DAF (1) DAF, Holland DeLorean (2) DeLorean, Irland De Tomaso (1) De Tomaso, Italien. Facel-Véga (1) Facel-Véga, Frankreich. Fiat (7) Fiat, Italien Jaguar (2) Jaguar, England LTI (1) LTI (London Taxis), England Lancia (2) Lancia, Italien. MG (2) MG, England.
Matra (4) Matra, Frankreich Monteverdi (2) Monteverdi, Schweiz Panhard (1) Panhard & Levassor, Frankreich Peugeot (2) Peugeot, Frankreich Renault (5) Renault, Frankreich Rolls-Royce & Bentley (1) Rolls-Royce, Bentley, England Rover (3) Rover, England Saab (1) Saab, Schweden Skoda (1) Skoda, Tschechien. Steyr-Puch (3) Steyr-Puch, Österreich. Sunbeam (1) Sunbeam, England Triumph (3) Triumph, England Volvo (3) Volvo, Schweden Zagato (2) Zagato, Italien.
[an error occurred while processing this directive]