w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-19 02:22:10 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fixed the same "Log QSO" bug that was in WSJT.

Browse Source 
Removed diagnostic print.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@508 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-07-18 14:13:16 +00:00
parent 784ef83570
commit 1549fa7cf4
4 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
map65.py
View File

@ -224,7 +224,8 @@ def bandmap(event=NONE):
#------------------------------------------------------ logqso
def logqso(event=NONE):
t=time.strftime("%Y-%b-%d,%H:%M",time.gmtime())
t=t+","+hiscall+","+hisgrid+","+str(g.nfreq)+","+g.mode+"\n"
# t=t+","+hiscall+","+hisgrid+","+str(g.nfreq)+","+g.mode+"\n"
t=t+","+ToRadio.get()+","+HisGrid.get()+","+str(g.nfreq)+","+g.mode+"\n"
t2="Please confirm making the following entry in MAP65.LOG:\n\n" + t
msg=Pmw.MessageDialog(root,buttons=('Yes','No'),message_text=t2)
msg.geometry(msgpos())

2
map65a.F90
View File

@ -117,7 +117,7 @@ subroutine map65a(newdat)
shmsg=' '
! Is there a shorthand tone above threshold?
if(syncshort.gt.1.0) then
! ### Do shorthand AFC here (or maybe after finding a pair?) ###
short(1,i)=syncshort

1
plrr_subs_win.c
View File

@ -79,6 +79,7 @@ void setup_rsocket_(void)
/* use setsockopt() to request that the kernel join a multicast group */
mreq.imr_multiaddr.s_addr=inet_addr(HELLO_GROUP);
mreq.imr_interface.s_addr=htonl(INADDR_ANY);
// NG: mreq.imr_interface.s_addr=htonl("192.168.10.13");
if (setsockopt(fd,IPPROTO_IP,IP_ADD_MEMBERSHIP,&mreq,sizeof(mreq)) < 0) {
perror("setsockopt");
exit(1);

10
symspec.f90
View File

@ -14,9 +14,9 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
kkk=kk
if(kbuf.eq.2) kkk=kk-5760000
if(ndebug.gt.0) write(*,4001) 'A',nutc,mod(int(sec_midn()),60), &
kbuf,kk,kkk,kkdone
4001 format(a1,i5.4,2i3,3i9,i5)
! if(ndebug.gt.0) write(*,4001) 'A',nutc,mod(int(sec_midn()),60), &
! kbuf,kk,kkk,kkdone
!4001 format(a1,i5.4,2i3,3i9,i5)
if(ndebug.eq.2) write(*,3001) nutc,mod(int(sec_midn()),60)
3001 format('symspec 1:',i5.4,i3.2)
@ -116,8 +116,8 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
998 kkdone=i1-1
999 continue
if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), &
kbuf,kk,kkk,kkdone,n
! if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), &
! kbuf,kk,kkk,kkdone,n
if(ndebug.eq.2) write(*,3002) mod(int(sec_midn()),60),n
3002 format('symspec 2:',i8.2,i5)
return