nicht angemeldet
hi!
Und der ganze Aufwand nur, weil du den Banner oben und unten brauchst? Reicht es
nicht, wenn er nur oben angezeigt wird? ;-))
Wenn ich es recht ueberlege, reicht es auch vollkommen, wenn lediglich oben verschiedene
Textbanner routieren. Das ist die wichtigste Stelle, was unten ist, hat ja kaum Bedeutung,
da kaum jemand scrollt ;->
Was muss ich dann rausschmeissen aus dem Script?
Ich hoffe, du darfst SSI verwenden :-)
=== cut ===
#!/usr/bin/perl
Bin nicht sicher, ob das reinmuss. Evtl. rausschmeißen!
print "Content-type: text/html\n\n";
Datei mit den Bannern auslesen (ein Banner pro Zeile)
open FILE, "<ads.txt";
@ads = <FILE>;
close FILE;
zufälliges Banner auswählen
$banner = $ads[rand @ads];
Banner ausgeben
print "$banner\n";
print "---trennzeile---";
=== cut ===
Du legst das Skript ins cgi-bin-Verzeichnis. In dem Verzeichnis legst du dann auch eine Datei ads.txt an, die jeweils ein Banner pro Zeile enthält.
Aufrufen kannst du es dann in einer HTML-Datei durch folgendes SSI-Kommando:
<!--#exec cgi="cgi-bin/script.pl"-->
Wichtig ist noch, dass du die HTML-Dateien, in denen du dieses Kommando verwendest, nicht als *.html abspeicherst, sondern als *.shtml oder *.shtm, damit der Webserver weiß, dass sie vorher geparsed werden sollen.
index.shtml-Dateien werden vom Webserver normalerweise genauso als Standarddateien angesehen wie index.html-Dateien, so dass sie ohne Angabe des Dateinamens angezeigt werden. Ansonsten den Administrator ein bisschen nerven... ;-))
bye, Frank!