nicht angemeldet
Was willst du denn noch alles haben ? Die relevanten Sachen hatte ich doch schon alle geschrieben.
Javascript mit ner Tabelle und Text drumrum gebastelt in einer Variablen $output wirst dir doch vorstellen können ?
Dann das suchen/ersetzen:
$output =~ s/'/\'/g;
$output =~ s/"/\"/g;
$output =~ s/;/\;/g;
$output =~ s/(/\(/g;
$output =~ s/)/\)/g;
$output =~ s/./\./g;
$output =~ s/&/\&/g;
alternativ:
$output = quotemeta($output);
Die Ausgabe:
print "Content-type: text/javascript\n\n";
print 'document.write('."'". $output ."'".');';
alternativ:
print $output;
Und die Einbindung in der Seite:
<script type="text/javascript" src="http://domain.de/verzeichnis/script.cgi?zeigebanner"></script>
Mehr ist da nicht, was ich nicht auch schon im ersten Posting genannt habe oder habe ich was vergessen ?
Das geht ja auch nicht so wirklich um Perl-Unkenntnis, eher um die Technik, wie man solch Banner mit HTML und Javascript drinnen sauber ausgibt, ohne daß Fehler kommen und auch das Javascript ordentlich interpretiert wird - nur passen da irgendwie so ganz viele Kategorien und dann auch wieder keine dazu, so daß ich mich dann mal auf die mitwirkenden - Perl und Javascript - eingeschränkt habe.
MFG,
speedy
Struppi