Start / Automarkt / Carsharing
#!/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
};
Bundesverband CarSharing e.V.
Kommentare/Bewerten
Auf dieser Website bekommen Sie ausführliche Infos übers Carsharing. Schließlich ist es in der heutigen Zeit naheliegend, dass sich mehrere Personen ein gemeinsames Auto teilen. Informieren Sie sich und fahren Sie kostengünstig Auto!
http://www.carsharing.de
(Hinzugefügt:
23-Okt-2002
| Zugriffe seit 30-Jan-2001:
127
| Bewertung:
8
| Stimmen:
0
)
CarSharing
Kommentare/Bewerten
Hinter der Adresse www.carsharing.org verbirgt sich ein Dachverband, zu dem sich fünf CarSharing-Unternehmen zusammengeschlossen haben. Hier wird das Konzept des Carsharings erklärt. Sie finden zusätzlich Literaturtipps und einige Links zum Thema.
http://www.carsharing.org
(Hinzugefügt:
23-Okt-2002
| Zugriffe seit 30-Jan-2001:
110
| Bewertung:
9
| Stimmen:
0
)
[an error occurred while processing this directive]