Tk::Mirror - Perl extension for a graphic user interface to up- or download local and remote directories

# 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		=> 'D:\\Homepage',
	-remotedir	=> 'www.tiscali.de/name',
	-user		=> 'my_ftp@username.de'
	-ftpserver	=> 'ftp.server.de',
	-pass		=> 'my_password',
 	-debug		=> 1,		# default	= 1
 	-delete		=> 'enable',	# default	= 'disabled'
 	-exclusions	=> ["private.txt", "secret.txt"],
 	-subset		=> [qr/(?i:HOME)(?i:DOC)?/, '.html'],
 	-timeout		=> 60,
 	-connection	=> undef, # or a connection  to a ftp-server 
 	-overwrite	=> 'older', 	# 'none', 'all', 'older', default = 'none'
 	)->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/
 	bEntryUser
 	EntryPass
 	bEntryFtpServer
 	bEntryLocalDir
 	bEntryRemoteDir
 	/)
 	{
 	$mirror->Subwidget($_)->configure(
 		-background	=> "#FFFFFF",
 		);
 	}
 MainLoop();

This is a graphic user interface to compare, up- or download local and remote directories.

 KEYS			VALUES
 '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},

None by default.

 Tk
 Net::MirrorDir
 Net::UploadMirror
 Net::DownloadMirror
 http://freenet-homepage.de/torstenknorr/index.html

Maybe you'll find some. Let me know.

 When reporting bugs/problems please include as much information as possible.

Torsten Knorr, <create-soft@tiscali.de>

Copyright (C) 2006 - 2008 by Torsten Knorr

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.9.2 or, at your option, any later version of Perl 5 you may have available.