#!/usr/bin/perl -w
#$htdocsdir="c:\\httpd\\HtDocs\\hot_int"; #rootverzeichnis der http-dokumente auf dem webserver, angabe betriebssystemspezifisch (mit / oder \)
$htdocsdir="/var/www/vhosts/tga-annaberg.de/web_users/tgadownload";
$exploredirroot="/~tgadownload/data/"; #startverzeichnis des zu durchsuchenden verzeichnisbaumes (immer mit /)
$javascriptdir="/javascripts/tree/"; #pfad des javascripts/stylesheets ausgehend von $htdocsdir (immer mit /)
$TageNew=28; #Anzahl Tage, für die ein Dokument als neu/geändert markiert wird
$akttime=time;
#use Win32::OLE;
$useshortnames="no";
print << "endeperl";
Content-type: text/html
destroydrop » JavaScripts » Tree
endeperl
print "";
print "";
print << "endeperl";