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;
$PackageVar = 23;