Hier mal ein ganz naiver Ansatz:
my $inpath="blahfaselname.html";
open IN,"$inpath" || die "cannot open $inpath for read\n\n";
my $disclaimer="";
while (my $l=<IN>) {
chomp $l;
$disclaimer="$disclaimer" . "$l";
}
close IN;
408 print "$disclaimer";
Es wird jetzt mal vorausgesetzt, dass nicht jeder blahfaselname.html
bearbeiten kann, es wird nicht auf Schadcode geprüft.
Grüße
Christian
Denny Schierz schrieb:
> hi,
>
> ich benötige mal wieder eure (dringende) hilfe:
>
> 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.
>
>
> cu denny
>
> ps. Bald gibt es die Anleitung, für einen HotSpot auf Lenny Basis :-)
>
>
> ------------------------------------------------------------------------
>
> --
> ----------------------------------------------------------------------------
> PUG - Penguin User Group Wiesbaden - http://www.pug.org
--
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
