NAME

OpenInteract2::Manage::CreateSourceDirectory - Create a source directory from the OI2 distribution

SYNOPSIS

 #!/usr/bin/perl
 
 use strict;
 use OpenInteract2::Manage;
 
 my %params = ( distribution_dir => '/path/to/OpenInteract-2.00',
                source_dir      => '/path/to/source-dir' );
 my $website_dir = '/home/httpd/mysite';
 my $task = OpenInteract2::Manage->new(
                      'create_source_dir', \%params );
 my @status = $task->execute;
 foreach my $s ( @status ) {
     my $ok_label      = ( $s->{is_ok} eq 'yes' )
                           ? 'OK' : 'NOT OK';
     print "Status OK?  $s->{is_ok}\n",
           "$s->{message}\n",
           "($s->{updated} updated) ($s->{removed} removed) ",
           "($s->{skipped} skipped)\n";
 }

REQUIRED OPTIONS

distribution_dir=/path/to/OpenInteract-2.00

Full path to the OpenInteract 2 source distribution. Must include the 'pkg/' and 'sample/' directories.

source_dir=/path/to/source-dir

Full path to the directory that anyone can access to create a new website or develop a new package. If the directory exists we assume you're doing an update and check to see that the 'pkg/' and 'sample/' directories are already there -- if they're not the parameter is invalid.

STATUS INFORMATION

Each status hashref includes:

is_ok

Set to 'yes' if the task succeeded, 'no' if not.

message

Success/failure message.

updated

Message with files updated

removed

Message with files removed

skipped

Message with files skipped

SEE ALSO

File::DirSync

COPYRIGHT

Copyright (C) 2003-2004 Chris Winters. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHORS

Chris Winters <chris@cwinters.com>