#!/usr/bin/perl
use strict;
use warnings;
use Cwd;

my $view_tag = $ENV{'VIEW_TAG'};
my $md_dir='';


system("cd /$view_tag/lib_engine/hwt ; cleartool lsco -cview -r -s  > /$view_tag/lib_engine/hwt/co_file");
system("cd /$view_tag/app_hwt/$md_dir ; cleartool lsco -cview -r -s  >> /$view_tag/lib_engine/hwt/co_file");