diff -Naur qle-0.0.18/qle-0.0.18.pl qle-0.0.18-mod/qle-0.0.18.pl
--- qle-0.0.18/qle-0.0.18.pl 2009-12-21 19:13:12.000000000 +0200
+++ qle-0.0.18-mod/qle-0.0.18.pl 2010-01-10 22:52:53.000000000 +0200
@@ -50,6 +50,7 @@
# Build name of config file from name of executable file:
my ($progName, $pathName, $suffix) = fileparse("$0", qr/\.[^.]*/);
+ my $pathName = "/etc/qle/";
my $configFile;
if (File::Spec->file_name_is_absolute($pathName)) {
$configFile = "$pathName" . "$progName" . ".conf";
@@ -883,8 +884,14 @@
$doScp = process_scp( \@scpArray, $config{masterScp} );
}
else {
- print "Can't read super check partial file $config{masterScp}\n",
- "No super check partial.\n";
+ stat ( "/usr/share/qle/$config{masterScp}" );
+ if ( -r _ ) {
+ $doScp = process_scp( \@scpArray, "/usr/share/qle/$config{masterScp}" );
+ }
+ else {
+ print "Can't read super check partial file $config{masterScp}\n",
+ "No super check partial.\n";
+ }
}
my $scpWindow;
@@ -928,7 +935,13 @@
\%ituzHash, $config{ctyDat} );
}
else {
- print "Can't read cty.dat file $config{ctyDat}\n";
+ stat ( "/usr/share/qle/$config{ctyDat}" );
+ if (-r _) {
+ process_cty_dat( \%ctyHash, \%contHash, \%cqzHash,
+ \%ituzHash, "/usr/share/qle/$config{ctyDat}" );
+ } else {
+ print "Can't read cty.dat file $config{ctyDat}\n";
+ }
}
# Set up frame, used for entering new QSOs:
@@ -6643,7 +6656,7 @@
use Tk::Bitmap;
# use Tk::Image;
- my $kiwi = "kiwi-blk-52x52.xbm";
+ my $kiwi = "/usr/share/qle/kiwi-blk-52x52.xbm";
my $image = $window->Bitmap( -file => $kiwi )
or warn "Image file $kiwi not found :-( \n";
@@ -7323,7 +7336,7 @@
# subroutine process_scp
#
# Purpose: Reads file $config{masterScp}, turning the info into an
-# array.
+# array
#
# Args:
# Reference to super check partial array