automarken.info : Oldtimer/Oldtimer

		Startpreise ab € 1,-

			Zitat

Automarkt

endofhtml $j++; }; }; $i++; }; if($espot_results) { print <<"endofhtml";

Oldtimer : Oldtimer Europa : Lancia

Start / Oldtimer / Oldtimer Europa / Lancia

Kaufen Sie ein Auto schon ab 1 €! Hier klicken!

#!/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";

automarken.info Webtipps: $esp_qry

$espot_results

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 };

^Surftipp

Kommentare/Bewerten

(Hinzugefügt: 26-Apr-2001 | Zugriffe seit 30-Jan-2001: 355 | Bewertung: 9.27 | Stimmen: 336 )

Kommentare/Bewerten

(Hinzugefügt: 8-Sep-2000 | Zugriffe seit 30-Jan-2001: 394 | Bewertung: 8.33 | Stimmen: 6 )

[an error occurred while processing this directive]

Service

Routenplaner

Kfz-Kennzeichen

Bußgeldkatalog

Promillerechner

Intern

Live-Suche

FAQ

Kontakt

Impressum

Newsletter

E-Mail: Bestellen Abbestellen