Autokennzeichen : Kennzeichen T
Start / Autokennzeichen / Kennzeichen T / Seite 2
#!/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
};
TÜ - Tübingen
Kommentare/Bewerten
Bundesland:
Baden-Württemberg
Einwohner:
85.000 Tübingen, 40.000 Rottenburg a.Neckar, 201.300 (Kreis),
überwiegend evangelisch; 389 E/km².
Lage/Leistung:
Am Neckar südlich von Stuttgart im Naturpark Schönbuch. Universitätsstadt
mit etwas Industrie und Verlagen.
Geschichte:
Im 7. Jh. alemannisches Dorf, Burg im 11. Jh., 1477 Universität.
1536 Tübinger Stift (Bildungsanstalt), aus dem eine Reihe Berühmtheiten
hervorgingen.
Weiteres:
Rathaus (1435), Schloß Hohentübingen (16. Jh.), Stiftskirche
(1470), Hölderlinturm, Bursa (1479). In Rottenburg Dom (15. Jh.) und
katholischer Bischofssitz.
© Dr. Frieder Thiele
http://www.tuebingen.de
(Hinzugefügt:
13-Mrz-2000
| Zugriffe seit 30-Jan-2001:
19
| Bewertung:
0
| Stimmen:
0
)
« Die letzten
15
[an error occurred while processing this directive]