Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

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

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


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();

 

=head1 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 [ ]



=head2 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.




=cut








Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy