# Execute Dev-Editor's commands
#
# Author: Patrick Canterino <patshaping@gmx.net>
-# Last modified: 2004-10-22
+# Last modified: 2004-10-27
#
use strict;
$tpl->fillin("DIR",upper_path($virtual));
$tpl->fillin("URL",equal_url($config->{'httproot'},$virtual));
$tpl->fillin("SCRIPT",$script);
- $tpl->fillin("CONTENT",encode_entities($$content));
$tpl->parse_if_block("editable",-r $physical && -w $physical && -T $physical && not ($config->{'max_file_size'} && $size > $config->{'max_file_size'}) && $uselist->unused($virtual));
+
+ $tpl->fillin("CONTENT",encode_entities($$content));
}
}
}
return error($config->{'errors'}->{'file_too_large'},upper_path($virtual),{SIZE => $config->{'max_file_size'}})
}
else
- {
+ {
# Text file
$uselist->add_file($virtual);
chmod($oct_mode,$physical);
}
- chgrp($group,$physical) if($group);
+ if($group)
+ {
+ return error($config->{'errors'}->{'invalid_group'},$dir,{GROUP => $group}) unless($group =~ /^[a-z0-9_]+[a-z0-9_-]*$/i);
+ system("chgrp",$group,$physical);
+ }
return devedit_reload({command => 'show', file => $dir});
}