jbrown123 · February 13, 2025 01:49
diff --git a/00 RPTools MapTool create an image table.md b/00 RPTools MapTool create an image table.md
diff --git a/image-table.pl b/image-table.pl
 #!/usr/bin/env perl
 #
 # rename files and generate XML to create an image table
 #

 $main::VERSION = '1.05.20250212';

 # steps
 # create a folder named exactly 'assets' (lowercase, include the 's' on the end)
 # copy image files into the assets folder
 # change into the assets folder and run this script
 # it will rename the image files, create asset XML files and create TWO files in the parent directory of assets,
 #	properties.xml and content.xml
 #
 # create a zip file named x.mttable ('x' can be any name you want, whatever you want to call the table)
 # import the following into the zip:
 #	properties.xml
 #	contents.xml
 #	assets
 # Save the .mttable file
 # Open maptool and import the table

 use Getopt::Std;
 $Getopt::Std::STANDARD_HELP_VERSION = 1;

 # -n name is the table name; defaults to 'deck'
 # -e file extension for images (jpg, png, etc.); defaults to 'jpg'
 getopts('n:e:') || die HELP_MESSAGE() . "Unknown options specified. Use --help for usage.\n";


 $propertiesXMLTemplate=<<'EOS';
 <map>
  <entry>
    <string>version</string>
    <string>1.15.2</string>
  </entry>
 </map>
 EOS

 $assetXMLTemplate=<<'EOS';
 <net.rptools.maptool.model.Asset>
  <id>
    <id>{md5sum}</id>
  </id>
  <name>{name}</name>
  <extension>{extension}</extension>
  <type>IMAGE</type>
 </net.rptools.maptool.model.Asset>
 EOS

 $entryXMLTemplate=<<'EOS';
    <net.rptools.maptool.model.LookupTable_-LookupEntry>
      <min>{index}</min>
      <max>{index}</max>
      <picked>false</picked>
      <value>{name}</value>
      <imageId>
        <id>{md5sum}</id>
      </imageId>
    </net.rptools.maptool.model.LookupTable_-LookupEntry>
 EOS

 $contentXMLTemplate=<<'EOS';
 <net.rptools.maptool.model.LookupTable>
  <entryList>
 {entryList}
  </entryList>
  <name>{name}</name>
  <defaultRoll></defaultRoll>
  <tableImage>
    <id>{tableImage}</id>
  </tableImage>
  <visible>true</visible>
  <allowLookup>true</allowLookup>
  <pickOnce>false</pickOnce>
 </net.rptools.maptool.model.LookupTable>
 EOS

 my (@entry, @macro);
 my $index = 1;
 my $extension= $opt_e || 'jpg';
 my $tableImage="";
 my $tableName= $opt_n || 'deck';

 foreach $_ (`md5sum *.$extension`)
 {
 	s/[\r\n]//g;
 	if (/(\S+) \*(.+)\.${extension}/i)
 	{
 		$md5sum = $1;
 		$name = $2;
 		
 		# skip renameing ones that are already done
 		if ($name ne $md5sum)
 		{
 			print "renaming $name.$extension to $md5sum.$extension\n";
 			rename("$name.$extension", "$md5sum.$extension") || die "Can't rename $name.$extension to $md5sum.$extension: $!\n";
 		}
 		
 		open(FH, '>', $md5sum) or die "Can't write $md5sum: $!\n";
 		print FH macroReplace($assetXMLTemplate, {name=>$name, md5sum=>$md5sum, extension=>$extension});
 		close(FH);

 		push(@entry, macroReplace($entryXMLTemplate, {name=>$name, md5sum=>$md5sum, index=>$index}));

 		# use the first image to set the default image and table name
 		if ($index == 1)
 		{
 			$tableImage = $md5sum;
 			$tableName = $name unless($opt_n);
 		}
 		
 		$index++;
 	}
 	else
 	{
 		die "Can't interpret md5sum output $_\n";
 	}
 }

 print "\nAsset entries for content.xml:\n@entry\n\n";


 # create the files

 print "Creating ../properties.xml\n";

 rename('../properties.xml', '../properties-xml.bak') || die "Can't rename properties.xml: $!\n" if (-f '../properties.xml');

 open OUT, '>../properties.xml' || die "Can't open properties.xml for write: $!\n";

 print OUT $propertiesXMLTemplate;

 close OUT;

 print "Creation of ../properties.xml complete. Backup, if any, stored in ../properties-xml.bak\n";



 print "Creating ../content.xml\n";

 rename('../content.xml', '../content-xml.bak') || die "Can't rename content.xml: $!\n" if (-f '../content.xml');

 open OUT, '>../content.xml' || die "Can't open content.xml for write: $!\n";

 print OUT macroReplace($contentXMLTemplate, {name=>$tableName, entryList=>"@entry", tableImage=>$tableImage});

 close OUT;

 print "Creation of ../content.xml complete. Backup, if any, stored in ../content-xml.bak\n";


 #
 # expects a template string and a hashref of names & values to replace
 #
 sub macroReplace
 {
 	my ($temp, $hashRef) = @_;

 	for $key (keys %$hashRef)
 	{
 		my $val = $hashRef->{$key};
 		$temp =~ s/\{$key\}/$val/g;
 	}

 	die "\n\n*** Unreplaced token $1 in $temp\n" if ($temp =~ /(\{.+\})/);
 	
 	return $temp;
 }


 #
 # help message (called by getops)
 #
 sub HELP_MESSAGE()
 {
 	warn <<"EOS";
 Usage: $0 [options]
  options:
    -e extenion    use 'extension' as the image file extension; default: jpg
    -n name        use 'name' as the table name; default: 'deck'
 EOS
 }

 sub VERSION_MESSAGE()
 {
 	warn <<"EOS";
 $0 version $VERSION
 EOS
 }
	#!/usr/bin/env perl
	#
	# rename files and generate XML to create an image table
	#

	$main::VERSION = '1.05.20250212';

	# steps
	# create a folder named exactly 'assets' (lowercase, include the 's' on the end)
	# copy image files into the assets folder
	# change into the assets folder and run this script
	# it will rename the image files, create asset XML files and create TWO files in the parent directory of assets,
	# properties.xml and content.xml
	#
	# create a zip file named x.mttable ('x' can be any name you want, whatever you want to call the table)
	# import the following into the zip:
	# properties.xml
	# contents.xml
	# assets
	# Save the .mttable file
	# Open maptool and import the table

	use Getopt::Std;
	$Getopt::Std::STANDARD_HELP_VERSION = 1;

	# -n name is the table name; defaults to 'deck'
	# -e file extension for images (jpg, png, etc.); defaults to 'jpg'
	getopts('n:e:') \|\| die HELP_MESSAGE() . "Unknown options specified. Use --help for usage.\n";


	$propertiesXMLTemplate=<<'EOS';
	<map>
	<entry>
	<string>version</string>
	<string>1.15.2</string>
	</entry>
	</map>
	EOS

	$assetXMLTemplate=<<'EOS';
	<net.rptools.maptool.model.Asset>
	<id>
	<id>{md5sum}</id>
	</id>
	<name>{name}</name>
	<extension>{extension}</extension>
	<type>IMAGE</type>
	</net.rptools.maptool.model.Asset>
	EOS

	$entryXMLTemplate=<<'EOS';
	<net.rptools.maptool.model.LookupTable_-LookupEntry>
	<min>{index}</min>
	<max>{index}</max>
	<picked>false</picked>
	<value>{name}</value>
	<imageId>
	<id>{md5sum}</id>
	</imageId>
	</net.rptools.maptool.model.LookupTable_-LookupEntry>
	EOS

	$contentXMLTemplate=<<'EOS';
	<net.rptools.maptool.model.LookupTable>
	<entryList>
	{entryList}
	</entryList>
	<name>{name}</name>
	<defaultRoll></defaultRoll>
	<tableImage>
	<id>{tableImage}</id>
	</tableImage>
	<visible>true</visible>
	<allowLookup>true</allowLookup>
	<pickOnce>false</pickOnce>
	</net.rptools.maptool.model.LookupTable>
	EOS

	my (@entry, @macro);
	my $index = 1;
	my $extension= $opt_e \|\| 'jpg';
	my $tableImage="";
	my $tableName= $opt_n \|\| 'deck';

	foreach $_ (`md5sum *.$extension`)
	{
	s/[\r\n]//g;
	if (/(\S+) \*(.+)\.${extension}/i)
	{
	$md5sum = $1;
	$name = $2;

	# skip renameing ones that are already done
	if ($name ne $md5sum)
	{
	print "renaming $name.$extension to $md5sum.$extension\n";
	rename("$name.$extension", "$md5sum.$extension") \|\| die "Can't rename $name.$extension to $md5sum.$extension: $!\n";
	}

	open(FH, '>', $md5sum) or die "Can't write $md5sum: $!\n";
	print FH macroReplace($assetXMLTemplate, {name=>$name, md5sum=>$md5sum, extension=>$extension});
	close(FH);

	push(@entry, macroReplace($entryXMLTemplate, {name=>$name, md5sum=>$md5sum, index=>$index}));

	# use the first image to set the default image and table name
	if ($index == 1)
	{
	$tableImage = $md5sum;
	$tableName = $name unless($opt_n);
	}

	$index++;
	}
	else
	{
	die "Can't interpret md5sum output $_\n";
	}
	}

	print "\nAsset entries for content.xml:\n@entry\n\n";


	# create the files

	print "Creating ../properties.xml\n";

	rename('../properties.xml', '../properties-xml.bak') \|\| die "Can't rename properties.xml: $!\n" if (-f '../properties.xml');

	open OUT, '>../properties.xml' \|\| die "Can't open properties.xml for write: $!\n";

	print OUT $propertiesXMLTemplate;

	close OUT;

	print "Creation of ../properties.xml complete. Backup, if any, stored in ../properties-xml.bak\n";



	print "Creating ../content.xml\n";

	rename('../content.xml', '../content-xml.bak') \|\| die "Can't rename content.xml: $!\n" if (-f '../content.xml');

	open OUT, '>../content.xml' \|\| die "Can't open content.xml for write: $!\n";

	print OUT macroReplace($contentXMLTemplate, {name=>$tableName, entryList=>"@entry", tableImage=>$tableImage});

	close OUT;

	print "Creation of ../content.xml complete. Backup, if any, stored in ../content-xml.bak\n";


	#
	# expects a template string and a hashref of names & values to replace
	#
	sub macroReplace
	{
	my ($temp, $hashRef) = @_;

	for $key (keys %$hashRef)
	{
	my $val = $hashRef->{$key};
	$temp =~ s/\{$key\}/$val/g;
	}

	die "\n\n*** Unreplaced token $1 in $temp\n" if ($temp =~ /(\{.+\})/);

	return $temp;
	}


	#
	# help message (called by getops)
	#
	sub HELP_MESSAGE()
	{
	warn <<"EOS";
	Usage: $0 [options]
	options:
	-e extenion use 'extension' as the image file extension; default: jpg
	-n name use 'name' as the table name; default: 'deck'
	EOS
	}

	sub VERSION_MESSAGE()
	{
	warn <<"EOS";
	$0 version $VERSION
	EOS
	}