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.
8 POD Errors
The following errors were encountered while parsing the POD:
'=item' outside of any '=over'
You forgot a '=back' before '=head2'
To install Tk::Mirror, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::Mirror
CPAN shell
perl -MCPAN -e shell install Tk::Mirror
For more information on module installation, please visit the detailed CPAN module installation guide.