From 7f10ced9944770c812da80c75c39d5d4e2992a30 Mon Sep 17 00:00:00 2001
From: Cees Bassa <cbassa@gmail.com>
Date: Thu, 14 Apr 2022 17:19:41 +0200
Subject: [PATCH] Log bad FITS files

---
 reduce.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/reduce.c b/reduce.c
index 3060400..5aca374 100644
--- a/reduce.c
+++ b/reduce.c
@@ -730,7 +730,9 @@ int main(int argc,char *argv[])
   int year;
   char *env;
   float sigma,xa,ya;
-
+  FILE *file;
+  char filename[128];
+  
   env=getenv("ST_COSPAR");
 
   // Default observation
@@ -864,6 +866,14 @@ int main(int argc,char *argv[])
     // Get cursor
     cpgcurs(&x,&y,&c);
 
+    // Log as bad and quit
+    if (c=='Q') {
+      sprintf(filename,"%s.bad",argv[1]);
+      file=fopen(filename,"w");
+      fclose(file);
+      break;
+    }
+
     // Quit
     if (c=='q')
       break;