kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
freebsd-ports/comms/cqrlog/files/patch-src_dData.pas
Diane Bruce bcf8e8efee comms/cqrlog: Update to 2.5.2 
Legend:
  # info
  + new feature
  - bugfix
--------------------

2.5.0 (2021-01-16)
  + 3 user defined buttons for TRX control (Saku, OH1KH)
  + TX quick split using XIT (Saku, OH1KH)
  + support of WPM changes from macros when using Hamlib keyer (Saku, OH1KH)
  + include operator's callsign in the exports (Florian, DF2ET)
  + view eQSL image from list of QSO (Saku, OH1KH)
  + button to show remote station on a map with path and direction (Florian, DF2ET)
  + buttons for adding Mode+RST_sent, Locators_propagation and user defined message to DX spot sending (Saku, OH1KH)
  + ADIF import for JS8, FT4 and PKT (Andreas, DL7OAP)
  + local oscilator configuration added (Florian, DF2ET)
  + user can spot RX freq instead of TX (Florian, DF2ET)
  + export to EDI (Florian, DF2ET)
  + separate CW keyer settings for radio1 and radio2 (Saku, OH1KH)
  + rotor controls updated (Saku, OH1KH)
  + contest filter added (Florian, DF2ET)
  + working with WSJT improved
  + Cabrillo export headers (Saku, OH1KH & Florian, DF2ET)
  + DARK DOK info support added (Florian, DF2ET & Andreas, DL7OAP)
  + Cabrillo export added (Florian, DF2ET)
  + DX cluster improved (Saku, OH1KH)
  + Add option to upload SAT status info to AMSAT status page (Florian, DF2ET)
  + Calculate SAT mode from freq and RX freq. Used in eqsl.cc upload and ADIF/HTML exports (Florian, DF2ET)
  - fixes for club membership (Saku, OH1KH & Andreas, DL7OAP)
  - fixes for password special characters (Saku, OH1KH)
  - fixes to ADIF export rules (Andreas, DL7OAP)
  - fixes to contest window (Saku, OH1KH)
  - band <->frequency fixes (Saku, OH1KH)
  - UTF-8 problems in ADIF (Saku, OH1KH)
  - JTDX & JS8CALL fixes (Saku, OH1KH)
  - typo in satellite EO-80 (Andreas, DL7OAP)
  - layout fixes for QT5 compilation (Saku, OH1KH)
  - filter to take fix (Saku, OH1KH)
  - eQSL upload fixes (Saku, OH1KH)
  - CQ monitor fixes (Saku, OH1KH)
  - CW keys fixes (Saku, OH1KH)
  - RBN monitor fixes (Saku, OH1KH)
  - new membership files check fixed
  - export to HTML and ADIF fixes (Saku, OH1KH)
  - group edit fixes (Saku, OH1KH)
  - filter settings fixes (Saku, OH1KH)
  - QTH profile fixes (Saku, OH1KH)
  - callbook database update fixes (Saku, OH1KH)

PR:		ports/260066
Reported by:	hellocodebsd@gmail.com
2022-01-25 11:25:30 -05:00

94 lines
3.9 KiB
ObjectPascal
Raw Blame History

--- src/dData.pas.orig 2021-01-16 14:03:35 UTC
+++ src/dData.pas
@@ -908,22 +908,22 @@ begin
if not DirectoryExistsUTF8(fHomeDir+'members') then
CreateDirUTF8(fHomeDir+'members');
fMembersDir := fHomeDir+'members'+PathDelim;
- fGlobalMembersDir := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+
+ fGlobalMembersDir := ExpandFileNameUTF8('%%DATADIR%%'+
PathDelim+'members'+PathDelim);
if DirectoryExistsUTF8(fHomeDir+'zipcodes') then
fZipCodeDir := fHomeDir+'zipcodes'+PathDelim
else
- fZipCodeDir := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog')+
+ fZipCodeDir := ExpandFileNameUTF8('%%DATADIR%%')+
PathDelim+'zipcodes'+PathDelim;
if not DirectoryExistsUTF8(fHomeDir+'images') then
CreateDirUTF8(fHomeDir+'images');
- fHelpDir := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+
+ fHelpDir := ExpandFileNameUTF8('%%DATADIR%%'+
PathDelim+'help'+PathDelim);
- fShareDir := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+
+ fShareDir := ExpandFileNameUTF8('%%DATADIR%%'+
PathDelim);
if not DirectoryExistsUTF8(fHomeDir + 'lotw') then
@@ -948,7 +948,7 @@ procedure TdmData.PrepareCtyData;
var
s,d : String;
begin
- s := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+PathDelim+'ctyfiles'+PathDelim);
+ s := ExpandFileNameUTF8('%%DATADIR%%'+PathDelim+'ctyfiles'+PathDelim);
d := fHomeDir+'ctyfiles'+PathDelim;
if not FileExistsUTF8(fHomeDir+'ctyfiles'+PathDelim+'AreaOK1RR.tbl') then
@@ -1021,7 +1021,7 @@ procedure TdmData.PrepareXplanetDir;
var
s,d : String;
begin
- s := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+PathDelim+'xplanet'+PathDelim);
+ s := ExpandFileNameUTF8('%%DATADIR%%'+PathDelim+'xplanet'+PathDelim);
d := fHomeDir+'xplanet'+PathDelim;
if not FileExistsUTF8(d+'geoconfig') then
CopyFile(s+'geoconfig',d+'geoconfig')
@@ -1031,7 +1031,7 @@ procedure TdmData.PrepareVoice_keyerDir;
var
s,d : String;
begin
- s := ExpandFileNameUTF8('..'+PathDelim+'share'+PathDelim+'cqrlog'+PathDelim+'voice_keyer'+PathDelim);
+ s := ExpandFileNameUTF8('%%DATADIR%%'+PathDelim+'voice_keyer'+PathDelim);
d := fHomeDir+'voice_keyer'+PathDelim;
if not FileExistsUTF8(d+'voice_keyer.sh') then
CopyFile(s+'voice_keyer.sh',d+'voice_keyer.sh')
@@ -1098,15 +1098,15 @@ begin
AProcess := TProcess.Create(nil);
AStringList := TStringList.Create;
Try
- AProcess.Executable := 'cat';
- AProcess.Parameters.Add('/proc/version');
+ AProcess.Executable := 'uname';
+ AProcess.Parameters.Add('-srm');
AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
AProcess.Execute;
AStringList.LoadFromStream(AProcess.Output);
for i:=0 to pred(AStringList.Count) do
writeln(AStringList[i]);
except
- writeln('Could not get Linux version! [tried: cat /proc/version]');
+ writeln('Could not get FreeBSD version! [tried: uname -srm]');
end;
AStringList.Free;
AProcess.Free;
@@ -3249,12 +3249,12 @@ begin
Writeln(ExtractFilePath(Paramstr(0)) + 'mysqld');
if FileExistsUTF8(ExtractFilePath(Paramstr(0)) + 'mysqld') then
Result := ExtractFilePath(Paramstr(0)) + 'mysqld';
- if FileExistsUTF8('/usr/bin/mysqld') then
- Result := '/usr/bin/mysqld';
- if FileExistsUTF8('/usr/bin/mysqld_safe') then //Fedora
- Result := '/usr/bin/mysqld_safe';
- if FileExistsUTF8('/usr/sbin/mysqld') then //openSUSE
- Result := '/usr/sbin/mysqld';
+ if FileExistsUTF8('/usr/local/bin/mysqld') then
+ Result := '/usr/local/bin/mysqld';
+ if FileExistsUTF8('/usr/local/bin/mysqld_safe') then //Fedora
+ Result := '/usr/local/bin/mysqld_safe';
+ if FileExistsUTF8('/usr/local/sbin/mysqld') then //openSUSE
+ Result := '/usr/local/sbin/mysqld';
if Result = '' then //don't know where mysqld is, so hopefully will be in $PATH
Result := 'mysqld'
end;
Reference in a new issue View git blame Copy permalink