14 use C4::Languages qw(getAllLanguages getTranslatedLanguages);
18 my $step = $query->param('step');
20 my $language = $query->param('language');
21 my ( $template, $loggedinuser, $cookie );
23 my $all_languages = getAllLanguages();
25 if ( defined($language) ) {
26 C4::Templates::setlanguagecookie( $query, $language, "install.pl?step=1" );
28 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30 template_name => "installer/step" . ( $step ? $step : 1 ) . ".tmpl",
38 my $installer = C4::Installer->new();
40 $info{'dbname'} = C4::Context->config("database");
42 ( C4::Context->config("db_scheme")
43 ? C4::Context->config("db_scheme")
45 $info{'hostname'} = C4::Context->config("hostname");
46 $info{'port'} = C4::Context->config("port");
47 $info{'user'} = C4::Context->config("user");
48 $info{'password'} = C4::Context->config("pass");
49 my $dbh = DBI->connect(
50 "DBI:$info{dbms}:dbname=$info{dbname};host=$info{hostname}"
51 . ( $info{port} ? ";port=$info{port}" : "" ),
52 $info{'user'}, $info{'password'}
55 if ( $step && $step == 1 ) {
57 #Checking ALL perl Modules and services needed are installed.
58 #Whenever there is an error, adding a report to the page
59 $template->param( language => 1 );
60 $template->param( 'checkmodule' => 1 ); # we start with the assumption that there are no problems and set this to 0 if there are
62 unless ( $] >= 5.008008 ) { # Bug 4505
63 $template->param( problems => 1, perlversion => 1, checkmodule => 0 );
66 my $perl_modules = C4::Installer::PerlModules->new;
67 $perl_modules->version_info;
69 my $modules = $perl_modules->get_attr('missing_pm');
70 if (scalar(@$modules)) {
74 my ($module, $stats) = each %$_;
75 $checkmodule = 0 if $stats->{'required'};
80 version => $stats->{'min_ver'},
81 require => $stats->{'required'},
82 usage => $stats->{'usage'},
86 @components = sort {$a->{'name'} cmp $b->{'name'}} @components;
87 $template->param( missing_modules => \@components, checkmodule => $checkmodule );
90 elsif ( $step && $step == 2 ) {
92 #STEP 2 Check Database connection and access
94 $template->param(%info);
95 my $checkdb = $query->param("checkdb");
96 $template->param( 'dbconnection' => $checkdb );
100 # Can connect to the mysql
101 $template->param( "checkdatabaseaccess" => 1 );
102 if ( $info{dbms} eq "mysql" ) {
104 #Check if database created
105 my $rv = $dbh->do("SHOW DATABASES LIKE \'$info{dbname}\'");
107 $template->param( 'checkdatabasecreated' => 1 );
110 #Check if user have all necessary grants on this database.
113 "SHOW GRANTS FOR \'$info{user}\'\@'$info{hostname}'");
116 while ( my ($line) = $rq->fetchrow ) {
117 my $dbname = $info{dbname};
118 if ( $line =~ m/^GRANT (.*?) ON `$dbname`\.\*/ || index( $line, '*.*' ) > 0 ) {
121 index( $line, 'ALL PRIVILEGES' ) > 0
122 || ( ( index( $line, 'SELECT' ) > 0 )
123 && ( index( $line, 'INSERT' ) > 0 )
124 && ( index( $line, 'UPDATE' ) > 0 )
125 && ( index( $line, 'DELETE' ) > 0 )
126 && ( index( $line, 'CREATE' ) > 0 )
127 && ( index( $line, 'DROP' ) > 0 ) )
131 unless ($grantaccess) {
133 $dbh->prepare("SHOW GRANTS FOR \'$info{user}\'\@'\%'");
135 while ( my ($line) = $rq->fetchrow ) {
136 my $dbname = $info{dbname};
137 if ( $line =~ m/$dbname/ || index( $line, '*.*' ) > 0 )
141 index( $line, 'ALL PRIVILEGES' ) > 0
142 || ( ( index( $line, 'SELECT' ) > 0 )
143 && ( index( $line, 'INSERT' ) > 0 )
144 && ( index( $line, 'UPDATE' ) > 0 )
145 && ( index( $line, 'DELETE' ) > 0 )
146 && ( index( $line, 'CREATE' ) > 0 )
147 && ( index( $line, 'DROP' ) > 0 ) )
152 $template->param( "checkgrantaccess" => $grantaccess );
153 } # End mysql connect check...
155 elsif ( $info{dbms} eq "Pg" ) {
156 # Check if database has been created...
157 my $rv = $dbh->do( "SELECT * FROM pg_catalog.pg_database WHERE datname = \'$info{dbname}\';" );
159 $template->param( 'checkdatabasecreated' => 1 );
162 # Check if user has all necessary grants on this database...
163 my $rq = $dbh->do( "SELECT u.usesuper
164 FROM pg_catalog.pg_user as u
165 WHERE u.usename = \'$info{user}\';" );
167 $template->param( "checkgrantaccess" => 1 );
169 } # End Pg connect check...
172 $template->param( "error" => DBI::err, "message" => DBI::errstr );
176 elsif ( $step && $step == 3 ) {
179 # STEP 3 : database setup
182 my $op = $query->param('op');
183 if ( $op && $op eq 'finished' ) {
185 # we have finished, just redirect to mainpage.
187 print $query->redirect("/cgi-bin/koha/mainpage.pl");
190 elsif ( $op && $op eq 'finish' ) {
191 $installer->set_version_syspref();
192 $installer->set_indexing_engine(0); # use Zebra
194 # Installation is finished.
195 # We just deny anybody access to install
196 # And we redirect people to mainpage.
197 # The installer will have to relogin since we do not pass cookie to redirection.
198 $template->param( "$op" => 1 );
200 elsif ( $op && $op eq 'addframeworks' ) {
202 # 1ST install, 3rd sub-step : insert the SQL files the user has selected
205 my ($fwk_language, $list) = $installer->load_sql_in_order($all_languages, $query->param('framework'));
207 "fwklanguage" => $fwk_language,
210 $template->param( "$op" => 1 );
212 elsif ( $op && $op eq 'selectframeworks' ) {
215 # 1ST install, 2nd sub-step : show the user the sql datas he can insert in the database.
218 # (note that the term "selectframeworks is not correct. The user can select various files, not only frameworks)
221 #sql data for import are supposed to be located in installer/data/<language>/<level>
222 # Where <language> is en|fr or any international abbreviation (provided language hash is updated... This will be a problem with internationlisation.)
223 # Where <level> is a category of requirement : required, recommended optional
224 # level should contain :
225 # SQL File for import With a readable name.
226 # txt File that explains what this SQL File is meant for.
227 # Could be VERY useful to have A Big file for a kind of library.
228 # But could also be useful to have some Authorised values data set prepared here.
229 # Framework Selection is achieved through checking boxes.
230 my $langchoice = $query->param('fwklanguage');
231 $langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
232 my $marcflavour = $query->param('marcflavour');
234 $installer->set_marcflavour_syspref($marcflavour);
236 $marcflavour = C4::Context->preference('marcflavour') unless ($marcflavour);
237 #Insert into database the selected marcflavour
239 my ($marc_defaulted_to_en, $fwklist) = $installer->marc_framework_sql_list($langchoice, $marcflavour);
240 $template->param('en_marc_frameworks' => $marc_defaulted_to_en);
241 $template->param( "frameworksloop" => $fwklist );
242 $template->param( "marcflavour" => ucfirst($marcflavour));
244 my ($sample_defaulted_to_en, $levellist) = $installer->sample_data_sql_list($langchoice, $marcflavour);
245 $template->param( "en_sample_data" => $sample_defaulted_to_en);
246 $template->param( "levelloop" => $levellist );
247 $template->param( "$op" => 1 );
249 elsif ( $op && $op eq 'choosemarc' ) {
252 # 1ST install, 2nd sub-step : show the user the marcflavour available.
257 #sql data are supposed to be located in installer/data/<dbms>/<language>/marcflavour/marcflavourname
258 # Where <dbms> is database type according to DBD syntax
259 # Where <language> is en|fr or any international abbreviation (provided language hash is updated... This will be a problem with internationlisation.)
260 # Where <level> is a category of requirement : required, recommended optional
261 # level should contain :
262 # SQL File for import With a readable name.
263 # txt File taht explains what this SQL File is meant for.
264 # Could be VERY useful to have A Big file for a kind of library.
265 # But could also be useful to have some Authorised values data set prepared here.
266 # Marcflavour Selection is achieved through radiobuttons.
267 my $langchoice = $query->param('fwklanguage');
268 $langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
270 C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/$langchoice/marcflavour";
271 unless (opendir( MYDIR, $dir )) {
272 if ($langchoice eq 'en') {
273 warn "cannot open MARC frameworks directory $dir";
275 # if no translated MARC framework is available,
277 $dir = C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/en/marcflavour";
278 opendir(MYDIR, $dir) or warn "cannot open English MARC frameworks directory $dir";
281 my @listdir = grep { !/^\./ && -d "$dir/$_" } readdir(MYDIR);
283 my $marcflavour=C4::Context->preference("marcflavour");
285 foreach my $marc (@listdir) {
287 "label"=> ucfirst($marc),
289 "checked"=> defined($marcflavour) ? uc($marc) eq $marcflavour : 0);
290 # $cell{"description"}= do { local $/ = undef; open INPUT "<$dir/$marc.txt"||"";<INPUT> };
291 push @flavourlist, \%cell;
293 $template->param( "flavourloop" => \@flavourlist );
294 $template->param( "$op" => 1 );
296 elsif ( $op && $op eq 'importdatastructure' ) {
299 # 1st install, 1st "sub-step" : import kohastructure
302 my $error = $installer->load_db_schema();
308 elsif ( $op && $op eq 'updatestructure' ) {
310 # Not 1st install, the only sub-step : update database
312 #Do updatedatabase And report
313 my $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl";
314 my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
317 $template->param(update_report => [ map { { line => $_ } } split(/\n/, join('', @$stdout_buf)) ] );
318 $template->param(has_update_succeeds => 1);
321 $template->param(update_errors => [ map { { line => $_ } } split(/\n/, join('', @$stderr_buf)) ] );
322 $template->param(has_update_errors => 1);
323 warn "The following errors were returned while attempting to run the updatedatabase.pl script:\n";
324 foreach my $line (@$stderr_buf) {warn "$line\n";}
327 $template->param( $op => 1 );
331 # check wether it's a 1st install or an update
333 #Check if there are enough tables.
334 # Paul has cleaned up tables so reduced the count
335 #I put it there because it implied a data import if condition was not satisfied.
336 my $dbh = DBI->connect(
337 "DBI:$info{dbms}:dbname=$info{dbname};host=$info{hostname}"
338 . ( $info{port} ? ";port=$info{port}" : "" ),
339 $info{'user'}, $info{'password'}
342 if ( $info{dbms} eq 'mysql' ) { $rq = $dbh->prepare( "SHOW TABLES" ); }
343 elsif ( $info{dbms} eq 'Pg' ) { $rq = $dbh->prepare( "SELECT *
344 FROM information_schema.tables
345 WHERE table_schema='public' and table_type='BASE TABLE';" ); }
347 my $data = $rq->fetchall_arrayref( {} );
348 my $count = scalar(@$data);
350 # we don't have tables, propose DB import
353 $template->param( "count" => $count, "proposeimport" => 1 );
357 # we have tables, propose to select files to upload or updatedatabase
359 $template->param( "count" => $count, "default" => 1 );
361 # 1st part of step 3 : check if there is a databaseversion systempreference
362 # if there is, then we just need to upgrade
363 # if there is none, then we need to install the database
365 if (C4::Context->preference('Version')) {
366 my $dbversion = C4::Context->preference('Version');
367 $dbversion =~ /(.*)\.(..)(..)(...)/;
368 $dbversion = "$1.$2.$3.$4";
369 $template->param("upgrading" => 1,
370 "dbversion" => $dbversion,
371 "kohaversion" => C4::Context->KOHAVERSION,
381 # LANGUAGE SELECTION page by default
382 # using opendir + language Hash
383 my $languages_loop = getTranslatedLanguages('intranet');
384 $template->param( installer_languages_loop => $languages_loop );
388 "SELECT * from systempreferences WHERE variable='Version'");
389 if ( $rq->execute ) {
390 my ($version) = $rq->fetchrow;
392 $query->redirect("install.pl?step=3");
398 output_html_with_http_headers $query, $cookie, $template->output;