Shell Programming and Scripting

# Copy file to remote server
print "**Copying file($file_name) to $host.\n";
$shell_cmd  =  "scp -p ${local_dir}/${file_name} ${user}\@${host}:${dir_for_file}";
$retval     =  system( $shell_cmd );
if ($retval != 0) {
  print "**Error: Could not copy file($local_dir/${file_name}) to $host: ${dir_for_file}.\n";
  return 1;
}
else {
  writelog ("INF Successful copy of file($local_dir/${file_name}) to $host: ${dir_for_file}");
  print "**Successful copy of file($local_dir/${file_name}) to $host: ${dir_for_file}\n";
}

# Unzip files from zip file on remote host
print "**Unzipping files from zip file($zip_file_name) on $host to directory(${files_dir_for_rpt_files}).\n";
$shell_cmd  =  "ssh ${user}\@${host} 'unzip -jo /tmp/${zip_file_name} -d ${files_dir_for_rpt_files}'";
$retval     =  system( $shell_cmd );
if ($retval != 0) {

  print "**Error: Error unzipping zip file($zip_file_name) on $host in /tmp to ${files_dir_for_rpt_files}.\n";
  return 1;
}
else{
  print "**Successful unzipping of files from zip file($zip_file_name) on $host to directory(${files_dir_for_rpt_files}).\n";
}