Apache2-FileManager

 view release on metacpan or  search on metacpan

FileManager.pm  view on Meta::CPAN

#after rsync transacation - view
sub view_post_rsync {
  my $o = shift;
  r->print(qq{
    <CENTER>
      <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
        <TR><TD>$$o{MESSAGE}</TD></TR>
        <TR>
          <FORM>
            <TD ALIGN=RIGHT>
              <INPUT TYPE=BUTTON VALUE='close'
                      onclick="window.close();">
            </TD>
          </FORM>
        </TR>
      </TABLE>
    </CENTER>
  });
  return undef;
}

FileManager.pm  view on Meta::CPAN

      <TABLE BORDER=1 CELLPADDING=10 CELLSPACING=0
             BGCOLOR=#606060>
        <TR BGCOLOR=WHITE>
          <TD ALIGN=CENTER>
            could not open file: <I>$base</I> in text writing mode
          </TD>
        </TR>
        <TR BGCOLOR=#efefef>
          <TD ALIGN=RIGHT>
            <FORM>
              <INPUT TYPE=BUTTON VALUE=close
                onclick=\"
                  window.close();
                  return false;\">
            </FORM>
          </TD>
        </TR>
      </TABLE>

      <BR>
      </CENTER>

FileManager.pm  view on Meta::CPAN

    <!-- Styles -->
    ".$o->html_style_sheet()."

    <FORM NAME=FileManagerEditFile
          ACTION='".r->uri."'
          METHOD=POST>

      ".$o->html_hidden_fields()."

      <INPUT TYPE=HIDDEN NAME=FILEMANAGER_editfile
             VALUE=\"".r->param('FILEMANAGER_editfile')."\">

      <!-- Header -->
      <TABLE WIDTH=100% CELLPADDING=0 CELLSPAING=0>
        <TR>
          <TD>
            <FONT COLOR=#3a3a3a><B>$base</B></FONT>
          </TD>
        </TR>
      </TABLE>

FileManager.pm  view on Meta::CPAN

      <TABLE CELLPADDING=2 CELLSPACING=2
             BORDER=0 WIDTH=100% BGCOLOR=#606060>

        <!-- Toolbar -->
        <TR>
          <TD ALIGN=CENTER>
            <TABLE CELLPADDING=0 CELLSPACING=0
                   BORDER=0 WIDTH=90%>
              <TR ALIGN=CENTER>
                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='cancel'
                    onclick=\"
                      window.close();
                      return false;\">
                </TD>

                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='preview'
                    onclick=\"
                      window.show_preview();
                      return false;\">
                </TD>

                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='save'
                    onclick=\"
                      var f = window.document.FileManagerEditFile;
                      f.FILEMANAGER_cmd.value = 'savefiledata';
                      f.submit();
                      return false;\">
                </TD>
              </TR>
            </TABLE>
          </TD>
        </TR>

FileManager.pm  view on Meta::CPAN

          </TD>
        </TR>

        <!-- Toolbar -->
        <TR>
          <TD ALIGN=CENTER>
            <TABLE CELLPADDING=0 CELLSPACING=0
                   BORDER=0 WIDTH=90%>
              <TR ALIGN=CENTER>
                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='cancel'
                    onclick=\"
                      window.close();
                      return false;\">
                </TD>

                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='preview'
                    onclick=\"
                      window.show_preview();
                      return false;\">
                </TD>

                <TD ALIGN=CENTER>
                  <INPUT TYPE=BUTTON VALUE='save'
                    onclick=\"
                      var f = window.document.FileManagerEditFile;
                      f.FILEMANAGER_cmd.value = 'savefiledata';
                      f.submit();
                      return false;\">
                </TD>
              </TR>
            </TABLE>
          </TD>
        </TR>

FileManager.pm  view on Meta::CPAN

        \"<LI><A NAME=move><B>Why does the file manager seem broken in \"+
        \"certain directories or when copying or pasting certain files?\"+
        \"</B></A><BR>\"+
        \"This occurs when the file manager does not have permission to \"+
        \"access these files. To fix the problem, contact your system \"+
        \"administrator and ask them to grant the webserver \"+
        \"READ, WRITE, and EXECUTE access to your files.<BR><BR>\"+

        \"</UL><CENTER>\"+
        \"<FORM><INPUT TYPE=BUTTON VALUE='close' onclick='window.close();'>\"+
        \"</FORM></CENTER></HTML>\");
      d.close();
      w.focus();
    }

    function getexpirydate(nodays){
      var UTCstring;
      Today = new Date();
      nomilli=Date.parse(Today);
      Today.setTime(nomilli+nodays*24*60*60*1000);

FileManager.pm  view on Meta::CPAN

    }

    function print_upload () {
      var w = window.open('','FileManagerUpload',
                          'scrollbars=yes,resizable=yes,width=500,height=440');
      var d = w.document.open();
      d.write(\"<HTML><BODY><CENTER><H1>Upload Files</H1>\"+
              \"<FORM NAME=UploadForm ACTION='".r->uri."' \"+
              \"      METHOD=POST onsubmit='window.opener.focus();' \"+
              \"      ENCTYPE=multipart/form-data>\"+
              \"  <INPUT TYPE=HIDDEN NAME=FILEMANAGER_curr_dir \"+
              \"         VALUE='".r->param('FILEMANAGER_curr_dir')."'>\");

      for (var i=1; i <= 10; i++) {
        d.write(\"<INPUT TYPE=FILE SIZE=40 NAME=FILEMANAGER_file\"+i+\"><BR>\");
      }
      d.write(\"<INPUT TYPE=BUTTON VALUE='cancel' onclick='window.close();'>\"+
              \"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\"+
              \"<INPUT TYPE=SUBMIT NAME=FILEMANAGER_cmd\"+
              \"       VALUE=upload></CENTER></BODY></HTML>\");
      d.close();
      w.focus();
    }

    // make input check box form elements into an array ALL the time
    function get_ckbox_array() {
      var ar;
      sel_files = window.document.FileManager.FILEMANAGER_sel_files;

FileManager.pm  view on Meta::CPAN

        A:hover {
          color: #990000;
          text-decoration: underline;
        }
    --> </STYLE>";
}


sub html_hidden_fields {
  return "
    <INPUT TYPE=HIDDEN NAME=FILEMANAGER_curr_dir
           VALUE='".r->param('FILEMANAGER_curr_dir')."'>
    <INPUT TYPE=HIDDEN NAME=FILEMANAGER_cmd VALUE=''>
    <INPUT TYPE=HIDDEN NAME=FILEMANAGER_arg VALUE=''>
    <INPUT TYPE=HIDDEN NAME=FILEMANAGER_last_select_all
           VALUE='".r->param('FILEMANAGER_last_select_all')."'>
    ";
}


sub html_location_toolbar {
  my $o = shift;

  my @loc = split /\//, r->param('FILEMANAGER_curr_dir');

FileManager.pm  view on Meta::CPAN

      $link = "
          <A HREF=\"/$href"."$file?nossi=1\"
             TARGET=_blank><FONT COLOR=BLACK>"
             .Apache2::Util::escape_path($file.$type, r->pool).
            "</FONT>
          </A>";
    }

    $acum .= "
        <TR BGCOLOR=#$bgcolor>
        <TD><INPUT TYPE=CHECKBOX NAME=FILEMANAGER_sel_files
                   VALUE='$curr_dir"."$file'></TD>
        <TD>$link</TD>
        <TD ALIGN=CENTER NOWRAP>$last_modified</TD>
        $size
        </TR>";

    #alternate bgcolor so it is easier to read
    $bgcolor = ( ($bgcolor eq "ffffff") ? "efefef" : "ffffff" );
  }