File Coverage

blib/lib/Tk/Mirror.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

#*** Mirror.pm ***#
# Copyright (C) 2006 - 2008 by Torsten Knorr
# [e-mail]
# All rights reserved!
#-------------------------------------------------
 package Tk::Mirror;
#-------------------------------------------------
 use strict;
 use Tk::Frame;
 use Net::UploadMirror 0.13;
 use Net::DownloadMirror 0.10;
 use Storable;
#-------------------------------------------------
 @Tk::Mirror::ISA = qw(Tk::Frame);
 $Tk::Mirror::VERSION = '0.06';
#-------------------------------------------------
 Construct Tk::Widget 'Mirror';
#-------------------------------------------------
 sub Populate
 	{
 	require Tk::Label;
 	require Tk::Entry;
 	require Tk::BrowseEntry;
 	require Tk::Tree;
 	require Tk::Button;
 	require Tk::Dialog;
 	my ($m, $args) = @_;
#-------------------------------------------------
 	if(-f 'para')
 		{
 		$m->{para} = retrieve('para');
 		}
 	else
 		{
 		$m->{para} = {};
 		}
 	for(qw/ 	-localdir
 		-remotedir
 		-ftpserver
 		-user
 		-pass
 		-debug
 		-timeout
 		-delete
 		-connection
 		-exclusions
 		-subset
 		-filename
 		/)
 		{
 		$m->{para}{substr($_, 1)} = delete($args->{$_}) if(defined($args->{$_}));
 		}
 	$m->{upload}	= Net::UploadMirror->new(%{$m->{para}});
 	$m->{download}	= Net::DownloadMirror->new(%{$m->{para}});
 	$m->{overwrite}	= defined($args->{-overwrite}) ? delete($args->{-overwrite}) : 'none';
 	$m->SUPER::Populate($args);
#-------------------------------------------------
 	my $label_user	= $m->Label(
 		-text		=> 'Username ->',
 		)->grid(
 		-row		=> 0,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{bentry_user}	= $m->BrowseEntry(
 		-variable		=> \$m->{para}{user},
 		-browsecmd	=> [\&UpdateAccess, $m, 'user'],
 		)->grid(
 		-row		=> 0,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
	my $label_ftpserver = $m->Label(
 		-text		=> 'FTP-Server ->',
 		)->grid(
 		-row		=> 1,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{bentry_ftpserver} = $m->BrowseEntry(
 		-variable		=> \$m->{para}{ftpserver},
 		-browsecmd	=> [\&UpdateAccess, $m, 'ftpserver'],
 		)->grid(
 		-row		=> 1,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nsew',
 		);
#-------------------------------------------------
 	my $label_pass	= $m->Label(
 		-text		=> 'Password ->',
 		)->grid(
 		-row		=> 2,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nsew',
 		);
#-------------------------------------------------
 	$m->{entry_pass} = $m->Entry(
 		-textvariable	=> \$m->{para}{pass},
 		-show		=> '*',
 		)->grid(
 		-row		=> 2,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nsew',
 		);
#-------------------------------------------------
 	my $label_local_dir = $m->Label(
 		-text		=> 'Localdirectory',
 		)->grid(
 		-row		=> 3,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	my $label_remote_dir = $m->Label(
 		-text		=> 'Remotedirectory',
 		)->grid(
 		-row		=> 3,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{bentry_local_dir} = $m->BrowseEntry(
 		-variable		=> \$m->{para}{localdir},
 		-browsecmd	=> [\&UpdateAccess, $m, 'localdir'],
 		)->grid(
 		-row		=> 4,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{bentry_remote_dir} = $m->BrowseEntry(
 		-variable		=> \$m->{para}{remotedir},
 		-browsecmd	=> [\&UpdateAccess, $m, 'remotedir'],
 		)->grid(
 		-row		=> 4,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{tree_local_dir} = $m->Scrolled(
 		"Tree",
 		-separator	=> '/',
 		-itemtype	=> 'text',
 		-selectmode	=> 'single',
 		)->grid(
 		-row		=> 5,
 		-column		=> 0,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{tree_remote_dir} = $m->Scrolled(
 		"Tree",
 		-separator	=> '/',
 		-itemtype	=> 'text',
 		-selectmode	=> 'single'
 		)->grid(
 		-row		=> 5,
 		-column		=> 3,
 		-columnspan	=> 3,
 		-sticky		=> 'nswe'
 		);
#-------------------------------------------------
 	$m->{label_overwrite} = $m->Label(
 		-text		=> 'overwrite'
 		)->grid(
 		-row		=> 6,
 		-column		=> 0,
 		-columnspan	=> 2,
 		-sticky		=> 'nswe'
 		);
 #------------------------------------------------
 	$m->{rbutton_none} = $m->Radiobutton(
 		-text		=> 'none',
 		-variable		=> \$m->{overwrite},
 		-value		=> 'none'
 		)->grid(
 		-row		=> 6,
 		-column		=> 2,
 		-sticky		=> 'nswe'
 		);
#-------------------------------------------------
 	$m->{rbutton_all} = $m->Radiobutton(
 		-text		=> 'all',
 		-variable		=> \$m->{overwrite},
 		-value		=> 'all',
 		)->grid(
 		-row		=> 6,
 		-column		=> 3,
 		-sticky		=> 'nwes'
 		);
#-------------------------------------------------
 	$m->{rbutton_older} = $m->Radiobutton(
 		-text		=> 'older',
 		-variable		=> \$m->{overwrite},
 		-value		=> 'older'
 		)->grid(
 		-row		=> 6,
 		-column		=> 4,
 		-sticky		=> 'nswe'
 		);
#-------------------------------------------------
 	$m->{button_upload} 	= $m->Button(
 		-text		=> 'Upload ->',
 		-command	=> [\&Upload, $m],
 		-state		=> 'disabled'
 		)->grid(
 		-row		=> 7,
 		-column		=> 0,
 		-columnspan	=> 2,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{button_compare} = $m->Button(
 		-text		=> 'Compare',
 		-command	=> [\&CompareDirectories, $m],
 		)->grid(
 		-row		=> 7,
 		-column		=> 2,
 		-columnspan	=> 2,
 		-sticky		=> 'nsew',
 		);
#-------------------------------------------------
 	$m->{button_download} = $m->Button(
 		-text		=> '<- Download',
 		-command	=> [\&Download, $m],
 		-state		=> 'disabled',
 		)->grid(
 		-row		=> 7,
 		-column		=> 4,
 		-columnspan	=> 2,
 		-sticky		=> 'nswe',
 		);
#-------------------------------------------------
 	$m->{childs} = {
 		'LabelUser'		=> $label_user,
 		'bEntryUser'		=> $m->{bentry_user},
 		'LabelFtpServer'		=> $label_ftpserver,
 		'bEntryFtpServer'		=> $m->{bentry_ftpserver},
 		'LabelPass'		=> $label_pass,
 		'EntryPass'		=> $m->{entry_pass},
 		'LabelLocalDir'		=> $label_local_dir,
 		'LabelRemoteDir'		=> $label_remote_dir,
 		'bEntryLocalDir'		=> $m->{bentry_local_dir},
 		'bEntryRemoteDir'		=> $m->{bentry_remote_dir},
 		'TreeLocalDir'		=> $m->{tree_local_dir},
 		'TreeRemoteDir'		=> $m->{tree_remote_dir},
 		'LabelOverwrite'		=> $m->{label_overwrite},
 		'rButtonNone'		=> $m->{rbutton_none},
 		'rButtonAll'		=> $m->{rbutton_all},
		'rButtonOlder'		=> $m->{rbutton_older},
 		'ButtonUpload'		=> $m->{button_upload},
 		'ButtonCompare'		=> $m->{button_compare},
 		'ButtonDownload'		=> $m->{button_download},
 		};
 	$m->Advertise($_ => $m->{childs}{$_}) for(keys(%{$m->{childs}}));
 	$m->Delegates(
 		DEFAULT	=> $m->{tree_local_dir},
 		);
 	$m->InsertStoredValues();
 	}
#-------------------------------------------------
 sub DESTROY
 	{
 	my ($self) = @_;
 	print($self || ref($self) . "object destroyed\n") if($self->{_debug});
 	}
#-------------------------------------------------
 sub GetChilds
 	{
 	return $_[0]->{childs};
 	}
#-------------------------------------------------
 sub SetParams
  	{
  	my ($self) = @_;
  	unless(-d $self->{para}{localdir})
 		{
 		$self->Dialog(
 			-text	=> "Localdirectory $self->{para}{localdir} not found",
 			-title	=> 'INPUT-ERROR'
 			)->Show();
 		return;
 		}
 	for(qw/user ftpserver pass remotedir/)
 		{
 		unless($self->{para}{$_})
 			{
 			$self->Dialog(
 				-text	=> "parameter: $_  undefined",
 				-title	=> 'INPUT-ERROR'
 				)->Show();
 			return;
 			}
 		}
 	$self->{upload}->SetUser($self->{para}{user});
  	$self->{upload}->SetFtpServer($self->{para}{ftpserver});
  	$self->{upload}->SetPass($self->{para}{pass});
  	$self->{upload}->SetLocalDir($self->{para}{localdir});
  	$self->{upload}->SetRemoteDir($self->{para}{remotedir});
  	$self->{download}->SetUser($self->{para}{user});
 	$self->{download}->SetFtpServer($self->{para}{ftpserver});
 	$self->{download}->SetPass($self->{para}{pass});
 	$self->{download}->SetLocalDir($self->{para}{localdir});
 	$self->{download}->SetRemoteDir($self->{para}{remotedir});
 	return 1;
 	}
#-------------------------------------------------
 sub CompareDirectories
 	{
 	my ($self) = @_;
 	return unless($self->SetParams());
 	return unless($self->{upload}->Connect());
 	my $debug = $self->{upload}->GetDebug();
 	$self->StoreParams();
 	($self->{rh_lf}, $self->{rh_ld}) = $self->{upload}->ReadLocalDir();
 	if($debug)
 		{
 		print("local files : $_\n") for(sort keys %{$self->{rh_lf}});
 		print("local dirs : $_\n") for(sort keys %{$self->{rh_ld}});
 		}
 	($self->{rh_rf}, $self->{rh_rd}) = $self->{upload}->ReadRemoteDir();
 	if($debug)
 		{
 		print("remote files : $_\n") for(sort keys %{$self->{rh_rf}});
 		print("remote dirs : $_\n") for(sort keys %{$self->{rh_rd}});
 		};
 	$self->{ra_rfnil} = $self->{upload}->RemoteNotInLocal($self->{rh_lf}, $self->{rh_rf});
 	if($debug)
 		{
 		print("remote files not in local: $_\n") for(@{$self->{ra_rfnil}});
 		}
 	$self->{ra_rdnil} = $self->{upload}->RemoteNotInLocal($self->{rh_ld}, $self->{rh_rd});
 	if($debug)
 		{
 		print("remote dirs not in local: $_\n") for(@{$self->{ra_rdnil}});
 		}
 	$self->{ra_lfnir} = $self->{upload}->LocalNotInRemote($self->{rh_lf}, $self->{rh_rf});
 	if($debug)
 		{
 		print("local files not in remote : $_\n") for(@{$self->{ra_lfnir}});
 		}
 	$self->{ra_ldnir} = $self->{upload}->LocalNotInRemote($self->{rh_ld}, $self->{rh_rd});
 	if($debug)
 		{
 		print("new local dirs : $_\n") for(@{$self->{ra_ldnir}});
 		}
 	my $rh_temp_up = {};
 	%{$rh_temp_up} = %{$self->{rh_lf}};
 	delete(@{$rh_temp_up}{@{$self->{ra_lfnir}}});
 	$self->{ra_mlf} = $self->{upload}->CheckIfModified($rh_temp_up);
 	if($debug)
 		{
 		print("modified local files : $_\n") for(@{$self->{ra_mlf}});
 		}
 	my $rh_temp_down = {};
 	%{$rh_temp_down} = %{$self->{rh_rf}};
 	delete(@{$rh_temp_down}{@{$self->{ra_rfnil}}});
 	$self->{ra_mrf} = $self->{download}->CheckIfModified($rh_temp_down);
 	if($debug)
 		{
 		print("modified remote files : $_\n") for(@{$self->{ra_mrf}});
 		}
 	$self->{upload}->Quit();
 	$self->{button_upload}->configure(-state => 'normal');
 	$self->{button_download}->configure(-state => 'normal');
 	$self->InsertLocalTree();
 	$self->InsertRemoteTree();
 	return 1;
 	}
#-------------------------------------------------
 sub InsertLocalTree
 	{
 	my ($self) = @_;
 	$self->{tree_local_dir}->delete('all');
 	$self->InsertPaths(
 		$self->{tree_local_dir},
 		[keys(%{$self->{rh_ld}}), keys(%{$self->{rh_lf}})]
 		);
 	$self->InsertLocalModifiedTimes([keys(%{$self->{rh_lf}})]);
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{ra_ldnir},
 		''
 		);
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{ra_lfnir},
 		''
 		);
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{ra_mlf},
 		''
 		);
 	return 1;
  	}
#-------------------------------------------------
 sub InsertRemoteTree
 	{
 	my ($self) = @_;
 	$self->{tree_remote_dir}->delete('all');
 	$self->InsertPaths(
 		$self->{tree_remote_dir},
 		[keys(%{$self->{rh_rd}}), keys(%{$self->{rh_rf}})]
 		);
 	$self->InsertRemoteModifiedTimes([keys(%{$self->{rh_rf}})]);
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{ra_rdnil},
 		''
 		);
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{ra_rfnil},
 		''
 		);
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{ra_mrf},
 		''
 		);
 	return 1;
 	}
#-------------------------------------------------
 sub InsertPaths
 	{
 	my ($self, $tree, $ra_paths) = @_;
 	my ($full_path, $temp_path);
 	for(@$ra_paths)
 		{
 		$full_path = $_;
		$full_path =~ s!^/+!!;
 		$temp_path = '';
 		for(split('/', $full_path))
 			{
 			$temp_path .= $_;
 			unless($tree->infoExists($temp_path))
 				{
				$tree->add($temp_path, -text => $_,);
 				$tree->setmode($temp_path, 'close');
 				$tree->close($temp_path);
 				}
 			$temp_path .= '/';
 			}
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub InsertProperties
 	{
 	my ($self, $tree, $ra_paths, $pro) = @_;
 	my $path;
	for(@$ra_paths)
 		{
 		$path = $_;
 		$path =~ s!^/+!!;
 		$tree->addchild($path, -text => $pro);
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub DeleteProperties
 	{
 	my ($self, $tree, $ra_paths) = @_;
 	my $path;
 	for(@$ra_paths)
 		{
 		$path = $_;
 		$path =~ s!^/+!!;
 		$tree->deleteSiblings($path);
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub InsertLocalModifiedTimes
 	{
 	my ($self, $ra_lf) = @_;
	my $rh_last_mt = $self->{upload}->GetLast_Modified();
 	my $path;
 	for(@$ra_lf)
 		{
 		$path = $_;
		$path =~ s!^/+!!;
 		if(-e $_)
 			{
 			$self->{tree_local_dir}->addchild(
 				$path,
 				-text	=> localtime((stat($_))[9]) . ' current'
 				);
 			}
 		if(defined($rh_last_mt->{$_}) && $rh_last_mt->{$_} =~ m/^\d+$/)
 			{
 			$self->{tree_local_dir}->addchild(
 				$path,
 				-text	=> localtime($rh_last_mt->{$_}) . ' last'
 				);
 			}
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub InsertRemoteModifiedTimes
 	{
 	my ($self, $ra_rf) = @_;
 	my $rh_last_mrt		= $self->{download}->GetLast_Modified();
 	my $rh_current_mrt	= $self->{download}->GetCurrent_Modified();
 	my $path;
 	for(@$ra_rf)
 		{
 		$path = $_;
		$path =~ s!^/+!!;
		if(defined($rh_current_mrt->{$_}) && $rh_current_mrt->{$_} =~ m/^\d+$/)
 			{
 			$self->{tree_remote_dir}->addchild(
 				$path,
 				-text	=> localtime($rh_current_mrt->{$_}) . ' current'
 				);
 			}
 		if(defined($rh_last_mrt->{$_}) && $rh_last_mrt->{$_} =~ m/^\d+$/)
 			{
 			$self->{tree_remote_dir}->addchild(
 				$path,
 				-text	=> localtime($rh_last_mrt->{$_}) . ' last'
 				);
 			}
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub DeletePaths
 	{
 	my ($self, $tree, $ra_paths) = @_;
 	my $path;
 	for(@$ra_paths)
 		{
 		$path = $_;
		$path =~ s!^/+!!;
 		$tree->deleteEntry($path);
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub Download
 	{
 	my ($self) = @_;
 	return unless($self->SetParams());
 	return unless($self->{download}->Connect());
 	$self->{download}->MakeDirs($self->{ra_rdnil});
 	$self->{download}->StoreFiles($self->{ra_rfnil});
 	$self->{upload}->UpdateLastModified($self->{upload}->RtoL($self->{ra_rfnil}));
 	if($self->{overwrite} eq 'none')
 		{
 		$self->{ra_mrf} = [];
 		}
 	elsif($self->{overwrite} eq 'all')
 		{
 		$self->{download}->StoreFiles($self->{ra_mrf});
 		$self->{upload}->UpdateLastModified($self->{upload}->RtoL($self->{ra_mrf}));
 		}
 	elsif($self->{overwrite} eq 'older')
 		{
 		my $rh_current_mrt = $self->{download}->GetCurrent_Modified();
 		my $ra_lf	= $self->{download}->RtoL($self->{ra_mrf});
 		my $ra_newer	= [];
 		for(my $i = 0; $i <= $#{$self->{ra_mrf}}; $i++)
 			{
			push(@$ra_newer, $_)
 				if(
 				defined($rh_current_mrt->{$self->{ra_mrf}[$i]})
 				&& (-e $ra_lf->[$i])
 				&& ($rh_current_mrt->{$self->{ra_mrf}[$i]} > (stat($ra_lf->[$i]))[9])
 				);
 			}
 		$self->{download}->StoreFiles($ra_newer);
 		$self->{upload}->UpdateLastModified($self->{upload}->RtoL($ra_newer));
 		@{$self->{ra_mrf}} = @$ra_newer;
 		}
 	else
 		{
 		$self->Dialog(
 			-text	=> "overwrite behavior:  unknown",
 			-title	=> 'INPUT-ERROR'
 			)->Show();
 		return;
 		}
 	$self->{download}->Quit();
 	my $rh_ld	= {};
 	%$rh_ld		= %{$self->{rh_ld}};
 	my $rh_lf	= {};
 	%$rh_lf		= %{$self->{rh_lf}};
 	if($self->{download}->GetDelete())
 		{
 		$self->{download}->DeleteFiles($self->{ra_lfnir});
 		$self->{download}->RemoveDirs($self->{ra_ldnir});
 		delete(@{$rh_ld}{@{$self->{ra_ldnir}}});
 		delete(@{$rh_lf}{@{$self->{ra_lfnir}}});
 		}
# local tree
 	$self->{tree_local_dir}->deleteAll();
# old paths
 	$self->InsertPaths(
 		$self->{tree_local_dir},
 		[keys(%$rh_ld), keys(%$rh_lf)]
 		);
#new paths
 	$self->InsertPaths(
 		$self->{tree_local_dir},
 		$self->{download}->RtoL($_)
 		) for($self->{ra_rdnil}, $self->{ra_rfnil});
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{download}->RtoL($_),
 		''
 		) for($self->{ra_rfnil}, $self->{ra_mrf});
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{download}->RtoL($self->{ra_rdnil}),
 		''
 		);
# remote tree
	$self->{tree_remote_dir}->deleteAll();
 	$self->InsertPaths(
 		$self->{tree_remote_dir},
 		[keys(%{$self->{rh_rd}}), keys(%{$self->{rh_rf}})]
 		);
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$_,
 		''
 		) for($self->{ra_rfnil}, $self->{ra_mrf});
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{ra_rdnil},
 		''
 		);
 	return 1;
 	}
#-------------------------------------------------
 sub Upload
 	{
 	my ($self) = @_;
 	return unless($self->SetParams());
 	return unless($self->{upload}->Connect());
 	$self->{upload}->MakeDirs($self->{ra_ldnir});
 	$self->{upload}->StoreFiles($self->{ra_lfnir});
 	$self->{download}->UpdateLastModified($self->{download}->LtoR($self->{ra_lfnir}));
 	if($self->{overwrite} eq 'none')
 		{
 		$self->{ra_mlf} = [];
 		}
 	elsif($self->{overwrite} eq 'all')
 		{
 		$self->{upload}->StoreFiles($self->{ra_mlf});
 		$self->{download}->UpdateLastModified($self->{download}->LtoR($self->{ra_mlf}));
 		}
 	elsif($self->{overwrite} eq 'older')
 		{
		my $rh_current_mrt = $self->{download}->GetCurrent_Modified();
 		my $ra_rf = $self->{upload}->LtoR($self->{ra_mlf});
 		my $ra_newer = [];
 		for(my $i = 0; $i <= $#{$self->{ra_mlf}}; $i++)
 			{
 			push(@$ra_newer, $_)
 				if(
 				defined($rh_current_mrt->{$ra_rf->[$i]})
 				&& (-e $self->{ra_mlf}[$i])
 				&& ($rh_current_mrt->{$ra_rf->[$i]} < (stat($self->{ra_mlf}[$i]))[9])
 				);
 			}
  		$self->{upload}->StoreFiles($ra_newer);
 		$self->{download}->UpdateLastModified($self->{download}->LtoR($ra_newer));
 		@{$self->{ra_mlf}} = @$ra_newer;
 		}
 	else
 		{
 		$self->Dialog(
 			-text	=> "overwrite behavior:  unknown",
 			-title	=> 'INPUT-ERROR'
 			)->Show();
 		return;
 		}
 	my $rh_rd	= {};
 	%$rh_rd		= %{$self->{rh_rd}};
 	my $rh_rf	= {};
 	%$rh_rf		= %{$self->{rh_rf}};
 	if($self->{upload}->GetDelete())
 		{
 		$self->{upload}->DeleteFiles($self->{ra_rfnil});
 		$self->{upload}->RemoveDirs($self->{ra_rdnil});
		delete(@{$rh_rd}{@{$self->{ra_rdnil}}});
 		delete(@{$rh_rf}{@{$self->{ra_rfnil}}});
 		$self->DeletePaths(
 			$self->{tree_remote_dir},
 			$_
 			) for($self->{ra_rfnil}, $self->{ra_rdnil});
 		}
 	$self->{upload}->Quit();
# remote tree
 	$self->{tree_remote_dir}->deleteAll();
# old paths
	$self->InsertPaths(
 		$self->{tree_remote_dir},
 		[keys(%$rh_rd), keys(%$rh_rf)]
 		);
# new paths
 	$self->InsertPaths(
 		$self->{tree_remote_dir},
 		$self->{upload}->LtoR($_)
 		) for($self->{ra_ldnir}, $self->{ra_lfnir});
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{upload}->LtoR($_),
 		''
 		) for($self->{ra_lfnir}, $self->{ra_mlf});
 	$self->InsertProperties(
 		$self->{tree_remote_dir},
 		$self->{upload}->LtoR($self->{ra_ldnir}),
 		''
 		);
# local tree
 	$self->{tree_local_dir}->deleteAll();
 	$self->InsertPaths(
 		$self->{tree_local_dir},
 		[keys(%{$self->{rh_ld}}), keys(%{$self->{rh_lf}})]
 		);
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$_,
 		''
 		) for($self->{ra_lfnir}, $self->{ra_mlf});
 	$self->InsertProperties(
 		$self->{tree_local_dir},
 		$self->{ra_ldnir},
 		''
 		);
 	return 1;
 	}
#-------------------------------------------------
# $self->{para}{access}{attribute}{value} = [user, ftpserver, pass, localdir, remotedir];
#-------------------------------------------------
 sub UpdateAccess
 	{
 	my ($self, $attr, $bentry, $value) = @_;
 	if(defined($self->{para}{access}{$attr}))
 		{
 		$self->{para}{user}	= $self->{para}{access}{$attr}{$value}[0];
 		$self->{para}{ftpserver}	= $self->{para}{access}{$attr}{$value}[1];
 		$self->{para}{pass}	= $self->{para}{access}{$attr}{$value}[2];
 		$self->{para}{localdir}	= $self->{para}{access}{$attr}{$value}[3];
 		$self->{para}{remotedir}	= $self->{para}{access}{$attr}{$value}[4];
 		}
 	return 1;
 	}
#-------------------------------------------------
 sub StoreParams
 	{
 	my ($self) = @_;
 	for(qw/user ftpserver pass localdir remotedir/)
 		{
 		$self->{para}{access}{$_}{$self->{para}{$_}} =
 			[
 			$self->{para}{user},
 			$self->{para}{ftpserver},
 			$self->{para}{pass},
 			$self->{para}{localdir},
 			$self->{para}{remotedir},
 			];
 		}
 	store($self->{para}, 'para');
 	return 1;
 	}
#-------------------------------------------------
 sub InsertStoredValues
 	{
 	my ($self) = @_;
 	$self->{bentry_user}->insert(	'end', $_) for(keys(%{$self->{para}{access}{user}}));
 	$self->{bentry_ftpserver}->insert(	'end', $_) for(keys(%{$self->{para}{access}{ftpserver}}));
 	$self->{bentry_local_dir}->insert(	'end', $_) for(keys(%{$self->{para}{access}{localdir}}));
 	$self->{bentry_remote_dir}->insert(	'end', $_) for(keys(%{$self->{para}{access}{remotedir}}));
 	return 1;
 	}
#-------------------------------------------------
1;
#-------------------------------------------------
__END__