Defining Third-Party CM Tool Interfaces : CM Script Reference : get_file

get_file
Checks out a file from the archive.
Syntax:
CM_USER_FUNC_get_file
 
Example:

 

#!/usr/bin/perl -w

 

#initialize variables

($working_dir , $workfile_name , $full_archive_name , $revision , $lock ,$tmp_result_file) = @ARGV;

#echo command

$func = "get_file";

$echo = "$func : $working_dir , $workfile_name , $full_archive_name , $revision , $lock , $tmp_result_file\n";

print $echo;

#update result file

open(RESULT_FILE , "> $tmp_result_file");

 

if ($lock == 0)

{

‘cd $working_dir ; co $full_archive_name‘;

}

else

{

‘cd $working_dir ; co -l $full_archive_name‘;

}

print RESULT_FILE "1\n";

$str = ‘cd $working_dir ; rlog $full_archive_name | grep head‘;

$out_ver = substr($str,10,100);

print RESULT_FILE "$out_ver\n";