oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'WebGUI8' into psgi

Browse source 
Conflicts:
	sbin/testEnvironment.pl
This commit is contained in:
Patrick Donelan 2010-06-04 21:01:03 -04:00
commit f16ba76b86
109 changed files with 1546 additions and 2197 deletions
Download patch file Download diff file Expand all files Collapse all files

13
sbin/spectre.pl
View file

@ -105,8 +105,19 @@ elsif ($daemon) {
die "Spectre is already running.\n";
}
elsif (-e $pidFileName){
die "pidFile $pidFileName already exists\n";
open my $pidFile, '<', $pidFileName or die "$pidFileName: $!";
(my $pid) = readline $pidFile;
chomp $pid if defined $pid;
if(defined $pid and $pid =~ m/^(\d+)$/) {
if(kill 0, $1) {
die "$0: already running as PID $1";
} else {
warn "pidfile contains $pid but that process seems to have terminated"
}
}
close $pidFile;
}
# XXXX warn if we can't open the log file before forking or else make it not fatal or else close STDOUT/STDERR afterwards; don't fail silently -- sdw
#fork and exit(sleep(1) and print((ping())?"Spectre failed to start!\n":"Spectre started successfully!\n")); #Can't have right now.
require POSIX;
fork and exit;

1
sbin/testEnvironment.pl
View file

@ -143,6 +143,7 @@ checkModule("Readonly", "1.03" );
checkModule("Moose", "0.93" );
checkModule("MooseX::Storage", "0.23" );
checkModule("MooseX::NonMoose", '0.07' );
checkModule("MooseX::Storage::Format::JSON","0.27" );
checkModule("namespace::autoclean", "0.09" );
checkModule("Business::PayPal::API", "0.62" );
checkModule("Locales", "0.10" );