Infos & Service : Autovermietung
Start / Infos & Service / Autovermietung
#!/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
};
Autovermietungfirma Flughafen in Spanien: Mallorca Alicante Malaga
Kommentare/Bewerten
Autovermietung Carhire-Spain.com Autovermietungfirma in Spanien: Majorca Flughafen ,Palma Mallorca Flughafen,Alicante, Alicante Flughafen, Benidorm, Calpe, Murcia, Flughafen Murcia (San Javier), Aguilas, Valencia, Valencia Flughafen, Almeria, Almeria Flughafen, Mojacar, Roquetas de Mar, Malaga, Almuñecar, Nerja, Malaga Flughafen, Marbella, Gibraltar, Sotogrande, Chiclana, Jerez, Rota, Seville, Seville Flughafen, Autovermietung,Vermietung von Fahrzeugen,Mietwagen
http://www.carhire-spain.com/deut/index.htm
(Hinzugefügt:
25-Apr-2002
| Zugriffe seit 30-Jan-2001:
243
| Bewertung:
| Stimmen:
0
)
[an error occurred while processing this directive]