Remove Log (just pipe it) & Be Quiet About config.pl

diff --git a/config.default.pl b/config.default.pl
index 13566e996f81d5ddb3fc94e89b0e60552133501b..326ddcf2a60cb8b478c3872f0577a8fc09f9f826 100644 (file)
--- a/config.default.pl
+++ b/config.default.pl
@@ -1,6 +1,6 @@
 # always assume anything to do with files or directories is ran at project root
 
-no warnings 'redefine';
+no warnings;
 
 use constant {
 
@@ -10,7 +10,6 @@ BARE_REQUEST           => 0,
 
 IMMORTAL               => 1, # will continue handling request after death/error
 
-LOG_FILE               => '/tmp/gorillanest.log',
 DB_FILE                => 'gorillanest.sqlite3', # sqlite3
 
 SOCKET_FILE            => '/tmp/gorillanest.socket',

diff --git a/perl/cgi.pl b/perl/cgi.pl
index 3cbed421cc800660f67d629f3edd3ecad1e00d50..d19c915eb49d7289b8e0ed777d93f579e749ed21 100755 (executable)
--- a/perl/cgi.pl
+++ b/perl/cgi.pl
@@ -22,7 +22,7 @@ use Git::Repository;
 
 use lib qw(. ..);
 BEGIN { require 'config.default.pl'; }
-BEGIN { require 'config.pl'; }
+BEGIN { require 'config.pl' if -f 'config.pl'; }
 
 sub info {
     warn join(' ', @_);

diff --git a/perl/fcgi.pl b/perl/fcgi.pl
index 0f3dff898ebe5c2987ccfc36136db648a94dbfc4..b3e6d9e08297b1cf196a5f001c91d8f82f282681 100755 (executable)
--- a/perl/fcgi.pl
+++ b/perl/fcgi.pl
@@ -11,7 +11,6 @@ BEGIN { require 'cgi.pl'; }
 
 while (1) {
     try {
-        open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!";
         my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
         while($request->Accept() >= 0) {
             master();