PHP Net_SSH2::write方法代码示例

 /**
  * Logs in to a SSH server with the specified credentials,
  * and returns the Net_SSH2 instance.
  *
  * @return 	Net_SSH2 $ssh 
  * @author 	Ronald Rey
  **/
 public static final function getSSH($host, $user, $pass, $timeout)
 {
     $ssh = new Net_SSH2($host);
     if (!$ssh->login($user, $pass)) {
         exit('Login to failed.');
     }
     $ssh->setTimeout($timeout);
     $ssh->write(" ");
     return $ssh;
 }

    public function Exec($command, $stdin = '')
    {
        $database = $this->session->getDatabase();
        $name = $database['name'];
        $engine = $this->session->getSpoolerByName($name, 'waae');
        if (!isset($engine[0]['shell'])) {
            print "?!";
            exit;
        }
        set_include_path('../vendor/phpseclib' . PATH_SEPARATOR . get_include_path());
        include 'Net/SSH2.php';
        include 'Crypt/RSA.php';
        $shell = $engine[0]['shell'];
        $host = $shell['host'];
        $user = $shell['user'];
        $ssh = new \Net_SSH2($host);
        if (isset($shell['key'])) {
            $key = new \Crypt_RSA();
            $ret = $key->loadKey($shell['key']);
            if (!$ret) {
                echo "loadKey failed\n";
                print "<pre>" . $ssh->getLog() . '</pre>';
                exit;
            }
        } elseif (isset($shell['password'])) {
            $key = $shell['password'];
        } else {
            $key = '';
            // ?! possible ?
        }
        if (!$ssh->login('autosys', $key)) {
            print 'Login Failed';
            print "<pre>" . $ssh->getLog() . '</pre>';
            exit;
        }
        if ($stdin == '') {
            return $ssh->exec(". ~/.bash_profile;{$command}");
        }
        // Test STDIN
        $ssh->enablePTY();
        print "profile" . $ssh->exec(". ~/.bash_profile");
        print "sort" . ($exec = $ssh->exec('sort'));
        $ssh->write(<<<EOF
echo "update_job: SE.ERIC.JOB.JobType_UNIX"
echo "description: 'ok!!'
EOF
);
        $ssh->reset(true);
        $ssh->setTimeout(2);
        print $ssh->read();
        return;
        return $ssh->read();
        // outputs the echo above
    }

function GetNDFLldf()
{
    //Set Variables
    //$host = '54.83.44.110';
    $host = $_SESSION['vista'];
    //$username = 'vista';
    $username = $_SESSION['sshusr'];
    $password = '';
    $login = 'cachemgr';
    //$loginpass = 'vistagold';
    $loginpass = $_SESSION['sshpwd'];
    $csession = 'csession cache355';
    $ssh = new Net_SSH2($host);
    if (!$ssh->login($username, $password)) {
        exit('Login Failed');
    }
    $ssh->write("{$login}\r");
    $ssh->write("{$loginpass}\r");
    sleep(3);
    $ssh->write("CPRS1234\r");
    $ssh->write("CPRS4321\$\r");
    sleep(3);
    $ssh->write("\r");
    $ssh->write("FM\r");
    $ssh->write("Other\r");
    $ssh->write("RX\r");
    $ssh->write("PSN\r");
    $ssh->write("RPRT\r");
    $ssh->write("LDF\r");
    $countr = 0;
    while ($countr <= 1000) {
        $ssh->write("\r");
        $countr++;
    }
    sleep(1);
    //Set SSH Timeout
    $ssh->setTimeout(1);
    //Read Results
    $SSHresults = $ssh->read();
    $txtremove = array("[H[J[2J[H                                                      LOCAL DRUG LIST (ALPHABETI\nC)#   Not on National Formulary\n  R   National Formulary Restriction\n   \nLOCAL DRUG NAME                                   INACTIVE               DEA\n                                                                                \n    NDC                                             DATE");
    $SSHresultsNew = str_replace($txtremove, "", $SSHresults);
    $myFile = writeDrugFile($SSHresultsNew);
    $lineNum = 1;
    $count = 1;
    while ($count <= 194) {
        delLineFromFile($myFile, $lineNum);
        $count++;
    }
    $lineNum2 = 12741;
    $count2 = 1;
    while ($count2 <= 151) {
        delLineFromFile($myFile, $lineNum2);
        $count2++;
    }
    //Delete SQL
    $Dquery = "DELETE FROM LookUp WHERE Lookup_Type = 2";
    $DelDrugs = sqlsrv_query($conn, $Dquery);
    $str = file_get_contents($myFile);
    $array = preg_split('/[\\n\\r]+/', $str);
    foreach ($array as $i => $value) {
        $prefix = " ";
        $val = str_startswith($value, $prefix);
        if ($val === true) {
        } else {
            $prefix = "ZZ";
            $val = str_startswith($value, $prefix);
            if ($val === true) {
            } else {
                include "dbitcon.php";
                //$query = "INSERT INTO COMS_Drugs (Drugs) VALUES ('$value')";
                $query = "INSERT INTO LookUp (Lookup_Type,Name,Description) VALUES (2,'{$value}','NLM')";
                $postDrugs = sqlsrv_query($conn, $query);
            }
        }
    }
    file_put_contents($myFile, "{$str}");
    echo "Text file created and database entries updated in Lookup table for LookupType 2.";
}

 /**
  *  Write a config snippet to to a device using SSH
  */
 public function writeSnippetSSH($snippetArr, $prompt)
 {
     $log = ADLog::getInstance();
     if (!($ssh = new Net_SSH2($this->_hostname, 22, $this->_timeout))) {
         $output = "Failure: Unable to connect to {$this->_hostname}\n";
         $log->Conn("Failure: Unable to connect to " . $this->_hostname . " - (File: " . $_SERVER['PHP_SELF'] . ")");
         return false;
     }
     if (!$ssh->login($this->_username, $this->_password)) {
         $output = "Error: Authentication Failed for {$this->_hostname}\n";
         $log->Conn("Error: Authentication Failed for {$this->_hostname} (File: " . $_SERVER['PHP_SELF'] . ")");
         return false;
     }
     $output = '';
     if ($this->_enableMode === 'on') {
         // $ssh->write("\n"); // 1st linebreak after above prompt check
         $ssh->read('/.*>/', NET_SSH2_READ_REGEX);
         // read out to '>'
         $ssh->write("enable\n");
         $ssh->read('/.*:/', NET_SSH2_READ_REGEX);
         $ssh->write($this->_enableModePassword . "\n");
         $ssh->read('/' . $prompt . '/', NET_SSH2_READ_REGEX);
         foreach ($snippetArr as $key => $command) {
             $ssh->write($command . "\n");
             $output .= $ssh->read('/.*#/', NET_SSH2_READ_REGEX);
             // read out to '#'
         }
         $ssh->write("\n");
         // to line break after command output
         $ssh->read('/' . $prompt . '/', NET_SSH2_READ_REGEX);
     } else {
         // $ssh->write("\n"); // 1st linebreak after above prompt check
         $ssh->read('/' . $prompt . '/', NET_SSH2_READ_REGEX);
         foreach ($snippetArr as $key => $command) {
             $ssh->write($command . "\n");
             $output .= $ssh->read('/.*#/', NET_SSH2_READ_REGEX);
             // read out to '#' because the prompt will change depending on the deployed config
         }
         $ssh->write("\n");
         // to line break after command output
         $ssh->read('/' . $prompt . '/', NET_SSH2_READ_REGEX);
     }
     $ssh->disconnect();
     return $output;
 }

function create_client_config_and_send($cert_name, $config_dir, $config_file, $remote_value, $send_type, $key_dir_name)
{
    //will need phpseclib later.... so...
    if (!isset($_SESSION['password'])) {
        start_session('certs.php?action=send_cert&type=$send_type&cert_name=$cert_name');
    }
    $password = stripslashes(trim($_SESSION['password']));
    $username = stripslashes(trim($_SESSION['username']));
    if ($username == "") {
        $username = "root";
    }
    $ssh = new Net_SSH2('localhost');
    if (!$ssh->login($username, $password)) {
        exit('Login Failed');
    }
    //Creating a default client config file
    //TODO have a check to make sure /etc/openvpn.conf exists....
    //If none exists... then you should prolly do some checks when the webui is first launched.... duh
    if (!file_exists("openvpn-client-default.conf")) {
        create_default_client_config();
    }
    $vpn_config = read_openvpn_config($config_dir . $config_file);
    extract($vpn_config);
    echo "Default client file exists... <br />";
    echo "Now copying to new config {$cert_name}.conf<br />";
    copy("openvpn-client-default.conf", "{$cert_name}.conf");
    //New Conf file should exist.... Now edit specifics...
    if (file_exists("{$cert_name}.conf")) {
        $client_config = "{$cert_name}.conf";
        file_put_contents($client_config, "cert " . $cert_name . ".crt" . PHP_EOL, FILE_APPEND | LOCK_EX);
        file_put_contents($client_config, "key " . $cert_name . ".key" . PHP_EOL, FILE_APPEND | LOCK_EX);
    } else {
        echo "Error... client config file not found?<br />";
        exit;
    }
    //Finding what dir
    $curr_work_dir = getcwd();
    echo "Copying needed files...<br />";
    //Now copying all the necc. sh!t to the root folder... then zip it? tar it? idk.. prolly zip
    $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
    $ssh->write("cd {$key_dir_name};cp {$cert_name}.key {$ca_values['1']} {$cert_name}.crt {$curr_work_dir}\n");
    $result = $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
    echo "<pre>{$result}</pre>";
    //HAVE to change the permissions on *.key... or php can't touch it
    echo "Have to change permissions on the *.key file.. or php can't touch..<br />";
    $ssh->write("cd {$curr_work_dir};chmod 555 {$cert_name}.key\n");
    $result = $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
    echo "<pre>{$result}</pre>";
    echo str_repeat(' ', 1024 * 64);
    //create array of files to zip
    $files_to_zip = array("{$cert_name}.crt", "{$cert_name}.key", "{$ca_values['1']}", "{$cert_name}.conf");
    echo "Creating zip file <b>{$cert_name}.zip</b><br />";
    echo str_repeat(' ', 1024 * 64);
    $result = create_zip($files_to_zip, "{$cert_name}.zip", $cert_name);
    // unlink every other file...
    unlink("{$cert_name}.crt");
    unlink("{$cert_name}.key");
    unlink("{$ca_values['1']}");
    unlink("{$cert_name}.conf");
    if ($send_type == "download") {
        echo "<br /> Download transfer type selected!";
        echo "<br />";
        echo "Result:{$result}";
        echo str_repeat(' ', 1024 * 64);
        sleep(5);
        // return name of zip file, will use that to generate download link
        return $result;
        exit;
    }
    if ($send_type == "scp") {
        if (!isset($_SESSION['password'])) {
            start_session('certs.php?action=send_cert&type=$send_type&cert_name=$cert_name');
        }
        $password = stripslashes(trim($_SESSION['password']));
        $username = stripslashes(trim($_SESSION['username']));
        if ($username == "") {
            $username = "root";
        }
        $ssh = new Net_SSH2('localhost');
        if (!$ssh->login($username, $password)) {
            exit('Login Failed');
        }
        echo "SCP transfer type selected!";
        echo "TYPE TOO";
        echo str_repeat(' ', 1024 * 64);
        $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
        $ssh->write("cd {$curr_work_dir};scp {$cert_name}.zip {$username}@{$remote_host}:{$remote_dir}\n");
        $ssh->setTimeout(10);
        sleep(5);
        $result = $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
        echo "<pre>{$result}</pre>";
        echo str_repeat(' ', 1024 * 64);
        exit;
    }
}

    exit('ssh Login Failed');
}
//attempted to set an ssh timeout, not allowed on UTEP server
$ssh->setTimeout(7200);
//sftp connect to cr2g server
$sftp = new Net_SFTP('cr2g01.cs.utep.edu', 22);
if (!$sftp->login('rlgruver', 'utep$2015')) {
    exit('sftp Login Failed');
}
//send input file to cr2g server
$sftp->mkdir('/code/spopt-stable/tests/' . $session);
$sftp->put($remoteInputFile, $localInputFile, NET_SFTP_LOCAL_FILE);
$sftp->chmod(0777, $remoteInputFile);
//execute python script in this order to run the Solver:
//1. change to directory where solver script is located
$ssh->write("cd /code/spopt-stable\n");
//2. 'read' command to ensure script is called from the proper directory
$ssh->read('rlgruver@cr2g01:/code/spopt-stable$');
//3. run the solver script with the test from the current session
$ssh->write("python SpOpt.py tests/" . $session . "/input.txt\n");
//start timerin case anything gets stuck, will break within 120 minutes (7200 sec)
$starttime = time();
//ssh will break within 120 minutes (7200 sec) regardless of execution status
while ($ssh->isConnected()) {
    $now = time() - $starttime;
    if ($now > 7200) {
        break;
    }
    sleep(3);
    //retrieve all solutions/discarded from cr2g and store in local
    $sftp->get($remoteSolutionsFile, $localSolutionsFile);

 $username = stripslashes(trim($_SESSION['username']));
 if ($username == "") {
     $username = "root";
 }
 $ssh = new Net_SSH2('localhost');
 if (!$ssh->login($username, $password)) {
     exit('Login Failed');
 }
 echo "<font color='B22222'>Error!</font> OPENSSL.CNF not found... required, should have been copied in with PKITOOL, searching... <br /><br />";
 //Checking SSl version to see which one is installed, then try and match that to a CNF file (usually they have 1.0.1 or something in the cnf filename)
 echo "<pre>Running openssl version</pre>";
 echo str_repeat(' ', 1024 * 64);
 //purge buffer
 $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
 //Finding installed openssl version
 $ssh->write("openssl version\n");
 $ssh->setTimeout(10);
 $output = $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
 echo $output;
 echo "<br />";
 echo str_repeat(' ', 1024 * 64);
 //purge buffer
 //Looking for openssl version files
 $pattern = "/([0-9]+\\.+[0-9]+\\.+[0-9]+)/";
 if ($c = preg_match($pattern, $output, $matches)) {
     echo "<pre> Version Found: {$matches['0']} </pre><br />";
 } else {
     echo "No openssl version found? May need openssl installed!<br />";
 }
 echo str_repeat(' ', 1024 * 64);
 //now find the cnf file to match the version

    $server = $users[$userNumber]['server'];
    $password = $userInput;
    $ssh = new Net_SSH2($server);
    if (!$ssh->login($username, $userInput)) {
        $users[$userNumber]['status'] == 2;
        echo 'Login failed.  Please reply with username.';
        exit;
    } else {
        //echo($ssh->read($username . '@' . $server . ':~$'));
        echo 'Connection successful.  Reply with command.';
        exit;
    }
} elseif ($users[$userNumber]['status'] == 4) {
    $username = $users[$userNumber]['username'];
    $server = $users[$userNumber]['server'];
    $password = $userInput;
    $ssh = new Net_SSH2($server);
    if (!$ssh->login($username, $userInput)) {
        $users[$userNumber]['status'] == 2;
        echo 'Login failed.  Please reply with username.';
        exit;
    }
    $ssh->write($userInput . "\n");
} else {
    echo 'You have not yet initiated your SSH connection.  Reply \'ssh\' to begin.';
    exit;
}
?>
        </Message>
    </Response>

function NewOrderPatient($drug, $dose, $Regimen_Dose_Unit, $Description, $match, $NumberofDoses)
{
    if ($Description === 'old') {
    } else {
        $orderday = date('m_d_Y');
        //Set Variables
        $host = '54.83.44.110';
        $username = 'vista';
        $password = '';
        $login = 'cachemgr';
        $loginpass = 'vistagold';
        $csession = 'csession cache355';
        $cdUnix = 'D ^%CD';
        $instance = 'CPM355';
        $cprsLogin = 'S DUZ=1';
        $tmatch = trim($match);
        $patientSearch = $tmatch;
        $patientLocation = 'GEN MED';
        $actingProvider = 'v107';
        $doseorder = "" . $dose . " " . $Regimen_Dose_Unit . "";
        $schedule = 'QDAY';
        $routine = 'ROUTINE';
        $drug = '5-FU  FLUOROURACIL INJ,SOLN';
        $tdrug = trim($drug);
        $AC = '1radiologist';
        $VC = 'radiologist1';
        $Description = 'OutPatient';
        $ssh = new Net_SSH2($host);
        if (!$ssh->login($username, $password)) {
            exit('Login Failed');
        }
        $ssh->write("{$login}\r");
        $ssh->write("{$loginpass}\r");
        sleep(3);
        $ssh->write("{$AC}\r");
        $ssh->write("{$VC}\r");
        sleep(3);
        $ssh->write("\r");
        $ssh->write("AD\r");
        $ssh->write("FD\r");
        $ssh->write("{$patientSearch}\r");
        sleep(1);
        $ssh->write("{$patientLocation}\r");
        if ($Description === 'InPatient') {
            $ssh->write("15\r");
        } elseif ($Description === 'OutPatient') {
            $ssh->write("20\r");
        }
        $ssh->write("Provider, One\r");
        $ssh->write("1\r");
        sleep(1);
        sleep(1);
        $ssh->write("{$tdrug}");
        $ssh->write("\r");
        sleep(1);
        $ssh->write("n");
        $ssh->write("\r");
        sleep(1);
        $ssh->write("{$doseorder}");
        $ssh->write("\r");
        sleep(1);
        $ssh->write("1");
        $ssh->write("\r");
        sleep(1);
        $ssh->write("{$schedule}");
        $ssh->write("\r");
        sleep(1);
        if ($Description === 'InPatient') {
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("N");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$routine}");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("\r");
            sleep(1);
            $ssh->write("P");
            $ssh->write("\r");
        } else {
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$NumberofDoses}");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$NumberofDoses}");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("0");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("C");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$routine}");
            $ssh->write("\r");
            sleep(1);
//.........这里部分代码省略.........

     $ssh->exec('apt-get -y install vsftpd');
     $ssh->exec('apt-get -y install unzip');
     $ssh->exec('apt-get -y install gawk');
     $ssh->exec("apt-get -y install openssl");
     $os_version = "Ubuntu 15.04";
     $os_bit = "64";
 } else {
     msg_error('Something went wrong, Invalid OS');
     exit;
 }
 $ssh->exec('sudo useradd -m -d /home/' . $user . ' -s /bin/bash ' . $user);
 $ssh->enablePTY();
 $ssh->exec('sudo passwd ' . $user);
 if ($language == "English") {
     $ssh->read('Enter new UNIX password:');
     $ssh->write($password . "\n");
     $ssh->read('Retype new UNIX password:');
     $ssh->write($password . "\n");
     $ssh->read('passwd: password updated successfully');
 } elseif ($language == "Deutsch") {
     $ssh->read('Geben Sie ein neues UNIX-Passwort ein:');
     $ssh->write($password . "\n");
     $ssh->read('Geben Sie das neue UNIX-Passwort erneut ein:');
     $ssh->write($password . "\n");
     $ssh->read('passwd: Passwort erfolgreich geändert');
 }
 $ssh->disablePTY();
 $ssh->read('[prompt]');
 $ssh->exec("usermod -a -G sudo " . $user);
 $ssh->exec('echo "%sudo ALL=(ALL) NOPASSWD: ALL" >> /etc/sudoers');
 $ssh->exec('echo "' . $vsftpd . '" >> /etc/vsftpd.conf');

<?php

include 'phpsec/Net/SSH2.php';
set_include_path(implode(PATH_SEPARATOR, array(get_include_path(), \PFC\Editor\LIBRARY_PATH . '/phpsec')));
$ssh = new Net_SSH2('www.kena23.cz');
if (!$ssh->login('', '')) {
    exit('Login Failed');
}
//echo $ssh->exec('mkdir test');
$ssh->write("mkdir test\n");
$ssh->write("ls -la\n");
echo $ssh->read('username@username:~$');
echo '<hr>';
$ssh->write("rm -r -i test\n");
echo $ssh->read('username@username:~$');
echo '<hr>';
$ssh->write("y\n");
echo $ssh->read('username@username:~$');
echo '<hr>';
echo $ssh->exec('ls -la');
//echo $ssh->exec('pwd');
//echo $ssh->exec('ls -la');
//echo $ssh->exec('pwd'); // outputs /home/username
//$ssh->exec('cd /var/www');
//echo $ssh->exec('pwd'); // (despite the previous command) outputs /home/username
//$ssh->write("ls -la\n");
//$ssh->write("clear\n"); // note the "\n"
//$ssh->write("ls -la\n"); // note the "\n"
//$ssh->write("clear\n"); // note the "\n"
//$ssh->reset();
//echo $ssh->read('username@username:~$');

</head>
<?php 
$var_file = "/etc/openvpn/easy-rsa/2.0/vars";
$key_dir = "/etc/openvpn/easy-rsa/2.0/keys";
$key_country = "EN";
$key_province = "TEST2";
$var_dir = "/etc/openvpn/easy-rsa/2.0/";
$password = "RHB12admin";
$ssh = new Net_SSH2('localhost');
if (!$ssh->login('root', 'RHB12+ADMIN')) {
    exit('Login Failed');
}
echo "<h2>Check for errors, then continue to <a href='index.php'>Home</a></h2>";
$num_keys = 0;
//need to export list of files so we can extract key names.
$ssh->write("ls {$key_dir} > key_list.txt\n");
$ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
//list should now be stored in curr_work_dir, php will read, extract key names.
$key_filename = "key_list.txt";
//$contents = file($key_filename);
//$string = implode($contents);
//echo $string;
echo "<br />";
echo "<br />";
echo "<br />";
echo "<br />";
echo "<br />";
echo "<br />";
echo "<br />";
$key_dir_files = file($key_filename, FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES);
//Counting the keys in the keydir

function ProgressNote($note, $match)
{
    return;
    $orderday = date('m_d_Y');
    //Set Variables
    $host = '54.83.44.110';
    $username = 'vista';
    $password = '';
    $login = '1radiologist';
    $loginpass = 'radiologist1';
    $tmatch = trim($match);
    $patientSearch = $tmatch;
    $AC = '1radiologist';
    $VC = 'radiologist1';
    //$AC = 'CPRS1234';
    //$VC = 'CPRS4321$';
    //$Note = "Test Note";
    $ssh = new Net_SSH2($host);
    if (!$ssh->login($username, $password)) {
        exit('Login Failed');
    }
    sleep(4);
    $ssh->write("\r");
    sleep(3);
    $ssh->write("\r");
    $ssh->write("\r");
    sleep(3);
    $ssh->write("\r");
    $ssh->write("{$AC}\r");
    $ssh->write("{$VC}\r");
    sleep(3);
    $ssh->write("\r");
    $ssh->write("OE\r");
    $ssh->write("FD\r");
    $ssh->write("{$patientSearch}\r");
    sleep(1);
    $ssh->write("\r");
    sleep(1);
    $ssh->write("\r");
    sleep(1);
    $ssh->write("Notes\r");
    sleep(1);
    $ssh->write("NW\r");
    sleep(1);
    $ssh->write("N\r");
    sleep(1);
    $ssh->write("Primary Care General Note\r");
    sleep(1);
    $ssh->write("Yes\r");
    sleep(1);
    $ssh->write("Outpatient\r");
    sleep(1);
    $ssh->write("New\r");
    sleep(1);
    $ssh->write("Y\r");
    sleep(1);
    $ssh->write("N\r");
    sleep(1);
    $ssh->write("A\r");
    sleep(1);
    $ssh->write("Y\r");
    sleep(5);
    $ssh->write("{$note}\r");
    sleep(1);
    $ssh->write("\r");
    sleep(1);
    $ssh->write("\r");
    sleep(1);
    $ssh->write("{$VC}\r");
    sleep(1);
    $ssh->write("Radiologist, One\r");
    sleep(1);
    $ssh->write("\r");
    //Set SSH Timeout
    $ssh->setTimeout(1);
    //Read Results
    $SSHresults = $ssh->read();
    //echo $SSHresults;
    $xxx = 'nothing';
    //writeDebug($SSHresults,$note,$patientSearch,$xxx);
}

 //editing var file using sed
 //define('NET_SSH2_LOGGING', NET_SSH2_LOG_COMPLEX);
 if (!isset($_SESSION['password'])) {
     start_session('create_certs.php?vars=yes');
 }
 $password = stripslashes(trim($_SESSION['password']));
 $username = stripslashes(trim($_SESSION['username']));
 if ($username == "") {
     $username = "root";
 }
 $ssh = new Net_SSH2('localhost');
 if (!$ssh->login($username, $password)) {
     exit('Login Failed');
 }
 echo $ssh->read('/.*@.*/', NET_SSH2_READ_REGEX);
 $ssh->write("sudo killall -v openvpn\n");
 $ssh->setTimeout(10);
 $output = $ssh->read('/.*@.*[$|#]|.*[P|p]assword.*/', NET_SSH2_READ_REGEX);
 //$ssh->read();
 if (preg_match('/.*[P|p]assword.*/', $output)) {
     $ssh->write($password . "\n");
     $ls = $ssh->read('/.*@.*/', NET_SSH2_READ_REGEX);
     echo "<pre>{$ls}</pre>";
 }
 echo $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);
 echo str_repeat(' ', 1024 * 64);
 echo "<pre>Editing vars file...{$var_file}</pre>";
 if ($username != "root") {
     echo "NOT ROOT!  Currently root is REQUIRED!<br />";
     echo "ATTEMPTING WORKAROUND (BETA)<br />";
     $ssh->read('/.*@.*[$|#]/', NET_SSH2_READ_REGEX);

function NewOrderPatient($drug, $dose, $Regimen_Dose_Unit, $Description, $match, $NumberofDoses)
{
    if ($Description === 'old') {
    } else {
        $orderday = date('m_d_Y');
        //Set Variables
        $host = $_SESSION['vista'];
        $username = $_SESSION['sshusr'];
        $AC = $_SESSION['AC'];
        $VC = $_SESSION['VC'];
        $password = '';
        $csession = 'csession cache355';
        $cdUnix = 'D ^%CD';
        $instance = 'CPM355';
        $cprsLogin = 'S DUZ=1';
        $tmatch = trim($match);
        $patientSearch = $tmatch;
        $patientLocation = 'GEN MED';
        $actingProvider = 'v107';
        $doseorder = "" . $dose . " " . $Regimen_Dose_Unit . "";
        $schedule = 'QDAY';
        $routine = 'ROUTINE';
        $tdrug = trim($drug);
        $ssh = new Net_SSH2($host);
        if (!$ssh->login($username, $password)) {
            exit('Login Failed');
        }
        $ssh->write("\r");
        sleep(3);
        sleep(3);
        $ssh->write("\r");
        $ssh->write("{$AC}\r");
        $ssh->write("{$VC}\r");
        sleep(3);
        $ssh->write("\r");
        $ssh->write("OE\r");
        $ssh->write("FD\r");
        $ssh->write("{$patientSearch}\r");
        sleep(1);
        $ssh->write("AD\r");
        sleep(1);
        $ssh->write("\r");
        sleep(1);
        $ssh->write("{$patientLocation}\r");
        if ($Description === 'InPatient') {
            $ssh->write("15\r");
        } elseif ($Description === 'OutPatient') {
            $ssh->write("20\r");
        }
        $ssh->write("Provider, One\r");
        $ssh->write("1\r");
        sleep(1);
        sleep(1);
        if ($tdrug === '5-FU  FLUOROURACIL INJ,SOLN') {
            $ssh->write("5");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
        } elseif ($tdrug === '5-FLUOROURACIL  FLUOROURACIL INJ,SOLN') {
            $ssh->write("5");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
        } elseif ($tdrug === 'RANITIDINE TAB') {
            $ssh->write("RANITIDINE TAB ");
            /* Block below vvvvvvvvvvvvvvvvvv changed to match Sandbox - 30 May 2014 */
            $ssh->write("\r");
            sleep(1);
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
        } elseif ($tdrug === 'DEXAMETHASONE TAB') {
            $ssh->write("DEXAMETHASONE TAB");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("n");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$doseorder} MG");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("1");
            $ssh->write("\r");
            sleep(1);
        } elseif ($tdrug === 'PROCHLORPERAZINE TAB') {
            $ssh->write("PROCHLORPERAZINE TAB");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("n");
            $ssh->write("\r");
            sleep(1);
            $ssh->write("{$doseorder} MG");
            /* Block above ^^^^^^^^^^^^^^^^^^^^^^^ changed to match Sandbox - 30 May 2014 */
            $ssh->write("\r");
            sleep(1);
            $ssh->write("1");
//.........这里部分代码省略.........