Perl/Javascript: HTML Banner mit auszuführendem Javascript

[Struppi]

Was willst du denn noch alles haben ? Die relevanten Sachen hatte ich doch schon alle geschrieben.

Nein.

Javascript mit ner Tabelle und Text drumrum gebastelt in einer Variablen $output wirst dir doch vorstellen können ?

Genau darum geht's doch, was steht in $output?

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;

Wozu?

alternativ:

$output = quotemeta($output);

Wieso willst du die Ausgabe unbedingt Quoten?
Dazu besteht kein Anlaß. Zumindest nicht wenn in $output ganz normaler JS Code steht.

Die Ausgabe:

print "Content-type: text/javascript\n\n";

print 'document.write('."'". $output ."'".');';

Hier schon wieder, lass dir mal irgendwie Ausgeben was für ein Müll vermutlich im Browser ankommt.

Mehr ist da nicht, was ich nicht auch schon im ersten Posting genannt habe oder habe ich was vergessen ?

Ja, was in der Variabel steht, dass hatte ich schon in meinem ersten Posting gefragt...

Struppi.