Add logging to file for GPBS to debug associated gpbs crashes

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/back/branches/gnustep_testplant_branch@39204 72102866-910b-0410-8b05-ffd578937521

Tools/gpbs.m

@@ -961,11 +961,9 @@ NSMutableDictionary	*pasteboards = nil;
 
 @implementation PasteboardServer
 
-- (BOOL) connection: (NSConnection*)ancestor
-  shouldMakeNewConnection: (NSConnection*)newConn;
+- (BOOL) connection: (NSConnection*)ancestor shouldMakeNewConnection: (NSConnection*)newConn;
 {
-  [[NSNotificationCenter defaultCenter]
-    addObserver: self
+  [[NSNotificationCenter defaultCenter] addObserver: self
                                            selector: @selector(connectionBecameInvalid:)
                                                name: NSConnectionDidDieNotification
                                              object: newConn];
@@ -1165,6 +1163,14 @@ init(int argc, char** argv, char **env)
 	}
     }
 
+  // Override verbosity if defaults key set...
+  NSNumber *verboseLevel = [[NSUserDefaults standardUserDefaults] objectForKey:@"GSGPBSLoggingVerboseLevel"];
+  if (verboseLevel)
+    {
+      verbose = [verboseLevel integerValue];
+      NSLog(@"%s:overriding verbose level to %ld", __PRETTY_FUNCTION__, (long)verbose);
+    }
+
   for (count = 0; count < NSIG; count++)
     {
       if (count == SIGABRT) continue;
@@ -1195,16 +1201,124 @@ init(int argc, char** argv, char **env)
       t = [NSTask new];
       NS_DURING
 	{
+          NSFileHandle   *outHandle = [NSFileHandle fileHandleWithNullDevice];
+          NSFileHandle   *errHandle = [NSFileHandle fileHandleWithNullDevice];
+          NSUserDefaults *defaults  = [NSUserDefaults standardUserDefaults];
+          
 	  [args removeObjectAtIndex: 0];
 	  [args addObject: @"--daemon"];
 	  [t setLaunchPath: [[NSBundle mainBundle] executablePath]];
 	  [t setArguments: args];
 	  [t setEnvironment: [pInfo environment]];
 	  null = [NSFileHandle fileHandleWithNullDevice];
+
+          // Default to stdin...
           [t setStandardInput: null];
-	  [t setStandardOutput: null];
-	  [t setStandardError: null];
+
+          // Check whether we should configure for a log file for
+          // stdout/stderr...
+          if ([[NSUserDefaults standardUserDefaults] boolForKey:@"GSGPBSLoggingEnabled"])
+            {
+              NSFileManager *filemgr     = [NSFileManager defaultManager];
+              NSArray       *folderPaths = NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory, NSUserDomainMask, YES);
+              NSString      *filepath    = [[folderPaths firstObject] stringByAppendingPathComponent:@"GNUstep"];
+              BOOL           isDir       = NO;
+              NSError       *error       = nil;
+              NSLog(@"%s:log path: %@", __PRETTY_FUNCTION__, filepath);
+              
+              // Create directory if it does not exists...
+              if ([filemgr fileExistsAtPath:filepath isDirectory:&isDir] == NO)
+              {
+                if ([filemgr createDirectoryAtPath:filepath withIntermediateDirectories:YES attributes:nil error:&error] == NO)
+                {
+                  NSLog(@"%s:error creating path: %@ error: %@", __PRETTY_FUNCTION__, error);
+                }
+              }
+              
+              // Purge logfile to 3 max each...
+              NSArray *properties = [NSArray arrayWithObjects:@"NSURLCreationDateKey", nil];
+              NSArray *logfiles   = [filemgr contentsOfDirectoryAtURL:[NSURL fileURLWithPath:filepath]
+                                           includingPropertiesForKeys:properties
+                                                              options:0
+                                                                error:&error];
+              
+              if (error)
+                {
+                  NSLog(@"%s:directory contents load error: %@", __PRETTY_FUNCTION__, error);
+                }
+              else
+                {
+                  NSPredicate *predicateErr = [NSPredicate predicateWithFormat:@"path contains[c] 'err.log'"];
+                  NSPredicate *predicateOut = [NSPredicate predicateWithFormat:@"path contains[c] 'out.log'"];
+                  NSArray     *errfiles     = [logfiles filteredArrayUsingPredicate:predicateErr];
+                  NSArray     *outfiles     = [logfiles filteredArrayUsingPredicate:predicateOut];
+                  
+                  // Purge standard error log files...
+                  if (errfiles && ([errfiles count] > 1))
+                    {
+                      NSLog(@"%s:purging error log files: %@", __PRETTY_FUNCTION__, errfiles);
+                    }
+                  
+                  // Purge standard out log files...
+                  if (outfiles && ([outfiles count] > 1))
+                    {
+                      NSLog(@"%s:purging output log files: %@", __PRETTY_FUNCTION__, outfiles);
+                    }
+                }
+              
+              if ([filemgr fileExistsAtPath:filepath isDirectory:&isDir] && isDir)
+                {
+                  NSString *filename = [defaults objectForKey:@"GSGPBSLoggingFilename"];
+                  
+                  // Default filename if user default is not set...
+                  if (filename == nil)
+                    {
+                      filename = @"gpbs";
+                    }
+                  
+                  if ([[NSUserDefaults standardUserDefaults] boolForKey:@"GSGPBSLoggingAttachPid"] == NO)
+                    filename = [filename stringByAppendingFormat:@"_%ld",getpid()];
+
+                  NSString *outfile  = [filename stringByAppendingFormat:@"_out.log"];
+                  NSString *outpath  = [filepath stringByAppendingPathComponent:outfile];
+                  NSString *errfile  = [filename stringByAppendingFormat:@"_err.log"];
+                  NSString *errpath  = [filepath stringByAppendingPathComponent:errfile];
+
+                  if ([filemgr fileExistsAtPath:outpath] == NO)
+                    if ([filemgr createFileAtPath:outpath contents:nil attributes:nil] == NO)
+                      NSLog(@"%s:error creating file at path: %@", __PRETTY_FUNCTION__, outpath);
+                  if ([filemgr fileExistsAtPath:errpath] == NO)
+                    if ([filemgr createFileAtPath:errpath contents:nil attributes:nil] == NO)
+                      NSLog(@"%s:error creating file at path: %@", __PRETTY_FUNCTION__, errpath);
+                  
+                  // Create the file handles...
+                  if (([filemgr fileExistsAtPath:outpath]) &&
+                      ([filemgr fileExistsAtPath:errpath]))
+                    {
+                      outHandle = [NSFileHandle fileHandleForWritingAtPath:[filepath stringByAppendingPathComponent:outfile]];
+                      errHandle = [NSFileHandle fileHandleForWritingAtPath:[filepath stringByAppendingPathComponent:errfile]];
+                      
+                      // Create a message with initial start date/time...
+                      NSDate   *date       = [NSDate date];
+                      NSString *dateString = [date descriptionWithCalendarFormat:nil timeZone:nil locale:nil];
+                      NSString *message    = [NSString stringWithFormat:@"GPBS Startup at %@\n", dateString];
+                      NSData   *msgdata    = [NSData dataWithBytes:[message cStringUsingEncoding:NSUTF8StringEncoding] length:[message length]];
+
+                      // Write the initial message into the file...
+                      [outHandle writeData:msgdata];
+                      [errHandle writeData:msgdata];
+                    }
+                }
+            }
+          
+          // Set standard output/error...
+	  [t setStandardOutput: outHandle];
+	  [t setStandardError: errHandle];
+          
+          // Launch...
 	  [t launch];
+          
+          // and release our hold...
 	  DESTROY(t);
 	}
       NS_HANDLER
@@ -1251,8 +1365,7 @@ main(int argc, char** argv, char **env)
   conn = [NSConnection defaultConnection];
   [conn setRootObject: server];
   [conn setDelegate: server];
-  [[NSNotificationCenter defaultCenter]
-    addObserver: server
+  [[NSNotificationCenter defaultCenter] addObserver: server
                                            selector: @selector(connectionBecameInvalid:)
                                                name: NSConnectionDidDieNotification
                                              object: (id)conn];