basicassets.cgi

FWImage
FWPage
FWArticle

copystubs.pl

#!/usr/bin/perl -w

$baseDir = "~/code";

$flexBase = "${baseDir}/Source/ElementCatalog/OpenMarket/Gator/FlexibleAssets/AssetMaker/";
$basicBase = "${baseDir}/Source/AssetStubElementCatalog/OpenMarket/AssetMaker/AssetStubFiles/StandardElements/";

%details = (
	'basicassets.cgi', "${basicBase}*", 
	'flexattributes.cgi', "${flexBase}Attributes/*", 
	'flexassets.cgi', "${flexBase}FlexAssets/*", 
	'flexgroups.cgi', "${flexBase}FlexGroups/*", 
	'flextmpls.cgi', "${flexBase}FlexTmpls/*", 
); 

$to = "${baseDir}/Target/OpenMarket/ElementCatalog/OpenMarket/Xcelerate/AssetType/";

# Assets

my($key, $value);  # @cc{Declare two variables at once}
while ( ($key, $value) = each(%details) ) {
    # @cc{Do some processing on @scalar{$key} and @scalar{$value}}
    
    $data_file=$key;
	open(DAT, $data_file) || die("Could not open file!");
	@assettypes=<DAT>; 
	close(DAT);
	
	foreach $assettype (@assettypes)
	{
		chop($assettype);
		chop($assettype); 
	 	system "cp ${value} ${to}$assettype";
	}    
    
}

flexassets.cgi

PRODUCTASSET

flexattributes.cgi

PRODUCTATTRIBUTE

flexgroups.cgi

PRODUCTPARENT

flextmpls.cgi

PRODUCTDEF
PRODUCTPARENTDEF