Modified report procedure

$start_dir = $0; $start_dir =~ s/\\scripts\\.*/\\scripts/;
$common_dir = $start_dir;
$common_dir =~ s/(.*)\\scripts/$1\\script_tools/;

$cc = ""; if ($cc) {;};
$ct = ""; if ($ct) {;};
$debug = ""; if ($debug) {;};
$skip_path_checks = ""; if ($skip_path_checks) {;};
$CLEARCASE_XN_SFX = ""; if ($CLEARCASE_XN_SFX) {;};
$ctfind_paths = ""; if ($ctfind_paths) {;};
$skip_path_checks = "yes"; if ($skip_path_checks) {;};
$debug = "no"; if ($debug) {;};

sub do_exit {
   $err = join(" ", @_);
   if ("$err" != "") {
      print STDERR "$err\n";
   }
   sleep(2);
   if ("$err" != "") {
      exit(1);
      } else {
exit(0);
}
}
open(INCLUDE, "<$common_dir\\common_script.prl") or do_exit("error 
opening include file '$common_dir\\common.prl'"); 
$buf = "";
while(<INCLUDE>) {
   $buf = $buf . $_;
}
close(INCLUDE);
eval $buf || do_exit("error on eval of include file 
'$common_dir\\common.prl'"); 

my $args = $ARGV[0];
$args =~ s/
@args = split(";", $args);
my $cctime = "";
$required_args = 0;
foreach(@args) {   s/^[    ]+//;
   s/[    ]+$//;
   validate_arg_length($_);
   if (/^-i/) {
### customization change *** changed following line
      print "description : 'Types of Elements with New Versions Since
      Date'\n";
      print "id : 2017\n";
      print "helpfile :\n";
      print "parameters : ";
         print "LOOKIN CCTIME";
      print "\n";
      print_element_rightclick();
      print "fields : ";
         print "\"Element Path\"(element_pn, sort 2, rightclick) ";
### customization change *** changed following line
         print "\"Version Path\"(version_xpn) ";
         print "\"Version Creation Time\"(cctime) ";
         print "\"Version Creation Time\"(time_t, hidden, sort 1) ";
### customization change *** added following line
         print "\"Element Type\"(eltype) ";
      print "\n";
      exit(0);
}
   if (/^LOOKIN[    ]*=[    ]*('.*')/) {
      check_lookin($1);
      $required_args++;
      next;
   }
   if (/^CCTIME[    ]*=[    ]*'*([^']*)'*/)  {
   $cctime = chooser_time_to_cctime($1);
   $required_args++;
   next;
   }
   print STDERR "unrecognized argument: $_\n";
   print STDERR "  ccperl $0 -i\n";
   print STDERR "    for script's interface.\n";
   do_exit("\n");
}
if ($required_args != 2) {
   print STDERR "usage: not all required arguments specified.\n";
   print STDERR "  ccperl $0 -i\n";
   print STDERR "    for script's interface.\n";
   do_exit("\n");
}
open(CTFIND, "cleartool find $ctfind_paths -version 
'created_since($cctime)' -print |");
while(<CTFIND>) {
   chomp;
   if (/CHECKEDOUT/) {next;}
   $vertime = 'cleartool desc -fmt ';
### customization change *** added following line
   $eltype = 'cleartool desc -fmt ';
   $vertime_t = time_to_ticks($vertime);
   ($path, $verid) = split $CLEARCASE_XN_SFX, $_, 2;
### customization change *** changed following line
   print "$_;$verid;$vertime;$vertime_t;$eltype\n";
   #print "$path;$verid;$vertime;$vertime_t\n";
}
do_exit();