Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (32 sloc) 1.21 KB
#!/usr/bin/perl -w
# koha-post-deploy.pl - script to automatically deploy Koha tarball
#
# Copyright (C) 2012 C & P Bibliography Services
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as
# published by the Free Software Foundation, either version 3 of the
# License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use strict;
use warnings;
use Config::Simple;
my $cfg_file = shift;
die "Please provide a summary config file\n" unless $cfg_file;
my $config = new Config::Simple("$cfg_file");
my $staging = $config->param('staging');
my $server = $config->param('upload-tgz-to');
exit 0 unless $server;
opendir( DIR, $staging );
while ( my $file = readdir(DIR) ) {
next unless -s $file;
system("scp $staging/$file $server$file");
}
exit 0;