Added new configurtaion option for hiding dot files.

When new option "hide_dot_files" is set to 1, every file or directory beginning
with a "." is not shown in the directory listing. But you can still access the
file / directory by typing its name into the "Go to directory/file" box.

This option is also available in the user-dependent configuration.

diff --git a/devedit.conf b/devedit.conf
index 0da399c87b8b452afdb46dcbe77382278c855649..ffe3ca2e36e7f56acf5f4a9e7ff2b85bdbbc3b26 100644 (file)
--- a/devedit.conf
+++ b/devedit.conf
@@ -3,15 +3,17 @@
 #
 # Please don't use quotation marks around the keys and values!
 
 #
 # Please don't use quotation marks around the keys and values!
 

-fileroot      = D:/WWW/dokumente/devedit-test
-httproot      = /devedit-test/
+fileroot       = D:/WWW/dokumente/devedit-test
+httproot       = /devedit-test/

 
 

-max_file_size = 100000
+max_file_size  = 100000

 
 

-timeformat    = %d.%m.%Y %H:%M
-use_gmt       = 0
+timeformat     = %d.%m.%Y %H:%M
+use_gmt        = 0

 
 

-error_file    = errors.conf
-template_file = templates.conf
+hide_dot_files = 0
+
+error_file     = errors.conf
+template_file  = templates.conf

 
 # End of configuration file
\ No newline at end of file
 
 # End of configuration file
\ No newline at end of file

diff --git a/modules/Command.pm b/modules/Command.pm
index 2905545490d5458f307697871485ceefb89e12fd..a35abd4af5d24967c337f81eaeb90c03414ecc48 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -132,6 +132,7 @@ sub exec_show($$)
 
   foreach my $dir(@$dirs)
   {
 
   foreach my $dir(@$dirs)
   {

+   next if($config->{'hide_dot_files'} && substr($dir,0,1) eq '.');

    next unless(dos_wildcard_match($filter1,$dir));
 
    my $phys_path = $physical.'/'.$dir;
    next unless(dos_wildcard_match($filter1,$dir));
 
    my $phys_path = $physical.'/'.$dir;


@@ -159,6 +160,7 @@ sub exec_show($$)
 
   foreach my $file(@$files)
   {
 
   foreach my $file(@$files)
   {

+   next if($config->{'hide_dot_files'} && substr($file,0,1) eq '.');

    next unless(dos_wildcard_match($filter1,$file));
 
    my $phys_path = $physical.'/'.$file;
    next unless(dos_wildcard_match($filter1,$file));
 
    my $phys_path = $physical.'/'.$file;

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index bc93cfeb290be450ea4a46e23f349a41939c345d..8d9d50398f6eb7d19a388e25c66ea984edb608d1 100644 (file)
--- a/modules/Config/DevEdit.pm
+++ b/modules/Config/DevEdit.pm
@@ -66,12 +66,14 @@ sub read_config($)
 
    my $new_conf = $userconf->{$ENV{'REMOTE_USER'}};
 
 
    my $new_conf = $userconf->{$ENV{'REMOTE_USER'}};
 

-   $config->{'fileroot'}  = $new_conf->{'fileroot'}  if($new_conf->{'fileroot'});
-   $config->{'httproot'}  = $new_conf->{'httproot'}  if($new_conf->{'httproot'});
+   $config->{'fileroot'}       = $new_conf->{'fileroot'}  if($new_conf->{'fileroot'});
+   $config->{'httproot'}       = $new_conf->{'httproot'}  if($new_conf->{'httproot'});

 
 

-   $config->{'forbidden'} = $new_conf->{'forbidden'} if(defined $new_conf->{'forbidden'});
+   $config->{'forbidden'}      = $new_conf->{'forbidden'} if(defined $new_conf->{'forbidden'});

 
 

-   $config->{'user_config'} = 1;
+   $config->{'hide_dot_files'} = $new_conf->{'hide_dot_files'} if(defined $new_conf->{'hide_dot_files'});
+
+   $config->{'user_config'}    = 1;

   }
  }
 
   }
  }