From c87868567fa22c0c0caf3da018a7fb1d5b0c348d Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 2 Nov 2020 17:00:12 -0500
Subject: Clear cert paths before running.  Added diagnostic argument output to
 log.

---
 main.f90 | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/main.f90 b/main.f90
index 0a21e5a..c587345 100644
--- a/main.f90
+++ b/main.f90
@@ -53,15 +53,16 @@ implicit none
 
     logfile = "/tmp/gnc.log"
     rootdir = " "
+    cert_public = " "
+    cert_private = " "
     
     if(command_argument_count() < 4) then
         call usage()
-        close(logunit)
         stop
     end if
     
     i = 1
-    do while(i < command_argument_count())
+    do while(i <= command_argument_count())
         call get_command_argument(i, arg)
         if(trim(arg) == "-pub") then
             i = i + 1
@@ -83,6 +84,12 @@ implicit none
    
     call write_log("Initiating program")
    
+    ! Diagnostics
+    do i = 1,command_argument_count()
+        call get_command_argument(i, arg)
+        call write_log("Argument: "//trim(arg))
+    end do
+   
     call random_seed()
     
     call library_init()
-- 
cgit v1.2.3