<perl>
$wdir = substr($htx,0,rindex($htx, "/")); 
$wdir2 = "/_user$wdir";
$selfdir = "$_htx$wdir2";

out "$\workdir: $workdir<br>"; # nur ne Testausgabe

$dbnames =~ s/\.fields//g; # '.fields' vom Dateinamen wegschneiden
@l_dbnames = split "$workdir2/",$dbnames; # Liste bauen mit nur den Dateinamen
foreach $t(sort @l_dbnames){ # Datenbanknamen sortiert ausgeben
   if ($t ne ""){ 
   $cnt_db ++;
   out "$cnt_db. Datenbank: $t<br>";
   }
}
out "Es wurden $cnt_db Datenbanken im Verzeichnis $wdir gefunden<br><br>";

$htxnames =~ s/\.htx//g;
@l_htxnames = split "$workdir2/",$htxnames;

   if ($t ne ""){ 
   $cnt_htx ++;
   out "$cnt_htx. HTX: $t<br>";
   }
}
out "Es wurden $cnt_htx Templates im Verzeichnis $wdir gefunden<br><br>";
</perl>