]>
git.p6c8.net - devedit.git/blob - modules/Command.pm
4 # Dev-Editor - Module Command
6 # Execute Dev-Editor's commands
8 # Author: Patrick Canterino <patrick@patshaping.de>
9 # Last modified: 2005-05-05
21 use Digest::MD5 qw(md5_hex);
22 use POSIX
qw(strftime);
31 my $script = encode_html
($ENV{'SCRIPT_NAME'});
32 my $users = eval('getpwuid(0)') && eval('getgrgid(0)');
34 my %dispatch = ('show' => \
&exec_show
,
35 'beginedit' => \
&exec_beginedit
,
36 'endedit' => \
&exec_endedit
,
37 'mkdir' => \
&exec_mkdir
,
38 'mkfile' => \
&exec_mkfile
,
39 'upload' => \
&exec_upload
,
40 'copy' => \
&exec_copy
,
41 'rename' => \
&exec_rename
,
42 'remove' => \
&exec_remove
,
43 'chprop' => \
&exec_chprop
,
44 'about' => \
&exec_about
49 use base
qw(Exporter);
51 @EXPORT = qw(exec_command);
55 # Execute the specified command
57 # Params: 1. Command to execute
58 # 2. Reference to user input hash
59 # 3. Reference to config hash
61 # Return: Output of the command (Scalar Reference)
65 my ($command,$data,$config) = @_;
67 foreach(keys(%dispatch))
69 if(lc($_) eq lc($command))
71 my $output = &{$dispatch{$_}}($data,$config);
76 return error
($config->{'errors'}->{'command_unknown'},'/',{COMMAND
=> encode_html
($command)});
81 # View a directory or a file
83 # Params: 1. Reference to user input hash
84 # 2. Reference to config hash
86 # Return: Output of the command (Scalar Reference)
90 my ($data,$config) = @_;
91 my $physical = $data->{'physical'};
92 my $virtual = $data->{'virtual'};
93 my $upper_path = multi_string
(upper_path
($virtual));
95 my $tpl = new Template
;
97 if(-d
$physical && not -l
$physical)
99 # Create directory listing
101 return error
($config->{'errors'}->{'no_dir_access'},$upper_path->{'normal'}) unless(-r
$physical && -x
$physical);
103 my $direntries = dir_read
($physical);
104 return error
($config->{'errors'}->{'dir_read_fail'},$upper_path->{'normal'},{DIR
=> encode_html
($virtual)}) unless($direntries);
106 my $files = $direntries->{'files'};
107 my $dirs = $direntries->{'dirs'};
111 my $filter1 = $data->{'cgi'}->param('filter') || '*'; # The real wildcard
112 my $filter2 = ($filter1 && $filter1 ne '*') ?
$filter1 : ''; # Wildcard for output
114 # Create the link to the upper directory
115 # (only if the current directory is not the root directory)
117 unless($virtual eq '/')
119 my @stat = stat($physical.'/..');
121 my $udtpl = new Template
;
122 $udtpl->read_file($config->{'templates'}->{'dirlist_up'});
124 $udtpl->fillin('UPPER_DIR',$upper_path->{'html'});
125 $udtpl->fillin('UPPER_DIR_URL',$upper_path->{'url'});
126 $udtpl->fillin('DATE',encode_html
(strftime
($config->{'timeformat'},($config->{'use_gmt'}) ?
gmtime($stat[9]) : localtime($stat[9]))));
128 $dirlist .= $udtpl->get_template;
133 foreach my $dir(@
$dirs)
135 next unless(dos_wildcard_match
($filter1,$dir));
137 my $phys_path = $physical.'/'.$dir;
138 my $virt_path = multi_string
($virtual.$dir.'/');
140 my @stat = stat($phys_path);
142 my $dtpl = new Template
;
143 $dtpl->read_file($config->{'templates'}->{'dirlist_dir'});
145 $dtpl->fillin('DIR',$virt_path->{'html'});
146 $dtpl->fillin('DIR_URL',$virt_path->{'url'});
147 $dtpl->fillin('DIR_NAME',encode_html
($dir));
148 $dtpl->fillin('DATE',encode_html
(strftime
($config->{'timeformat'},($config->{'use_gmt'}) ?
gmtime($stat[9]) : localtime($stat[9]))));
149 $dtpl->fillin('URL',equal_url
(encode_html
($config->{'httproot'}),$virt_path->{'html'}));
151 $dtpl->parse_if_block('readable',-r
$phys_path && -x
$phys_path);
152 $dtpl->parse_if_block('users',$users && -o
$phys_path);
154 $dirlist .= $dtpl->get_template;
159 foreach my $file(@
$files)
161 next unless(dos_wildcard_match
($filter1,$file));
163 my $phys_path = $physical.'/'.$file;
164 my $virt_path = multi_string
($virtual.$file);
166 my @stat = lstat($phys_path);
167 my $too_large = $config->{'max_file_size'} && $stat[7] > $config->{'max_file_size'};
169 my $ftpl = new Template
;
170 $ftpl->read_file($config->{'templates'}->{'dirlist_file'});
172 $ftpl->fillin('FILE',$virt_path->{'html'});
173 $ftpl->fillin('FILE_URL',$virt_path->{'url'});
174 $ftpl->fillin('FILE_NAME',encode_html
($file));
175 $ftpl->fillin('FILE_URL',$virt_path->{'url'});
176 $ftpl->fillin('SIZE',$stat[7]);
177 $ftpl->fillin('DATE',encode_html
(strftime
($config->{'timeformat'},($config->{'use_gmt'}) ?
gmtime($stat[9]) : localtime($stat[9]))));
178 $ftpl->fillin('URL',equal_url
(encode_html
($config->{'httproot'}),$virt_path->{'html'}));
180 $ftpl->parse_if_block('link',-l
$phys_path);
181 $ftpl->parse_if_block('not_readable',not -r
$phys_path);
182 $ftpl->parse_if_block('binary',-B
$phys_path);
183 $ftpl->parse_if_block('readonly',not -w
$phys_path);
185 $ftpl->parse_if_block('viewable',(-r
$phys_path && -T
$phys_path && not $too_large) || -l
$phys_path);
186 $ftpl->parse_if_block('editable',(-r
$phys_path && -w
$phys_path && -T
$phys_path && not $too_large) && not -l
$phys_path);
188 $ftpl->parse_if_block('too_large',$config->{'max_file_size'} && $stat[7] > $config->{'max_file_size'});
190 $ftpl->parse_if_block('users',$users && -o
$phys_path);
192 $dirlist .= $ftpl->get_template;
195 $tpl->read_file($config->{'templates'}->{'dirlist'});
197 $tpl->fillin('DIRLIST',$dirlist);
198 $tpl->fillin('DIR',encode_html
($virtual));
199 $tpl->fillin('DIR_URL',escape
($virtual));
200 $tpl->fillin('SCRIPT',$script);
201 $tpl->fillin('URL',encode_html
(equal_url
($config->{'httproot'},$virtual)));
203 $tpl->fillin('FILTER',encode_html
($filter2));
204 $tpl->fillin('FILTER_URL',escape
($filter2));
206 $tpl->parse_if_block('empty',$dirlist eq '');
207 $tpl->parse_if_block('dir_writeable',-w
$physical);
208 $tpl->parse_if_block('filter',$filter2);
209 $tpl->parse_if_block('gmt',$config->{'use_gmt'});
213 # Show the target of a symbolic link
215 my $link_target = readlink($physical);
217 $tpl->read_file($config->{'templates'}->{'viewlink'});
219 $tpl->fillin('FILE',encode_html
($virtual));
220 $tpl->fillin('DIR',$upper_path->{'html'});
221 $tpl->fillin('DIR_URL',$upper_path->{'url'});
222 $tpl->fillin('URL',encode_html
(equal_url
($config->{'httproot'},$virtual)));
223 $tpl->fillin('SCRIPT',$script);
225 $tpl->fillin('LINK_TARGET',encode_html
($link_target));
231 return error
($config->{'errors'}->{'no_view'},$upper_path->{'normal'}) unless(-r
$physical);
233 # Check on binary files
234 # We have to do it in this way or empty files will be recognized
237 return error
($config->{'errors'}->{'binary_file'},$upper_path->{'normal'}) unless(-T
$physical);
239 # Is the file too large?
241 return error
($config->{'errors'}->{'file_too_large'},$upper_path->{'normal'},{SIZE
=> $config->{'max_file_size'}}) if($config->{'max_file_size'} && -s
$physical > $config->{'max_file_size'});
245 my $content = file_read
($physical);
246 $$content =~ s/\015\012|\012|\015/\n/g;
248 $tpl->read_file($config->{'templates'}->{'viewfile'});
250 $tpl->fillin('FILE',encode_html
($virtual));
251 $tpl->fillin('FILE_URL',escape
($virtual));
252 $tpl->fillin('DIR',$upper_path->{'html'});
253 $tpl->fillin('DIR_URL',$upper_path->{'url'});
254 $tpl->fillin('URL',encode_html
(equal_url
($config->{'httproot'},$virtual)));
255 $tpl->fillin('SCRIPT',$script);
257 $tpl->parse_if_block('editable',-w
$physical);
259 $tpl->fillin('CONTENT',encode_html
($$content));
262 my $output = header
(-type
=> 'text/html');
263 $output .= $tpl->get_template;
270 # Lock a file and display a form to edit it
272 # Params: 1. Reference to user input hash
273 # 2. Reference to config hash
275 # Return: Output of the command (Scalar Reference)
277 sub exec_beginedit
($$)
279 my ($data,$config) = @_;
280 my $physical = $data->{'physical'};
281 my $virtual = $data->{'virtual'};
282 my $dir = upper_path
($virtual);
284 return error
($config->{'errors'}->{'link_edit'},$dir) if(-l
$physical);
285 return error
($config->{'errors'}->{'dir_edit'}, $dir) if(-d
$physical);
286 return error
($config->{'errors'}->{'no_edit'}, $dir) unless(-r
$physical && -w
$physical);
288 # Check on binary files
290 return error
($config->{'errors'}->{'binary_file'},$dir) unless(-T
$physical);
292 # Is the file too large?
294 return error
($config->{'errors'}->{'file_too_large'},$dir,{SIZE
=> $config->{'max_file_size'}}) if($config->{'max_file_size'} && -s
$physical > $config->{'max_file_size'});
296 # Show the editing form
298 my $content = file_read
($physical);
299 my $md5sum = md5_hex
($$content);
300 $$content =~ s/\015\012|\012|\015/\n/g;
302 my $tpl = new Template
;
303 $tpl->read_file($config->{'templates'}->{'editfile'});
305 $tpl->fillin('FILE',encode_html
($virtual));
306 $tpl->fillin('FILE_URL',escape
($virtual));
307 $tpl->fillin('DIR',encode_html
($dir));
308 $tpl->fillin('DIR_URL',escape
($dir));
309 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
310 $tpl->fillin('SCRIPT',$script);
311 $tpl->fillin('MD5SUM',$md5sum);
312 $tpl->fillin('CONTENT',encode_html
($$content));
314 $tpl->parse_if_block('error',0);
316 my $output = header
(-type
=> 'text/html');
317 $output .= $tpl->get_template;
324 # Save a file, unlock it and return to directory view
326 # Params: 1. Reference to user input hash
327 # 2. Reference to config hash
329 # Return: Output of the command (Scalar Reference)
333 my ($data,$config) = @_;
334 my $physical = $data->{'physical'};
335 my $virtual = $data->{'virtual'};
336 my $dir = upper_path
($virtual);
337 my $cgi = $data->{'cgi'};
338 my $content = $cgi->param('filecontent');
339 my $md5sum = $cgi->param('md5sum');
342 if(defined $content && $md5sum)
346 $content =~ s/\015\012|\012|\015/\n/g;
348 if($cgi->param('saveas') && $data->{'new_physical'} ne '' && $data->{'new_virtual'} ne '')
350 # Create the new filename
352 $physical = $data->{'new_physical'};
353 $virtual = $data->{'new_virtual'};
356 return error
($config->{'errors'}->{'link_edit'},$dir) if(-l
$physical);
357 return error
($config->{'errors'}->{'dir_edit'},$dir) if(-d
$physical);
358 return error
($config->{'errors'}->{'no_edit'},$dir) if(-e
$physical && !(-r
$physical && -w
$physical));
359 return error
($config->{'errors'}->{'text_to_binary'},$dir) if(-e
$physical && not -T
$physical);
361 # For technical reasons, we can't use file_save() for
366 sysopen(FILE
,$physical,O_RDWR
| O_CREAT
) or return error
($config->{'errors'}->{'edit_failed'},$dir,{FILE
=> $virtual});
367 file_lock
(*FILE
,LOCK_EX
) or do { close(FILE
); return error
($config->{'errors'}->{'edit_failed'},$dir,{FILE
=> $virtual}) };
369 my $md5 = new Digest
::MD5
;
370 $md5->addfile(*FILE
);
372 my $md5file = $md5->hexdigest;
373 my $md5data = md5_hex
($content);
375 if($md5file ne $md5sum && $md5data ne $md5file && not $cgi->param('saveas'))
377 # The file changed meanwhile
379 my $tpl = new Template
;
380 $tpl->read_file($config->{'templates'}->{'editfile'});
382 $tpl->fillin('ERROR',$config->{'errors'}->{'edit_file_changed'});
384 $tpl->fillin('FILE',encode_html
($virtual));
385 $tpl->fillin('FILE_URL',escape
($virtual));
386 $tpl->fillin('DIR',encode_html
($dir));
387 $tpl->fillin('DIR_URL',escape
($dir));
388 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
389 $tpl->fillin('SCRIPT',$script);
390 $tpl->fillin('MD5SUM',$md5file);
391 $tpl->fillin('CONTENT',encode_html
($content));
393 $tpl->parse_if_block('error',1);
395 my $data = header
(-type
=> 'text/html');
396 $data .= $tpl->get_template;
402 if($md5data ne $md5file)
410 $output = devedit_reload
({command
=> 'show', file
=> $dir});
418 return devedit_reload
({command
=> 'beginedit', file
=> $virtual});
423 # Create a file and return to directory view
425 # Params: 1. Reference to user input hash
426 # 2. Reference to config hash
428 # Return: Output of the command (Scalar Reference)
432 my ($data,$config) = @_;
433 my $new_physical = $data->{'new_physical'};
434 my $new_virtual = $data->{'new_virtual'};
435 my $dir = upper_path
($new_virtual);
436 $new_virtual = encode_html
($new_virtual);
440 return error
($config->{'errors'}->{'file_exists'},$dir,{FILE
=> $new_virtual}) if(-e
$new_physical);
442 file_create
($new_physical) or return error
($config->{'errors'}->{'mkfile_failed'},$dir,{FILE
=> $new_virtual});
443 return devedit_reload
({command
=> 'show', file
=> $dir});
447 my $tpl = new Template
;
448 $tpl->read_file($config->{'templates'}->{'mkfile'});
450 $tpl->fillin('DIR','/');
451 $tpl->fillin('SCRIPT',$script);
453 my $output = header
(-type
=> 'text/html');
454 $output .= $tpl->get_template;
462 # Create a directory and return to directory view
464 # Params: 1. Reference to user input hash
465 # 2. Reference to config hash
467 # Return: Output of the command (Scalar Reference)
471 my ($data,$config) = @_;
472 my $new_physical = $data->{'new_physical'};
473 my $new_virtual = $data->{'new_virtual'};
474 my $dir = upper_path
($new_virtual);
475 $new_virtual = encode_html
($new_virtual);
479 return error
($config->{'errors'}->{'file_exists'},$dir,{FILE
=> $new_virtual}) if(-e
$new_physical);
481 mkdir($new_physical,0777) or return error
($config->{'errors'}->{'mkdir_failed'},$dir,{DIR
=> $new_virtual});
482 return devedit_reload
({command
=> 'show', file
=> $dir});
486 my $tpl = new Template
;
487 $tpl->read_file($config->{'templates'}->{'mkdir'});
489 $tpl->fillin('DIR','/');
490 $tpl->fillin('SCRIPT',$script);
492 my $output = header
(-type
=> 'text/html');
493 $output .= $tpl->get_template;
501 # Process a file upload
503 # Params: 1. Reference to user input hash
504 # 2. Reference to config hash
506 # Return: Output of the command (Scalar Reference)
510 my ($data,$config) = @_;
511 my $physical = $data->{'physical'};
512 my $virtual = $data->{'virtual'};
513 my $cgi = $data->{'cgi'};
515 return error
($config->{'errors'}->{'no_directory'},upper_path
($virtual),{FILE
=> $virtual}) unless(-d
$physical && not -l
$physical);
516 return error
($config->{'errors'}->{'dir_no_create'},$virtual,{DIR
=> $virtual}) unless(-w
$physical);
518 if(my $uploaded_file = $cgi->param('uploaded_file'))
520 # Process file upload
522 my $filename = file_name
($uploaded_file);
523 my $file_phys = $physical.'/'.$filename;
524 my $file_virt = encode_html
($virtual.$filename);
528 return error
($config->{'errors'}->{'link_replace'},$virtual) if(-l
$file_phys);
529 return error
($config->{'errors'}->{'dir_replace'},$virtual) if(-d
$file_phys);
530 return error
($config->{'errors'}->{'exist_no_write'},$virtual,{FILE
=> $file_virt}) unless(-w
$file_phys);
531 return error
($config->{'errors'}->{'file_exists'},$virtual,{FILE
=> $file_virt}) unless($cgi->param('overwrite'));
534 my $ascii = $cgi->param('ascii');
535 my $handle = $cgi->upload('uploaded_file');
537 return error
($config->{'errors'}->{'invalid_upload'},$virtual) unless($handle);
539 # Read transferred file and write it to disk
541 read($handle, my $data, -s
$handle);
542 $data =~ s/\015\012|\012|\015/\n/g if($ascii); # Replace line separators if transferring in ASCII mode
543 file_save
($file_phys,\
$data,not $ascii) or return error
($config->{'errors'}->{'mkfile_failed'},$virtual,{FILE
=> $file_virt});
545 return devedit_reload
({command
=> 'show', file
=> $virtual});
549 my $tpl = new Template
;
550 $tpl->read_file($config->{'templates'}->{'upload'});
552 $tpl->fillin('DIR',encode_html
($virtual));
553 $tpl->fillin('DIR_URL',escape
($virtual));
554 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
555 $tpl->fillin('SCRIPT',$script);
557 my $output = header
(-type
=> 'text/html');
558 $output .= $tpl->get_template;
566 # Copy a file and return to directory view
568 # Params: 1. Reference to user input hash
569 # 2. Reference to config hash
571 # Return: Output of the command (Scalar Reference)
575 my ($data,$config) = @_;
576 my $physical = $data->{'physical'};
577 my $virtual = $data->{'virtual'};
578 my $dir = upper_path
($virtual);
579 my $new_physical = $data->{'new_physical'};
581 return error
($config->{'errors'}->{'link_copy'},$dir) if(-l
$physical);
582 return error
($config->{'errors'}->{'dir_copy'},$dir) if(-d
$physical);
583 return error
($config->{'errors'}->{'no_copy'},$dir) unless(-r
$physical);
587 my $new_virtual = multi_string
($data->{'new_virtual'});
588 my $new_dir = upper_path
($new_virtual->{'normal'});
592 return error
($config->{'errors'}->{'link_replace'},$new_dir) if(-l
$new_physical);
593 return error
($config->{'errors'}->{'dir_replace'},$new_dir) if(-d
$new_physical);
594 return error
($config->{'errors'}->{'exist_no_write'},$new_dir,{FILE
=> $new_virtual->{'html'}}) unless(-w
$new_physical);
596 if(not $data->{'cgi'}->param('confirmed'))
598 my $tpl = new Template
;
599 $tpl->read_file($config->{'templates'}->{'confirm_replace'});
601 $tpl->fillin('FILE',encode_html
($virtual));
602 $tpl->fillin('NEW_FILE',$new_virtual->{'html'});
603 $tpl->fillin('NEW_FILENAME',file_name
($new_virtual->{'html'}));
604 $tpl->fillin('NEW_DIR',encode_html
($new_dir));
605 $tpl->fillin('DIR',encode_html
($dir));
606 $tpl->fillin('DIR_URL',escape
($dir));
608 $tpl->fillin('COMMAND','copy');
609 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
610 $tpl->fillin('SCRIPT',$script);
612 my $output = header
(-type
=> 'text/html');
613 $output .= $tpl->get_template;
619 copy
($physical,$new_physical) or return error
($config->{'errors'}->{'copy_failed'},$dir,{FILE
=> encode_html
($virtual), NEW_FILE
=> $new_virtual->{'html'}});
620 return devedit_reload
({command
=> 'show', file
=> $new_dir});
624 my $tpl = new Template
;
625 $tpl->read_file($config->{'templates'}->{'copyfile'});
627 $tpl->fillin('FILE',encode_html
($virtual));
628 $tpl->fillin('DIR',encode_html
($dir));
629 $tpl->fillin('DIR_URL',escape
($dir));
630 $tpl->fillin('URL',equal_url
($config->{'httproot'},encode_html
($virtual)));
631 $tpl->fillin('SCRIPT',$script);
633 my $output = header
(-type
=> 'text/html');
634 $output .= $tpl->get_template;
642 # Rename/move a file and return to directory view
644 # Params: 1. Reference to user input hash
645 # 2. Reference to config hash
647 # Return: Output of the command (Scalar Reference)
651 my ($data,$config) = @_;
652 my $physical = $data->{'physical'};
653 my $virtual = $data->{'virtual'};
654 my $dir = upper_path
($virtual);
655 my $new_physical = $data->{'new_physical'};
657 return error
($config->{'errors'}->{'rename_root'},'/') if($virtual eq '/');
658 return error
($config->{'errors'}->{'no_rename'},$dir) unless(-w upper_path
($physical));
662 my $new_virtual = $data->{'new_virtual'};
663 my $new_dir = upper_path
($new_virtual);
664 $new_virtual = encode_html
($new_virtual);
668 return error
($config->{'errors'}->{'dir_replace'},$new_dir) if(-d
$new_physical && not -l
$new_physical);
669 return error
($config->{'errors'}->{'exist_no_write'},$new_dir,{FILE
=> $new_virtual}) unless(-w
$new_physical);
671 if(not $data->{'cgi'}->param('confirmed'))
673 my $tpl = new Template
;
674 $tpl->read_file($config->{'templates'}->{'confirm_replace'});
676 $tpl->fillin('FILE',$virtual);
677 $tpl->fillin('NEW_FILE',$new_virtual);
678 $tpl->fillin('NEW_FILENAME',file_name
($new_virtual));
679 $tpl->fillin('NEW_DIR',$new_dir);
680 $tpl->fillin('DIR',$dir);
682 $tpl->fillin('COMMAND','rename');
683 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
684 $tpl->fillin('SCRIPT',$script);
686 my $output = header
(-type
=> 'text/html');
687 $output .= $tpl->get_template;
693 move
($physical,$new_physical) or return error
($config->{'errors'}->{'rename_failed'},$dir,{FILE
=> $virtual, NEW_FILE
=> $new_virtual});
694 return devedit_reload
({command
=> 'show', file
=> $new_dir});
698 my $tpl = new Template
;
699 $tpl->read_file($config->{'templates'}->{'renamefile'});
701 $tpl->fillin('FILE',$virtual);
702 $tpl->fillin('DIR',encode_html
($dir));
703 $tpl->fillin('DIR_URL',escape
($dir));
704 $tpl->fillin('URL',equal_url
($config->{'httproot'},$virtual));
705 $tpl->fillin('SCRIPT',$script);
707 my $output = header
(-type
=> 'text/html');
708 $output .= $tpl->get_template;
716 # Remove a file or a directory and return to directory view
718 # Params: 1. Reference to user input hash
719 # 2. Reference to config hash
721 # Return: Output of the command (Scalar Reference)
725 my ($data,$config) = @_;
726 my $physical = $data->{'physical'};
727 my $virtual = $data->{'virtual'};
728 my $dir = upper_path
($virtual);
730 return error
($config->{'errors'}->{'remove_root'},'/') if($virtual eq '/');
731 return error
($config->{'errors'}->{'no_delete'},$dir) unless(-w upper_path
($physical));
733 if(-d
$physical && not -l
$physical)
737 if($data->{'cgi'}->param('confirmed'))
740 return devedit_reload
({command
=> 'show', file
=> $dir});
744 my $tpl = new Template
;
745 $tpl->read_file($config->{'templates'}->{'confirm_rmdir'});
747 $tpl->fillin('DIR',encode_html
($virtual));
748 $tpl->fillin('DIR_URL',escape
($virtual));
749 $tpl->fillin('UPPER_DIR',encode_html
($dir));
750 $tpl->fillin('UPPER_DIR_URL',escape
($dir));
751 $tpl->fillin('URL',equal_url
($config->{'httproot'},encode_html
($virtual)));
752 $tpl->fillin('SCRIPT',$script);
754 my $output = header
(-type
=> 'text/html');
755 $output .= $tpl->get_template;
764 if($data->{'cgi'}->param('confirmed'))
766 unlink($physical) or return error
($config->{'errors'}->{'delete_failed'},$dir,{FILE
=> $virtual});
767 return devedit_reload
({command
=> 'show', file
=> $dir});
771 my $tpl = new Template
;
772 $tpl->read_file($config->{'templates'}->{'confirm_rmfile'});
774 $tpl->fillin('FILE',encode_html
($virtual));
775 $tpl->fillin('FILE_URL',escape
($virtual));
776 $tpl->fillin('DIR',encode_html
($dir));
777 $tpl->fillin('DIR_URL',escape
($dir));
778 $tpl->fillin('URL',equal_url
($config->{'httproot'},encode_html
($virtual)));
779 $tpl->fillin('SCRIPT',$script);
781 my $output = header
(-type
=> 'text/html');
782 $output .= $tpl->get_template;
791 # Change the mode and the group of a file or a directory
793 # Params: 1. Reference to user input hash
794 # 2. Reference to config hash
796 # Return: Output of the command (Scalar Reference)
800 my ($data,$config) = @_;
801 my $physical = $data->{'physical'};
802 my $virtual = $data->{'virtual'};
803 my $dir = upper_path
($virtual);
805 return error
($config->{'errors'}->{'no_users'},$dir,{FILE
=> encode_html
($virtual)}) unless($users);
806 return error
($config->{'errors'}->{'chprop_root'},'/') if($virtual eq '/');
807 return error
($config->{'errors'}->{'not_owner'},$dir,{FILE
=> encode_html
($virtual)}) unless(-o
$physical);
808 return error
($config->{'errors'}->{'chprop_link'},$dir) if(-l
$physical);
810 my $cgi = $data->{'cgi'};
811 my $mode = $cgi->param('mode');
812 my $group = $cgi->param('group');
820 chmod(oct($mode),$physical);
825 # Change the group using the `chgrp` system command
827 return error
($config->{'errors'}->{'invalid_group'},$dir,{GROUP
=> encode_html
($group)}) unless($group =~ /^[a-z0-9_]+[a-z0-9_-]*$/i);
828 system('chgrp',$group,$physical);
831 return devedit_reload
({command
=> 'show', file
=> $dir});
837 my @stat = stat($physical);
841 my $tpl = new Template
;
842 $tpl->read_file($config->{'templates'}->{'chprop'});
844 # Insert file properties into the template
846 $tpl->fillin('MODE_OCTAL',substr(sprintf('%04o',$mode),-4));
847 $tpl->fillin('MODE_STRING',mode_string
($mode));
848 $tpl->fillin('GID',$gid);
850 if(my $group = getgrgid($gid))
852 $tpl->fillin('GROUP',encode_html
($group));
853 $tpl->parse_if_block('group_detected',1);
857 $tpl->parse_if_block('group_detected',0);
860 # Insert other information
862 $tpl->fillin('FILE',encode_html
($virtual));
863 $tpl->fillin('FILE_URL',escape
($virtual));
864 $tpl->fillin('DIR',encode_html
($dir));
865 $tpl->fillin('DIR_URL',escape
($dir));
866 $tpl->fillin('URL',equal_url
($config->{'httproot'},encode_html
($virtual)));
867 $tpl->fillin('SCRIPT',$script);
869 my $output = header
(-type
=> 'text/html');
870 $output .= $tpl->get_template;
878 # Display some information about Dev-Editor
880 # Params: 1. Reference to user input hash
881 # 2. Reference to config hash
883 # Return: Output of the command (Scalar Reference)
887 my ($data,$config) = @_;
889 my $tpl = new Template
;
890 $tpl->read_file($config->{'templates'}->{'about'});
892 $tpl->fillin('SCRIPT',$script);
894 # Dev-Editor's version number
896 $tpl->fillin('VERSION',$data->{'version'});
898 # Some path information
900 $tpl->fillin('SCRIPT_PHYS',encode_html
($ENV{'SCRIPT_FILENAME'}));
901 $tpl->fillin('CONFIG_PATH',encode_html
($data->{'configfile'}));
902 $tpl->fillin('FILE_ROOT', encode_html
($config->{'fileroot'}));
903 $tpl->fillin('HTTP_ROOT', encode_html
($config->{'httproot'}));
907 $tpl->fillin('PERL_PROG',encode_html
($^X
));
908 $tpl->fillin('PERL_VER', sprintf('%vd',$^V
));
910 # Information about the server
912 $tpl->fillin('HTTPD',encode_html
($ENV{'SERVER_SOFTWARE'}));
913 $tpl->fillin('OS', encode_html
($^O
));
914 $tpl->fillin('TIME', encode_html
(strftime
($config->{'timeformat'},($config->{'use_gmt'}) ?
gmtime : localtime)));
916 $tpl->parse_if_block('gmt',$config->{'use_gmt'});
918 # Process information
920 $tpl->fillin('PID',$$);
922 # The following information is only available on systems supporting
927 # Dev-Editor is running on a system which allows users and groups
928 # So we display the user and the group of our process
930 my $uid = POSIX
::getuid
;
931 my $gid = POSIX
::getgid
;
933 $tpl->parse_if_block('users',1);
935 # ID's of user and group
937 $tpl->fillin('UID',$uid);
938 $tpl->fillin('GID',$gid);
940 # Names of user and group
942 if(my $user = getpwuid($uid))
944 $tpl->fillin('USER',encode_html
($user));
945 $tpl->parse_if_block('user_detected',1);
949 $tpl->parse_if_block('user_detected',0);
952 if(my $group = getgrgid($gid))
954 $tpl->fillin('GROUP',encode_html
($group));
955 $tpl->parse_if_block('group_detected',1);
959 $tpl->parse_if_block('group_detected',0);
964 $tpl->fillin('UMASK',sprintf('%04o',umask));
968 $tpl->parse_if_block('users',0);
971 my $output = header
(-type
=> 'text/html');
972 $output .= $tpl->get_template;
977 # it's true, baby ;-)
patrick-canterino.de