#============================================================
# BrowseFilesObject
#============================================================
package BrowseFilesObject;
use Common;
@ISA = qw(Common);

#公開したいサブルーチン
#@EXPORT   = qw(erfc tan);
@EXPORT_OK = qw();

use strict;
use MyArchive;
use CGI::ViewFileInformation;
use CGI::TkWiki;
use Mail::ALMail32;

#==========================================
# 大域変数
#==========================================
my $ModuleName        = "BrowseFilesObject";
my $ModuleExplanation = "Browse Files Object";

my $Privilege         = 'BrowseFilesObject';

sub Name        { return $ModuleName; }
sub Explanation { return $ModuleExplanation; }
sub Privilege   { return $Privilege; }

my $ChangePasswordPrivilege  = 'ChangeDownloadAccountPassword';
my $CreateHTAccessPrivilege  = 'CreateHTAccess';
my $ModifyFilePrivilege      = 'ModifyFile';
my $EditTemplatePrivilege    = 'EditTemplate';
my $UploadFilePrivilege      = 'UploadFile';
my $ShowDirTreeLinkPrivilege = 'ShowDirTreeLink';

my $InformedFileRegExp       = "\.(mp3|wma|wmv|ra|ram|html?|mht|xml|css|alm|adr|txt|lst|out|csv|js|php|c|cpp|pm|pl|php|py|rb|bat|inf)\$";

#ZIPファイル内のファイル名文字コード
my $ZIPFileCharCode      = 'sjis';
#ダウンロードする際のファイル名文字コード
my $DownloadFileCharCode = 'sjis';

#Upload可能なファイルの指定
my $UploadFileMaxSize = 200 * 1024 * 1024;
#編集可能なファイル名
my @EdittableFileRegExp = ("\\.(html?|mht|alm|adr|css|txt|csv|ini|lst|out|mysql|pm|pl|bat|inf)\$");
#受付可能なMIME型と拡張子（正規表現）
#my @TypeOkList = qw(text\/[\w]+ application\/vnd.ms-excel  application\/vnd.ms-word message\/rfc822);
my @TypeOkList = ();
#my @TypeOkList = qw (text\/[\w]+ application\/octet-streatm application\/pdf 
#		   application\/msword application\/vnd.ms-powerpoint message\/rfc822);
#my @ExtOkList  = qw(csv);
my @ExtOkList  = qw ();
#my @ExtOkList  = qw (txt html htm csv xls xlsx pdf doc docx ppt pptx zip gz lha ini);

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
sub new
{
	my ($module) = @_;
	my $this = {};
	bless $this,$module;
#	$this->SUPER::new(@_);

	$this->{pALMail} = new ALMail32;

	return $this;
}

sub DESTROY
{
	my $this = shift;
	$this->SUPER::DESTROY(@_);
}

sub FindRootPath
{
	my ($this, $App, $pParams, $p) = @_;

	my @paths = ($p->{pRootPaths})? @{$p->{pRootPaths}} : ($p->{RootPath});
my $code = Jcode::getcode(join(',', @paths));
	for(my $i = 0 ; $i < @paths ; $i++) {
		my $path = Template->new()->ReplaceByHash($paths[$i], $pParams, '{', '}', 0, $pParams->{WebCharSet}, 0, 1, 0);
Jcode::convert(\$path, $pParams->{FileSystemCharCode}, $code);
#$App->print("p[$path]\n");
		return $path if(-d $path);
#$App->print(" no dir\n");
	}
	return undef;
}

sub GetPath
{
	my ($this, $App, $pParams, $Path) = @_;
	return $Path if($Path ne '');

	if($pParams->{Path}) {
		$Path = Utils::DelQuote(Utils::URLDecode($pParams->{Path}));
	}
	else {
		$Path = $this->{RootPath};
	}
	$Path =~ s/\\/\//g;
	return $Path;
}

sub GetRootPath
{
	my ($this, $App, $pParams, $RootPath) = @_;
	return $RootPath if($RootPath ne '');

#$RootDir = $this->{RootPath};
#$App->print("RootPath[$this->{RootPath}][$pParams->{RootPath}][$pParams->{OnlyLoadModules}]\n");
	if($this->{RootPath}) {
		$RootPath = Utils::DelQuote(Utils::URLDecode($this->{RootPath}));
	}
	elsif($pParams->{RootPath}) {
		$RootPath = Utils::DelQuote(Utils::URLDecode($pParams->{RootPath}));
	}
	$RootPath =~ s/\\/\//g;
	$RootPath = Utils::ReduceDirectory($RootPath);
#$App->print("R[$RootPath]\n");
	return $RootPath;
}

sub Configure
{
	my ($this, $modulename, $privilege, $rootpath, $keyword,
		$pPermittedDirs, $pBrowseFiles, $pDenyFiles, 
		$pSubstitutionSource, $pSubstitutionTarget, 
		$pURLSubstitutionList, $pURLReverseSubstitutionList,
		$showdate, $showdirectory, $showparentdirectory, $showfilesize, $targetpage, %args) = @_;
#print("BroseFilesObject::Configure<br>\n");

	$this->{ModuleName}  = $modulename  if(defined $modulename);
	$this->{Privilege}   = $privilege  if(defined $privilege);

#Utils::InitHTML();
#print("r[$this->{RootPath}][$rootpath]<br>\n");
	$this->{RootPath} = $rootpath  if(defined $rootpath);
	$this->{Keyword}  = $keyword   if(defined $keyword);
#print("r[$this->{RootPath}][$rootpath]<br>\n");

#	$UploadFileMaxSize   = $args{UploadFileMaxSize}       if(defined $args{UploadFileMaxSize});
	@EdittableFileRegExp = @{$args{pEdittableFileRegExp}} if(defined $args{pEdittableFileRegExp});
	@TypeOkList          = @{$args{pTypeOkList}}          if(defined $args{pTypeOkList});
	@ExtOkList           = @{$args{pExtOkList}}           if(defined $args{pExtOkList});

	$Privilege                = $this->{Privilege}                = $args{Privilege}                if($args{Privilege} ne '');
	$ChangePasswordPrivilege  = $this->{ChangePasswordPrivilege}  = $args{ChangePasswordPrivilege}  if($args{ChangePasswordPrivilege} ne '');
	$CreateHTAccessPrivilege  = $this->{CreateHTAccessPrivilege}  = $args{CreateHTAccessPrivilege}  if($args{CreateHTAccessPrivilege} ne '');
	$ModifyFilePrivilege      = $this->{ModifyFilePrivilege}      = $args{ModifyFilePrivilege}      if($args{ModifyFilePrivilege} ne '');
	$EditTemplatePrivilege    = $this->{EditTemplatePrivilege}    = $args{EditTemplatePrivilege}    if($args{EditTemplatePrivilege} ne '');
	$UploadFilePrivilege      = $this->{UploadFilePrivilege}      = $args{UploadFilePrivilege}      if($args{UploadFilePrivilege} ne '');
	$ShowDirTreeLinkPrivilege = $this->{ShowDirTreeLinkPrivilege} = $args{ShowDirTreeLinkPrivilege} if($args{ShowDirTreeLinkPrivilege} ne '');

	$this->{pPermittedDirs}              = $pPermittedDirs              if(defined $pPermittedDirs);
	$this->{pBrowseFiles}                = $pBrowseFiles                if(defined $pBrowseFiles);
	$this->{pDenyFiles}                  = $pDenyFiles                  if(defined $pDenyFiles);
	$this->{pSubstitutionSource}         = $pSubstitutionSource         if(defined $pSubstitutionSource);
	$this->{pSubstitutionTarget}         = $pSubstitutionTarget         if(defined $pSubstitutionTarget);
	$this->{pURLSubstitutionList}        = $pURLSubstitutionList        if(defined $pURLSubstitutionList);
	$this->{pURLReverseSubstitutionList} = $pURLReverseSubstitutionList if(defined $pURLReverseSubstitutionList);

	if($args{App}) {
		my $App = $args{App};
		my $pParams = $App->pParams();
		my @DownloadDirs = Utils::MergeList(@{$this->{pPermittedDirs}}, @{$pParams->{pDownloadDirs}});
#$App->print("dirs [", join(',', @DownloadDirs), "]\n");
		$pParams->{pDownloadDirs} = \@DownloadDirs;
		my @DownloadDirsRegExp = $App->ConvertAllowedDirArrayToRegExp(\@DownloadDirs);
		$pParams->{pDownloadDirsRegExp} = \@DownloadDirsRegExp;
	}

	$this->{ShowDate}            = $showdate            if(defined $showdate);
	$this->{ShowDirectory}       = $showdirectory       if(defined $showdirectory);
	$this->{ShowParentDirectory} = $showparentdirectory if(defined $showparentdirectory);
	$this->{ShowFileSize}        = $showfilesize        if(defined $showfilesize);
	$this->{TargetPage}          = $targetpage          if(defined $targetpage);
}

#============================================================
#　メンバー関数
#============================================================
sub GetParameterHash
{
	my ($this, $App, $pParams) = @_;

	return {};
}

sub IsOpen
{
	my ($this, $App, $pParams, $IsPrint) = @_;
	return 0 if($this->{RootPath} eq '');
#$App->print("p[$this->{Privilege}]\n");
	return $App->HasPrivilege($this->{Privilege}, $IsPrint);
}

sub ShowMenu
{
	my ($this, $App, $pParams, $ProgramPath, $BaseOption) = @_;
	return 0;
}

sub HasInformation
{
	my ($this, $App, $pParams, $path) = @_;
	return 1 if($path =~ /$InformedFileRegExp/i);
	return 0;
}

sub MakeDirLink
{
	my ($this, $App, $pParams, $dir, $label, $target) = @_;
	return '' if($dir eq '.');
	return '' if($dir eq '..' and !$pParams->{ShowParentDirectory});

	if($target ne '') {
	}
	elsif($this->{TargetPage} ne '') {
		$target = $this->{TargetPage};
	}
	else {
		$target = '_self';
	}

	$dir = Utils::URLEncode($dir);
	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => "$this->{ModuleName}::ShowPage",
			PrevAction => $pParams->{Action},
			Path       => $dir,
			ShowParentDirectory => $this->{ShowParentDirectory},
			ShowDirectory       => $this->{ShowDirectory},
			ShowDate            => $this->{ShowDate},
			ShowFileSize        => $this->{ShowFileSize},
		},
		[qw(+Action Path Key SubMenuFunction UserSN IsChildFrame FrameMode ShowParentDirectory ShowDirectory ShowDate ShowFileSize Key iRootDir)], 
		undef, undef, 0);
	my $s = "<a href=\"$pParams->{ScriptPath}?$Option\" target=\"$target\"><b>$label</b></a>";
	return $s;
}

sub MakeEditLink
{
	my ($this, $App, $pParams, $path, $label, $pAllowedExtRegExps, $target) = @_;

	if($target ne '') {
	}
	elsif($this->{TargetPage} ne '') {
		$target = $this->{TargetPage};
	}
	else {
		$target = '_blank';
	}

	my $Passed = 0;
	for(my $i = 0 ; $i < @$pAllowedExtRegExps ; $i++) {
		my $p = $pAllowedExtRegExps->[$i];
#$App->print("$i:[$p][$path]\n");
		if($path =~ /$p/i) {
			$Passed = 1;
		}
	}
	return '' if(!$Passed);
	return '' if($path eq '.');
	return '' if($path eq '..' and !$pParams->{ShowParentDirectory});

	$path =~ s/^file:\/\///i;
Jcode::convert(\$path, $pParams->{FileSystemCharCode});
	$path = Utils::URLEncode($path);
	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => "EditTemplate::EditFile",
			PrevAction => $pParams->{Action},
			Path       => $path,
			ShowParentDirectory => $this->{ShowParentDirectory},
			ShowDirectory       => $this->{ShowDirectory},
			ShowDate            => $this->{ShowDate},
			ShowFileSize        => $this->{ShowFileSize},
		},
		[qw(+Action Path Key UserSN IsChildFrame FrameMode ShowParentDirectory ShowDirectory ShowDate ShowFileSize Key iRootDir)], 
		"_blank", "_blank", 0);
	return "<a href=\"$pParams->{ScriptPath}?$Option\" target=\"$target\"><b>$label</b></a>"
}

sub MakeFileLink
{
	my ($this, $App, $pParams, $path, $label, $target) = @_;

	if($target ne '') {
	}
	elsif($this->{TargetPage} ne '') {
		$target = $this->{TargetPage};
	}
	else {
		$target = '_blank';
	}

	$path =~ s/^file:\/\///i;
Jcode::convert(\$path, $pParams->{FileSystemCharCode});
#$App->print("path: [$path]\n");

	return $App->MakeFileLink($pParams, undef, $path, $label, undef, undef, undef, undef, $target);






	my $RegExpRootDir = Utils::RegExpQuote($pParams->{WebDocumentRootDir});
	if($path =~ /^$RegExpRootDir/) {
#	if($path !~ /cgi-bin/i and $pParams->{WebDocumentRoot} ne '') {
		if($path =~ s/^$RegExpRootDir//i) {
			$path = "/$path" if($path !~ /^\//);
Jcode::convert(\$label, $pParams->{FileSystemCharCode});
#$path = Utils::URLEncode($path, 1);
#$App->print("p[$path]\n");
			return "<a href=\"$path\" target=\"_blank\"><b>$label</b></a>"
		}
	}

	$path = Utils::URLEncode($path);
	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => "$this->{ModuleName}::Download",
			PrevAction => $pParams->{Action},
			Path       => $path,
			ShowParentDirectory => $this->{ShowParentDirectory},
			ShowDirectory       => $this->{ShowDirectory},
			ShowDate            => $this->{ShowDate},
			ShowFileSize        => $this->{ShowFileSize},
		},
		[qw(+Action Path Key SubMenuFunction UserSN IsChildFrame FrameMode ShowParentDirectory ShowDirectory ShowDate ShowFileSize Key iRootDir)],
		"_blank", "_blank", 0);
	return "<a href=\"$pParams->{ScriptPath}?$Option\" target=\"$target\"><b>$label</b></a>"
}

sub MakeDirTreeLink
{
	my ($this, $App, $pParams, $dir) = @_;

Jcode::convert(\$dir, "euc-jp", $pParams->{FileSystemCharCode});
#$App->print("path: [$dir]\n");
	$dir =~ s/\\/\//g;
	my @a = Utils::Split("\\/", $dir);
Jcode::convert(\$dir, $pParams->{FileSystemCharCode}, "euc-jp");
for(my $i = 0 ; $i < @a ; $i++) {
	Jcode::convert(\$a[$i], $pParams->{FileSystemCharCode}, "euc-jp");
}
	my $Path = $a[0];
	if($Path =~ /:$/) {
		$Path .= "/";
	}
	else {
		$Path = "/$Path";
	}
	my $s = '';
	my $label = $Path;
#$App->print("path[$Path]\n");
	for(my $i = 0 ; $i < @a ; $i++) {
		my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $Path);
		if(!$IsPermitted) {
			$Path  = Utils::MakePath($Path,  $a[$i+1], '/', 0);
#			$label = Utils::MakePath($label, $a[$i+1], '/', 0);
#			$label = '$Root'. '/' . $a[$i+1];
			$label = 'ROOTDIR';
			next;
		}
		if(-d $Path) {
#			my $link = ($i == 0)? $this->MakeDirLink($App, $pParams, $Path, '$Root/') :
#					      $this->MakeDirLink($App, $pParams, $Path, $label);
			my $link = $this->MakeDirLink($App, $pParams, $Path, $label);
			$s .= '/' . $link;
		}
		elsif(-f $Path) {
			$s .= '/' . $this->MakeFileLink($App, $pParams, $Path, $label);
		}
		else {
		}
		$Path = Utils::MakePath($Path, $a[$i+1], '/', 0);
		$label = $a[$i+1];
	}
	$s =~ s/\///;
	$s = "$dir <font color=\"#FF0000\">(not permitted)</font>" if($s eq '');
	return $s;
}

sub PrintFileFunc
{
	my ($this, $App, $pParams, $path) = @_;

	my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($path);
	my $link = $this->MakeFileLink($App, $pParams, $path, $filename);
	$App->PrintRawHTML("  <tr>\n");
	$App->PrintRawHTML("    <td>$link</td>\n");
	my $mdate = Utils::GetWriteDate($path);
	my $date  = Utils::BuildDateString($mdate);
	$App->PrintRawHTML("    <td>$date</td>\n");
	my ($size, $unit) = Utils::GetFileSize($path, 'kb', "%12.3f");
	$App->PrintRawHTML("    <td>$size</td>\n");
	my $dir = "$drive$directory";
	$dir =~ s/\\/\//g;
	$dir =~ s/\/$//;
	my $link = $this->MakeDirLink($App, $pParams, $dir, $dir);
	$App->PrintRawHTML("    <td>$link</td>\n");
	$App->PrintRawHTML("  </tr>\n");
}

sub SearchRecursive
{
	my ($this, $App, $pParams, $dir, $fmask, $func) = @_;

	my ($IsPermitted, $pd, $bf, $bd, $ss, $st) = $this->IsPermitted($App, $pParams, $dir);
	return if(!$IsPermitted);

	my $path = Utils::MakePath($dir, "*", '/', 0);
	my @files = $App->GetFileList($pParams, $path, 1);
	for(my $i = 0 ; $i < @files ; $i++) {
#$App->print("d: [$files[$i]]\n");
		next if($files[$i] =~ /[\\\/]\.\.?$/);
		next if(!-d $files[$i]);
		my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $files[$i]);
		next if(!$IsPermitted);

		my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($files[$i]);
		$this->SearchRecursive($App, $pParams, $files[$i], $fmask, $func);
	}

	my $count = 0;
	my $path = Utils::MakePath($dir, '*', '/', 0);
#	my $path = Utils::MakePath($dir, $fmask, '/', 0);
Jcode::convert(\$path, $pParams->{FileSystemCharCode});
	my @files = $App->GetFileList($pParams, $path, 1);
	for(my $i = 0 ; $i < @files ; $i++) {
#$App->print("f: [$files[$i]]\n");
		next if(!-f $files[$i]);
		my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($files[$i]);
		next if($filename !~ /$fmask/i);
		my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $files[$i]);
		next if(!$IsPermitted);

		if($count == 0) {
#			$App->PrintRawHTML("<table border=\"1\">\n");
			$count++;
		}
		&$func($files[$i]);
	}
	if($count > 0) {
#		$App->PrintRawHTML("</table>\n");
	}
}

sub SearchFile
{
	my ($this, $App, $pParams) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));

	my $SearchWord = $pParams->{SearchWord};
	$App->H2("Search for [$SearchWord]　\n");

Jcode::convert(\$SearchWord, $pParams->{FileSystemCharCode});
#	$SearchWord = "*$SearchWord*" if($SearchWord !~ /\*/);

	my $path = ($pParams->{Path})? $pParams->{Path} : $this->{RootPath};
if(!-d $path) {
	$path = Utils::URLDecode($path);
	Jcode::convert(\$path, $pParams->{FileSystemCharCode});
}
#$App->print("Search from [$path]\n");
	$pParams->{Path} = $path;
	$this->ShowSearchForm($App, $pParams);

	$this->{MultiFunctionTableJScript} = JSParams->new()->GetMultiFunctionalTableString('.TableTest3', sortList => '[[0,-1]]', excludeColumns => '[2]')
			if($this->{MultiFunctionTableJScript});
	$this->{pMultiFunctionTableConfig} = {
		class => 'tablesorter'
		} if(!$this->{pMultiFunctionTableConfig});

	$App->PrintRawHTML($this->{MultiFunctionTableJScript}) if($this->{MultiFunctionTableJScript});
	my $pHash = $this->{pMultiFunctionTableConfig};

	my $black1 = "<font color=\"#000000\">";
	my $black2 = "</font>";
	$App->BeginTable(1, undef, %$pHash);
	$App->BeginTableHeader();
	$App->BeginRow();
	$App->PrintRawHTML("    <th>${black1}<b>" . $App->GetPhrase('File name') . "</b>${black2}</th>\n");
	$App->PrintRawHTML("    <th>${black1}<b>" . $App->GetPhrase('Date')      . "</b>${black2}</th>\n");
	$App->PrintRawHTML("    <th>${black1}<b>" . $App->GetPhrase('Size (KB)') . "</b>${black2}</th>\n");
	$App->PrintRawHTML("    <th>${black1}<b>" . $App->GetPhrase('Folder')    . "</b>${black2}</th>\n");
	$App->EndRow();
	$App->EndTableHeader();

	$this->SearchRecursive($App, $pParams, $path, $SearchWord, 
				sub { $this->PrintFileFunc($App, $pParams, @_); });

	$App->EndTableBody();
	$App->EndTable();

	$App->HR();
	$this->ShowPage($App, $pParams);
}

sub ShowSearchForm
{
	my ($this, $App, $pParams) = @_;

	my $Option = $App->BuildCGIOption(
		{
			PrevAction => $pParams->{Action},
		},
		[qw(+App EMail Password Language Key Path RootDir Key iRootDir ShowAll ExtendedMenu PrevAction DBConfigName Year Month Day Key iRootDir)],
		);
	my $BaseAction = ($this->{ModuleName} =~ /Admin/i)? 'AdminPictureGalleryOption::ShowPage' : 'UserPictureGalleryOption::ShowPage';
	my $PictureGalleryLink ="<a href=\"$pParams->{ScriptPath}?Action=$BaseAction&$Option\" target=\"_blank\">"
			  .$App->mlText('en' => "Image View", 'jp' => "写真一覧表示") . "</a> ";

	my $path = $pParams->{Path};
	$path = Utils::URLEncode($path);
	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => "$this->{ModuleName}::SearchFile",
			PrevAction => $pParams->{Action},
			Path       => $path,
		},
		[qw(+Action Key Path RootDir Key iRootDir UserSN IsChildFrame FrameMode Key iRootDir)], 
		$this->{TargetPage}, $pParams->{TargetFrame}, 1);

	my $SearchStr = $App->mlText('en' => 'Search file', 'jp' => '検索ファイル名');
#Jcode::convert(\$SearchStr, $pParams->{WebCharCode});
	$App->BeginForm($pParams, $pParams->{ScriptPath}, "POST", "_self", 1);
	$App->PrintRawHTML("  <b>$SearchStr:</b> <input type=\"text\" name=\"SearchWord\" value=\"$pParams->{SearchWord}\" size=\"20\">\n");
	$App->PrintFormButton("submit",  $App->GetPhrase('Execute search'));
	$App->PrintRawHTML($PictureGalleryLink);
	$App->PrintRawHTML("$Option\n");
	$App->EndForm(undef, undef, undef, undef);
}

sub UpdateFileList
{
	my ($this, $App, $pParams, $RootPath) = @_;
	$App->SendNotificationForPrivilegedAccessMail($App, $pParams);
	return if(!$App->HasPrivilege($ModifyFilePrivilege, 1));

my $Kara = '～'; #'～';
my $KaraZIPCharCode = $Kara;
Jcode::convert(\$Kara, $pParams->{FileSystemCharCode}, 'utf-8');#$pParams->{ScriptCharCode});
Jcode::convert(\$KaraZIPCharCode, $ZIPFileCharCode, 'utf-8');

	$RootPath = $this->{RootPath} if($RootPath eq '');

	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => $pParams->{Action}, #"$this->{ModuleName}::ShowPage", #$this->{NextAction},
			PrevAction => $pParams->{Action},
#			Path       => Utils::URLEncode($RootPath),
		},
		[qw(+Action Path Key SubMenuFunction IsChildFrame FrameMode Key iRootDir)],
			undef, undef, 1,
		);

	my $Path       = Utils::URLDecode($pParams->{Path});
	my $PathRegExp = Utils::RegExpQuote($Path);

	if($pParams->{Delete} ne '') {
$App->H2($App->GetPhrase('Delete files') . "\n");
		foreach my $key (sort keys %$pParams) {
			next if($key !~ /^CheckFile-(.*)$/);
			next if($pParams->{$key} ne 'ON');

			my $key     = $1;
			my $newname = $pParams->{"NewFile-$key"};
			if($newname ne '') {
				$App->H3("Error in ${ModuleName}::UpdateFileList: New name [$newname] is not null. Delete will not be executed.\n");
				return;
			}

#			my $Path0 = Utils::URLDecode($pParams->{Path});
			my $path  = Utils::MakePath($RootPath, Utils::URLDecode($key), '/', 0);
			if(!-d $path) {
				if(Utils::DeleteFile($path) == 1) {
					$App->H3("[$path] deleted.\n");
				}
				else {
					$App->H3("Error in ${ModuleName}::UpdateFileList: [$path] could not be deleted.\n");
				}
			}
			else {
				if(Utils::DeleteDirectory($path) == 1) {
					$App->H3("Directory [$path] deleted.\n");
				}
				else {
					$App->H3("Error in ${ModuleName}::UpdateFileList: Directory [$path] could not be deleted.\n");
				}
			}
		}
	}
	elsif($pParams->{Rename} ne '') {
$App->H2($App->GetPhrase('Rename files') . "\n");
		foreach my $key (sort keys %$pParams) {
			next if($key !~ /^CheckFile-(.*)$/);
			next if($pParams->{$key} ne 'ON');

			my $key     = $1;
			my $newname = $pParams->{"NewFile-$key"};
			next if($newname eq '');

			my $fname   = Utils::URLDecode($key);
			my $inpath  = Utils::MakePath($RootPath, $fname, '/', 0);

			Utils::URLDecode($newname);
			Jcode::convert(\$newname, $pParams->{FileSystemCharCode}, $pParams->{WebCharCode});
			my $newpath = Utils::MakePath($Path, $newname, '/', 0);
#$App->print("renmae [$inpath] to [$newpath]\n");
			if(Utils::MoveFile($inpath, $newpath) == 1) {
				$App->H3("[$inpath] was renamed to [$newpath].\n");
			}
			else {
				$App->H3("Error in ${ModuleName}::UpdateFileList: [$inpath] could not be renamed to [$newpath].\n");
			}
		}
	}
	elsif($pParams->{CreatePasswordedZip} ne '') {
$App->H2($App->GetPhrase('Create Passworded Zip files') . "\n");
		$App->BeginForm($pParams, $pParams->{ScriptPath}, "POST", "_self", 1);
		$App->PrintFormButton("ExecuteCreatePasswordedZip",  "Execute");
		$App->print("\n");
		$App->PasswordTextbox('ZipPassword', 30, $pParams->{ZipPassword},   '<b>Password:</b> ');
		$App->print("\n");
		my $count = 0;
		foreach my $key (sort keys %$pParams) {
			next if($key !~ /^CheckFile-(.*)$/);
			my $key0 = $1;
			my $fname = Utils::URLDecode($key0);
			next if($pParams->{$key} ne 'ON');

			my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($fname);
			$fname = $filename;
			if($count == 0 and $pParams->{ZipFileName} eq '') {
				$count++;
				$pParams->{ZipFileName} = "$filebody.zip";
				$App->Textbox('ZipFileName', 30, $pParams->{ZipFileName}, '<b>Zip file name:</b> ');
				$App->print("\n");
			}
			my $cs = $App->BuildCheckboxString($key, $pParams->{$key}, '');
			$App->PrintRawHTML($cs);
			$App->print("$fname");
			$App->print("\n");
		}
		$App->PrintRawHTML("$Option\n");
		$App->EndForm(undef, undef, undef, undef);
	}
	elsif($pParams->{ExecuteCreatePasswordedZip} ne '') {
$App->H2("Execute CreatePasswordedZipFiles\n");
		if($pParams->{ZipPassword} eq '') {
			$App->H3("Error in ${ModuleName}::UpdateFileList: Password must not be null.\n");
			$pParams->{CreatePasswordedZip} = 'ON';
			delete $pParams->{ExecuteCreatePasswordedZip};
			$App->HR();
			$this->UpdateFileList($App, $pParams, $RootPath);
			return;
		}
		my @files;
		my $TargetPath = Utils::MakePath($Path, $pParams->{ZipFileName}, '/', 0);
		foreach my $key (sort keys %$pParams) {
			next if($key !~ /^CheckFile-(.*)$/);
			my $key0 = $1;
			my $fname = Utils::URLDecode($key0);
			next if($pParams->{$key} ne 'ON');

			my $NewFileKey = "NewFile-$key0";
			my $NewFile    = $pParams->{$NewFileKey};
#Jcode::convert(\$fname,   $pParams->{FileSystemCharCode});
Jcode::convert(\$NewFile, $pParams->{FileSystemCharCode}, $pParams->{WebCharCode});
			$fname =~ s/\\/\//g;
			my $SourcePath = Utils::MakePath($RootPath, $fname,   '/', 0);
			push(@files, $SourcePath);
#			my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($SourcePath);
#			$directory =~ s/\\/\//g;
#$App->print("S: $SourcePath => ");
#			$SourcePath =~ s/^$PathRegExp//;
#			$SourcePath =~ s/^\///;
#			my $TargetPath = Utils::MakePath("$drive$directory", $NewFile, '/', 0);
#			$TargetPath =~ s/^$PathRegExp//;
#			$TargetPath =~ s/^\///;
#$App->print("$SourcePath\n");
		}
		my $ret = MyArchive->new()->MakePasswordedZIP(
			$TargetPath, $Path, \@files, $pParams->{ZipPassword}, '-D', $pParams->{FileSystemCharCode}, $ZIPFileCharCode, $App);
	}
	elsif($pParams->{BurstZip} ne '') {
$App->H2($App->GetPhrase('Burst Zip files') . "\n");
		foreach my $key (sort keys %$pParams) {
			next if($key !~ /^CheckFile-(.*)$/);
			my $key0 = $1;
			my $fname = Utils::URLDecode($key0);
			next if($pParams->{$key} ne 'ON');

			my $SourcePath = Utils::MakePath($RootPath, $fname,   '/', 0);
			$SourcePath =~ s/^$PathRegExp//;
			$SourcePath =~ s/^\///;
			my $ret = MyArchive->new()->BurstZIP($SourcePath, $Path, '', $App);
			if($ret) {
				$App->H3("Burst [$SourcePath] succeeded.\n");
			}
			else {
				$App->H3("Error in ${ModuleName}::UpdateFileList: Burst [$SourcePath] failed.\n");
			}
		}
	}
	elsif($pParams->{CreateDir} ne '') {
$App->H2($App->GetPhrase('Create Dir') . "\n");
		my $newname = $pParams->{NewPath};
		Utils::URLDecode($newname);
		Jcode::convert(\$newname, $pParams->{FileSystemCharCode}, $pParams->{WebCharCode});
		my $newpath = Utils::MakePath($Path, $newname, '/', 0);
#$App->print("mkdir [$newpath]\n");
		if(Utils::CreateDirectory($newpath, '/', 0) == 1) {
				$App->H3("Directory [$newpath] has been created.\n");
		}
		else {
				$App->H3("Error in ${ModuleName}::UpdateFileList: Directory [$newpath] could not be created.\n");
		}
	}
	elsif($pParams->{CreateFile} ne '') {
$App->H2($App->GetPhrase('Create File') . "\n");
		my $newname = $pParams->{NewPath};
		Utils::URLDecode($newname);
		Jcode::convert(\$newname, $pParams->{FileSystemCharCode}, $pParams->{WebCharCode});
		my $newpath = Utils::MakePath($Path, $newname, '/', 0);
		if(-e $newpath) {
			$App->H3("Error in ${ModuleName}::UpdateFileList: [$newpath] already exists.\n");
		}
		else {
			my $out = new JFile($newpath, 'w');
			if($out) {
				$App->H3("File [$newpath] has been created.\n");
				$out->Close();
			}
			else {
				$App->H3("Error in ${ModuleName}::UpdateFileList: File [$newpath] could not be created.\n");
			}
		}
	}
	elsif($pParams->{Upload} ne '') {
$App->H2($App->GetPhrase('Upload file') . "\n");
		my $SourceFileName = $pParams->{UploadFilePath};
		$SourceFileName =~ s/\\/\//g;
		if($SourceFileName =~ /\//) {
			my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($SourceFileName);
			$SourceFileName = $filename;
		}
		if($SourceFileName eq '') {
			$App->H3("Error in ${ModuleName}::UpdateFileList: Source path [$SourceFileName] is not null.\n");
			return;
		}

		my $ServerFileName = $SourceFileName;
#my $code = Jcode::getcode($Kara);
#$App->print("code: $code Kara:[$Kara] S[$ServerFileName]\n");
		$ServerFileName =~ s/$Kara/-/g if($^O ne 'MSWin32');
		my $TargetPath = Utils::MakePath($Path, $ServerFileName, '/', 0);
Jcode::convert(\$TargetPath, $pParams->{FileSystemCharCode});
#$App->print("[$SourceFileName][$ServerFileName][$TargetPath]\n");
		my %args = (
#			FileFieldName => 'UploadFilePath',
			UploadFilePath    => $SourceFileName,
			UploadFileMaxSize => $UploadFileMaxSize,
			ServerFileName    => $ServerFileName,
			ServerFilePath    => $TargetPath,
			pTypeOkList       => \@TypeOkList,
			pExtOkList        => \@ExtOkList,
			);
		my $ret = $App->MyHTMLApplication::UploadFile($pParams, $App->Args()->CGIForm(), %args);
		if($ret ne 'OK') {
			$App->H3("Error in ${ModuleName}::UpdateFileList: File [$SourceFileName] could not be uploaded to [$TargetPath] with ret=$ret.\n");
			return;
		}
		else {
#Jcode::convert(\$SourceFileName, $pParams->{WebCharCode});
Jcode::convert(\$TargetPath,     $pParams->{WebCharCode});
			$App->H3("File [$SourceFileName] has been uploaded to [$TargetPath].\n");
		}
	}
}

sub BeginTable
{
	my ($this, $App, $pParams, $pHash, $pTableDef) = @_;

	$App->BeginTable(1, undef, %$pHash);
	$App->BeginTableHeader();
	$App->BeginRow();
	for(my $i = 0 ; $i < @$pTableDef ; $i++) {
		$App->PrintRawHTML("    <th><b>$pTableDef->[$i]->[0]</b></th>\n");
	}
	$App->EndRow();
	$App->EndTableHeader();

	$App->BeginTableBody();
}

sub DownloadAttachedFile
{
	my ($this, $App, $pParams) = @_;

my $Debug = 0;
	my $iA = $pParams->{iAttachedFile};
	my $Path = $pParams->{Path};
$App->print("iAttachedFile=$iA\n") if($Debug);
$App->print("Path=$Path\n") if($Debug);
	my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $Path);
	if(!$IsPermitted) {
#		$App->H2("Error in ${ModuleName}::DownloadAttachedFile: Download [$Path] is not permitted.\n");
#		return;
	}

	my $mf = new MailFile;
	my $pTextArray = $mf->Read($Path, 0);
	if(!$pTextArray) {
		$App->H2("Error: Can not read [$Path]\n");
		return 0;
	}

	my $Header = $mf->GetHeader();
#	my $Content = $mf->GetContent();
	my $Content = $mf->GetMailBoy();
#	my $Content = $mf->GetFullContent();
	my $psp = $mf->{pSerialPartsInf};
	my $p = $psp->[$iA];
	if(!$p) {
		$App->H2("Error: Can not find mail part [$iA] in [$Path]\n");
		return 0;
	}

	my ($pHeader, $pContent) = $mf->SplitHeaderFromString($p->{Content});
	my $content = join('', @$pContent);

	my $ContentType             = $p->GetHeaderFromString("Content-Type", $pParams->{WebCharCode}, 0, $pHeader); #, $p->{Content});
	my $ContentTransferEncoding = $p->GetHeaderFromString("Content-Transfer-Encoding", $pParams->{WebCharCode}, 0, $pHeader); #, $p->{Content});
	my $ContentDisposition      = $p->GetHeaderFromString("Content-Disposition", $pParams->{WebCharCode}, 0, $pHeader);
$App->print("Content-Type: $ContentType [$ContentTransferEncoding]\n") if($Debug);
$App->print("Content-Disposition: $ContentDisposition\n") if($Debug);
	if($ContentType !~ /application/i and $ContentType !~ /stream/i) {
		$App->H2("Error: No attached file in this mail part [$pParams->{iAttachedFile}] in [$Path]\n");
		return 0;
	}

	my $filename = $mf->GetAttachedFileName($pHeader, $pParams->{WebCharCode});
Jcode::convert(\$filename, 'sjis');
$App->print("f[$filename]\n") if($Debug);
#$App->print("c[$content]\n");

	if($ContentTransferEncoding) {
		$content = $mf->DecodeContent($pParams->{WebCharCode}, 1, undef, $content, $ContentTransferEncoding);
	}
$App->print("c[$content]\n") if($Debug);

	my $CGIForm = $App->CGIForm();
	my $Length = length($content);
	binmode(STDOUT);
	print(STDOUT
		$CGIForm->header(
			-Content_Disposition => "attachment; filename=$filename",
			-Content_Length      => $Length,
			-type                => "application/octet-stream",
#			-type                => "application/download",
			)
		);

	print STDOUT $content;

}

sub ViewHTML
{
	my ($this, $App, $pParams) = @_;

my $Debug = 0;
	my $iA = $pParams->{iAttachedFile};
	my $Path = $pParams->{Path};
$App->print("iAttachedFile=$iA\n") if($Debug);
$App->print("Path=$Path\n") if($Debug);
	my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $Path);
	if(!$IsPermitted) {
#		$App->H2("Error in ${ModuleName}::DownloadAttachedFile: Download [$Path] is not permitted.\n");
#		return;
	}

	my $mf = new MailFile;
	my $pTextArray = $mf->Read($Path, 0);
	if(!$pTextArray) {
		$App->H2("Error: Can not read [$Path]\n");
		return 0;
	}

	my $Header = $mf->GetHeader();
#	my $Content = $mf->GetContent();
	my $Content = $mf->GetMailBoy();
#	my $Content = $mf->GetFullContent();
	my $psp = $mf->{pSerialPartsInf};
	my $p = $psp->[$iA];
	if(!$p) {
		$App->H2("Error: Can not find mail part [$iA] in [$Path]\n");
		return 0;
	}

	my ($pHeader, $pContent) = $mf->SplitHeaderFromString($p->{Content});
	my $content = join('', @$pContent);

	my $ContentType             = $p->GetHeaderFromString("Content-Type", $pParams->{WebCharCode}, 0, $pHeader); #, $p->{Content});
	my $ContentTransferEncoding = $p->GetHeaderFromString("Content-Transfer-Encoding", $pParams->{WebCharCode}, 0, $pHeader); #, $p->{Content});
	my $ContentDisposition      = $p->GetHeaderFromString("Content-Disposition", $pParams->{WebCharCode}, 0, $pHeader);
$App->print("Content-Type: $ContentType [$ContentTransferEncoding]\n") if($Debug);
$App->print("Content-Disposition: $ContentDisposition\n") if($Debug);
	if($ContentType !~ /html/i) {
		$App->H2("Error: No html in this mail part [$pParams->{iAttachedFile}] in [$Path]\n");
		return 0;
	}

	if($ContentTransferEncoding) {
		$content = $mf->DecodeContent($pParams->{WebCharCode}, 1, undef, $content, $ContentTransferEncoding);
	}
	$App->PrintRawHTML($content);
}

sub ViewInformation
{
	my ($this, $App, $pParams, $Path) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));
	$Path = $pParams->{Path} if($Path eq '');

	$Path =~ s/^file:\/\///i;
#$App->print("P[$Path][$pParams->{Path}]\n");
	my ($Option, $target) = $App->GetCGIParameters(
		{
			NoMenu => 1,
		},
		[qw(EMail Password NoMenu Key iRootDir)],
		undef, undef, 0);
	$pParams->{DownloadFileLink} = "$pParams->{ScriptPath}?Action=$this->{ModuleName}::DownloadAttachedFile&$Option";
	$pParams->{ViewHTMLBaseLink} = "$pParams->{ScriptPath}?Action=$this->{ModuleName}::ViewHTML&$Option";
	ViewFileInformation->new()->ViewInformation($App, $pParams, $Path);
}

sub GetFileInf
{
	my ($this, $App, $pParams, $path, $charcode) = @_;

	my ($type, $label);
	$type = (-d $path)? 'directory' : 'file';
	my ($drive, $directory, $fname, $ext, $lastdir, $filebody) = Deps::SplitFilePath($path);
Jcode::convert(\$fname, $charcode) if($charcode);

	$this->{pALMail} = new ALMail32 if(!defined $this->{pALMail});
	if($path =~ /\.alm$/i and $this->{pFileNameSubstitutionList}) {
		my $p = $this->{pFileNameSubstitutionList};
		my $key = uc $filebody;
		my $title = "$p->{$key}->{subject}: $p->{$key}->{from}" if($p->{$key});
		Utils::DelSpace($title);
Jcode::convert(\$title, $charcode) if($charcode ne '');
		return ('ALMailMailFile', "$title [$fname]", $fname) if($title);
	}

	my ($title, $CurrentFolderType) = $this->{pALMail}->GetALMailFolderTitle($path, 0);
	if($title ne '') {
Jcode::convert(\$title, $charcode) if($charcode);
		return ('ALMailFolder', "$title [$fname]", $fname);
	}

	if($fname =~ /^[\dA-F]+\.txt/) {
		my $name = CGI::TkWiki->new()->DecodePukiWikiName($fname);
Jcode::convert(\$name, $charcode) if($charcode);
		return ('PukiWikiFolder', "$name [$fname]", $fname);
	}

	if($path =~ /%[\dA-Z]{2}/) {
		$label = Utils::URLDecode($path);
Jcode::convert(\$label, $charcode) if($charcode);
		if($label =~ /fswiki/i) {
			$label =~ s/^.*\///;
			$label =~ s/\.wiki$//;
		}
		return ($type, "$label [$fname]", $fname);
	}
	return ($type, $fname, $fname);
}

sub GetFileNameSubstitutionList
{
	my ($this, $App, $pParams, $RootPath) = @_;
	delete $this->{pFileNameSubstitutionList};

	return $this->{pFileNameSubstitutionList} = ALMail32->new()->GetLSTFileHashByDir($RootPath);
}

sub GetFileList
{
	my ($this, $App, $pParams) = @_;

#	my $RootDir = $this->GetPath($App, $pParams);
	my $RootDir = $this->GetRootPath($App, $pParams);
#$App->print("Root[$RootDir]\n");

	print "Content-type: text/html\n\n";
#print "root[$params->{root}]\n";
	my $dir = Utils::URLDecode($pParams->{dir});
	$dir = Utils::URLDecode($dir);
Jcode::convert(\$dir, $pParams->{FileSystemCharCode}, $pParams->{WebCharCode});
#$App->print("\ndir[$dir]\n");
	return if($dir =~ /\.\./);

	my $FullDir = Utils::MakePath($RootDir, $dir, '/', 0);
	exit if(!-e $FullDir);

	$this->GetFileNameSubstitutionList($App, $pParams, $FullDir);

	if(!opendir(BIN, $FullDir)) {
		$App->H2("${ModuleName}::GetFileList: Can't open [$dir]: $!\n");
		return;
	}

	my (@dirs, @files);
	my $total = 0;
	while( defined (my $file = readdir BIN) ) {
		next if($file eq '.' or $file eq '..');
		$total++;

		my $FullPath = Utils::MakePath($FullDir, $file, '/', 0);
		if(-d $FullPath) {
#			my $link = $this->MakeDirLink($App, $pParams, $FullPath, "<b>[$file]</b>", '_blank');
#			push (@dirs, $link);
			push (@dirs, $file);
		}
		else {
#			my $link     = $this->MakeFileLink($App, $pParams, $FullPath, "$file", '_blank');
#			push (@files, $link);
			push (@files, $file);
		}
	}
	closedir(BIN);
	return if($total == 0);

	print "<ul class=\"jqueryFileTree\" style=\"display: none;\">";

# print Folders
	foreach my $file (sort @dirs) {
		my $FullPath = Utils::MakePath($FullDir, $file, '/', 0);
		next if(!-e  $FullPath);

		my $path = $dir . $file;
		my ($type, $label, $filename) = $this->GetFileInf($App, $pParams, $FullPath, $pParams->{WebCharCode});
		Jcode::convert(\$path, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
		Jcode::convert(\$file, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
		$path = Utils::URLEncode($path);
		print '<li class="directory collapsed"><a href="#" rel="' . $path . '/">' . $label . '</a></li>';
	}

# print Files
	foreach my $file (sort @files) {
		my $FullPath = Utils::MakePath($FullDir, $file, '/', 0);
		next if(!-e  $FullPath);

		$file =~ /\.(.+)$/;
		my $ext = $1;
		my $path = $dir . $file;
		my ($type, $label, $filename) = $this->GetFileInf($App, $pParams, $path, $pParams->{WebCharCode});
		Jcode::convert(\$ext, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
		Jcode::convert(\$path, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
		Jcode::convert(\$file, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
		$path = Utils::URLEncode($path);
#$path =~ s/\.\///g;
#$path = Utils::MakePath($RootDir, $path, '/', 0);
#$path = Utils::ReduceDirectory(Utils::MakePath($RootDir, $path, '/', 0));
		print '<li class="file ext_' . $ext . '"><a href="#" rel="' . $path . '/">' . $label . '</a></li>';
	}
	print "</ul>\n";
}

sub ShowTreeViewPage
{
	my ($this, $App, $pParams, $pPrevFunc, $pPostFunc) = @_;
#	$App->SendNotificationForPrivilegedAccessMail($App, $pParams);
	return if(!$this->IsOpen($App, $pParams, 0));

	my $Action = "$this->{ModuleName}::GetFileList";
	my $RootDir = $this->GetRootPath($App, $pParams);
#$App->print("RT[$this->{RootPath}]\n");

	my $s =<<EOT;
<script type="text/javascript" src="/jscripts/jquery-fileTree/jqueryFileTree-Kamiya.js"></script>
<link rel="stylesheet" href="/jscripts/jquery-fileTree/jqueryFileTree.css" type="text/css">

<style type="text/css">
.FileTree {
	width: 200px;
	height: 400px;
	border-top: solid 1px #BBB;
	border-left: solid 1px #BBB;
	border-bottom: solid 1px #FFF;
	border-right: solid 1px #FFF;
	background: #FFF;
	overflow: scroll;
	padding: 5px;
	float: left;
}
</style>

<script language="JavaScript">
	\$(document).ready(function() { 
		\$("#FileTree").resizable({
//			containment: 'parent',
//			maxWidth:500,
			autoHide:true
			}
		);
		\$('#FileTree').fileTree(
			{ 
				root: './',
//				script: '/cgi-bin/jqueryFileTree2.pl',
				script: '$pParams->{ScriptPath}',
				Params: {
					EMail: '$pParams->{EMail}',
					Password: '$pParams->{Password}',
					Action: '$Action',
					RootPath: '$this->{RootPath}',
					OnlyLoadModules: '$this->{ModuleName}',
					NoMenu: '1'
				},
				expandSpeed: 100,
				collapseSpeed: 100,
				multiFolder: false
			}, 
			function(file) {
				ShowFilePage(file);
			},
			function(dir) {
				ShowDirectoryPage(dir);
			}
		);
		ShowDirectoryPage();
	});

	function ShowFilePage(file) {
		var file2 = decodeURIComponent(file);
//		alert(file);
//		openFile(file);
//		document.write("<a href=''>abc" + file + "</a>");
//		document.F1.T1.value = file2;
//		fl = document.getElementById("FileList");
//return;

		var url = '$pParams->{ScriptPath}';
		var httpObj = jQuery.post(url,
			{
//			Action: '$this->{ModuleName}::Test',
//			Action: '$this->{ModuleName}::Download',
			Action: '$this->{ModuleName}::GetFileLink',
			EMail: '$pParams->{EMail}',
			Password: '$pParams->{Password}',
			Key: '$pParams->{Key}',
			Path: file,
			RootPath: '$this->{RootPath}',
			OnlyLoadModules: '$this->{ModuleName}',
			NoMenu: 1
			},
			function() {
//				alert(httpObj.responseText);
				\$('#FileList').html(httpObj.responseText);
//				\$('#FileList').replaceWith(httpObj.responseText);
//				\$('#FileList').empty();
//				\$('#FileList').append(httpObj.responseText);
			}
			);
//		alert(httpObj.responseText);
//		\$('#FileList').post(url, null, function() {} );
	};

	function ShowDirectoryPage(dir) {
//		dir = decodeURIComponent(dir);
//		alert(dir);

		var url = '$pParams->{ScriptPath}';
		var httpObj = jQuery.post(url,
			{
			Action: '$this->{ModuleName}::ShowPage',
			EMail: '$pParams->{EMail}',
			Password: '$pParams->{Password}',
			Key: '$pParams->{Key}',
			Path: dir,
			RootPath: '$this->{RootPath}',
			ShowDirectory: 0,
			ShowPictureList: 1,
			Mode: 'FileList',
			OnlyLoadModules: '$this->{ModuleName}',
			NoMenu: 1
			},
			function() {
//				alert(httpObj.responseText);
				\$('#FileList').html(httpObj.responseText);
			}
			);
	};
</script>

<H2>Browse [$RootDir]</H2>
  <div id="FileTree" class="FileTree">
  </div>
<div id="FileList" class="FileList"></div>

</body>
</html>
EOT

	$App->PrintRawHTML($s);
}

sub Test
{
	my ($this, $App, $pParams) = @_;
$pParams->{Path} = Utils::URLDecode($pParams->{Path});
$pParams->{Path} = Utils::MakePath($pParams->{RootPath}, $pParams->{Path}, '/', 0);
$pParams->{Path} = Utils::ReduceDirectory($pParams->{Path});
#$pParams->{Path} =~ s/\/\.\//\//g;
Jcode::convert(\$pParams->{Path}, 'utf-8');
$App->print("path[$pParams->{Path}] roota[$pParams->{RootPath}]\n");
}

sub ShowPage
{
	my ($this, $App, $pParams, $RootPath, $pPrevFunc, $pPostFunc, %args) = @_;
	$App->SendNotificationForPrivilegedAccessMail($App, $pParams);
	return if(!$this->IsOpen($App, $pParams, 0));
#$App->print("aaa\n");

my $ZenkakuSpace = '　';
#Jcode::convert(\$ZenkakuSpace, $pParams->{WebCharCode});
Jcode::convert(\$ZenkakuSpace, $pParams->{FileSystemCharCode});

	my $CanShowDirTreeLinkPrivilege = $App->HasPrivilege($ShowDirTreeLinkPrivilege, 0);
	my $CanModifyFile               = $App->HasPrivilege($ModifyFilePrivilege, 0);
	my $CanEdit                     = $CanModifyFile and $App->HasPrivilege($EditTemplatePrivilege, 0);
	my $CanUpload                   = $App->HasPrivilege($UploadFilePrivilege, 0);
	my $ShowDirTreeLink             = (defined $args{ShowDirTreeLink})? $args{ShowDirTreeLink} : 1;

#open(OUT, ">d:/a.txt");
#$App->print("RootPath[$this->{RootPath}]\n");
	$pParams->{RootPath} = Utils::URLDecode($pParams->{RootPath});
	$pParams->{Path}       = Utils::URLDecode($pParams->{Path});
	$RootPath = ($pParams->{Path})? $pParams->{Path} : $this->GetRootPath($App, $pParams);
#Jcode::convert(\$pParams->{RootPath}, $pParams->{FileSystemCharCode});
#Jcode::convert(\$pParams->{Path},        $pParams->{FileSystemCharCode});
	$RootPath = Utils::ReduceDirectory(Utils::MakePath($this->{RootPath}, $RootPath, '/', 0)) if($RootPath =~ /^\./); 
Jcode::convert(\$RootPath, $pParams->{FileSystemCharCode});
#print OUT "RootPath1[$RootPath]\n";
	if(!-e $RootPath and $pParams->{Path} ne '') {
		$RootPath = Utils::MakePath($RootPath, Utils::URLDecode($pParams->{Path}), '/', 0);
#print OUT "RootPath2[$RootPath]\n";
Jcode::convert(\$RootPath, $pParams->{FileSystemCharCode});
	}
	$RootPath = Utils::ReduceDirectory($RootPath);
#print OUT "RootPath3[$RootPath]\n";
#close(OUT);
#$App->print("RootPath[$RootPath]\n");
	my $ParentDirectory = $RootPath;
	$ParentDirectory    =~ /^(.*)\/[^\/]+\/?$/;
	$ParentDirectory    = $1;
#$App->print("RootPath[$RootPath]\n");

	my $pFilterFunc              = $args{pFilterFunc};
	$pParams->{NextAction}       = "${ModuleName}::ShowPage"       if(!defined $pParams->{NextAction});
	$this->{NextAction}          = $pParams->{NextAction}          if(defined $pParams->{NextAction});
	$this->{ShowDate}            = $pParams->{ShowDate}            if(defined $pParams->{ShowDate});
	$this->{ShowDirectory}       = $pParams->{ShowDirectory}       if(defined $pParams->{ShowDirectory});
	$this->{ShowParentDirectory} = $pParams->{ShowParentDirectory} if(defined $pParams->{ShowParentDirectory});
	$this->{ShowFileSize}        = $pParams->{ShowFileSize}        if(defined $pParams->{ShowFileSize});
	$this->{TargetPage}          = $pParams->{TargetPage}          if(defined $pParams->{TargetPage});
	$this->{ShowHTAccess}        = $pParams->{ShowHTAccess}        if(defined $pParams->{ShowHTAccess});
	my $TargetStr = '';
	$TargetStr = " target=\"$this->{TargetPage}\" " if($this->{TargetPage} ne '');

	&$pPrevFunc($App, $pParams) if($pPrevFunc);

	if($pParams->{Delete} ne '' or $pParams->{Rename} or $pParams->{CreateDir} or 
	   $pParams->{CreateFile} ne '' or $pParams->{Upload} or
	   $pParams->{CreatePasswordedZip} ne '' or $pParams->{BurstZip} ne '' or $pParams->{ExecuteCreatePasswordedZip} ne '') {
		$this->UpdateFileList($App, $pParams);
		$App->HR();
	}

	if($ShowDirTreeLink and $CanShowDirTreeLinkPrivilege) {
		my $link = $this->MakeDirTreeLink($App, $pParams, $RootPath);
Jcode::convert(\$link, $pParams->{WebCharCode});
		$App->mlPrintRawHTML('en' => "<H2>Browse [$link]</H2>", 'jp' => "<H2>[$link]を表示</H2>");
	}
	else {
#Jcode::convert(\$RootPath, 'utf-8','sjis');
		$App->H3("Browse [$RootPath　]\n");
	}
	
	my ($IsPermitted, $BrowseDir, $FileRegExp, $DirRegExp, $ss, $st) = $this->IsPermitted($App, $pParams, $RootPath);
	if(!$IsPermitted) {
		$App->H2("Error in ${ModuleName}::ShowPage: Browsing [$RootPath] is not permitted.");
		return;
	}
	$this->GetFileNameSubstitutionList($App, $pParams, $RootPath);

	$BrowseDir =~ s/\\/\//g;
	my $FullPath = $RootPath;
#	my $FullPath = Utils::MakePath($RootPath, "*", '/', 0);
#Jcode::convert(\$FullPath, $pParams->{FileSystemCharCode});
#	if($FullPath =~ m|^//|) {
##		$FullPath =~ s/\//\\/g;
#	}
#	elsif($FullPath =~ /\s/) {
##		$FullPath = "\"$FullPath\"";
#	}
#Jcode::convert(\$FullPath, $pParams->{FileSystemCharCode});
#$App->print("FullPath[$FullPath]\n");

	my $ShowFiles = Utils::MakePath($BrowseDir, $FileRegExp, '/', 0);
Jcode::convert(\$ShowFiles, $pParams->{WebCharCode});
	if($CanShowDirTreeLinkPrivilege) {
		$App->mlPrintRawHTML('en' => "<H5>Approved for [$ShowFiles]", 'jp' => "<H5>[$ShowFiles]が許可されています");
	}

	$this->ShowSearchForm($App, $pParams);

	$App->BeginForm($pParams, $pParams->{ScriptPath}, "POST", "_self", 1);
	if($CanModifyFile) {
		$App->Textbox('NewPath', 50, $pParams->{NewPath});
		$App->PrintFormButton("CreateDir",  $App->GetPhrase('Create Dir')) if($this->{ShowDirectory});
		$App->PrintFormButton("CreateFile", $App->GetPhrase('Create File'));
		$App->print("\n");
		if($CanUpload) {
			$App->FileSubmitbox('UploadFilePath', 50, $pParams->{UploadFilePath}, '');
			$App->PrintFormButton("Upload", $App->GetPhrase('Upload'));
			$App->print("\n");
		}
		$App->PrintFormButton("Delete",              $App->GetPhrase('Delete'));
		$App->PrintFormButton("Rename",              $App->GetPhrase('Rename'));
		$App->PrintFormButton("CreatePasswordedZip", $App->GetPhrase('Create Passworded Zip'));
		$App->PrintFormButton("BurstZip",            $App->GetPhrase('Burst Zip'));
		$App->print("\n");
	}

	my $black1 = "<font color=\"#000000\">";
	my $black2 = "</font>";
	my @TableDef = (
			["${black1}<b>". $App->GetPhrase('Date')           . "</b>${black2}"],
			["${black1}<b>". $App->GetPhrase('Folder name')      . "</b>${black2}"],
			["${black1}<b>". $App->GetPhrase('New folder name')  . "</b>${black2}"],
			);
	delete $TableDef[2] if(!$CanModifyFile);

#	$App->PrintRawHTML($args{MultiFunctionTableJScript}) if($args{MultiFunctionTableJScript});
#	$this->{MultiFunctionTableJScript} = $args{MultiFunctionTableJScript};
#	my $pHash = ($args{pMultiFunctionTableConfig})? $args{pMultiFunctionTableConfig} : {};
#	$this->{pMultiFunctionTableConfig} = $pHash;
	$this->{MultiFunctionTableJScript} = JSParams->new()->GetMultiFunctionalTableString('.TableTest3', sortList => '[[1,0]]', excludeColumns => '[2,3]')
			if(!$this->{MultiFunctionTableJScript});
	$this->{pMultiFunctionTableConfig} = {
		class => 'tablesorter'
		} if(!$this->{pMultiFunctionTableConfig});
	$App->PrintRawHTML($this->{MultiFunctionTableJScript}) if($this->{MultiFunctionTableJScript});
	my $pHash = $this->{pMultiFunctionTableConfig};

#$App->print("RootPath[$RootPath]\n");
	$FullPath = Utils::MakePath($RootPath, '*', '/', 0);
#$App->print("FullPath[$FullPath]\n");
	my @files = $App->GetFileList($pParams, $FullPath, 1);
#$App->print("  n=", scalar @files, "\n");
#$App->print("  files=", join(', ', @files), "\n");
	if($this->{ShowDirectory}) {
		my $nDir = 0;
		$this->BeginTable($App, $pParams, $pHash, \@TableDef);
#
#親ディレクトリィを表示
#
		if($this->{ShowParentDirectory}) {
			my ($IsPermittedPD, $BrowseDirPD, $FileRegExpPD, $DirRegExpPD, $ssPD, $stPD) 
					= $this->IsPermitted($App, $pParams, $ParentDirectory);
#$App-print("ParentDir: [$ParentDirectory] IsPermitted=$IsPermittedPD]\n");

			if($IsPermittedPD) {
				my $WebPD = $ParentDirectory;
Jcode::convert(\$WebPD, $pParams->{FileSystemCharCode});
				my $mdate = Utils::GetWriteDate($WebPD);
				my $date  = Utils::BuildDateString($mdate);

				$App->BeginRow();
				$App->TableCell($date) if($this->{ShowDate});
#				$App->PrintRawHTML("$date: ") if($this->{ShowDate});
				my $ParentFolderLabel = $App->mlText('en' => '[Parent Folder]', 'jp' => '[親フォルダー]');
				my $link = $this->MakeDirLink($App, $pParams, $WebPD, $ParentFolderLabel);
				$App->TableCell($link . '　');
				$nDir++;
				$App->EndRow();
			}
		}

#ディレクトリィを表示
		my $RegExpRootPath = Utils::RegExpQuote($this->{RootPath});
		for my $f (@files) {
#$App->print("dir[$f]\n");
#親ディレクトリィの表示は済んでいるので、飛ばす
			next if(!-d $f);
			if($pFilterFunc) {
				next if(!&$pFilterFunc($this, $App, $pParams, $f));
			}
			else {
			}
			next if($f =~ /\/\.{1,2}$/);
#			next if($f =~ /\/.$/);
#			next if($f =~ /\/..$/ and !$pParams->{ShowParentDirectory});

			my ($IsPermitted, $pd, $bf, $bd, $ss, $st) = $this->IsPermitted($App, $pParams, $f);
			next if(!$IsPermitted);

			my $EncodedPath = $f;
			$EncodedPath =~ s/^$RegExpRootPath//i;
			$EncodedPath =~ s/^\///;
			$EncodedPath = Utils::URLEncode($EncodedPath);
			my $OriginalPath = $f;

#Jcode::convert(\$f, "euc-jp", $pParams->{FileSystemCharCode});
#			$f =~ /.*\/([^\/]+)$/;
#			my $fname = $1;
			my ($drive, $directory, $fname, $ext, $lastdir, $filebody) = Deps::SplitFilePath($f);
#Jcode::convert(\$f, $pParams->{FileSystemCharCode}, "euc-jp");
			my $mdate = Utils::GetWriteDate($f);
			my $date  = Utils::BuildDateString($mdate);

			$App->BeginRow();

			$fname =~ s/$ss/$st/ig if($ss ne '');
#その他のディレクトリィを表示
			if($DirRegExp eq '' or $fname =~ /$DirRegExp/i) {
#$VarName, $CurVal, $label, $charcode, %args
				my $key = 'CheckFile-' . $EncodedPath;
				if($CanModifyFile) {
					my $cs = $App->BuildCheckboxString($key, $pParams->{$key}, '');
					$date = $cs . $date;
				}
				$App->TableCell($date) if($this->{ShowDate});
# Windowsでは、ここで変換すると"講演"が化ける
if($^O eq 'MSWin32') {
}
else {
		Jcode::convert(\$fname, $pParams->{WebCharCode}, $pParams->{FileSystemCharCode});
}
#$f = Utils::URLEncode($f);
				my ($type, $label, $filename) = $this->GetFileInf($App, $pParams, $f, $pParams->{WebCharCode});
Jcode::convert(\$label, $pParams->{WebCharCode});
				my $link = $this->MakeDirLink($App, $pParams, $f, "<b>[$label]</b>");
#Jcode::convert(\$link, $pParams->{WebCharSet}, $pParams->{FileSystemCharSet});
				$App->TableCell($link . $ZenkakuSpace);
				$nDir++;
#				$App->PrintRawHTML("$link<br>\n");
				if($CanModifyFile) {
					$key = 'NewFile-' . $EncodedPath;
					my $s = $App->BuildTextboxString($key, 10, $pParams->{$key});
					$App->TableCell($s);
				}
			}
			$App->EndRow();
		}
		if($nDir == 0) {
			$App->TableCell($App->GetPhrase('No folder'));# . '::colspan="3"');
			$App->TableCell('');
			$App->TableCell('') if($CanModifyFile);
		}
		$App->EndTableBody();
		$App->EndTable();
	}

	my @TableDef = (
			["${black1}<b>". $App->GetPhrase('Date')           . "</b>${black2}"],
			["${black1}<b>". $App->GetPhrase('File name')      . "</b>${black2}"],
			["${black1}<b>". $App->GetPhrase('Size (KB)')      . "</b>${black2}"],
			["${black1}<b>". $App->GetPhrase('New file name')  . "</b>${black2}"],
			);
	delete $TableDef[3] if(!$CanModifyFile);
	my $nDir = 0;
	$this->BeginTable($App, $pParams, $pHash, \@TableDef);

#ファイルを表示
	my $RegExpRootPath = Utils::RegExpQuote($this->{RootPath});
	for my $f (@files) {
#$App->print("file[$f]\n");
		next if(-d $f);

		if($pFilterFunc) {
			next if(!&$pFilterFunc($this, $App, $pParams, $f));
		}
		else {
		}
		next if(!$this->{ShowHTAccess} and $f =~ /^\.ht/);

		my ($IsPermitted, $pd, $bf, $bd, $ss, $st) = $this->IsPermitted($App, $pParams, $f);
		next if(!$IsPermitted);

		my $EncodedPath = $f;
		$EncodedPath =~ s/^$RegExpRootPath//i;
		$EncodedPath =~ s/^\///;
		$EncodedPath = Utils::URLEncode($EncodedPath);
		my $OriginalPath = $f;

#Jcode::convert(\$f, "euc-jp", $pParams->{FileSystemCharCode});
#		$f =~ /.*\/([^\/]+)$/;
#		my $fname = $1;
		my ($drive, $directory, $fname, $ext, $lastdir, $filebody) = Deps::SplitFilePath($f);
#Jcode::convert(\$f, $pParams->{FileSystemCharCode}, "euc-jp");
		my $mdate = Utils::GetWriteDate($f);
		my $date  = Utils::BuildDateString($mdate);

		$App->BeginRow();

		$fname =~ s/$ss/$st/ig if($ss ne '');
		if($FileRegExp eq '' or $fname =~ /$FileRegExp/i) {
			if($fname !~ /^\//) {
				$f = "file://$f";
			}
			else {
				$f = "file:$f";
			}
			$this->URLSubstitution($App, $pParams, $f);
#MakeFielLinkでEncodeしている
#			$f = Utils::URLEncode($f);
#$VarName, $CurVal, $label, $charcode, %args
			my $key = 'CheckFile-' . $EncodedPath;
			if($CanModifyFile) {
				my $cs = $App->BuildCheckboxString($key, $pParams->{$key}, '');
				$date = $cs . $date;
			}
			$App->TableCell($date) if($this->{ShowDate});
#			$App->print("$date: ") if($this->{ShowDate});
			my ($type, $label, $filename) = $this->GetFileInf($App, $pParams, $f, $pParams->{WebCharCode});
Jcode::convert(\$label, $pParams->{FileSystemCharCode}); #$pParams->{WebCharCode});
			my $link     = $this->MakeFileLink($App, $pParams, $f, $label);

			my $EditLink = ($this->{ShowHTAccess})?
				$this->MakeEditLink($App, $pParams, $f, 'edit', [@EdittableFileRegExp, "^\\.ht"]) :
				$this->MakeEditLink($App, $pParams, $f, 'edit', [@EdittableFileRegExp]);
			$link = "$link ($EditLink)" if($CanEdit and $EditLink ne '');
			my $HasInformation = $this->HasInformation($App, $pParams, $f);
#$App->print("[$f][$HasInformation]\n");
			my $InfLinkStr = ($HasInformation)?
				'('.$App->GetLinkString("$this->{ModuleName}::ViewInformation", $pParams, 'inf', "_blank", undef, undef, $f).')' : '';

#			$App->TableCell($link . $InfLinkStr);
			$App->TableCell($link . $ZenkakuSpace. $InfLinkStr);
			$nDir++;

#			$App->PrintRawHTML("$link\n");
			if($this->{ShowFileSize}) {
				my ($size, $unit) = Utils::GetFileSize($OriginalPath, 'kb', "%12.3f");
#				my ($size, $unit) = Utils::GetFileSize($OriginalPath, 'auto');
				$App->TableCell($size);
#				$App->TableCell("$size $unit");
#				$App->PrintRawHTML(" ($size $unit)");
			}
			if($CanModifyFile) {
				$key = 'NewFile-' . $EncodedPath;
				my $s = $App->BuildTextboxString($key, 10, $pParams->{$key});
				$App->TableCell($s);
			}
#			$App->PrintRawHTML("<br>\n");
		}
		$App->EndRow();
	}

	&$pPostFunc($App, $pParams) if($pPostFunc);

	if($nDir == 0) {
		$App->TableCell($App->GetPhrase('No file'));# . '::colspan="4"');
		$App->TableCell('');
		$App->TableCell('');
		$App->TableCell('') if($CanModifyFile);
	}
	$App->EndTableBody();
	$App->EndTable();

	if(!-d $RootPath) {
		my ($drive, $directory, $fname, $ext, $lastdir, $filebody) = Deps::SplitFilePath($RootPath);
		$RootPath = "$drive$directory";
	}
	my ($Option, $target) = $App->GetCGIParameters(
		{
			Action     => $this->{NextAction},
			PrevAction => $pParams->{Action},
			Path       => Utils::URLEncode($RootPath),
		},
		[qw(+Action Path SubMenuFunction IsChildFrame FrameMode Key iRootDir -ValidAbstractOnly -ValidProgramOnly)],
		undef, undef, 1,
		);
	$App->PrintRawHTML("$Option\n");
	$App->EndForm(undef, undef, undef, undef);
}

sub ShowCreateHTAccessPage
{
	my ($this, $App, $pParams, $Path) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));
	return if(!$App->HasPrivilege($CreateHTAccessPrivilege, 0));
#$App->print("P[$Path][$pParams->{WebDocumentRoot}]\n");
	return if($Path !~ /^$pParams->{WebDocumentRoot}/);

	my ($Option, $target) = $App->GetCGIParameters(
			{
				Action                 => ($pParams->{NextAction})? $pParams->{NextAction} : "${ModuleName}::CreateHTAccess",
				Path                   => Utils::URLEncode($Path),
				PrevAction             => $pParams->{Action},
			},
			[qw(+Action NextAction Path SubMenuFunction IsChildFrame FrameMode Key iRootDir)],
			undef, undef, 1,
		);
	$pParams->{PasswdFileName} = '.htpasswd'   if($pParams->{PasswdFileName} eq '');
	$pParams->{AuthName}       = 'SecretFiles' if($pParams->{AuthName} eq '');
	$App->BeginForm($pParams, $pParams->{ScriptPath}, "POST", "_self", 0);
	$App->PrintFormButton("CreateHTPasswd", $App->GetPhrase('Create .htaccess/.htpasswd files'));
	$App->print("\n");
	$App->Textbox('PasswdFileName',         30, $pParams->{PasswdFileName},  '<b>' . $App->GetPhrase('Passwd FileName') . ':</b> ');
#	$App->print("\n");
	$App->print("     ");
	$App->Textbox('AuthName',               30, $pParams->{AuthName},        '<b>' . $App->GetPhrase('Auth Name')       . ':</b> ');
	$App->print("\n");
	$App->Textbox('AccountName',            30, $pParams->{AccountName},     '<b>' . $App->GetPhrase('Account Name')    . ':</b> ');
#	$App->print("\n");
	$App->print("     ");
	$App->PasswordTextbox('AccessPassword', 30, $pParams->{AccessPassword},  '<b>' . $App->GetPhrase('Password')        . ':</b> ');
	$App->print("\n");
	$App->PrintRawHTML("$Option\n");
	$App->EndForm(undef, undef, undef, undef);
}

sub CreateHTAccess
{
	my ($this, $App, $pParams, $pPrevFunc, $pPostFunc) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));
	return if(!$App->HasPrivilege($CreateHTAccessPrivilege, 0));

my $Overwrite = 1;
	$App->ShowSubMenu($pParams, $pParams->{SubMenuFunction});

	$App->H2($App->GetPhrase('Create .htaccess/.htpasswd') . "\n");

	if($pParams->{PasswdFileName} eq '') {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: PasswdFileName must be specified.\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}

	if(length($pParams->{AccessPassword}) < 6) {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: AccessPassword must be longer than 6 characters.\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}

	$pParams->{Path} = Utils::URLDecode($pParams->{Path});
	my $PasswordDir  = Utils::MakePath($pParams->{BinFileRootDir}, 'Password', '/', 0);
	my $HTAccessPath = Utils::MakePath($pParams->{Path}, '.htaccess', '/', 0);
#	my $HTPasswdPath = Utils::MakePath($pParams->{Path}, '.htpasswd', '/', 0);
	my $HTPasswdPath = Utils::MakePath($PasswordDir,     $pParams->{PasswdFileName}, '/', 0);
$App->print("HTAccessPath: $HTAccessPath\n");
$App->print("HTPasswdPath: $HTPasswdPath\n");

	if(!$Overwrite and -e $HTAccessPath) {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: [$HTAccessPath] already exists.\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}
	if(!$Overwrite and -e $HTPasswdPath) {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: [$HTPasswdPath] already exists.\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}

	my $out = new JFile($HTAccessPath, 'w');
	if(!$out) {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: Can not write to [$HTAccessPath].\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}
#	$out->print("Options -Indexes\n");
	$out->print("\n");
	$out->print("AuthUserFile  $HTPasswdPath\n");
	$out->print("AuthGroupFile /dev/null\n");
	$out->print("AuthName $pParams->{AuthName}\n");
	$out->print("AuthType Basic\n");
	$out->print("require  valid-user\n");
	$out->print("\n");
	$out->print("<Files ~ \"^.(htpasswd|htaccess)\$\">\n");
	$out->print("  deny from all\n");
	$out->print("</Files>\n");
	$out->print("order deny,allow\n");
#order deny,allow
# deny from all
# allow from xxxxx.net
# allow from yyyyy.com
# allow from 123.456.789.012
# allow form 234.567.890.123 
	
	$out->Close();
	$App->H3("[$HTAccessPath] has been created.\n");

	my $out = new JFile($HTPasswdPath, 'w');
	if(!$out) {
		$App->H3("Error in ${ModuleName}::CreateHTPasswd: Can not write to [$HTPasswdPath].\n");
		$App->HR();
		$this->ShowPage($App, $pParams, undef, undef, 0);
		return;
	}
	my $EncPassword = Utils::CryptForHTPasswd($pParams->{AccessPassword});
	$out->print("$pParams->{AccountName}:$EncPassword\n");
	$out->Close();
	$App->H3("[$HTPasswdPath] has been created.\n");

	$App->HR();
	$this->ShowPage($App, $pParams, undef, undef, 0);
}

sub ShowChangePasswordPage
{
	my ($this, $App, $pParams) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));
	return if(!$App->HasPrivilege($ChangePasswordPrivilege, 0));

	my $DownloadAccountKey = $this->{DownloadAccountKey};
	if($pParams->{$DownloadAccountKey} eq '') {
		$App->H2("Error in ${ModuleName}::ShowChangePasswordPage: Variable [$DownloadAccountKey] is not defined.\n");
		return;
	}

	my ($Option, $target) = $App->GetCGIParameters(
			{
#				Action      => "${ModuleName}::ChangePassword",
				Action      => ($pParams->{NextAction})? $pParams->{NextAction} : "${ModuleName}::ChangePassword",
				PrevAction  => $pParams->{Action},
				AccountName => $pParams->{$DownloadAccountKey},
			},
			[qw(+Action NextAction Path SubMenuFunction IsChildFrame FrameMode Key iRootDir)],
			undef, undef, 1,
		);
	$pParams->{PasswdFileName} = '.htpasswd'   if($pParams->{PasswdFileName} eq '');
	$pParams->{AuthName}       = 'SecretFiles' if($pParams->{AuthName} eq '');
	$App->BeginForm($pParams, $pParams->{ScriptPath}, "POST", "_self", 0);
	$App->PrintFormButton("ChangePassword", $App->GetPhrase('Change password'));
	$App->print("     ");
#	$App->print("\n");
	$App->PrintRawHTML("<b>". $App->GetPhrase('Account') . ": </b> $pParams->{$DownloadAccountKey}\n");
	$App->print("  ");
#	$App->print("\n");
	$App->PasswordTextbox('AccountPassword', 30, $pParams->{AccountPassword},   '<b>' . $App->GetPhrase('Password') . ':</b> ');
	$App->PrintRawHTML("$Option\n");
	$App->EndForm(undef, undef, undef, undef);
}

sub ChangePassword
{
	my ($this, $App, $pParams) = @_;
	return if(!$this->IsOpen($App, $pParams, 0));
	return if(!$App->HasPrivilege($ChangePasswordPrivilege, 0));

	my $DownloadAccountKey       = $this->{DownloadAccountKey};
	my $DownloadAccountName      = $this->{DownloadAccountName};
	my $DownloadAccountPrivilege = $this->{DownloadAccountPrivilege};
	my $MinPasswordLength        = $this->{MinPasswordLength};

	if($pParams->{$DownloadAccountKey} eq '') {
		$App->H2("Error in ${ModuleName}::ChangePassword: Variable [$DownloadAccountKey] is not defined.\n");
		$App->HR();
		$this->ShowPage($App, $pParams);
		return;
	}
	if(length($pParams->{AccountPassword}) < $MinPasswordLength) {
		if($pParams->{AccountPassword} eq '') {
			$App->mlPrintRawHTML('en' => "Error: NULL Password is not allowed.\n",
					     'jp' => "Error: 空パスワードは使えません。\n");
		}
		else {
			$App->mlPrintRawHTML('en' => "Error: Password is too short (must be $MinPasswordLength characters or longer).\n",
					     'jp' => "Error: パスワードが短すぎます ($MinPasswordLength文字以上にしてください).\n");
		}
		$App->HR();
		$this->ShowPage($App, $pParams);
		return;
	}

	my $DownloadAccount = $pParams->{$DownloadAccountKey};
	my $DB = $App->DB();
	$pParams->{DBUsersTableName} = $pParams->{DBRegistersTableName} if($pParams->{DBUsersTableName} eq '');

	$DB->Search($pParams->{DBUsersTableName}, "EMail='$DownloadAccount' order by sn", "");
	my $nHit = $DB->nHit();
#$App->print("$nHit found for Account [$DownloadAccount].\n");
	my $Now = time();
	if($nHit > 0) {
		my @DBList = (
			Password   => $pParams->{AccountPassword},
			);
		if($pParams->{ProgramBaseName} =~ /Laboratory/) {
			@DBList = (
				@DBList,
				UpdateDate       => $Now,
				);
		}
		my $ret = $DB->UpdateData($pParams->{DBUsersTableName}, "EMail=\'$DownloadAccount\'", @DBList);
		if($ret) {
			$App->mlPrintRawHTML('en' => "Password for [$DownloadAccount] updated.<br>\n",
					     'jp' => "[$DownloadAccount]のパスワードを更新しました。<br>\n");
		}
		else {
			$App->mlPrintRawHTML('en' => "Errorr in ${ModuleName}::ChangePassword: Password for [$DownloadAccount] could not be updated.<br>\n",
					     'jp' => "Errorr in ${ModuleName}::ChangePassword: 不明な理由で[$DownloadAccount]のパスワードを更新できませんでした。<br>\n");
		}
	}
	else {
		my @DBList = (
			EMail            => $DownloadAccount,
			Name             => $DownloadAccountName,
			Password         => $pParams->{AccountPassword},
			Privilege        => $DownloadAccountPrivilege,
			);
		if($pParams->{ProgramBaseName} =~ /Laboratory/) {
			@DBList = (
				@DBList,
				Status => 'Active',
				UpdateDate       => $Now,
				RecordedDate     => $Now,
				);
		}
		my $ret = $DB->InsertData($pParams->{DBUsersTableName}, @DBList);
		if($ret) {
			$App->mlPrintRawHTML('en' => "Account [$DownloadAccount] has been created.<br>\n",
					     'jp' => "アカウント[$DownloadAccount]を作成しました。<br>\n");
#$App->print("[$DownloadAccountName][$pParams->{AccountPassword}][$DownloadAccountPrivilege][$DownloadAccount] has been created.<br>\n");
		}
		else {
			$App->mlPrintRawHTML('en' => "Errorr in ${ModuleName}::ChangePassword: Create Account [$DownloadAccount] failed "
						    ."(Table [$pParams->{DBUsersTableName}]).<br>\n",
					     'jp' => "Errorr in ${ModuleName}::ChangePassword: アカウント[$DownloadAccount]の作成に失敗しました "
					     	    ."(Table [$pParams->{DBUsersTableName}])。<br>\n");
		}
	}

	$App->HR();
	$this->ShowPage($App, $pParams);
}

sub GetFileLink {
	my ($this, $App, $pParams, $Path) = @_;

	if($Path eq '') {
		$pParams->{RootPath} = Utils::URLDecode($pParams->{RootPath});
Jcode::convert(\$pParams->{RootPath}, $pParams->{FileSystemCharCode});
		$pParams->{Path} = Utils::URLDecode($pParams->{Path});
Jcode::convert(\$pParams->{Path}, $pParams->{FileSystemCharCode});
		$Path = Utils::MakePath($pParams->{RootPath}, $pParams->{Path}, '/', 0);
#$App->print("p2[$Path]\n");
		$Path = Utils::ReduceDirectory($Path, undef, $App);
#$App->print("p2[$Path]\n");
	}
#$App->print("p2[$Path]\n");
	my ($drive, $directory, $filename, $ext1, $lastdir, $filebody) = Deps::SplitFilePath($Path);
	my $link = $this->MakeFileLink($App, $pParams, $Path, $filename);
	$App->PrintRawHTML("$link\n");

	$App->HR();
	return if($this->ViewInformation($App, $pParams, $Path));
}

sub ShowImage
{
	my ($this, $App, $pParams, $Path) = @_;
	return $App->ShowImage($pParams, $Path);
}

sub DownloadFile {
	my ($this, $App, $pParams, $Path) = @_;
	$this->Download2($App, $pParams, $Path);
}

sub Download {
	my ($this, $App, $pParams, $Path) = @_;
	$this->Download2($App, $pParams, $Path);
}

sub Download2 {
	my ($this, $App, $pParams, $Path) = @_;
	$App->SendNotificationForPrivilegedAccessMail($App, $pParams);
	return if(!$this->IsOpen($App, $pParams, 0));

	$Path = $pParams->{Path} if(!defined $Path and defined $pParams->{Path});
	$Path = Utils::URLDecode($Path);
	$Path = Utils::DelQuote($Path);
	$Path =~ s/\\/\//g;
Jcode::convert(\$Path, $pParams->{FileSystemCharCode});
	my $RootPath = $this->GetRootPath($App, $pParams);
	if(!-e $Path) {
		$Path = Utils::MakePath($RootPath, $Path, '/', 0);
#		$Path = Utils::MakePath($this->{RootPath}, $Path, '/', 0);
	}
	$Path = Utils::ReduceDirectory($Path);
#$App->print("root[$RootPath][$Path]\n");
#$App->print("p[$Path]\n");
	$this->URLReverseSubstitution($App, $pParams, $Path);

	my $CheckFileName = $Path;
	$CheckFileName =~ s/^file:\/\///i;
	my ($IsPermitted, $pd, $bf, $bd, $ss, $st) = $this->IsPermitted($App, $pParams, $CheckFileName, $this->{pPermittedDirs});
	if(!$IsPermitted) {
		$App->H2("Error: Download $Path is not permitted.");
		return;
	}

	my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($Path);
#	my $DownloadPath = Utils::URLEncode($filename);
	my $DownloadPath = $filename;
Jcode::convert(\$DownloadPath, $DownloadFileCharCode, $pParams->{FileSystemCharCode});
	$App->MyCGIApplication::DownloadFile($CheckFileName, $DownloadPath);
}

sub IsPermitted
{
	my ($this, $App, $pParams, $Path) = @_;

	my @PermittedDirs = @{$this->{pPermittedDirs}} if(defined $this->{pPermittedDirs});
	my @BrowseFiles   = @{$this->{pBrowseFiles}}   if(defined $this->{pBrowseFiles});
	my @BrowseDirs    = @{$this->{pBrowseDirs}}    if(defined $this->{pBrowseDirs});
	my @DenyFiles     = @{$this->{pDenyFiles}}     if(defined $this->{pDenyFiles});
	my @DenyDirs      = @{$this->{pDenyDirs}}      if(defined $this->{pDenyDirs});
	my @SubstitutionSource = @{$this->{pSubstitutionSource}} if(defined $this->{pSubstitutionSource});
	my @SubstitutionTarget = @{$this->{pSubstitutionTarget}} if(defined $this->{pSubstitutionTarget});

	my $IsPermitted = 0;
	my ($pd, $bf, $bd, $ss, $st, $df, $dd);
	for(my $i = 0 ; $i < @PermittedDirs ; $i++) {
#print "PermDir[$i] (this=$this): [$Path][$PermittedDirs[$i]]<br>\n";
		$pd = $PermittedDirs[$i];
		$pd =~ s/\\/\//g;
#		$pd =~ s/\//\\\//g;
#$App->print("$i: $Path [$pd]\n");
		if($Path =~ /$pd/i) {
#$App->print("  passed\n");
			$IsPermitted = 1;
			$bf = $BrowseFiles[$i];
			$bd = $BrowseDirs[$i];
			$df = $DenyFiles[$i];
			$dd = $DenyDirs[$i];
			$ss = $SubstitutionSource[$i];
			$st = $SubstitutionTarget[$i];
			last;
		}
	}
#$App->print("Ret=$IsPermitted: [$Path] $pd, $bd, $ss, $st\n");
	my ($drive, $directory, $filename, $ext, $lastdir, $filebody) = Deps::SplitFilePath($Path);
	if(-d $Path) {
#$App->print("[$Path] is directory\n");
		$lastdir = $filename;
		$directory = $Path;
		$filename = $filebody = $ext = '';
	}
#$App->print("f=[$filename] [$bf][$bd][$df][$dd]\n");
	if($filename ne '' and $bf ne '' and $filename !~ /$bf/i) {
		$IsPermitted = 0;
	}
	if($filename ne '' and $df ne '' and $filename =~ /$df/i) {
		$IsPermitted = 0;
	}
	if($bd ne '' and $Path !~ /$bd/i) {
		$IsPermitted = 0;
	}
#$App->print("Path: $Path, dd=$dd\n");
	if($dd ne '' and $Path =~ /$dd/i) {
		$IsPermitted = 0;
	}

	return ($IsPermitted, $pd, $bf, $bd, $ss, $st);
}

sub URLSubstitution
{
	my ($this, $App, $pParams, $url) = @_;

	my @URLSubstitutionList = @{$this->{pURLSubstitutionList}} if(defined $this->{pURLSubstitutionList});
	for(my $i = 0 ; $i < @URLSubstitutionList ; $i += 2) {
		my $src    = @URLSubstitutionList[$i];
		my $target = @URLSubstitutionList[$i+1];
		$url =~ s/$src/$target/gi;
	}
	return $url;
}

sub URLReverseSubstitution
{
	my ($this, $App, $pParams, $url) = @_;

	my @URLReverseSubstitutionList = @{$this->{pURLReverseSubstitutionList}} if(defined $this->{pURLReverseSubstitutionList});
	for(my $i = 0 ; $i < @URLReverseSubstitutionList ; $i += 2) {
		my $src    = @URLReverseSubstitutionList[$i];
		my $target = @URLReverseSubstitutionList[$i+1];
		$url =~ s/$src/$target/gi;
	}
	return $url;
}
1;