Changeset 246900a for app/src/kon

Timestamp:

03/14/08 14:05:07 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

b2647de

Parents:

8d3e6ab

git-author:

pawelk <pawelk@…> (03/14/08 14:05:07)

git-committer:

pawelk <pawelk@…> (03/14/08 14:05:07)

Message:

Przejrzałem kody programów pod kątem korzystania z plików konfiguracyjnych.

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

File:

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

app/src/kon/kon

@@ -18 +18 @@
 my $help=0;
 
-my $configfile1="../../conf/con.conf";
-my $configfile2="../conf/con.conf";
+my $systemconfigfile='/usr/local/etc/utt/kon.conf';
+my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf";
 
 #read configuration files###########################
 my $file;
-foreach $file ($configfile1, $configfile2){
+foreach $file ($systemconfigfile, $userconfigfile){
   if(open(CONFIG, $file)){
         while (<CONFIG>) {
-                chomp;                  
-                s/#.*//;                
-                s/^\s+//;               
-                s/\s+$//;               
-                next unless length;     
+                chomp;
+                s/#.*//;
+                s/^\s+//;
+                s/\s+$//;
+                next unless length;
                 my ($name, $value) = split(/\s*=\s*/, $_, 2);
                 if(($name eq "left")or($name eq "l")){
@@ -65 +65 @@
                         $help=1;
                 }
-        
-        } 
+
+        }
         close CONFIG;
   }
@@ -485 +485 @@
       white_into_symbols(\$right_string);
 #ponizsza linijka dodana 18 listopada
-      white_into_symbols(\${$CENTER_REF}[$index]);      
+      white_into_symbols(\${$CENTER_REF}[$index]);
     }