sub scpToRemote {

    my ($host,$user,$pass,$localfile,$remotefile) = @_;

    my $expectfile = "/tmp/tmp-scp.$$";

    my $tmp_scpopts="-o "StrictHostKeyChecking no"";

    open(OFP,">$expectfile") || die "Cannot open $expectfile for writing!n";

    # start writing the expect script:

    # header:

    print OFP "#!$expect_bin -fn";

    print OFP "#n";

    print OFP "# Temporary expect script, PID $$nn";

    # spawn:

    print OFP "set env(LD_LIBRARY_PATH) ""n";

    print OFP "spawn $scp_bin $tmp_scpopts $localfile $user@$host:$remotefilen";

    print OFP "set timeout 3600n";

    # now the expect/send

    print OFP "expect {n";

    print OFP "  "word: " {n";

    print OFP "    send -- "$pass\r"n";

    print OFP "    expect {n";

    print OFP "      "Permission denied" {n";

    print OFP "        exit 1n";

    print OFP "      }n";

    print OFP "      eof { }n";

    print OFP "   }n";

    print OFP "  }n";

    print OFP "  eof {n";

    print OFP "  }n";

    print OFP "}n";

    # close the file

    close OFP;

    # permissions:

    system("chmod 700 $expectfile");

    # run it:

    my $expectRunCmd="TCL_LIBRARY=$tcl_path $expectfile";

    if ($QUIET != 0) {

        $expectRunCmd .= " >/dev/null 2>&1";

    }

    my $rc=system("$expectRunCmd");

    # unlink the temp file:

    unlink($expectfile);

    # return the result from the system() call to the expect script.

    return $rc;

}

您可能感兴趣的文章: