Apache-FileManager

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Apache::FileManager.

0.01  Thu Jun 20 07:17:25 2002  Philip Collins
  - original version; created by h2xs 1.20 with options
  -AX -n Apache::FileManager

0.02  Fri Jun 21 10:30:55 2002  Philip Collins
  - made javacript control cut / copy buffer so module user does not 
    need to call the constructor before sending the header anymore.
  - added rsync functionality
  - checked for null filenames with javascript in rename and mkdir actions
  - updated documentation

0.03  Fri Jun 21 11:00:11 2002  Philip Collins
  - added prerequisite modules to 'PREREQ_PM' in Makefile.PL.

0.04  Fri Jun 21 04:30:00 2002 Philip Collins
  - let user upload filenames with dashes in them.
  - show javascript not enabled warning message
  - show cookies not enabled warning message 
  - alert user when trying to copy, or cut 0 selected files.

Changes  view on Meta::CPAN

  - cleaned up the documentation a bit

0.17 Philip Collins 
  - added return declined stmt if we see nossi param

0.18 Tue Nov 19 15:00 Philip Collins 
  - fixed extract to report error when trying to extract invalid archives
  - Apache::Util::escape_html on all files names
  - added ability to mass select and deselect shown files
  - added ability to edit and preview edited files
  - added error message for rename and edit operation when selected filed != 1
  - fixed bad error after canceling a rename file dialog then refreshing
  - print error dialog when trying to create blank directory name
  - added time to date stamp

0.19 Philip Collins 
  - prevented file edit screen from opening when cancel is clicked when creating new filenames
  - fixed up documentation

   
  

FileManager.pm  view on Meta::CPAN

   $obj->print();
   print "</HTML>";
 }

 # .. overload the methods ..


=head1 DESCRIPTION

The Apache::FileManager module is a simple HTML file manager.  It provides 
file manipulations such as cut, copy, paste, delete, rename, extract archive, 
create directory, create file, edit file, and upload files.

Apache::FileManager also has the ability to rsync the server htdocs tree to 
another server. With the click of a button.

=head1 PREREQUISITES 

The following (non-core) perl modules must be installed before installing 
Apache::FileManager.

FileManager.pm  view on Meta::CPAN

                   '   ***including*** files in those directories';
         if (window.confirm(msg)) {
             f.FILEMANAGER_cmd.value='delete';
             f.submit();
         }
     }
     return false;
\"><FONT COLOR=WHITE><B>delete</B></FONT></A>",

  #Rename
  "<A HREF=# onclick=\"var f=window.document.FileManager; if (get_num_checked() != 1) { window.alert('Please select ONE file to rename by clicking on a check box with the mouse.'); } else { var rv=window.prompt('enter new name',''); if ((rv != null)&...

  #Extract
  "<A HREF=# onclick=\"var f=window.document.FileManager; if (get_num_checked() == 0) { window.alert('Please select a file to extract by clicking on a check box with the mouse.'); } else { f.FILEMANAGER_cmd.value='extract'; f.submit(); } return false...

  #New File 
  "<A HREF=# onclick=\"
var f=window.document.FileManager; 
var rv = window.prompt('new file name',''); 
var cd = f.FILEMANAGER_curr_dir.value;
if (cd != '') {

FileManager.pm  view on Meta::CPAN

    while (<$in_fh>) {
      print $out_fh $_;
    }
  }
  #$$o{MESSAGE} = "$count file(s) uploaded.";
  $$o{'view'} = "post_upload";
  return undef;
}

sub cmd_rename {
  my $o = shift;
  my $arg1 = shift;
  my $sel_files = $o->get_selected_files();
  my $file = $$o{DR}."/".$sel_files->[0];
  my $bool = move($file, $arg1);
  if ($bool) {
    $$o{MESSAGE} = "File renamed.";
  } else {
    $$o{MESSAGE} = "File could not be renamed.";
  }
  return undef;
}


sub cmd_rsync {
  my $o = shift;
  my $arg1 = shift;
  $$o{'SSH_PATH'} ||= r->dir_config('SSH_PATH');