File indexing completed on 2024-04-28 16:45:13
0001 #! /usr/bin/perl 0002 0003 0004 use strict; 0005 0006 my $key; 0007 my $value; 0008 0009 my $alreadyHasAutolockKey = 0; 0010 0011 while (<>) 0012 { 0013 chomp; 0014 if ( /^\[/ ) 0015 { 0016 next; 0017 } 0018 ($key, $value) = ($_ =~ /([^=]+)=[ \t]*([^\n]+)/); 0019 0020 if ($key eq "Autolock") 0021 { 0022 $alreadyHasAutolockKey = 1; 0023 } 0024 0025 if ($key eq "Timeout" && $alreadyHasAutolockKey == 0) 0026 { 0027 if ($value eq "0") 0028 { 0029 print("Autolock=false\n"); 0030 } 0031 else 0032 { 0033 print("Autolock=true\n"); 0034 } 0035 } 0036 print "$_\n" 0037 }