egroupware/filemanager/indexold.php

<?php

###
# DEV NOTE:
#
# index.php is depreciated by the inc/class.xxphpwebhosting.inc.php files.
# index.php is still used in the 0.9.14 release, but all future changes should be
# made to the inc/class.xxphpwebhosting.inc.php files (3-tiered).  This includes using templates.
###

###
# Enable this to display some debugging info
###

$phpwh_debug = 0;

@reset ($GLOBALS['HTTP_POST_VARS']);
while (list ($name,) = @each ($GLOBALS['HTTP_POST_VARS']))
{
	$$name = $GLOBALS['HTTP_POST_VARS'][$name];
}

@reset ($GLOBALS['HTTP_GET_VARS']);
while (list ($name,) = @each ($GLOBALS['HTTP_GET_VARS']))
{
	$$name = $GLOBALS['HTTP_GET_VARS'][$name];
}

$to_decode = array
(
	/*
	Decode
	'var'	when	  'avar' == 'value'
	or
	'var'	when	  'var'  is set
	*/
	'op'	=> array ('op' => ''),
	'path'	=> array ('path' => ''),
	'file'	=> array ('file' => ''),
	'sortby'	=> array ('sortby' => ''),
	'fileman'	=> array ('fileman' => ''),
	'messages'	=> array ('messages'	=> ''),
	'help_name'	=> array ('help_name' => ''),
	'renamefiles'	=> array ('renamefiles' => ''),
	'comment_files'	=> array ('comment_files' => ''),
	'show_upload_boxes'	=> array ('show_upload_boxes' => '')
);

reset ($to_decode);
while (list ($var, $conditions) = each ($to_decode))
{
	while (list ($condvar, $condvalue) = each ($conditions))
	{
		if (isset ($$condvar) && ($condvar == $var || $$condvar == $condvalue))
		{
			if (is_array ($$var))
			{
				$temp = array ();
      //some fixes in this section were supplied by Michael Totschnig
				while (list ($varkey, $varvalue) = each ($$var))
				{
					if (is_int ($varkey))
					{
						$temp[$varkey] = stripslashes (base64_decode(urldecode(($varvalue))));
					}
					else
					{
						$temp[stripslashes (base64_decode(urldecode(($varkey))))] = $varvalue;
					}
				}
				$$var = $temp;
			}
			elseif (isset ($$var))
			{
				$$var = stripslashes (base64_decode(urldecode ($$var)));
			}
		}
	}
}

if ($noheader || $nofooter || ($download && (count ($fileman) > 0)) || ($op == 'view' && $file) || ($op == 'history' && $file) || ($op == 'help' && $help_name))
{
	$noheader = True;
	$nofooter = True;
}

$GLOBALS['phpgw_info']['flags'] = array
(
	'currentapp'	=> 'filemanager',
	'noheader'	=> $noheader,
	'nofooter'	=> $nofooter,
	'noappheader'	=> False,
	'enable_vfs_class'	=> True,
	'enable_browser_class'	=> True
);

include ('../header.inc.php');

if ($execute && $command_line)
{
	if ($result = $GLOBALS['phpgw']->vfs->command_line (array ('command_line' => stripslashes ($command_line))))
	{
		$messages = html_text_bold (lang('Command sucessfully run'),1);
		if ($result != 1 && strlen ($result) > 0)
		{
			$messages .= html_break (2, NULL, 1) . $result;
		}
	}
	else
	{
		$messages = $GLOBALS['phpgw']->common->error_list (array (lang('Error running command')));
	}
}

###
# Page to process users
# Code is fairly hackish at the beginning, but it gets better
# Highly suggest turning wrapping off due to long SQL queries
###

###
# Some hacks to set and display directory paths correctly
###

if ($go)
{
	$path = $todir;
}

if (!$path)
{
	$path = $GLOBALS['phpgw']->vfs->pwd ();

	if (!$path || $GLOBALS['phpgw']->vfs->pwd (array ('full' => False)) == '')
	{
		$path = $GLOBALS['homedir'];
	}
}

$GLOBALS['phpgw']->vfs->cd (array ('string' => False, 'relatives' => array (RELATIVE_NONE), 'relative' => False));
$GLOBALS['phpgw']->vfs->cd (array ('string' => $path, 'relatives' => array (RELATIVE_NONE), 'relative' => False));

$pwd = $GLOBALS['phpgw']->vfs->pwd ();

if (!$cwd = substr ($path, strlen ($GLOBALS['homedir']) + 1))
{
	$cwd = '/';
}
else
{
	$cwd = substr ($pwd, strrpos ($pwd, '/') + 1);
}

$disppath = $path;

/* This just prevents // in some cases */
if ($path == '/')
	$dispsep = '';
else
	$dispsep = '/';

if (!($lesspath = substr ($path, 0, strrpos ($path, '/'))))
	$lesspath = '/';

$now = date ('Y-m-d');

if ($phpwh_debug)
{
	echo "<b>PHPWebHosting debug:</b><br>
		path: $path<br>
		disppath: $disppath<br>
		cwd: $cwd<br>
		lesspath: $lesspath
		<p>
		<b>phpGW debug:</b><br>
		real getabsolutepath: " . $GLOBALS['phpgw']->vfs->getabsolutepath (array ('target' => False, 'mask' => False, 'fake' => False)) . "<br>
		fake getabsolutepath: " . $GLOBALS['phpgw']->vfs->getabsolutepath (array ('target' => False)) . "<br>
		appsession: " . $GLOBALS['phpgw']->session->appsession ('vfs','') . "<br>
		pwd: " . $GLOBALS['phpgw']->vfs->pwd () . "<br>";
}

###
# Get their readable groups to be used throughout the script
###

$groups = array ();

$groups = $GLOBALS['phpgw']->accounts->get_list ('groups');

$readable_groups = array ();

while (list ($num, $account) = each ($groups))
{
	if ($GLOBALS['phpgw']->vfs->acl_check (array (
			'owner_id' => $account['account_id'],
			'operation' => PHPGW_ACL_READ
		))
	)
	{
		$readable_groups[$account['account_lid']] = Array('account_id' => $account['account_id'], 'account_name' => $account['account_lid']);
	}
}

$groups_applications = array ();

while (list ($num, $group_array) = each ($readable_groups))
{
	$group_id = $GLOBALS['phpgw']->accounts->name2id ($group_array['account_name']);

	$applications = CreateObject('phpgwapi.applications', $group_id);
	$groups_applications[$group_array['account_name']] = $applications->read_account_specific ();
}

###
# We determine if they're in their home directory or a group's directory,
# and set the VFS working_id appropriately
###

if ((preg_match ('+^'.$GLOBALS['fakebase'].'\/(.*)(\/|$)+U', $path, $matches)) && $matches[1] != $GLOBALS['userinfo']['account_lid'])
{
	$GLOBALS['phpgw']->vfs->working_id = $GLOBALS['phpgw']->accounts->name2id ($matches[1]);
}
else
{
	$GLOBALS['phpgw']->vfs->working_id = $GLOBALS['userinfo']['username'];
}

if ($path != $GLOBALS['homedir']
	&& $path != $GLOBALS['fakebase']
	&& $path != '/'
	&& !$GLOBALS['phpgw']->vfs->acl_check (array (
			'string' => $path,
			'relatives' => array (RELATIVE_NONE),
			'operation' => PHPGW_ACL_READ
	))
)
{
	echo $GLOBALS['phpgw']->common->error_list (array (lang('You do not have access to %1', $path)));
	html_break (2);
	html_link ($GLOBALS['appname'].'/index.php?path='.$GLOBALS['homedir'], lang('Go to your home directory'));
	html_page_close ();
}

$GLOBALS['userinfo']['working_id'] = $GLOBALS['phpgw']->vfs->working_id;
$GLOBALS['userinfo']['working_lid'] = $GLOBALS['phpgw']->accounts->id2name ($GLOBALS['userinfo']['working_id']);

###
# If their home directory doesn't exist, we create it
# Same for group directories
###

if (($path == $GLOBALS['homedir'])
	&& !$GLOBALS['phpgw']->vfs->file_exists (array (
		'string' => $GLOBALS['homedir'],
		'relatives' => array (RELATIVE_NONE)
	))
)
{
	$GLOBALS['phpgw']->vfs->override_acl = 1;

	if (!$GLOBALS['phpgw']->vfs->mkdir (array ('string' => $GLOBALS['homedir'], 'relatives' => array (RELATIVE_NONE))))
	{
		$p = $phpgw->vfs->path_parts (array ('string' => $GLOBALS['homedir'], 'relatives' => array (RELATIVE_NONE)));
		echo $GLOBALS['phpgw']->common->error_list (array (lang('Could not create directory %1', $GLOBALS['homedir'] . ' (' . $p->real_full_path . ')')));
	}

	$GLOBALS['phpgw']->vfs->override_acl = 0;
}

###
# Verify path is real
###

if ($path != $GLOBALS['homedir'] && $path != '/' && $path != $GLOBALS['fakebase'])
{
	if (!$GLOBALS['phpgw']->vfs->file_exists (array ('string' => $path, 'relatives' => array (RELATIVE_NONE))))
	{
		echo $GLOBALS['phpgw']->common->error_list (array (lang('Directory %1 does not exist', $path)));
		html_break (2);
		html_link ($GLOBALS['appname'].'/index.php?path='.$GLOBALS['homedir'], lang('Go to your home directory'));
		html_break (2);
		html_link_back ();
		html_page_close ();
	}
}

/* Update if they request it, or one out of 20 page loads */
srand ((double) microtime() * 1000000);
if ($update || rand (0, 19) == 4)
{
	$GLOBALS['phpgw']->vfs->update_real (array ('string' => $path, 'relatives' => array (RELATIVE_NONE)));
}

###
# Check available permissions for $path, so we can disable unusable operations in user interface
###

if ($GLOBALS['phpgw']->vfs->acl_check (array (
        'string'        => $path,
        'relatives' => array (RELATIVE_NONE),
        'operation' => PHPGW_ACL_ADD
        ))
)
{
	$can_add = True;
}

###
# Default is to sort by name
###

if (!$sortby)
{
	$sortby = 'name';
}

###
# Decide how many upload boxes to show
###

if (!$show_upload_boxes || $show_upload_boxes <= 0)
{
	if (!$show_upload_boxes = $GLOBALS['settings']['show_upload_boxes'])
	{
		$show_upload_boxes = 5;
	}
}


###
# Read in file info from database to use in the rest of the script
# $fakebase is a special directory.  In that directory, we list the user's
# home directory and the directories for the groups they're in
###

$numoffiles = 0;
if ($path == $GLOBALS['fakebase'])
{
	if (!$GLOBALS['phpgw']->vfs->file_exists (array ('string' => $GLOBALS['homedir'], 'relatives' => array (RELATIVE_NONE))))
	{
		$GLOBALS['phpgw']->vfs->mkdir (array ('string' => $GLOBALS['homedir'], 'relatives' => array (RELATIVE_NONE)));
	}

	$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
			'string'	=> $GLOBALS['homedir'],
			'relatives'	=> array (RELATIVE_NONE),
			'checksubdirs'	=> False,
			'nofiles'	=> True
		)
	);
	$files_array[] = $ls_array[0];
	$numoffiles++;
//	$files_array = $ls_array;
//	$numoffiles = count($ls_array);

	reset ($readable_groups);
	while (list ($num, $group_array) = each ($readable_groups))
	{
		###
		# If the group doesn't have access to this app, we don't show it
		###

		if (!$groups_applications[$group_array['account_name']][$GLOBALS['appname']]['enabled'])
		{
			continue;
		}

		if (!$GLOBALS['phpgw']->vfs->file_exists (array (
				'string'	=> $GLOBALS['fakebase'].'/'.$group_array['account_name'],
				'relatives'	=> array (RELATIVE_NONE)
			))
		)
		{
			$GLOBALS['phpgw']->vfs->override_acl = 1;
			$GLOBALS['phpgw']->vfs->mkdir (array (
					'string'	=> $GLOBALS['fakebase'].'/'.$group_array['account_name'],
					'relatives'	=> array (RELATIVE_NONE)
				)
			);
			$GLOBALS['phpgw']->vfs->override_acl = 0;

			$GLOBALS['phpgw']->vfs->set_attributes (array (
					'string'	=> $GLOBALS['fakebase'].'/'.$group_array['account_name'],
					'relatives'	=> array (RELATIVE_NONE),
					'attributes'	=> array (
								'owner_id' => $group_array['account_id'],
								'createdby_id' => $group_array['account_id']
							)
				)
			);
		}

		$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
				'string'	=> $GLOBALS['fakebase'].'/'.$group_array['account_name'],
				'relatives'	=> array (RELATIVE_NONE),
				'checksubdirs'	=> False,
				'nofiles'	=> True
			)
		);

		$files_array[] = $ls_array[0];

		$numoffiles++;
	}
}
else
{
	$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
			'string'	=> $path,
			'relatives'	=> array (RELATIVE_NONE),
			'checksubdirs'	=> False,
			'nofiles'	=> False,
			'orderby'	=> $sortby
		)
	);

	if ($phpwh_debug)
	{
		echo '# of files found in "'.$path.'" : '.count($ls_array).'<br>'."\n";
	}

	while (list ($num, $file_array) = each ($ls_array))
	{
		$numoffiles++;
		$files_array[] = $file_array;
		if ($phpwh_debug)
		{
			echo 'Filename: '.$file_array['name'].'<br>'."\n";
		}
	}
}

if (!is_array ($files_array))
{
	$files_array = array ();
}

if ($download)
{
	for ($i = 0; $i != $numoffiles; $i++)
	{
		if (!$fileman[$i])
		{
			continue;
		}

		$download_browser = CreateObject ('phpgwapi.browser');
		$download_browser->content_header ($fileman[$i]);
		echo $GLOBALS['phpgw']->vfs->read (array ('string' => $fileman[$i]));
		$GLOBALS['phpgw']->common->phpgw_exit ();
	}
}

if ($op == 'view' && $file)
{
	$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
			'string'	=> $path.'/'.$file,
			'relatives'	=> array (RELATIVE_ALL),
			'checksubdirs'	=> False,
			'nofiles'	=> True
		)
	);

	if ($ls_array[0]['mime_type'])
	{
		$mime_type = $ls_array[0]['mime_type'];
	}
	elseif ($GLOBALS['settings']['viewtextplain'])
	{
		$mime_type = 'text/plain';
	}

	header('Content-type: ' . $mime_type);
	echo $GLOBALS['phpgw']->vfs->read (array (
			'string'	=> $path.'/'.$file,
			'relatives'	=> array (RELATIVE_NONE)
		)
	);
	$GLOBALS['phpgw']->common->phpgw_exit ();
}

if ($op == 'history' && $file)
{
	$journal_array = $GLOBALS['phpgw']->vfs->get_journal (array (
			'string'	=> $file,
			'relatives'	=> array (RELATIVE_ALL)
		)
	);

	if (is_array ($journal_array))
	{
		html_table_begin ();
		html_table_row_begin ();
		html_table_col_begin ();
		html_text_bold (lang('Date'));
		html_table_col_end ();
		html_table_col_begin ();
		html_text_bold (lang('Version'));
		html_table_col_end ();
		html_table_col_begin ();
		html_text_bold (lang('Who'));
		html_table_col_end ();
		html_table_col_begin ();
		html_text_bold (lang('Operation'));
		html_table_col_end ();
		html_table_row_end ();

		while (list ($num, $journal_entry) = each ($journal_array))
		{
			html_table_row_begin ();
			html_table_col_begin ();
			html_text ($journal_entry['created'] . html_nbsp (3, 1));
			html_table_col_end ();
			html_table_col_begin ();
			html_text ($journal_entry['version'] . html_nbsp (3, 1));
			html_table_col_end ();
			html_table_col_begin ();
			html_text ($GLOBALS['phpgw']->accounts->id2name ($journal_entry['owner_id']) . html_nbsp (3, 1));
			html_table_col_end ();
			html_table_col_begin ();
			html_text ($journal_entry['comment']);
			html_table_col_end ();
		}

		html_table_end ();
		html_page_close ();
	}
	else
	{
		html_text_bold (lang('No version history for this file/directory'));
	}

}

if ($newfile && $createfile)
{
	if ($badchar = bad_chars ($createfile, True, True))
	{
		echo $GLOBALS['phpgw']->common->error_list (array (html_encode (lang('File names cannot contain "%1"',$badchar), 1)));
		html_break (2);
		html_link_back ();
		html_page_close ();
	}

	if ($GLOBALS['phpgw']->vfs->file_exists (array (
			'string'	=> $createfile,
			'relatives'	=> array (RELATIVE_ALL)
		))
	)
	{
		echo $GLOBALS['phpgw']->common->error_list (array (lang('File %1 already exists. Please edit it or delete it first.', $createfile)));
		html_break (2);
		html_link_back ();
		html_page_close ();
	}

	if ($GLOBALS['phpgw']->vfs->touch (array (
			'string'	=> $createfile,
			'relatives'	=> array (RELATIVE_ALL)
		))
	)
	{
		$fileman = array ();
		$fileman[0] = $createfile;
		$edit = 1;
		$numoffiles++;
	}
	else
	{
		echo $GLOBALS['phpgw']->common->error_list (array (lang('File %1 could not be created.', $createfile)));
	}
}

if ($op == 'help' && $help_name)
{
	while (list ($num, $help_array) = each ($help_info))
	{
		if ($help_array[0] != $help_name)
			continue;

		$help_array[1] = preg_replace ("/\[(.*)\|(.*)\]/Ue", "html_help_link ('\\1', '\\2', False, True)", $help_array[1]);
		$help_array[1] = preg_replace ("/\[(.*)\]/Ue", "html_help_link ('\\1', '\\1', False, True)", $help_array[1]);

		html_font_set ('4');
		$title = ereg_replace ('_', ' ', $help_array[0]);
		$title = ucwords ($title);
		html_text ($title);
		html_font_end ();

		html_break (2);

		html_font_set ('2');
		html_text ($help_array[1]);
		html_font_end ();
	}

	$GLOBALS['phpgw']->common->phpgw_exit ();
}

###
# Start Main Page
###

html_page_begin (lang('Users').' :: '.$GLOBALS['userinfo']['username']);
html_page_body_begin (HTML_PAGE_BODY_COLOR);

if ($messages)
{
	html_text ($messages);
}

if (!count ($GLOBALS['settings']))
{
	$pref = CreateObject ('phpgwapi.preferences', $GLOBALS['userinfo']['username']);
	$pref->read_repository (); 
	$GLOBALS['phpgw']->hooks->single ('add_def_pref', $GLOBALS['appname']);
	$pref->save_repository (True);
	$pref_array = $pref->read_repository ();
	$GLOBALS['settings'] = $pref_array[$GLOBALS['appname']];
}

###
# Start Main Table 
###

if (!$op && !$delete && !$createdir && !$renamefiles && !$move && !$copy && !$edit && !$comment_files)
{
	html_table_begin ('100%');
	html_table_row_begin ();
	html_table_col_begin ('center', NULL, 'top');
	html_align ('center');
	html_form_begin ($GLOBALS['appname'].'/index.php?path='.$path);
	if ($numoffiles || $cwd)
	{
		while (list ($num, $name) = each ($GLOBALS['settings']))
		{
			if ($name)
			{
				$columns++;
			}
		}
		$columns++;
		html_table_begin ();
		html_table_row_begin (NULL, NULL, NULL, HTML_TABLE_FILES_HEADER_BG_COLOR);
		html_table_col_begin ('center', NULL, NULL, NULL, $columns);
		html_table_begin ('100%');
		html_table_row_begin ();
		html_table_col_begin ('left');
		
		if ($path != '/')
		{
			html_link ($GLOBALS['appname'].'/index.php?path='.$lesspath, html_image ('images/folder-up.png', lang('Up'), 'left', 0, NULL, 1));
			html_help_link ('up');
		}
		
		html_table_col_end ();
		html_table_col_begin ('center');
		
		if ($cwd)
		{
			if ($path == $GLOBALS['homedir'])
			{
				html_image ('images/folder-home.png', lang('Folder'), 'center');
			}
			else
			{
				html_image ('images/folder.png', lang('Folder'), 'center');
			}
		}
		else
		{
			html_image ('images/folder-home.png', lang('Home'));
		}
		
		html_font_set (4, HTML_TABLE_FILES_HEADER_TEXT_COLOR);
		html_text_bold ($disppath);
		html_font_end ();
		html_help_link ('directory_name');
		html_table_col_end ();
		html_table_col_begin ('right');
		
		if ($path != $GLOBALS['homedir'])
		{
			html_link ($GLOBALS['appname'].'/index.php?path='.$GLOBALS['homedir'], html_image ('images/folder-home.png', lang('Home'), 'right', 0, NULL, 1));
			html_help_link ('home');
		}

		html_table_col_end ();
		html_table_row_end ();
		html_table_end ();
		html_table_col_end ();
		html_table_row_end ();
		html_table_row_begin (NULL, NULL, NULL, HTML_TABLE_FILES_COLUMN_HEADER_BG_COLOR);
		
		###
		# Start File Table Column Headers
		# Reads values from $file_attributes array and preferences
		###

		html_table_col_begin ();
		html_text (lang('Sort by:') . html_nbsp (1, 1), NULL, NULL, 0);
		html_help_link ('sort_by');
		html_table_col_end ();

		reset ($file_attributes);
		while (list ($internal, $displayed) = each ($file_attributes))
		{
			if ($GLOBALS['settings'][$internal])
			{
				html_table_col_begin ();
				html_link ($GLOBALS['appname'].'/index.php?path='.$path.'&sortby='.$internal, html_text_bold ($displayed, 1, 0));
				html_help_link (strtolower (ereg_replace (' ', '_', $displayed)));
				html_table_col_end ();
			}
		}

		html_table_col_begin ();
		html_table_col_end ();
		html_table_row_end ();

		if ($GLOBALS['settings']['dotdot'] && $GLOBALS['settings']['name'] && $path != '/')
		{
			html_table_row_begin ();
			html_table_col_begin ();
			html_table_col_end ();

			/* We can assume the next column is the name */
			html_table_col_begin ();
			html_image ('images/folder.png', lang('Folder'));
			html_link ($GLOBALS['appname'].'/index.php?path='.$lesspath, '..');
			html_table_col_end ();

			if ($GLOBALS['settings']['mime_type'])
			{
				html_table_col_begin ();
				html_text (lang('Directory'));
				html_table_col_end ();
			}

			html_table_row_end ();
		}

		###
		# List all of the files, with their attributes
		###

		reset ($files_array);
		for ($i = 0; $i != $numoffiles; $i++)
		{
			$files = $files_array[$i];

			if ($rename || $edit_comments)
			{
				unset ($this_selected);
				unset ($renamethis);
				unset ($edit_this_comment);

				for ($j = 0; $j != $numoffiles; $j++)
				{
					if ($fileman[$j] == $files['name'])
					{
						$this_selected = 1;
						break;
					}
				}

				if ($rename && $this_selected)
				{
					$renamethis = 1;
				}
				elseif ($edit_comments && $this_selected)
				{
					$edit_this_comment = 1;
				}
			}

			if (!$GLOBALS['settings']['dotfiles'] && ereg ("^\.", $files['name']))
			{
				continue;
			}

			html_table_row_begin (NULL, NULL, NULL, HTML_TABLE_FILES_BG_COLOR);

			###
			# Checkboxes
			###

			html_table_col_begin ('right');

			if (!$rename && !$edit_comments && $path != $GLOBALS['fakebase'] && $path != '/')
			{
				html_form_input ('checkbox', 'fileman['.$i.']', base64_encode ($files['name']));
			}
			elseif ($renamethis)
			{
				html_form_input ('hidden', 'fileman[' . base64_encode ($files['name']) . ']', $files['name'], NULL, NULL, 'checked');
			}
			else
			{
				html_nbsp();
			}

			html_table_col_end ();

			###
			# File name and icon
			###

			if ($GLOBALS['settings']['name'])
			{
				if ($phpwh_debug)
				{
					echo 'Setting file name: '.$files['name'].'<br>'."\n";
				}

				html_table_col_begin ();

				if ($renamethis)
				{
					if ($files['mime_type'] == 'Directory')
					{
						html_image ('images/folder.png', lang('Folder'));
					}
					html_form_input ('text', 'renamefiles[' . base64_encode ($files['name']) . ']', $files['name'], 255);
				}
				else
				{
					if ($files['mime_type'] == 'Directory')
					{
						html_image ('images/folder.png', lang('Folder'));		
						html_link ($GLOBALS['appname'].'/index.php?path='.$path.$dispsep.$files['name'], $files['name']);
					}
					else
					{
						if ($GLOBALS['settings']['viewonserver'] && isset ($GLOBALS['filesdir']) && !$files['link_directory'])
						{
							$clickview = $GLOBALS['filesdir'].$pwd.'/'.$files['name'];

							if ($phpwh_debug)
							{
								echo 'Setting clickview = '.$clickview.'<br>'."\n";
							}
						}
						else
						{
							$clickview = $GLOBALS['appname'].'/index.php?op=view&file='.$files['name'].'&path='.$path;
						}

						if ($GLOBALS['settings']['viewinnewwin'])
						{
							$target = '_new';
						}

						html_link ($clickview, $files['name'], 0, 1, 0, $target);
					}
				}

				html_table_col_end ();
			}

			###
			# MIME type
			###

			if ($GLOBALS['settings']['mime_type'])
			{
				html_table_col_begin ();
				html_text ($files['mime_type']);
				html_table_col_end ();
			}

			###
			# File size
			###

			if ($GLOBALS['settings']['size'])
			{
				html_table_col_begin ();

				$size = $GLOBALS['phpgw']->vfs->get_size (array (
						'string'	=> $files['directory'] . '/' . $files['name'],
						'relatives'	=> array (RELATIVE_NONE)
					)
				);

				borkb ($size);

				html_table_col_end ();
			}

			###
			# Date created
			###
			if ($GLOBALS['settings']['created'])
			{
				html_table_col_begin ();
				html_text ($files['created']);
				html_table_col_end ();
			}

			###
			# Date modified
			###

			if ($GLOBALS['settings']['modified'])
			{
				html_table_col_begin ();
				if ($files['modified'] != '0000-00-00')
				{
					html_text ($files['modified']);
				}
				html_table_col_end ();
			}

			###
			# Owner name
			###

			if ($GLOBALS['settings']['owner'])
			{
				html_table_col_begin ();
				html_text ($GLOBALS['phpgw']->accounts->id2name ($files['owner_id']));
				html_table_col_end ();
			}

			###
			# Creator name
			###

			if ($GLOBALS['settings']['createdby_id'])
			{
				html_table_col_begin ();
				if ($files['createdby_id'])
				{
					html_text ($GLOBALS['phpgw']->accounts->id2name ($files['createdby_id']));
				}
				html_table_col_end ();
			}

			###
			# Modified by name
			###

			if ($GLOBALS['settings']['modifiedby_id'])
			{
				html_table_col_begin ();
				if ($files['modifiedby_id'])
				{
					html_text ($GLOBALS['phpgw']->accounts->id2name ($files['modifiedby_id']));
				}
				html_table_col_end ();
			}

			###
			# Application
			###

			if ($GLOBALS['settings']['app'])
			{
				html_table_col_begin ();
				html_text ($files['app']);
				html_table_col_end ();
			}

			###
			# Comment
			###

			if ($GLOBALS['settings']['comment'])
			{
				html_table_col_begin ();
				if ($edit_this_comment)
				{
					html_form_input ('text', 'comment_files[' . base64_encode ($files['name']) . ']', html_encode ($files['comment'], 1), 255);
				}
				else
				{
					html_text ($files['comment']);
				}
				html_table_col_end ();
			}

			###
			# Version
			###

			if ($GLOBALS['settings']['version'])
			{
				html_table_col_begin ();
				html_link ($GLOBALS['appname'].'/index.php?op=history&file='.$files['name'].'&path='.$path, $files['version'], NULL, True, NULL, '_new');
				html_table_col_end ();
			}

			###
			# Deleteable (currently not used)
			###

			if ($GLOBALS['settings']['deleteable'])
			{
				if ($files['deleteable'] == 'N')
				{
					html_table_col_begin ();
					html_image ('images/locked.png', lang('Locked'));
					html_table_col_end ();
				}
				else
				{
					html_table_col_begin ();
					html_table_col_end ();
				}
			}

			html_table_row_end ();

			if ($files['mime_type'] == 'Directory')
			{
				$usedspace += $fileinfo[0];
			}
			else
			{
				$usedspace += $files['size'];
			}
		}

		html_table_end ();
		html_break (2);

		if ($path != '/' && $path != $GLOBALS['fakebase'])
		{
			if (!$rename && !$edit_comments)
			{
				html_form_input ('submit', 'edit', lang('Edit'));
				html_help_link ('edit');
				html_nbsp (3);
			}

			if (!$edit_comments)
			{
				html_form_input ('submit', 'rename', lang('Rename'));
				html_help_link ('rename');
				html_nbsp (3);
			}

			if (!$rename && !$edit_comments)
			{
				html_form_input ('submit', 'delete', lang('Delete'));
				html_help_link ('delete');
				html_nbsp (3);
			}

			if (!$rename)
			{
				html_form_input ('submit', 'edit_comments', lang('Edit comments'));
				html_help_link ('edit_comments');
			}
		}
	}

	###
	# Display some inputs and info, but not when renaming or editing comments
	###

	if (!$rename && !$edit_comments)
	{
		###
		# Begin Copy to/Move to selection
		###
		
		html_break (1);
		html_form_input ('submit', 'go', lang('Go to:'));
		html_help_link ('go_to');

		if ($path != '/' && $path != $GLOBALS['fakebase'])
		{
			html_form_input ('submit', 'copy', lang('Copy to:'));
			html_help_link ('copy_to');
			html_form_input ('submit', 'move', lang('Move to:'));
			html_help_link ('move_to');
		}

		html_form_select_begin ('todir');

		html_break (1);

		###
		# First we get the directories in their home directory
		###

		$dirs = array ();
		$dirs[] = array ('directory' => $GLOBALS['fakebase'], 'name' => $GLOBALS['userinfo']['account_lid']);

		$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
				'string'	=> $GLOBALS['homedir'],
				'relatives'	=> array (RELATIVE_NONE),
				'checksubdirs'	=> True,
				'mime_type'	=> 'Directory'
			)
		);

		while (list ($num, $dir) = each ($ls_array))
		{
			$dirs[] = $dir;
		}


		###
		# Then we get the directories in their readable groups' home directories
		###

		reset ($readable_groups);
		while (list ($num, $group_array) = each ($readable_groups))
		{
			###
			# Don't list directories for groups that don't have access
			###

			if (!$groups_applications[$group_array['account_name']][$GLOBALS['appname']]['enabled'])
			{
				continue;
			}

			$dirs[] = array ('directory' => $GLOBALS['fakebase'], 'name' => $group_array['account_name']);

			$ls_array = $phpgw->vfs->ls (array (
					'string'	=> $GLOBALS['fakebase'].'/'.$group_array['account_name'],
					'relatives'	=> array (RELATIVE_NONE),
					'checksubdirs'	=> True,
					'mime_type'	=> 'Directory'
				)
			);
			while (list ($num, $dir) = each ($ls_array))
			{
				$dirs[] = $dir;
			}
		}

		reset ($dirs);
		while (list ($num, $dir) = each ($dirs))
		{
			if (!$dir['directory'])
			{
				continue;
			}
			
			###
			# So we don't display //
			###

			if ($dir['directory'] != '/')
			{
				$dir['directory'] .= '/';
			}

			###
			# No point in displaying the current directory, or a directory that doesn't exist
			###
			
			if ((($dir['directory'] . $dir['name']) != $path)
				&& $GLOBALS['phpgw']->vfs->file_exists (array (
						'string'	=> $dir['directory'] . $dir['name'],
						'relatives'	=> array (RELATIVE_NONE)
				))
			)
			{
				html_form_option ($dir['directory'] . $dir['name'], $dir['directory'] . $dir['name']);
			}
		}

		html_form_select_end ();
		html_help_link ('directory_list');

		if ($path != '/' && $path != $GLOBALS['fakebase'])
		{
			html_break (1);

			html_form_input ('submit', 'download', lang('Download'));
			html_help_link ('download');
			html_nbsp (3);

			if ($can_add)
			{
				html_form_input ('text', 'createdir', NULL, 255, 15);
				html_form_input ('submit', 'newdir', lang('Create Folder'));
				html_help_link ('create_folder');
			}
		}

		html_break (1);
		html_form_input ('submit', 'update', lang('Update'));
		html_help_link ('update');

		if ($path != '/' && $path != $GLOBALS['fakebase'] && $can_add)
		{
			html_nbsp (3);
			html_form_input ('text', 'createfile', NULL, 255, 15);
			html_form_input ('submit', 'newfile', lang('Create File'));
			html_help_link ('create_file');
		}

		if ($GLOBALS['settings']['show_command_line'])
		{
			html_break (2);
			html_form_input ('text', 'command_line', NULL, NULL, 50);
			html_help_link ('command_line');

			html_break (1);
			html_form_input ('submit', 'execute', lang('Execute'));
			html_help_link ('execute');
		}

		html_form_end ();

		html_help_link ('file_stats');
		html_break (1);
		html_text_bold (lang('Files').': ');
		html_text ($numoffiles);
		html_nbsp (3);

		html_text_bold (lang('Used space').': ');
		html_text (borkb ($usedspace, NULL, 1));
		html_nbsp (3);
		
		if ($path == $GLOBALS['homedir'] || $path == $GLOBALS['fakebase'])
		{
			html_text_bold (lang('Unused space').': ');
			html_text (borkb ($GLOBALS['userinfo']['hdspace'] - $usedspace, NULL, 1));

			$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
					'string'	=> $path,
					'relatives'	=> array (RELATIVE_NONE)
				)
			);

			$i = count ($ls_array);

			html_break (2);
			html_text_bold (lang('Total Files').': ');
			html_text ($i);
		}
		
		###
		# Show file upload boxes. Note the last argument to html ().  Repeats $show_upload_boxes times
		###

		if ($path != '/' && $path != $GLOBALS['fakebase'] && $can_add)
		{
			html_break (2);
			html_form_begin ($GLOBALS['appname'].'/index.php?op=upload&path='.$path, 'post', 'multipart/form-data');
			html_table_begin ();
			html_table_row_begin ('center');
			html_table_col_begin ();
			html_text_bold (lang('File'));
			html_help_link ('upload_file');
			html_table_col_end ();
			html_table_col_begin ();
			html_text_bold (lang('Comment'));
			html_help_link ('upload_comment');
			html_table_col_end ();
			html_table_row_end ();

			html_table_row_begin ();
			html_table_col_begin ();
			html_form_input ('hidden', 'show_upload_boxes', base64_encode ($show_upload_boxes));
			html (html_form_input ('file', 'upload_file[]', NULL, 255, NULL, NULL, NULL, 1) . html_break (1, NULL, 1), $show_upload_boxes);
			html_table_col_end ();
			html_table_col_begin ();
			html (html_form_input ('text', 'upload_comment[]', NULL, NULL, NULL, NULL, NULL, 1) . html_break (1, NULL, 1), $show_upload_boxes);
			html_table_col_end ();
			html_table_row_end ();
			html_table_end ();
			html_form_input ('submit', 'upload_files', lang('Upload files'));
			html_help_link ('upload_files');
			html_break (2);
			html_text (lang('Show') . html_nbsp (1, True));
			html_link ($GLOBALS['appname'].'/index.php?show_upload_boxes=5', '5');
			html_nbsp ();
			html_link ($GLOBALS['appname'].'/index.php?show_upload_boxes=10', '10');
			html_nbsp ();
			html_link ($GLOBALS['appname'].'/index.php?show_upload_boxes=20', '20');
			html_nbsp ();
			html_link ($GLOBALS['appname'].'/index.php?show_upload_boxes=50', '50');
			html_nbsp ();
			html_text (lang('upload fields'));
			html_nbsp ();
			html_help_link ('show_upload_fields');
			html_form_end ();
		}
	}

	html_table_col_end ();
	html_table_row_end ();
	html_table_end ();
	html_page_close ();
}

###
# Handle Editing files
###

if ($edit)
{
	###
	# If $edit is "Edit", we do nothing, and let the for loop take over
	###

	if ($edit_file)
	{
		$edit_file_content = stripslashes ($edit_file_content);
	}

	if ($edit_preview)
	{
		$content = $edit_file_content;

		html_break (1);
		html_text_bold (lang('Preview of %1', $path.'/'.$edit_file));
		html_break (2);

		html_table_begin ('90%');
		html_table_row_begin ();
		html_table_col_begin ();
		html_text (nl2br ($content));
		html_table_col_end ();
		html_table_row_end ();
		html_table_end ();
	}
	elseif ($edit_save)
	{
		$content = $edit_file_content;

		if ($GLOBALS['phpgw']->vfs->write (array (
				'string'	=> $edit_file,
				'relatives'	=> array (RELATIVE_ALL),
				'content'	=> $content
			))
		)
		{
			html_text_bold (lang('Saved %1', $path.'/'.$edit_file));
			html_break (2);
			html_link_back ();
		}
		else
		{
			html_text_error (lang('Could not save %1', $path.'/'.$edit_file));
			html_break (2);
			html_link_back ();
		}
	}

/* This doesn't work just yet
	elseif ($edit_save_all)
	{
		for ($j = 0; $j != $numoffiles; $j++)
		{
			$fileman[$j];

			$content = $fileman[$j];
			echo 'fileman['.$j.']: '.$fileman[$j].'<br><b>'.$content.'</b><br>';
			continue;

			if ($GLOBALS['phpgw']->vfs->write (array (
					'string'	=> $fileman[$j],
					'relatives'	=> array (RELATIVE_ALL),
					'content'	=> $content
				))
			)
			{
				html_text_bold (lang('Saved %1', $path.'/'.$fileman[$j]));
				html_break (1);
			}
			else
			{
				html_text_error (lang('Could not save %1', $path.'/'.$fileman[$j]));
				html_break (1);
			}
		}

		html_break (1);
	}
*/

	###
	# Now we display the edit boxes and forms
	###

	for ($j = 0; $j != $numoffiles; $j++)
	{
		###
		# If we're in preview or save mode, we only show the file
		# being previewed or saved
		###

		if ($edit_file && ($fileman[$j] != $edit_file))
		{
			continue;
		}

		if ($fileman[$j] && $GLOBALS['phpgw']->vfs->file_exists (array (
						'string'	=> $fileman[$j],
						'relatives'	=> array (RELATIVE_ALL)
			))
		)
		{
			if ($edit_file)
			{
				$content = stripslashes ($edit_file_content);
			}
			else
			{
				$content = $GLOBALS['phpgw']->vfs->read (array ('string' => $fileman[$j]));
			}

			html_table_begin ('100%');
			html_form_begin ($GLOBALS['appname'].'/index.php?path='.$path);
			html_form_input ('hidden', 'edit', True);
			html_form_input ('hidden', 'edit_file', $fileman[$j]);

			###
			# We need to include all of the fileman entries for each file's form,
			# so we loop through again
			###

			for ($i = 0; $i != $numoffiles; $i++)
			{
				html_form_input ('hidden', 'fileman['.$i.']', base64_encode ($fileman[$i]));
			}

			html_table_row_begin ();
			html_table_col_begin ();
			html_form_textarea ('edit_file_content', 35, 75, $content);
			html_table_col_end ();
			html_table_col_begin ('center');
			html_form_input ('submit', 'edit_preview', lang('Preview %1', html_encode ($fileman[$j], 1)));
			html_break (1);
			html_form_input ('submit', 'edit_save', lang('Save %1', html_encode ($fileman[$j], 1)));
//			html_break (1);
//			html_form_input ('submit', 'edit_save_all', lang('Save all'));
			html_table_col_end ();
			html_table_row_end ();
			html_break (2);
			html_form_end ();
			html_table_end ();
		}
	}
}

###
# Handle File Uploads
###

elseif ($op == 'upload' && $path != '/' && $path != $GLOBALS['fakebase'])
{
	for ($i = 0; $i != $show_upload_boxes; $i++)
	{
		if ($badchar = bad_chars ($_FILES['upload_file']['name'][$i], True, True))
		{
			echo $GLOBALS['phpgw']->common->error_list (array (html_encode (lang('File names cannot contain "%1"', $badchar), 1)));

			continue;
		}

		###
		# Check to see if the file exists in the database, and get its info at the same time
		###

		$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
				'string'	=> $path . '/' . $_FILES['upload_file']['name'][$i],
				'relatives'	=> array (RELATIVE_NONE),
				'checksubdirs'	=> False,
				'nofiles'	=> True
			)
		);

		$fileinfo = $ls_array[0];

		if ($fileinfo['name'])
		{
			if ($fileinfo['mime_type'] == 'Directory')
			{
				echo $GLOBALS['phpgw']->common->error_list (array (lang('Cannot replace %1 because it is a directory', $fileinfo['name'])));
				continue;
			}
		}

		if ($_FILES['upload_file']['size'][$i] > 0)
		{
			if ($fileinfo['name'] && $fileinfo['deleteable'] != 'N')
			{
				$GLOBALS['phpgw']->vfs->set_attributes (array (
						'string'	=> $_FILES['upload_file']['name'][$i],
						'relatives'	=> array (RELATIVE_ALL),
						'attributes'	=> array (
									'owner_id' => $GLOBALS['userinfo']['username'],
									'modifiedby_id' => $GLOBALS['userinfo']['username'],
									'modified' => $now,
									'size' => $_FILES['upload_file']['size'][$i],
									'mime_type' => $_FILES['upload_file']['type'][$i],
									'deleteable' => 'Y',
									'comment' => stripslashes ($upload_comment[$i])
								)
					)
				);

				$GLOBALS['phpgw']->vfs->cp(array (
						'from'	=> $_FILES['upload_file']['tmp_name'][$i],
						'to'	=> $_FILES['upload_file']['name'][$i],
						'relatives'	=> array (RELATIVE_NONE|VFS_REAL, RELATIVE_ALL)
					)
				);

				html_text_summary(lang('Replaced %1', $disppath.'/'.$_FILES['upload_file']['name'][$i]), $_FILES['upload_file']['size'][$i]);
			}
			else
			{
				$GLOBALS['phpgw']->vfs->cp (array (
						'from'		=> $_FILES['upload_file']['tmp_name'][$i],
						'to'			=> $_FILES['upload_file']['name'][$i],
						'relatives'	=> array (RELATIVE_NONE|VFS_REAL, RELATIVE_ALL)
					)
				);

				$GLOBALS['phpgw']->vfs->set_attributes (array (
						'string'	=> $_FILES['upload_file']['name'][$i],
						'relatives'	=> array (RELATIVE_ALL),
						'attributes'	=> array (
						'mime_type' => $_FILES['upload_file']['type'][$i],
						'comment' => stripslashes ($upload_comment[$i])
								)
					)
				);

				html_text_summary(lang('Created %1', $disppath.'/'.$_FILES['upload_file']['name'][$i]), $_FILES['upload_file']['size'][$i]);
			}
		}
		elseif ($_FILES['upload_file']['name'][$i])
		{
			$GLOBALS['phpgw']->vfs->touch (array (
					'string'	=> $_FILES['upload_file']['name'][$i],
					'relatives'	=> array (RELATIVE_ALL)
				)
			);

			$GLOBALS['phpgw']->vfs->set_attributes (array (
					'string'	=> $_FILES['upload_file']['name'][$i],
					'relatives'	=> array (RELATIVE_ALL),
					'attributes'	=> array (
								'mime_type' => $_FILES['upload_file']['type'][$i],
								'comment' => $upload_comment[$i]
							)
				)
			);

			html_text_summary(lang('Created %1', $disppath.'/'.$_FILES['upload_file']['name'][$i]), $file_size[$i]);
		}
	}

	html_break (2);
	html_link_back ();
}

###
# Handle Editing comments
###

elseif ($comment_files)
{
	while (list ($file) = each ($comment_files))
	{
		if ($badchar = bad_chars ($comment_files[$file], False, True))
		{
			echo $GLOBALS['phpgw']->common->error_list (array (html_text_italic ($file, 1) . html_encode (': ' . lang('Comments cannot contain "%1"', $badchar), 1)));
			continue;
		}

		$GLOBALS['phpgw']->vfs->set_attributes (array (
				'string'	=> $file,
				'relatives'	=> array (RELATIVE_ALL),
				'attributes'	=> array (
							'comment' => stripslashes ($comment_files[$file])
						)
			)
		);

		html_text_summary (lang('Updated comment for %1', $path.'/'.$file));
	}

	html_break (2);
	html_link_back ();
}

###
# Handle Renaming Files and Directories
###

elseif ($renamefiles)
{
	while (list ($from, $to) = each ($renamefiles))
	{
		if ($badchar = bad_chars ($to, True, True))
		{
			echo $GLOBALS['phpgw']->common->error_list (array (html_encode (lang('File names cannot contain "%1"', $badchar), 1)));
			continue;
		}

		if (ereg ("/", $to) || ereg ("\\\\", $to))
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang("File names cannot contain \\ or /")));
		}
		elseif (!$GLOBALS['phpgw']->vfs->mv (array (
					'from'	=> $from,
					'to'	=> $to
			))
		)
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('Could not rename %1 to %2', $disppath.'/'.$from, $disppath.'/'.$to)));
		}
		else 
		{
			html_text_summary (lang('Renamed %1 to %2', $disppath.'/'.$from, $disppath.'/'.$to));
		}
	}

        html_break (2);
        html_link_back ();
}

###
# Handle Moving Files and Directories
###

elseif ($move)
{
	while (list ($num, $file) = each ($fileman))
	{
		if ($GLOBALS['phpgw']->vfs->mv (array (
				'from'	=> $file,
				'to'	=> $todir . '/' . $file,
				'relatives'	=> array (RELATIVE_ALL, RELATIVE_NONE)
			))
		)
		{
			$moved++;
			html_text_summary (lang('Moved %1 to %2', $disppath.'/'.$file, $todir.'/'.$file));
		}
		else
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('Could not move %1 to %2', $disppath.'/'.$file, $todir.'/'.$file)));
		}
	}

	if ($moved)
	{
		html_break (2);
		html_link ($GLOBALS['appname'].'/index.php?path='.$todir, lang('Go to %1', $todir));
	}

	html_break (2);
	html_link_back ();
}

###
# Handle Copying of Files and Directories
###

elseif ($copy)
{
	while (list ($num, $file) = each ($fileman))
	{
		if ($GLOBALS['phpgw']->vfs->cp (array (
				'from'	=> $file,
				'to'	=> $todir . '/' . $file,
				'relatives'	=> array (RELATIVE_ALL, RELATIVE_NONE)
			))
		)
		{
			$copied++;
			html_text_summary (lang('Copied %1 to %2', $disppath.'/'.$file, $todir.'/'.$file));
		}
		else
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('Could not copy %1 to %2', $disppath.'/'.$file, $todir.'/'.$file)));
		}
	}

	if ($copied)
	{
		html_break (2);
		html_link ($GLOBALS['appname'].'/index.php?path='.$todir, lang('Go to %1', $todir));
	}

	html_break (2);
	html_link_back ();
}

###
# Handle Deleting Files and Directories
###

elseif ($delete)
{
	for ($i = 0; $i != $numoffiles; $i++)
	{
		if ($fileman[$i])
		{
			if ($GLOBALS['phpgw']->vfs->delete (array ('string' => $fileman[$i])))
			{
				html_text_summary (lang('Deleted %1', $disppath.'/'.$fileman[$i]), $fileinfo['size']);
			}
			else
			{
				$GLOBALS['phpgw']->common->error_list (array (lang('Could not delete %1', $disppath.'/'.$fileman[$i])));
			}
		}
	}

	html_break (2);
	html_link_back ();
}

elseif ($newdir && $createdir)
{
	if ($badchar = bad_chars ($createdir, True, True))
	{
		echo $GLOBALS['phpgw']->common->error_list (array (html_encode (lang('Directory names cannot contain "%1"', $badchar), 1)));
		html_break (2);
		html_link_back ();
		html_page_close ();
	}
	
	if ($createdir[strlen($createdir)-1] == ' ' || $createdir[0] == ' ')
	{
		echo $GLOBALS['phpgw']->common->error_list (array (lang('Cannot create directory because it begins or ends in a space')));
		html_break (2);
		html_link_back ();
		html_page_close ();
	}

	$ls_array = $GLOBALS['phpgw']->vfs->ls (array (
				'string'	=> $path . '/' . $createdir,
				'relatives'	=> array (RELATIVE_NONE),
				'checksubdirs'	=> False,
				'nofiles'	=> True
		)
	);

	$fileinfo = $ls_array[0];

	if ($fileinfo['name'])
	{
		if ($fileinfo['mime_type'] != 'Directory')
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('%1 already exists as a file', $fileinfo['name'])));
			html_break (2);
			html_link_back ();
			html_page_close ();
		}
		else
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('Directory %1 already exists', $fileinfo['name'])));
			html_break (2);
			html_link_back ();
			html_page_close ();
		}
	}
	else
	{
		if ($GLOBALS['phpgw']->vfs->mkdir (array ('string' => $createdir)))
		{
			html_text_summary (lang('Created directory %1', $disppath.'/'.$createdir));
			html_break (2);
			html_link ($GLOBALS['appname'].'/index.php?path='.$disppath.'/'.$createdir, lang('Go to %1', $disppath.'/'.$createdir));
		}
		else
		{
			echo $GLOBALS['phpgw']->common->error_list (array (lang('Could not create %1', $disppath.'/'.$createdir)));
		}
	}

	html_break (2);
	html_link_back ();
}

html_page_close ();

?>