 |
|
|
|
| Oldtimer : Oldtimer Deutschland |
Start / Oldtimer / Oldtimer Deutschland
#!/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 |
Amphicar (3)
Amphicar, Deutschland.
Audi (6)
Audi, DKW.
BMW (6)
BMW, Deutschland
Barkas (2)
Barkas, DDR
Bitter (1)
Bitter, Deutschland.
Borgward (4)
Borgward, Hansa, Lloyd
Ford (5)
Ford, Deutschland.
Glas (4)
Glas, Goggomobil
Horch (2)
Horch, Deutschland
|
Maybach (1)
Maybach, Deutschland.
Mercedes-Benz (18)
Mercedes-Benz, Deutschland
NSU (6)
NSU.
Opel (17)
Opel, Deutschland
Porsche (4)
Oldtimer Deutschland: Porsche
Trabant (15)
Trabant, DDR
Volkswagen (23)
Volkswagen
Wartburg (3)
Wartburg, DDR
|
|
|
|
| |
| [an error occurred while processing this directive] | |
|
|
|
