source: trunk/lib/OpenGuides/Build.pm @ 500

Last change on this file since 500 was 500, checked in by kake, 17 years ago

Fix install problem with blank script_name.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.6 KB
Line 
1package OpenGuides::Build;
2
3use strict;
4use Module::Build;
5use base 'Module::Build';
6
7sub ACTION_install {
8    my $self = shift;
9    $self->SUPER::ACTION_install;
10    $self->ACTION_install_extras;
11
12    eval "use Config::Tiny";
13    die "Config::Tiny is required to set up this application.\n" if $@;
14
15    my $config = Config::Tiny->read("wiki.conf");
16
17    # Initialise the database if necessary.
18    my $dbname = $config->{_}->{dbname};
19    my $dbuser = $config->{_}->{dbuser};
20    my $dbpass = $config->{_}->{dbpass};
21    my $dbhost = $config->{_}->{dbhost};
22    my $dbtype = $config->{_}->{dbtype};
23
24    my %cgi_wiki_exts = ( postgres => "Pg",
25                          mysql    => "MySQL",
26                          sqlite   => "SQLite" );
27
28    my $cgi_wiki_module = "CGI::Wiki::Setup::" . $cgi_wiki_exts{$dbtype};
29    eval "require $cgi_wiki_module";
30    die "There was a problem: $@" if $@;
31
32    print "Checking database schema...\n";
33    {
34        no strict 'refs';
35        &{$cgi_wiki_module . "::setup"}( $dbname, $dbuser, $dbpass, $dbhost );
36    }
37}
38
39sub ACTION_fakeinstall {
40    my $self = shift;
41    $self->SUPER::ACTION_fakeinstall;
42    $self->ACTION_install_extras( fake => 1 );
43    print "Checking database schema...\n";
44}
45
46sub ACTION_install_extras {
47    my ($self, %args) = @_;
48    my $FAKE = $args{fake} || 0;
49
50    eval "use Config::Tiny";
51    die "Config::Tiny is required to set up this application.\n" if $@;
52
53    my $config = Config::Tiny->read("wiki.conf");
54
55    # Install the scripts where we were told to.
56    my $install_directory = $config->{_}->{install_directory};
57    my $script_name       = $config->{_}->{script_name};
58    my $template_path     = $config->{_}->{template_path};
59    my @extra_scripts     = @{ $self->{config}{__extra_scripts} };
60    my @templates         = @{ $self->{config}{__templates} };
61
62    print "Installing scripts to $install_directory:\n";
63    # Allow for blank script_name - assume "index.cgi".
64        my $script_filename = $script_name || "index.cgi";
65    if ( $FAKE ) {
66        print "wiki.cgi -> $install_directory/$script_filename (FAKE)\n";
67    } else {
68        if ( $script_filename ne "wiki.cgi" ) {
69            File::Copy::copy("wiki.cgi", $script_filename)
70                or die "Can't copy('wiki.cgi', '$script_filename'): $!";
71        }
72        my $copy = $self->copy_if_modified(
73                                            $script_filename,
74                                            $install_directory
75                                          );
76        if ( $copy ) {
77            $self->fix_shebang_line($copy);
78            $self->make_executable($copy);
79        } else {
80            print "Skipping $install_directory/$script_filename (unchanged)\n";
81        }
82        print "(Really: wiki.cgi -> $install_directory/$script_filename)\n"
83            unless $script_filename eq "wiki.cgi";
84    }
85
86    foreach my $script ( @extra_scripts ) {
87        if ( $FAKE ) {
88            print "$script -> $install_directory/$script (FAKE)\n";
89        } else {
90            my $copy = $self->copy_if_modified( $script, $install_directory );
91            if ( $copy ) {
92                $self->fix_shebang_line($copy);
93                $self->make_executable($copy) unless $script eq "wiki.conf";
94            } else {
95                print "Skipping $install_directory/$script (unchanged)\n";
96            }
97        }
98    }
99
100    print "Installing templates to $install_directory/templates:\n";
101    foreach my $template ( @templates ) {
102        if ( $FAKE ) {
103            print "templates/$template -> $install_directory/templates/$template (FAKE)\n";
104        } else {
105            $self->copy_if_modified("templates/$template", $install_directory)
106                or print "Skipping $install_directory/templates/$template (unchanged)\n";
107        }
108    }
109}
110
1111;
Note: See TracBrowser for help on using the repository browser.