Home | Wiki | OI 1.x Docs | OI 2.x Docs |
OpenInteract2::Manage::CreateSourceDirectory - Create a source directory from the OI2 distribution
#!/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"; }
Full path to the OpenInteract 2 source distribution. Must include the 'pkg/' and 'sample/' directories.
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.
Each status hashref includes:
Set to 'yes' if the task succeeded, 'no' if not.
Success/failure message.
Message with files updated
Message with files removed
Message with files skipped
Copyright (C) 2003 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.
Chris Winters <chris@cwinters.com>
Generated from the OpenInteract 1.99_03 source.