Tk::Mirror 0.02

Tk::Mirror is a Perl extension for a graphic user interface to update local or remote directories in both directions.

SYNOPSIS

# in the simplest kind and manner
use Tk::Mirror;
use Tk;
my $mw->MainWindow->new();
$mw->Mirror()->grid();
MainLoop();
# in a detailed kind
use Tk;
use Tk::Mirror;
my $mw = MainWindow->new();
my $mirror = $mw->Mirror(
-localdir => "TestA",
-remotedir => "TestD",
-usr => my_ftp@username.de
-ftpserver => "ftp.server.de",
-pass => "my_password",
-debug => 1,
-delete => "enable",
-exclusions => ["private.txt", "secret.txt"],
-timeout => 60,
-connection => undef, # or a connection to a ftp-server
)->grid();
for(keys(%{$mirror->GetChilds()}))
{
$mirror->Subwidget($_)->configure(
-font => "{Times New Roman} 14 {bold}",
);
}
for(qw/
TreeLocalDir
TreeRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
-width => 40,
-height => 20,
);
}
for(qw/
bEntryUsr
EntryPass
bEntryFtpServer
bEntryLocalDir
bEntryRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
);
}
MainLoop();

This is a graphic user interface to compare and update local with remote directories in both directions.