Claude
f0a0c4ad40
- Seed Avery 5160/5167 and Demco spine templates plus Spine, Spine+barcode and Barcode-only layouts (Dewey call number split across lines) - Default 942$c (item type) to BOOK so a Z39.50 import saves without edits - Enable Plack includes in addition to the plain ones (static files/rewrites) - Swap Apache from mpm_itk to prefork after koha-create (itk can't switch users in a container and returned HTTP 500 on every page) - Drop unneeded SETUID/SETGID caps Verified live: staff login, Z39.50 search/import against a local server, save + auto barcode, label PDF with Dewey spine + barcode. Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_013wi3ZSot4XbUViwRFgLpRf
118 lines
4.8 KiB
Perl
Executable File
118 lines
4.8 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 });
|
|
|
|
# ---- Make "add a book" need as few decisions as possible -------------------
|
|
# The item type (942$c) is mandatory in Koha's frameworks; default it to Book so
|
|
# a Z39.50 import can be saved without touching that field.
|
|
$dbh->do(q{UPDATE marc_subfield_structure SET defaultvalue = 'BOOK'
|
|
WHERE tagfield = '942' AND tagsubfield = 'c'});
|
|
|
|
# ---- 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}";
|