Hi Sebastian,
deinen Ehrgeiz in allen Ehren, aber mach das doch mit Apache.
Bsp: /etc/apache2/conf.d/iso-repo
Alias /ISO /srv/ISO
#Alias /ISO /FreeAgent/srv/ISO
Hallo liebe Liste, Um diverse Dateien (pdf's, doc's und Bilder) über eine kleine betriebsinterne Website allen Nutzern zur Verfügung zu stellen, ohne alles per Hand im html- Code erstellen zu müssen, habe ich ein kleines Perl-Script erstellt. Das Script scannt ein Verzeichnis und stellt das Ergebnis in "html" dar (Verzeichnisse und Dateien werden verlinkt). Nun ist mir durchaus klar, dass es dafür sicher schon sehr viele Scripte gibt (u.a. als "php"), aber ich wollte eben doch mal mit Perl anfangen..
Das erste Problem besteht darin, dass einige Dateien und Verzeichnisse unsere "lieben" Sonderzeichen (ä,ö,ü usw.) enthalten. Mit dem setzten des "UTF8" werden diese Dateien und Verzeichnisse im "html" korrekt wiedergegeben und die Links zu solchen Dateien funktionieren. Aber wenn ein Verzeichnis diese Zeichen enthalten, dann stellt Firefox den Namen als Text auf der Seite korrekt dar und der " 1 ) { print "<tr>\n
\n</td>\n \n\n</td>\n<td>\n$_</a>\n</td>\n -\n</td>\n \n$datum{Day}.$datum{Month}.$datum{Year}</td>\n \n$datum{Hour}:$datum{Minute}:$datum{Second}\n</td>\n</tr>\n"; } $i++; } $i = 0; foreach(@eintraege) { $mimeicon = "../Bilder/Button/gruener_Punkt.gif"; $dir2 = "$dir0$_"; $size = -s "$dir2"; my %datum = &LastModified($dir2); if ( -f $dir2 ) { ($dummy, $mimet) = split(/\./,$eintraege[$i]); given( $mimet ) { when( $mimet == "pdf" ) { $mimeicon = "../Bilder/SysIcons/application-pdf.png"; break } when( $mimet == "doc" ) { $mimeicon = "../Bilder/SysIcons/application-vnd.oasis.opendocument.text.png"; break } when( $mimet == "ppt" ) { $mimeicon = "../Bilder/SysIcons/application-vnd.oasis.opendocument.presentation.png"; break } when( $mimet == "gif" ) { $mimeicon = "../Bilder/SysIcons/image-gif.png"; break } when( $mimet == "jpg" ) { $mimeicon = "../Bilder/SysIcons/image-jpeg.png"; break } when( $mimet == "png" ) { $mimeicon = "../Bilder/SysIcons/image-png.png"; break } default { $mimeicon = "../Bilder/SysIcons/unknown.png"; break } } print "<tr>\n
\n</td>\n \n</td>\n<td>\n$_</a>\n</td>\n \n$size\n</td>\n \n$datum{Day}.$datum{Month}.$datum{Year}</td>\n \n$datum{Hour}:$datum{Minute}:$datum{Second}\n</td>\n</tr>\n"; } $i++; } closedir(DIR); ...... --------------------code---------------------------- ein Beispiel: Linkadresse: "http://192.168.0.2/cgi-bin/dirlist.pl?Seite=../Seiten/Daten/Fa%DFf%FClleinri..." wird als Text korrekt dargestellt (auch im unteren Fensterrand des Firefox beim Zeigen der Maus auf den Link!), aber mit Dateien funktioniert das... Das zweite Problem bezieht sich auf die Anzeige der Icons bzw. auf das "given". Komisch ist, dass immer das erste Bild angezeigt wird, egal welchen Wert "$mimet" (d.h. also der "mimetype") hat. Die Bilder sind natürlich da und werden angezeigt, sobald ich die erste Zeile usw. einzeln auskommentiere.
Kann mir da jemand weiterhelfen?
-- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org