Changeset 20b4e44 for app/src/kon

Timestamp:

03/19/08 12:29:21 (16 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

389de9a

Parents:

d593c5e

git-author:

pawelk <pawelk@…> (03/19/08 12:29:21)

git-committer:

pawelk <pawelk@…> (03/19/08 12:29:21)

Message:

Wersja niestabilna, zawiera wstepne poprawki.

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@13 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:

• app/src/kon/kon (modified) (2 diffs)

app/src/kon/kon

@@ -1 +1 @@
 #!/usr/bin/perl -w
+
+#package:       UAM Text Tools
+#component:     kon (search context)
+#version:       1.0
+#author:        Tomasz Obrebski
+
 use strict;
 use Getopt::Long;
 use locale;
+use File::HomeDir;
 
 Getopt::Long::Configure('no_ignore_case_always');
@@ -19 +26 @@
 
 my $systemconfigfile='/usr/local/etc/utt/kon.conf';
-my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf";
+#my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf";
+my $userconfigfile=home()."/.utt/kon.conf";
 
 #read configuration files###########################