23-12-2016, 12:19 PM,
|
|
F6EPT
Junior Member
|
Posts: 4
Threads: 1
Joined: Jan 2016
Reputation:
0
|
|
RE: Version 5.94 Error After Update
Hello Jordi,
I have not found how to create a topic on the forum, so I put my question here.
How do I register my Eqsl that I receive by only updating the Eqsl box?
73s
Yves, F6EPT
|
|
23-12-2016, 03:14 PM,
|
|
F6EPT
Junior Member
|
Posts: 4
Threads: 1
Joined: Jan 2016
Reputation:
0
|
|
RE: Version 5.94 Error After Update
Hi Jordi,
Ok thank you for the precisions, I suspected that loading the Eqsl file received in my database was an error.
So I'm going to do it by hand.
73s, Yves F6EPT
|
|
23-12-2016, 05:50 PM,
|
|
F6EPT
Junior Member
|
Posts: 4
Threads: 1
Joined: Jan 2016
Reputation:
0
|
|
RE: Version 5.94 Error After Update
Thanks again Jordi, Merry Christmas and all my best wishes for 2017.
73s
Yves, F6EPT
|
|
24-12-2016, 12:06 PM,
|
|
DG7RO
Member
|
Posts: 51
Threads: 17
Joined: Jun 2013
Reputation:
0
|
|
RE: Version 5.94 Error After Update
HI,
i do these steps to import the eqsl-QSL-RX-Flag:
-download the inbox into adif file from eqsl
- run a perl-script to generate sql- insert statements
- start winsql and cut&paste the output of the perl-script (= sql code)
- run it
- commit changes
doing this on a backup of the swl-db of course.
what is needed:
- winsql
- odbc to ms access-db of swisslog
- perl
- script
- adif-file from eqsl.
input:
<CALL:6>DL9NDV<QSO_DATE:8 >19930907<TIME_ON:4>1500<BAND:2>2M<MODE:3>SSB<RST_SENT:2>59<RST_RCVD:0><QSL_SENT:1>Y<QSL_SENT_VIA:1>E<APP_EQSL_AG:1>Y<GRIDSQUARE:6>JN59no<EOR>
out:
update LOGBOOK, BANDS, MODES
set
L_eQSL_RECEIVED=1,
L_eQSl_RECEIVED_date='23.12.2016'
where
l_call='DL9NDV'
and
L_eQSL_RECEIVED=0
and
l_modeid=modeid and mode='SSB'
and
l_bandid=bandid and BANDS.BAND like '2M'
and
L_DATE like '07.09.1993'
GO
have fun
Torsten
ps: arg... the forum does nto allow the perl script as an attachment... so it will come here:
Code: #!/usr/bin/perl
#konvertiert das eqsl-export log zu einem sql satz, der per winsql in die swisslog-db importiert wird,
#um das eqsl-conf feld zu setzen
$IN="dg7ro-eqsls.adi";
$OUT=">imp2swiss.sql";
($_d,$_m,$_y)=(localtime)[3,4,5];
$DATE=sprintf("%02d.%02d.%d",$_d,$_m,$_y+1900);
#input
#<CALL:6>DL9NDV<QSO_DATE:8:D>19930907<TIME_ON:4>1500<BAND:2>2M<MODE:3>SSB<RST_SENT:2>59<RST_RCVD:0><QSL_SENT:1>Y<QSL_SENT_VIA:1>E<APP_EQSL_AG:1>Y<GRIDSQUARE:6>JN59no<EOR>
#zeilenweise durch die datei:
open INPUTDAT, $IN or die $!;
open OUTPUTDAT, $OUT or die $!;
while ( $zeile=<INPUTDAT>)
{ chomp($zeile);
if ($zeile eq "") {next; }
$ECALL= $zeile =~ /<CALL:[0-9]+>([A-Z0-9]+)/;
if ($ECALL == 0) {next; }
$ECALL=$1;
$EDATE1= $zeile =~ /<QSO_DATE:8:D>([0-9]+)/; $EDATE1=$1;
$EBAND= $zeile =~ /<BAND:[0-9]+>([Mm0-9]+)/; $EBAND=$1;
$EMODE= $zeile =~ /<MODE:[0-9]+>([A-Za-z]+)/; $EMODE=$1;
$ETIME= $zeile =~ /<TIME_ON:4>([0-9]+)/; $ETIME=$1;
$EDATE1=~ /(.{4})(.{2})(.{2})/;
$EDATE=$3.".".$2.".".$1;
# $EDATE="24.10.2014"; $ECALL="DL9NDV"; $EBAND="20m"; $EMODE="SSB";
print "DEB-$DATE : C:$ECALL D:$EDATE B:$EBAND M:$EMODE T:$ETIME\n";
$sql="update LOGBOOK, BANDS, MODES
set
L_eQSL_RECEIVED=1,
L_eQSl_RECEIVED_date='".$DATE."'
where
l_call='".$ECALL."'
and
L_eQSL_RECEIVED=0
and
l_modeid=modeid and mode='".$EMODE."'
and
l_bandid=bandid and BANDS.BAND like '".$EBAND."'
and
L_DATE like '".$EDATE."'\nGO\n";
print OUTPUTDAT $sql."\n";
}
close (INPUTDAT);
close (OUTPUTDAT);
|
|
27-12-2016, 10:44 AM,
|
|
DG7RO
Member
|
Posts: 51
Threads: 17
Joined: Jun 2013
Reputation:
0
|
|
RE: Version 5.94 Error After Update
HI,
I tried to upload in zip or RAR, but the forum software checked the file and did not accept it.
I started the script in the table I saw in the DB-file. I searched for a table with the fields I need and foudn the logbook. As the QSOs table is only a view / querey I did not use this as I am not familar with that.
The script reads the adif-file in sequence and creates the sql-statements in sequence. Maybe I will find some time at home to make some screen shots to show what I am dooing.
I do not check the time as I assume that mode-band-date is a unique identifier. Who works a station twice a day in the same mode+band? Also checking time makes it very difficult: number of digits in the time field, offset of swl-time and eqsl-time, time zone etc..
KISS: keep it stupid simple :-)
|
|
|