*grr*

[devedit.git] / modules / Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index edd01624d49d6402291881386ce3ac92c67b4da3..71193493f08f0c961939770e0f8fe61242ec57cf 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>

-# Last modified: 2005-04-09
+# Last modified: 2005-04-10

 #
 
 use strict;
 #
 
 use strict;


@@ -181,7 +181,7 @@ sub exec_show($$)
    $ftpl->parse_if_block('link',-l $phys_path);
    $ftpl->parse_if_block('no_link',not -l $phys_path);
    $ftpl->parse_if_block('not_readable',not -r $phys_path);
    $ftpl->parse_if_block('link',-l $phys_path);
    $ftpl->parse_if_block('no_link',not -l $phys_path);
    $ftpl->parse_if_block('not_readable',not -r $phys_path);

-   $ftpl->parse_if_block('binary_file',-B $phys_path);
+   $ftpl->parse_if_block('binary',-B $phys_path);

    $ftpl->parse_if_block('readonly',not -w $phys_path);
 
    $ftpl->parse_if_block('viewable',(-r $phys_path && -T $phys_path && not $too_large) || -l $phys_path);
    $ftpl->parse_if_block('readonly',not -w $phys_path);
 
    $ftpl->parse_if_block('viewable',(-r $phys_path && -T $phys_path && not $too_large) || -l $phys_path);


@@ -336,7 +336,7 @@ sub exec_endedit($$)
  my $md5sum         = $cgi->param('md5sum');
  my $output;
 
  my $md5sum         = $cgi->param('md5sum');
  my $output;
 

- if($content && $md5sum)
+ if(defined $content && $md5sum)

  {
   # Normalize newlines
 
  {
   # Normalize newlines
 


@@ -361,7 +361,7 @@ sub exec_endedit($$)
   local *FILE;
 
   sysopen(FILE,$physical,O_RDWR | O_CREAT) or return error($config->{'errors'}->{'edit_failed'},$dir,{FILE => $virtual});
   local *FILE;
 
   sysopen(FILE,$physical,O_RDWR | O_CREAT) or return error($config->{'errors'}->{'edit_failed'},$dir,{FILE => $virtual});

-  file_lock(FILE,LOCK_EX)                  or do { close(FILE); return error($config->{'errors'}->{'edit_failed'},$dir,{FILE => $virtual}) };
+  file_lock(*FILE,LOCK_EX)                 or do { close(FILE); return error($config->{'errors'}->{'edit_failed'},$dir,{FILE => $virtual}) };

   binmode(FILE);
 
   my $md5 = new Digest::MD5;
   binmode(FILE);
 
   my $md5 = new Digest::MD5;