view release on metacpan or  search on metacpan

lib/Crop/Install.pm  view on Meta::CPAN

package Crop::Install;

=pod

=head1 NAME

Crop::Install - Installation utilities for the Crop framework

=head1 SYNOPSIS

    use Crop::Install;
    # ...usage...

=head1 DESCRIPTION

Crop::Install provides installation-related utilities for the Crop framework.

=head1 AUTHORS

Euvgenio (Core Developer)

Alex (Contributor)

=head1 COPYRIGHT AND LICENSE

Apache 2.0

=cut

use base qw/ Crop /;

=begin nd
Class: Crop::Install
	Generate the Apache config and run sql scripts.

Example:
(start code)
#! /usr/bin/perl

use v5.14;
use warnings;

use Crop::Install;

my $install = Crop::Install->new(__FILE__);

$install->generate_fcgi_config('init.conf');
$install->sql('http.sql');
$install->complete;
(end)
=cut

use v5.14;
use warnings;

use IO::File;
use Pg::CLI::psql;

use constant {
# 	FCGI_TPL_PATH  => '/fcgi',
# 	FCGI_CONF_PATH => '/conf/fcgid.conf.example',
	SQL_PATH       => '/sql',
	DONE_PATH => '/steps.done',
	DEFAULT_DB     => 'main',
};

=begin nd
Constructor new ($stepname, $db)
	Remember $stepname and $db.
	
Parameters:
	$stepname - step filename withou dir
	$db       - optinal database name
	
Returns:
	$self
=cut
sub new {
	my ($class, $stepname, $db) = @_;

	$stepname =~ s!^.*/!!;
	$db //= DEFAULT_DB;

	bless {
		stepname => $stepname,
		db       => $db,
	}, $class;
}

=begin nd
Method: complete ($message)
	Finalize step.
	
Parameters:
	$message - to caller
=cut
sub complete {
	my ($self, $message) = @_;

	my $path = $self->C->{install}{path} . DONE_PATH;
	
	my $completed = IO::File->new(">> $path") or die "Can't open special 'steps.completed' file '$path': $!";
	say $completed "$self->{stepname}";
	close $completed or die "Can't close special 'steps.completed' file $path: $!";

	binmode STDOUT, ":utf8";
	say $message || "Done";
}

=begin nd
Method: sql ($filename)
=cut
sub sql {
	my ($self, $filename) = @_; 

	my $undo = $ARGV[0];
	if ($undo && $undo eq '--undo') {
		$filename =~ s/(\.sql)\Z/\.undo$1/g;
		print "> SQL undo step: ".$self->{stepname}." called\n";
		print "> undo filename=$filename;\n";
	} else {