diff options
author | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-05-22 20:09:31 -0700 |
---|---|---|
committer | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-05-22 20:09:31 -0700 |
commit | 9836838062eb5d9687b67b2fc36717bfc2c34c50 (patch) | |
tree | 25e3302f92ccbcab7483fbbc35aa4c32185ff3b0 /scripts/post_to_hook.pl | |
parent | Rename trigger script (diff) | |
download | jitterbug-9836838062eb5d9687b67b2fc36717bfc2c34c50.tar.gz |
Allow a file to be specified to post_to_hook.pl
Diffstat (limited to '')
-rw-r--r-- | scripts/post_to_hook.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/post_to_hook.pl b/scripts/post_to_hook.pl index 2e2f717..55d3d73 100644 --- a/scripts/post_to_hook.pl +++ b/scripts/post_to_hook.pl @@ -13,7 +13,8 @@ use Dancer::Test; use Dancer::Config qw/setting/; use File::Spec::Functions; -my $content = LoadFile(catfile(qw/t data hook_data.yml/)); +my $content = LoadFile(shift || catfile(qw/t data hook_data.yml/)); + my $db_file = catfile( qw/t data jitterbug.db/ ); my $dsn = 'dbi:SQLite:dbname=' . $db_file; my $schema = jitterbug::Schema->connect($dsn); |