view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.13 Thur July 11 14:32:21 Philip Collins
  - updated the documentation

0.14 Thur July 11 17:15:10 Philip Collins
  - updated look of application
  - added the beginnings of the help section
  - used CSS tags to to hovering underline
  - enlarged the file upload path boxes to 40 (Hardy)

0.15 Friday July 12 20:50:02 Philip Collins
  - changed `go live!` to `synchronize`
  - email File::NCopy author to fix empty directory copy
  - fixed cut count so it can be > 1
  - Added Help Section

0.16 Philip Collins
  - Added close button to upload window
  - cleaned up the documentation a bit

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

FileManager.pm  view on Meta::CPAN

  #New Directory
  "<A HREF=# onclick=\"var f=window.document.FileManager; var rv=window.prompt('new directory name',''); if ((rv != null)&&(rv != '')) { f.FILEMANAGER_arg.value=rv; f.FILEMANAGER_cmd.value='mkdir'; f.submit(); } else if (rv == '') { window.alert('can...

  #Upload
  "<A HREF=# onclick=\"window.print_upload(); return false;\"><FONT COLOR=WHITE><B>upload<B></FONT></A>"
  );

  #Rsync
  my $rsync = "";
  if ($$o{'RSYNC_TO'}) {
    push @cmds, "<TD><A HREF=# onclick=\"if (window.confirm('Are you sure you want to synchronize with the production server?')) {var w=window.open('','RSYNC','scrollbars=yes,resizables=yes,width=400,height=500'); w.focus(); var d=w.document.open(); ...
  }

  return "
<!-- Actions Tool bar -->
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0><TR ALIGN=CENTER><TD ALIGN=CENTER>".join("</TD><TD>&nbsp;<B><FONT COLOR=#bcbcbc SIZE=+2>|</FONT>&nbsp;</B></TD><TD>", @cmds)."</TD></TR></TABLE>";

}

sub html_file_list {
  my $o = shift;