Modify cablog to handle MAP65 log files wsjt.log as well as WSJT-X log files wsjtx.log.

lib/cablog.f90

@@ -3,7 +3,11 @@ program cablog
   character*100 line,infile,outfile
   character cband*4,cmode*2,cdate*10,cutc*4,callsign*10,mycall*10
   character csent*3,crcvd*3,dsent*3,drcvd*3
+  character*3 cmo(12)
   integer icomma(20)
+  logical map65
+  data cmo/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',   &
+           'Oct','Nov','Dec'/
 
   nargs=iargc()
   if(nargs.ne.4) then
@@ -48,9 +52,12 @@ program cablog
           'CREATED-BY: cablog (C) K1JT')        
 
   n=0
+  map65=.false.
+  
   do nn=1,9999
      read(10,'(a100)',end=900) line
      if(len(trim(line)).eq.0) cycle
+     if(line(6:6).ge.'A' .and. line(6:6).le.'Z') map65=.true.
      n=n+1
      k=0
      do j=1,100
@@ -61,6 +68,20 @@ program cablog
      enddo
      cmode='DG'
      if(index(line,',CW,').gt.10) cmode='CW'
+
+     if(map65) then
+        do i=1,12
+           if(cmo(i).eq.line(6:8)) write(cdate(6:7),'(i2.2)') i
+        enddo
+        cdate(1:5)=line(1:5)
+        cdate(8:10)=line(9:11)
+        cutc=line(13:14)//line(16:17)
+        i0=index(line(19:),',')
+        callsign=line(19:17+i0)
+        cband='144 '
+        csent=dsent
+        crcvd=drcvd
+     else
         cdate=line(1:10)
         cutc=line(32:33)//line(35:36)
         i0=index(line(41:),',')
@@ -91,8 +112,10 @@ program cablog
         else
            crcvd=line(icomma(9)+1:icomma(10)-1)
         endif
-     write(12,1020) cband,cmode,cdate,cutc,mycall,csent,callsign,crcvd
-1020 format('QSO: ',a4,1x,a2,1x,a10,1x,a4,1x,a6,1x,a3,5x,a10,1x,a3)
+     endif
+     
+     write(12,1030) cband,cmode,cdate,cutc,mycall,csent,callsign,crcvd
+1030 format('QSO: ',a4,1x,a2,1x,a10,1x,a4,1x,a6,1x,a3,5x,a10,1x,a3)
   enddo
 
 900 write(12,1900)
@@ -103,3 +126,5 @@ program cablog
 999 end program cablog
      
 !2023-10-28,00:17:00,2023-10-28,00:21:00,G7TZZ,IO92,1296.083100,Q65,-17,-17,,,,
+!2023-Nov-30,20:31,W8WN,EM77,0,Q65A
+