nicht angemeldet
Hallo Forumgemeinde,
ich rufe aus einer datei "Kundenbereich.shtml" ein perl script auf. Diese shtml datei liegt dabei in einem durch .htaccess geschützten Ordner z.B. "http://www.domainname/ordnerxy" und der Aufruf erfolgt durch eine Zeile:
<!--#exec cgi="http://www.domainname/cgi-bin/scriptname.pl"-->
Das Script selbst soll den Ordnerinhalt von ordnerxy auf eine dateiendung durchsuchen und, wenn vorhanden, diese als Link(s) innerhalb der shtml datei zurückgeben. Wenn ich das unter IIS lokal teste bekomme ich aber den inhalt meines cgi-bin ordners ausgegeben. hopplahopp!
------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
aktuelles Verzeichnis dachte ich
my $verzeichnis = '.';
opendir(DH, $verzeichnis) or die "$verzeichnis: $!";
my @liste = grep { ! -d } readdir DH;
closedir DH;
stl filtern
@liste = glob "*.stl";
my $gefunden = @liste;
print "Content-Type: text/html\n\n";
print"<p>Anzahl der gefundenen Dateien: $gefunden</p>\n";
foreach my $dateien (@liste) {
print "<p><a href='$dateien'>$dateien</a></p>\n";
}
------------------------------------------------------
Wie ermittle ich im script nur den Pfad bzw. Name von "ordnerxy", also des ordners indem sich die aufrufende shtml datei befindet ?
Vielen Dank für jeden Tip oder Hinweis,
Martin S.
Struppi