Start / Automarken Asien / Lexus
#!/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
};
Lexus
Kommentare/Bewerten
Lexus ist bekanntlich die Luxus-Division von Toyota, welche derzeit mit den drei Modellen IS 200, GS 300 und LS 400 dem klassischen deutschen Oberklasse-Trio Mercedes, Audi und BMW Konkurrenz machen will. Die Homepage erschließt sich zwar nicht allzu intuitiv, wartet aber mit schönen 3-D-Innen- und -Außenansichten der Modelle auf. Interessant auch das "E-Magazine", auch wenn die dort geschlagene Brücke von den Lexus-Modellen zu den HiFi-Geräten von Bang & Olufsen ein wenig gewagt anmutet.
http://www.lexus.de
(Hinzugefügt:
26-Jul-1999
| Zugriffe seit 30-Jan-2001:
2873
| Bewertung:
10.00
| Stimmen:
1
)
[an error occurred while processing this directive]