($working_dir , $workfile_name , $full_archive_name , $revision , $lock ,$tmp_result_file) = @ARGV;
$echo = "$func : $working_dir , $workfile_name , $full_archive_name , $revision , $lock , $tmp_result_file\n";
open(RESULT_FILE , "> $tmp_result_file");
‘cd $working_dir ; co $full_archive_name‘;
‘cd $working_dir ; co -l $full_archive_name‘;
$str = ‘cd $working_dir ; rlog $full_archive_name | grep head‘;