nicht angemeldet
Sorry, obige Beschreibung fehlt was!
Mein script:
#! /usr/bin/perl -w
use strict;
use CGI;
my ($query, $datei, $dateien, @dateien, $dateinamen, @dateinamen, $i);
$query = new CGI;
print $query->header();
print $query->start_html(-title=>'Intraweb-Server Test');
Verzeichnis öffnen
opendir(DIR, $query->param('ordner')) || die "Fehler beim Lesen des Verzeichnisses";
Dateien im Verzeichnis in ein Array einlesen
while ($datei = readdir(DIR)){
@dateien = (@dateien,$datei);
}
Verzeichnis schliessen
closedir(DIR);
Erste zwei Elemente ("." und "..") aus Array entfernen
shift(@dateien);
shift(@dateien);
$dateien = @dateien; # Länge des Datei-Arrays bestimmen
@dateinamen = @dateien; # Dateinamen zur Weiterverarbeitung speichern
for ($i = 0; $i < $dateien; $i++){
print '<a href="file:'.$query->param('ordner').'/'.$dateien[$i].'">'.$dateinamen[$i].'</a><br>'; # Link anzeigen
}
print $query->end_html();
Das Script funktioniert insoweit, wenn die Files/Verzeichnis auf dem Server liegen, sobald aber auf einem Remote Rechner, geht nix mehr!
Der Aufruf sollte/muss folgendermaßen erfolgen:
http://<Webservername>/<scriptname>?ordner=//<remote-server>/<share-name>
Wenn mir jemand helfen könnte wäre ich wirklich dankbar dafür!
Ist das überhaupt möglich?