NAME

Tk::Mirror - 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();
 

DESCRIPTION

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

CONSTRUCTOR and INITIALIZATION

(widget-Mirror-object) MainWindow-object->Mirror (options)

ftpserver the hostname of the ftp-server

usr the username for authentification

pass password for authentification

localdir local directory selecting information from, default '.'

remotedir remote location selecting information from, default '/'

debug set it true for more information about the ftp-process, default 1

timeout the timeout for the ftp-serverconnection

delete set this to "enable" to allow the deletion of files, default "disabled"

connection takes a Net::FTP-object you should not use that, default undef

exclusions a reference to a list of strings interpreted as regular-expressios ("regex") matching to something in the local pathnames, you do not want to list, default empty list [ ]

METHODS

(ref_h_all_childs) mirror-object->GetChilds (void) returns a hash of all childs used in the put-together widget, on you can call the "configure" function.

 KEYS                   VALUES
 "LabelUsr"             => $label_usr,
 "bEntryUsr"            => $m->{bentry_usr},
 "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},
 "ButtonUpdateUp"       => $m->{button_update_up},
 "ButtonCompare"                => $m->{button_compare},
 "ButtonUpdateDown"     => $m->{button_update_down},

(ref_of_child) mirror-object->Subwidget(above shown key) returns a reference of a child widget you can call the configure method

EXPORT

None by default.

SEE ALSO

 Tk
 Net::MirrorDir
 Net::UploadMirror
 Net::DownloadMirror
 http://www.planet-interkom.de/t.knorr/index.html

BUGS

Maybe you'll find some. Let me know.

AUTHOR

Torsten Knorr, <torstenknorr@tiscali.de>

COPYRIGHT AND LICENSE

Copyright (C) 2006 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.