Changeset 246900a for app/src/kon/kon
- Timestamp:
- 03/14/08 14:05:07 (17 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
app/src/kon/kon
reedf648 r246900a 18 18 my $help=0; 19 19 20 my $ configfile1="../../conf/con.conf";21 my $ configfile2="../conf/con.conf";20 my $systemconfigfile='/usr/local/etc/utt/kon.conf'; 21 my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf"; 22 22 23 23 #read configuration files########################### 24 24 my $file; 25 foreach $file ($ configfile1, $configfile2){25 foreach $file ($systemconfigfile, $userconfigfile){ 26 26 if(open(CONFIG, $file)){ 27 27 while (<CONFIG>) { 28 chomp; 29 s/#.*//; 30 s/^\s+//; 31 s/\s+$//; 32 next unless length; 28 chomp; 29 s/#.*//; 30 s/^\s+//; 31 s/\s+$//; 32 next unless length; 33 33 my ($name, $value) = split(/\s*=\s*/, $_, 2); 34 34 if(($name eq "left")or($name eq "l")){ … … 65 65 $help=1; 66 66 } 67 68 } 67 68 } 69 69 close CONFIG; 70 70 } … … 485 485 white_into_symbols(\$right_string); 486 486 #ponizsza linijka dodana 18 listopada 487 white_into_symbols(\${$CENTER_REF}[$index]); 487 white_into_symbols(\${$CENTER_REF}[$index]); 488 488 } 489 489
Note: See TracChangeset
for help on using the changeset viewer.