src/core/tellico-1-3-update.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!/usr/bin/env perl

my $input;
my $oldvalue;

while( $input = <STDIN> )
{
	chop $input;
	
	if( $input =~ /^Write Images In File\=(.*)/)
	{
		$oldvalue=$1;
		if( $oldvalue eq "true" )
		{
			print "Image Location=ImagesInFile\n";
		}
		else
		{
            print "Image Location=ImageAppDir\n";
		}
	}
}

print "# DELETE [General Options]Write Images In File\n";