File indexing completed on 2024-05-12 05:09:25 

0001 #!/usr/bin/env perl
0002 
0003 my $input;
0004 my $oldvalue;
0005 
0006 while( $input = <STDIN> )
0007 {
0008     chop $input;
0009     
0010     if( $input =~ /^Write Images In File\=(.*)/)
0011     {
0012         $oldvalue=$1;
0013         if( $oldvalue eq "true" )
0014         {
0015             print "Image Location=ImagesInFile\n";
0016         }
0017         else
0018         {
0019             print "Image Location=ImageAppDir\n";
0020         }
0021     }
0022 }
0023 
0024 print "# DELETE [General Options]Write Images In File\n";