########## perl modules ############
use TeamSite::Config;
use OLG::tpl_utils;
########## perl modules ############
my $iwhome  = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();

($iwcfg) = "$iwhome/bin/iwconfig";

my $dcrpath = iwpt_get_dcr_name();
$dcrpath   =~ s#\.iwmnt#iwmnt#g;
my $dcr_name = iwpt_get_dcr_name("basename");

my $prefix    = getLOB($dcrpath);
my $prefDir   = uc($prefix);
my $templatename = getDataType($dcrpath);
my $contentname  = $dcr_name;

$dcrpath =~ m/\/([^\/]+)\/data/;
my $ofile = "generated/component/".$templatename."/".$prefix."_".$contentname.".xml";
(my $hostname = `$iwcfg iwwebd host`) =~ s#\n$##; 
my $edit_path = "http://".$hostname."/iw-cc/edit?vpath=".$dcrpath;
$edit_path =~ s#$iwmount##g;
(my $bellca = `$iwcfg iwwebd bellca`) =~ s#\n$##;
my $endtag = "]"."]>";
my $cdata  = "<!"."[CDATA[";

############ Build the initial media lists
my @media_ids = ();
my $filelist = 'generated/filelist/';
my $media_file = $filelist.$prefix."_".$contentname."_images.txt";
my @matches = getImageList( iwpt_get_dcr_name() );

############ Build the region array
my @region_array = ("default");
my $item_region = join(',',@region_array);
############