Ihr baut per Perl eine dynamische Webseite und benötigt für die Dauer einer im Hintergrund statt findenden Verarbeitung eine kurzzeitige Anzeige von „bitte warten…“ im Browser des Anwenders, die automatisch wieder verschwinden soll? Dann seid ihr nun fündig geworden! Hiermit also ein kurzer Ausflug in die Welt von dynamischem HTML mithilfe von Perl. Folgende JavaScript Funktion bitte im Perl Skript in den HTML Header (also vor dem </header> tag) einfliessen lassen:
# Javascript Funktion (in Perl) für "bitte warten" Anzeige
print '<script>';
print ' function showhide(id)';
print ' {';
print ' if (document.getElementById)';
print ' {';
print ' obj = document.getElementById(id);';
print ' if (obj.style.display == "none")';
print ' {';
print ' obj.style.display = "";';
print ' }';
print ' else';
print ' {';
print ' obj.style.display = "none";';
print ' }';
print ' }';
print ' }';
print '</script> ';
Diese Funktion kann dann wie folgt genutzt werden, um die Anzeige einzublenden:
# bitte warten einblenden
print '<div style="display: ;" id="scriptwait">bitte warten</div>';
Im Verlaufe der weiteren Verarbeitung, zu Beispiel Auslesen von Daten aus einer Datenbank, kann die Anzeige wieder ausgeblendet werden, um z.B. das Endergebnis dem Anwender anzuzeigen:
# bitte warten verstecken
print '<script> showhide(\'scriptwait\'); </script>';
