nicht angemeldet
Hallo,
ich hoffe, das liest noch jemand!
Nachdem ich mit der SSI-Abfrage auf Dateiexistenz nicht weiterkam,
habe ich jetzt eine andere Lösung gesucht und (fast) gefunden.
Ich rufe über SSI ein Perl-Programm auf, das die Prüfung vornimmt.
Das Perl-Programm erzeugt auch korrekt eine Environment-Variable mit dem Ergebnis (0 oder 1), die aber ist in dem rufenden Programm nicht vorhanden.
Was ist dafür die Ursache?
<html>
<head>
<title>Test</title>
</head>
<body>
<!--#set var="PRUEF_DATEI" value="/Test/t1.shtml" -->
<!--#exec cgi="/cgi-bin/fileexist.pl" -->
<!--#echo var="PRUEFUNG" -->
<!--#if expr="$PRUEFUNG=1" -->
ok
<!--#else -->
ko
<!--#endif -->
</body>
</html>
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
my $datei=$ENV{'DOCUMENT_ROOT'}.$ENV{'PRUEF_DATEI'};
if (-e $datei)
{$ENV{PRUEFUNG} = 1} # Datei vorhanden
else
{$ENV{PRUEFUNG} = 0} # Datei nicht vorhanden
exit 0;