version 1.6, 2004/06/25 18:47:18
|
version 1.7, 2004/06/25 20:50:05
|
Line 137 sub displayActions {
|
Line 137 sub displayActions {
|
} |
} |
sub handler { |
sub handler { |
# this handles file management |
# this handles file management |
my $r=@_[0]; |
my ($r)=@_; |
my @dirList; # will hold directory listing as array |
my @dirList; # will hold directory listing as array |
my $udir; # returned from home server |
my $udir; # returned from home server |
my $currentPath; # path assuming /userfiles/portfolio/ as root |
my $currentPath; # path assuming /userfiles/portfolio/ as root |