Claude
5b79608695
Compose stack (MariaDB + Koha built from the Koha project's Debian packages), headless bootstrap replacing the web installer, seeded item types and LoC Z39.50 server, and an install.sh that installs Docker, generates passwords and waits for the site. End-to-end testing in progress. Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_013wi3ZSot4XbUViwRFgLpRf
112 lines
4.5 KiB
Perl
Executable File
112 lines
4.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Headless replacement for Koha's web installer + onboarding wizard.
|
|
# Run as the instance user: koha-shell -c "perl bootstrap.pl" <instance>
|
|
#
|
|
# Mirrors what /cgi-bin/koha/installer/install.pl does step by step (so a
|
|
# future Koha upgrade keeps working), then seeds a home-library setup.
|
|
use Modern::Perl;
|
|
use C4::Context;
|
|
use C4::Installer;
|
|
use Koha;
|
|
use Koha::Libraries;
|
|
use Koha::Patrons;
|
|
use Koha::Patron::Categories;
|
|
|
|
$| = 1;
|
|
my $seed_dir = $ENV{KOHA_SEED_DIR} || '/opt/koha-init/seed';
|
|
my $admin_pass = $ENV{KOHA_ADMIN_PASS};
|
|
die "KOHA_ADMIN_PASS not set\n" unless defined $admin_pass && length $admin_pass;
|
|
my %env = (
|
|
admin_user => $ENV{KOHA_ADMIN_USER} || 'admin',
|
|
admin_pass => $admin_pass,
|
|
library => $ENV{KOHA_LIBRARY_NAME} || 'My Library',
|
|
);
|
|
|
|
my $installer = C4::Installer->new();
|
|
my $dbh = C4::Context->dbh;
|
|
my $intranet = C4::Context->config('intranetdir');
|
|
my $data = "$intranet/installer/data/mysql";
|
|
|
|
# Already installed? (the entrypoint checks too; this is a safety net)
|
|
my ($tables) = $dbh->selectrow_array(
|
|
"SELECT COUNT(*) FROM information_schema.tables WHERE table_schema = DATABASE()");
|
|
if ($tables) { say "bootstrap: database already has $tables tables - nothing to do."; exit 0; }
|
|
|
|
say "bootstrap: loading database schema...";
|
|
if ( my $err = $installer->load_db_schema() ) { die "schema load failed: $err\n"; }
|
|
|
|
$installer->set_marcflavour_syspref('marc21');
|
|
|
|
# Same ordering rules the web installer applies (sysprefs first, userflags last).
|
|
my @files = (
|
|
sort( glob("$data/en/mandatory/*.sql"), glob("$data/en/mandatory/*.yml") ),
|
|
sort( glob("$data/en/marcflavour/marc21/mandatory/*.yml"), glob("$data/en/marcflavour/marc21/mandatory/*.sql") ),
|
|
);
|
|
# Optional data worth having: matching rules, "Fast add" framework (a short
|
|
# cataloguing form - title/author/ISBN/call number/barcode), MARC-coded values.
|
|
for my $f (qw(
|
|
marcflavour/marc21/optional/marc21_default_matching_rules.yml
|
|
marcflavour/marc21/optional/marc21_sample_fastadd_framework.yml
|
|
optional/marc21_holdings_coded_values.yml
|
|
optional/marc21_relatorterms.yml
|
|
optional/auth_val.yml
|
|
optional/csv_profiles.yml
|
|
)) {
|
|
push @files, "$data/en/$f" if -f "$data/en/$f";
|
|
}
|
|
|
|
say "bootstrap: loading ", scalar(@files), " framework / data files...";
|
|
my ( undef, $list ) = $installer->load_sql_in_order( 'en', [], @files );
|
|
for my $lvl (@$list) {
|
|
for my $f ( @{ $lvl->{fwklist} } ) {
|
|
say " ! $f->{fwkname}: $f->{error}" if $f->{error};
|
|
}
|
|
}
|
|
|
|
$installer->set_version_syspref();
|
|
$installer->set_languages_syspref('en');
|
|
|
|
# ---- Home-library seed data (YAML in the same format Koha ships) ----------
|
|
for my $y (sort glob("$seed_dir/*.yml")) {
|
|
my $err = $installer->load_sql($y);
|
|
say " seed $y: ", ( $err ? "ERROR $err" : 'ok' );
|
|
}
|
|
|
|
# ---- Library, patron categories, owner account ----------------------------
|
|
Koha::Library->new({
|
|
branchcode => 'HOME', branchname => $env{library},
|
|
})->store unless Koha::Libraries->find('HOME');
|
|
|
|
for my $c ( [ 'OWNER', 'Owner / librarian', 'S' ], [ 'FRIEND', 'Friend / borrower', 'A' ] ) {
|
|
Koha::Patron::Category->new({
|
|
categorycode => $c->[0], description => $c->[1], category_type => $c->[2],
|
|
enrolmentperiod => 999, overduenoticerequired => 0,
|
|
})->store unless Koha::Patron::Categories->find( $c->[0] );
|
|
}
|
|
|
|
my $admin = Koha::Patron->new({
|
|
cardnumber => 'ADMIN', surname => 'Librarian', userid => $env{admin_user},
|
|
branchcode => 'HOME', categorycode => 'OWNER', flags => 1, # 1 = superlibrarian
|
|
})->store;
|
|
$admin->set_password({ password => $env{admin_pass}, skip_validation => 1 });
|
|
|
|
# ---- Preferences ----------------------------------------------------------
|
|
my %prefs = (
|
|
autoBarcode => 'incremental', # new items get a barcode automatically
|
|
itemcallnumber => '082ab', # Dewey call number copied from the MARC record
|
|
OpenLibraryCovers => 1, # cover images in the catalogue
|
|
OPACSearchForTitleIn => '',
|
|
BiblioDefaultView => 'normal',
|
|
OpacPublic => 1,
|
|
opacuserlogin => 0, # catalogue is browse-only; no patron logins needed
|
|
OpacMaintenance => 0,
|
|
ExpireReservesMaxPickUpDelay => 0,
|
|
AllowOfflineCirculation => 0,
|
|
marcflavour => 'MARC21',
|
|
LibraryName => $env{library},
|
|
timezone => $ENV{TZ} || 'UTC',
|
|
);
|
|
C4::Context->set_preference( $_, $prefs{$_} ) for sort keys %prefs;
|
|
|
|
say "bootstrap: done. Staff login: $env{admin_user}";
|