use Config;

my $PVOBTAG;
my $PREOPCMDW;
my $POSTOPCMDW;

$PREOPCMDW = '-execwin "ccperl \\\\SomeServer\\ucmscripts\\expreop.pl"';
$POSTOPCMDW = '-execwin "ccperl \\\\SomeServer\\ucmscripts\\expostop.pl"';

if ($Config{'osname'} eq 'MSWin32') {
	$PVOBTAG = '\cc5-pvob1';
}
else {
	$PVOBTAG = '/vobs/cc5-pvob1';
}

my $PREOPCMDU = '';
my $POSTOPCMDU = '';
my $STREAM = "cc5testproj_Integration\@$PVOBTAG";
my $PREOPTRTYPE = "trtype:ex1_preop\@$PVOBTAG";
my $POSTOPTRTYPE = "trtype:ex1_postop\@$PVOBTAG";
my $CANXTRTYPE = "trtype:ex1_cancel\@$PVOBTAG";
my $ATTYPE = "attype:deliver_in_progress\@$PVOBTAG";

print $PVOBTAG . "\n";
print $STREAM . "\n";
print $PREOPTRTYPE . "\n";
print $POSTOPTRTYPE . "\n";
print $ATTYPE . "\n";


print `cleartool mktrtype -ucmobject -all -preop deliver_start $PREOPCMDU $PREOPCMDW -stream $STREAM -nc $PREOPTRTYPE`;
print `cleartool mktrtype -ucmobject -all -postop deliver_complete $POSTOPCMDU $POSTOPCMDW -stream $STREAM -nc $POSTOPTRTYPE`;
print `cleartool mktrtype -ucmobject -all -postop deliver_cancel $POSTOPCMDU $POSTOPCMDW -stream $STREAM -nc $CANXTRTYPE`;
print `cleartool mkattype -vtype integer -default 1 -nc $ATTYPE`;
