Author: earle Date: 2008-01-29 18:36:29 +0000 (Tue, 29 Jan 2008) New Revision: 1146
Added: status/ status/runbuild.pl Log: Beginnings of new nightly build status/test coverage monitor.
Property changes on: status ___________________________________________________________________ Name: svn:ignore + status.conf
Added: status/runbuild.pl =================================================================== --- status/runbuild.pl (rev 0) +++ status/runbuild.pl 2008-01-29 18:36:29 UTC (rev 1146) @@ -0,0 +1,31 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +use Config::Tiny; +use SVN::Agent; + +my $config_file = Config::Tiny->new->read('status.conf'); + +my %config; + +foreach (qw(domain trunk lib script arch libdoc bindoc)) { + $config{$_} = $config_file->{_}->{$_} || die "No '$_' specified in status.conf"; +} + +die "trunk dir doesn't exist" unless -e $config{'trunk'}; +die "trunk dir isn't a directory" unless -d _; +die "trunk dir isn't readable" unless -r _; +die "trunk dir isn't writable" unless -w _; + +my $sa = SVN::Agent->load({ path => $config{'trunk'} }); +$sa->update; + +chdir $config{'trunk'}; +system("perl Build.PL --force \ + install_path=lib=$config{'lib'} \ + install_path=script=$config{'script'} \ + install_path=arch=$config{'arch'} \ + install_path=libdoc=$config{'libdoc'} \ + install_path=bindoc=$config{'bindoc'}"); \ No newline at end of file
Property changes on: status/runbuild.pl ___________________________________________________________________ Name: svn:executable + *