file/rename.cgi

   1 #!/usr/local/bin/perl
   2 # rename.cgi
   3 # Rename some file
   4
   5 require './file-lib.pl';
   6 $disallowed_buttons{'rename'} && &error($text{'ebutton'});
   7 &ReadParse();
   8 &webmin_log("rename", undef, $in{'old'}, \%in);
   9 &switch_acl_uid_and_chroot();
  10 print "Content-type: text/plain\n\n";
  11 if ($access{'ro'} || !&can_access($in{'old'})) {
  12         print &text('rename_eold', $in{'old'}),"\n";
  13         }
  14 elsif (!&can_access($in{'new'})) {
  15         print &text('rename_enew', $in{'new'}),"\n";
  16         }
  17 elsif (!&rename_logged($in{'old'}, $in{'new'})) {
  18         print "$!\n";
  19         }
  20 else {
  21         print "\n";
  22         }
  23
  24