Start / Automarken USA / Buick
#!/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
};
Buick
Kommentare/Bewerten
Die ehrwürdige, bereits 1899 gegründete Marke Buick hat schon längst Abschied von den Straßenkreuzern alter Schule genommen und bietet mit seinen Modellen LeSabre, Park Avenue, Regal und Century modern gestylte, luxuriöse Modelle, die das gewisse "amerikanische Etwas" haben. Die englischsprachige Homepage weist leider noch Lücken auf, vermittelt aber einen guten Überblick.
http://www.buick.com
(Hinzugefügt:
27-Mrz-2000
| Zugriffe seit 30-Jan-2001:
1989
| Bewertung:
4.00
| Stimmen:
1
)
[an error occurred while processing this directive]