Denny Schierz schrieb: > Es dreht sich um eine CGI Datei, welche in Perl geschrieben wurde und > für einen HotSpot Login dient. Nun will $KUNDE, dass jede Abteilung > ihren eigenen Disclaimer irgendwo auf dem Dateisystem hinterlegen kann > (respektive im /var/www) und diese soll dann innerhalb dieses CGI > Scriptes eingebunden werden. Wäre dies eine normale HTML Datei, so hätte > ich SSI verwendet, aber innerhalb von Perl .... Die bisherigen Zeilen > werden per "print" ausgegeben. > > http://pastie.org/409171 > > Es handelt sich um Zeile 408 (od. nach "Disclaimer" suchen). > > Kann jemand mir die passenden Zeilen zukommen lassen? Das wäre super.
Vor Zeile 388 einfügen:
my $disclaimer;
open my $fh_read "/foo/disclaimer"
or $disclaimer = "Error while reading /foo/disclaimer!";
while (<$fh_read>){
$disclaimer .= $_;
}
close $fh_read;
Und dann in der jetzigen Zeile 408:
$disclaimer - Zum Akzeptieren bitte da und dort klicken
Wirkt etwas lieblos runterschrieben, das Script. Das geht in Perl auch
besser.
-martin
--
Martin Schmitt / Schmitt Systemberatung / www.scsy.de
--> http://www.pug.org/index.php/Benutzer:Martin <--
signature.asc
Description: OpenPGP digital signature
-- ---------------------------------------------------------------------------- PUG - Penguin User Group Wiesbaden - http://www.pug.org
