From 86ac936df23f9bb43ea189752bfdb7a1f15a87f4 Mon Sep 17 00:00:00 2001
From: Dan Fabulich <dan@fabulich.com>
Date: Tue, 1 Sep 2026 18:25:42 -0700
Subject: [PATCH] Add a way to test build_zip_of_zips.pl in Docker

---
 IFComp-Dev/script/build_zip_of_zips.sh | 3 +++
 IFComp/script/build_zip_of_zips.pl     | 8 +++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100755 IFComp-Dev/script/build_zip_of_zips.sh

diff --git a/IFComp-Dev/script/build_zip_of_zips.sh b/IFComp-Dev/script/build_zip_of_zips.sh
new file mode 100755
index 00000000..2b0f5519
--- /dev/null
+++ b/IFComp-Dev/script/build_zip_of_zips.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+docker compose exec app perl ./script/build_zip_of_zips.pl --docker
diff --git a/IFComp/script/build_zip_of_zips.pl b/IFComp/script/build_zip_of_zips.pl
index 1dc8fbba..1455f8c2 100644
--- a/IFComp/script/build_zip_of_zips.pl
+++ b/IFComp/script/build_zip_of_zips.pl
@@ -12,8 +12,14 @@
 use Path::Class;
 use File::Basename;
 use Archive::Zip qw(AZ_OK);
+use Getopt::Long;
 
-my $schema = IFComp::Schema->connect( 'dbi:mysql:ifcomp', 'root', '' );
+my $docker;
+GetOptions( 'docker' => \$docker )
+    or die "Usage: $0 [--docker]\n";
+
+my $dsn = $docker ? 'dbi:mysql:database=ifcomp;host=db' : 'dbi:mysql:ifcomp';
+my $schema = IFComp::Schema->connect( $dsn, 'root', '' );
 $schema->entry_directory( Path::Class::Dir->new("$FindBin::Bin/../entries") );
 my $comp = $schema->resultset('Comp');