The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

website_copy.pl - copy part of the development tree with dependencies.

COPYRIGHT

Copyright (C) 2001, 2002 Mark Veltzer; All rights reserved.

LICENSE

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

DETAILS

        MANIFEST: website_copy.pl
        PROJECT: meta
        VERSION: 0.05

SYNOPSIS

        website_copy.pl [options]

DESCRIPTION

Give this script a list of files that you're interested in and a writer object that can write to a destination (local directory, ftp site whatever) and it will calculate the forest spanned by those files and will copy only these files to the target directory/tar.gz/other

This script currently does NOT use the writer object to deduce which files are already on the target machine and only copy the difference. This is left as an exercise to the reader.

OPTIONS

help (type: bool, default: 0)

display help message

pod (type: bool, default: 0)

display pod options snipplet

man (type: bool, default: 0)

display manual page

quit (type: bool, default: 0)

quit without doing anything

gtk (type: bool, default: 0)

run a gtk ui to get the parameters

license (type: bool, default: 0)

show license and exit

show copyright and exit

description (type: bool, default: 0)

show description and exit

history (type: bool, default: 0)

show history and exit

modules (type: modu, default: xmlx/modules/website.xml)

XML modules file to copy

directory (type: dire, default: /var/www/html)

directory to copy to

verbose (type: bool, default: 1)

should I be noisy ?

no free arguments are allowed

BUGS

None.

AUTHOR

        Name: Mark Veltzer
        Email: mailto:veltzer@cpan.org
        WWW: http://www.veltzer.org
        CPAN id: VELTZER

HISTORY

        0.00 MV web site automation
        0.01 MV SEE ALSO section fix
        0.02 MV move tests to modules
        0.03 MV web site development
        0.04 MV weblog issues
        0.05 MV md5 issues

SEE ALSO

Meta::Baseline::Aegis(3), Meta::Baseline::Cook(3), Meta::Development::Scripts(3), Meta::Ds::Oset(3), Meta::Lang::Perl::Perl(3), Meta::Tool::Perl(3), Meta::Utils::File::Copy(3), Meta::Utils::File::Prop(3), Meta::Utils::Opts::Opts(3), Meta::Utils::Output(3), Meta::Utils::System(3), Meta::Utils::Utils(3), XML::XPath(3), strict(3)

TODO

-get this script out of here cause it's generic (it has nothing to do with web sites).

-make this script not copy files which are up to date.

-make this script remove files which are not needed on the target.

-make this script use a generic transfer agent (which could do copy but could also do ftp, sftp etc...)

-make this script get a list of files and not a single one out of some generic XML description.

-get ridd of the hardcoding of the perl interpreter here.