Small cleanup

[devedit.git] / modules / Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index 52823967c7439a252a7b17d9c4585c6edc063529..9e11f164a278a0bfab6f0317ed5055be2e12faa8 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -29,8 +29,6 @@ use HTML::Entities;
 use Output;
 use Template;
 
-use Data::Dumper;
-
 my $script = encode_entities($ENV{'SCRIPT_NAME'});
 my $users  = eval('getpwuid(0)') && eval('getgrgid(0)');
 
@@ -104,13 +102,11 @@ sub exec_show($$)
   return error($config->{'errors'}->{'no_dir_access'},$upper_path) unless(-r $physical && -x $physical);
 
   my $direntries = dir_read($physical);
-  return error($config->{'dir_read_fail'},$upper_path,{DIR => encode_entities($virtual)}) unless($direntries);
+  return error($config->{'errors'}->{'dir_read_fail'},$upper_path,{DIR => encode_entities($virtual)}) unless($direntries);
 
   my $files = $direntries->{'files'};
   my $dirs  = $direntries->{'dirs'};
 
-  my $dir_writeable = -w $physical;
-
   my $dirlist = '';
 
   my $filter1 = $data->{'cgi'}->param('filter') || '*';        # The real wildcard
@@ -205,7 +201,7 @@ sub exec_show($$)
   $tpl->fillin('FILTER_URL',escape($filter2));
 
   $tpl->parse_if_block('empty',$dirlist eq '');
-  $tpl->parse_if_block('dir_writeable',$dir_writeable);
+  $tpl->parse_if_block('dir_writeable',-w $physical);
   $tpl->parse_if_block('filter',$filter2);
   $tpl->parse_if_block('gmt',$config->{'use_gmt'});
  }
@@ -394,8 +390,6 @@ sub exec_endedit($$)
   }
   else
   {
-   # The file was saved successfully!
-
    if($md5data ne $md5file)
    {
     seek(FILE,0,0);
@@ -405,8 +399,6 @@ sub exec_endedit($$)
    }
 
    $output = devedit_reload({command => 'show', file => $dir});
-
-   #return error($config->{'errors'}->{'edit_failed'},$dir,{FILE => $virtual});
   }
 
   close(FILE);