Hallo, dies ist ein Test.

PWD: /www/data-lst1/unixsoft/unixsoft/kaempfer/.public_html

Running in File Mode
Relative path: ./../../../../../server/etc/scripts/gen-index/change_dir
Real path: /www/server/etc/scripts/gen-index/change_dir
Zurück

#!/usr/bin/perl # managing database for the location of users public_html # default is ~user/.public_html - these have no entry, # but some use other places dbmopen(DIRS, ".dbm-dirs", 0664); if ($#ARGV != -1) { if ($ARGV[0] =~ /^-d/) { shift (@ARGV); foreach $user (@ARGV) { print "DELETING Nutzer $user ($DIRS{$user})\n"; delete $DIRS{$user}; } } else { foreach $user (@ARGV) { print "Nutzer: $user; path to public_html: "; $newdir = <STDIN>; chop ($newdir); $DIRS{$user} = $newdir; } } dbmclose(DIRS); exit (0); } print "Eingabe ( <Nutzer> <http:Pfad>): "; while (<>) { chop; ($user , $newdir) = split(/ /); $DIRS{$user} = $newdir; print "Eingabe (<Nutzer> <http:Pfad>): "; } dbmclose(DIRS); 1;