<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:p="urn:schemas-microsoft-com:office:powerpoint" xmlns:a="urn:schemas-microsoft-com:office:access" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" xmlns:b="urn:schemas-microsoft-com:office:publisher" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:odc="urn:schemas-microsoft-com:office:odc" xmlns:oa="urn:schemas-microsoft-com:office:activation" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:q="http://schemas.xmlsoap.org/soap/envelope/" xmlns:rtc="http://microsoft.com/officenet/conferencing" xmlns:D="DAV:" xmlns:Repl="http://schemas.microsoft.com/repl/" xmlns:mt="http://schemas.microsoft.com/sharepoint/soap/meetings/" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ppda="http://www.passport.com/NameSpace.xsd" xmlns:ois="http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir="http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:dsp="http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc="http://schemas.microsoft.com/data/udc" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sub="http://schemas.microsoft.com/sharepoint/soap/2002/1/alerts/" xmlns:ec="http://www.w3.org/2001/04/xmlenc#" xmlns:sp="http://schemas.microsoft.com/sharepoint/" xmlns:sps="http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:udcs="http://schemas.microsoft.com/data/udc/soap" xmlns:udcxf="http://schemas.microsoft.com/data/udc/xmlfile" xmlns:udcp2p="http://schemas.microsoft.com/data/udc/parttopart" xmlns:wf="http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:dsss="http://schemas.microsoft.com/office/2006/digsig-setup" xmlns:dssi="http://schemas.microsoft.com/office/2006/digsig" xmlns:mdssi="http://schemas.openxmlformats.org/package/2006/digital-signature" xmlns:mver="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:mrels="http://schemas.openxmlformats.org/package/2006/relationships" xmlns:spwp="http://microsoft.com/sharepoint/webpartpages" xmlns:ex12t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:ex12m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:pptsl="http://schemas.microsoft.com/sharepoint/soap/SlideLibrary/" xmlns:spsl="http://microsoft.com/webservices/SharePointPortalServer/PublishedLinksService" xmlns:Z="urn:schemas-microsoft-com:" xmlns:st="" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.apple-tab-span
        {mso-style-name:apple-tab-span;}
span.EmailStyle18
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.0in 1.0in 1.0in;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Thanks a bunch, I’ll fiddle around with it this week.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>The remote I’m connecting to is a NetApp filer and I only need
to execute remote commands and grab the results. Even then it’s only the pieces
that their SDK doesn’t implement.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div style='border:none;border-left:solid blue 1.5pt;padding:0in 0in 0in 4.0pt'>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>
chicago-talk-bounces+darren.young=chicagobooth.edu@pm.org
[mailto:chicago-talk-bounces+darren.young=chicagobooth.edu@pm.org] <b>On Behalf
Of </b>Sean Blanton<br>
<b>Sent:</b> Monday, November 09, 2009 9:43 AM<br>
<b>To:</b> Chicago.pm chatter<br>
<b>Subject:</b> Re: [Chicago-talk] Net::SSH::W32Perl<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>How many of these apply to you with a different environment,
I don't know. Here it is, unfinished, "as is" warts and all, but
mostly working.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal>* I couldn't get the 'shell' to work, so only used exec, put
and get operations.<o:p></o:p></p>
<div>
<p class=MsoNormal>* The key is to manage the blocking around grabbing a
channel and executing the different ops.<o:p></o:p></p>
<div>
<p class=MsoNormal>* Below, I let the program continue when there is an error,
and you will want your own error messages (and to rework the entire error
handling).<o:p></o:p></p>
<div>
<p class=MsoNormal>* The put operation did not update the timestamp of the
remote file - there is a hack to update it.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>* The Solaris box I was connecting to was running the KeON
security application - I doubt that had an effect, but who knows?<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<div>
<p class=MsoNormal>------------------------------------------------------------------------<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>package XXX::DeploySSH;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 NAME<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>XXX::DeploySSH - Use SSH from within Perl for build and
deploy operations.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 SYNOPSIS<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> #-- Import module<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> use XXX::DeploySSH;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> #-- Set connection parameters<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> my $ds = XXX::DeploySSH->new() or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> $ds->set_user($user);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> $ds->set_hostname($hostname);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> #-- Initiate connection including authentication<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> $ds->connect() or die "Couldn't connect to
$hostname";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> #-- Execute a command. Non-zero return code is bad<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> my ($rc, @output) = $ds->exec("ls -la");<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> print "Output:\n@output\n";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> print "Remote command executed
successfully.\n" unless $rc;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> print "ERROR: Remote command failed.\n" if
$rc;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> #-- Transfer a file. Note opposite sense of return
code. 1 is good now.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> my $rc = $ds->put( $full_target,
"$stage_dir/$target_file" )<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>or die
"SFTP put of '$full_target' to '$stage_dir/$target_file' failed";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 DESCRIPTION<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Uses the SSH2 protocol to create session, execute commands
or transfer files from iwthin Perl.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Each command is issued on its own "channel'. The
execution method is by C<exec>, so you can only<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>run programs with arguments, not shell commands.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>The connection method is via publickey authentication. The
public and private key names as well as<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>the password for encrypting the private key are all
hardcoded in the module itself. Sure there is a<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>better way, but that is the current state.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 OBJECT METHODS<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head2 Constructor<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>The constructor is called with no arguments.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> my $ds = XXX::DeploySSH->new();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head2 Accessors<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->set_user($user)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>The user authenticating via SSH2. Must set the user before
calling connect().<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->set_hostname($hostname)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>The hostname that you want to connect to. Must set the
hostname before calling connect().<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head2 Operators<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->exec($remote_cmd)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Executes C<$remote_cmd> on the machine you are
connected to. This method returns<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> ($rc,@output)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Where C<$rc> is the return code and C<@output>
is any output. Note that the return<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>value of this method is different from put() and get()
because they only indicate<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>success/fail, whereas exec() needs to return the return code
of the program execution<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>and output.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->put($local_file,$remote_file)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Transfers C<$local_file> to C<$remote_file> on
the connected machine.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->get($remote_file,$local_file)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Retrieves C<$local_file> from C<$remote_file> on
the connected machine.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head2 Other<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item $ds->disconnect()<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Terminates the connection.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 REQUIRED MODULES<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Install required modules on Windows using the C<< ppm
install <module> >> command.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item * Net::SSH2 - Base methods handling the SSH2 protocol.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item * Carp - For error handling.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 BUGS AND CAVEATS<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item * Occasional flakiness occurs where a command returns
an error for no apparent reason. If this <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>happens, re-execute the workflow.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item * Output is not being returned by exec() in some
cases.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 TODO'S<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=over 4<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=item * Have constructor accept user and hostname arguments.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=back<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 AUTHOR<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Sean Blanton of OpenMake Software for XXX<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=head1 SEE ALSO<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Net::SSH2, XXX::DeployProperties<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>=cut<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>BEGIN {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>use Exporter ();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>use vars qw(@ISA
@EXPORT $VERSION);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>@ISA
= qw(Exporter);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>@EXPORT = qw(<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>use Net::SSH2;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>use Carp qw{confess cluck};<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>use strict;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>our $AUTOLOAD; # it's a package global<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>our %fields = (<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>hostname
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>user
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>private_key
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>public_key
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>private_key_password
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>ssh2_handle
=> undef,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>our $home_dir = $^O =~ /win/i ? $ENV{USERPROFILE} .
"/.ssh" : $ENV{HOME} . "/.ssh";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>#TODO: The password should be found by lookup instead of
hardcoded here<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>our $password =<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> 'XYXYXYX'; #-- password that
encrypts the private key, not the logon<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>our $private_key = "$home_dir/ccbuilder";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>our $public_key = "$home_dir/ccbuilder.pub";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>die "Private key file '$private_key' does not exist as
a file."<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> unless -f $private_key;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>die "Public key file '$public_key' does not exist as a
file."<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> unless -f $public_key;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub new {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $proto =
shift;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $class =
ref($proto) || $proto;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self =
{<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>_permitted
=> \%fields,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>%fields,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>};<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>bless( $self,
$class );<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$self->set_private_key($private_key);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$self->set_public_key($public_key);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$self->set_private_key_password($password);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 =
Net::SSH2->new() or confess("couldn't create ssh2 handle");<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$self->set_ssh2_handle($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return $self;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub connect {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self = shift<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span> or confess
"FATAL: Wrong args!";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $hostname
= $self->get_hostname() or confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $user
= $self->get_user() or
confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $private_key
= $self->get_private_key() or confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $public_key
= $self->get_public_key() or confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $password =
$self->get_private_key_password() or confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2
= $self->get_ssh2_handle() or
confess('');<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->connect($hostname)
or die "ERROR: Couldn't connect to $hostname.";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->auth_publickey(
$user, $public_key, $private_key, $password );<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>unless (
$ssh2->auth_ok ) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my (
$rc, $err_msg ) = $ssh2->error;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->disconnect;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>cluck("ERROR:
can't log in: $rc : $err_msg");<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
undef;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub disconnect {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self = shift<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span> or confess
"FATAL: Wrong args!";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>if ( my $ssh2 =
$self->get_ssh2_handle() ) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->disconnect;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$self->set_ssh2_handle(undef);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return 1;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub exec {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self = shift
or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $cmd =
shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 =
$self->get_ssh2_handle() or confess();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $chan =
_get_channel($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$chan->exec("$cmd\n");<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my @output =
<$chan>;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $rc =
$chan->exit_status;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>cluck("ERROR:
$rc\n@output\n") if $rc;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$chan->close;
#-- channel is useless after exec<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return $rc,
@output;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub put {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $local_file
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $remote_file
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 =
$self->get_ssh2_handle() or confess();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(1);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->scp_put(
"$local_file", "$remote_file" );<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>#-- Note bug
from scp_put puts wrong mtime. Put it right.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span># take care to
actually transfer the file.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $sftp =
$ssh2->sftp();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>check_ssh2_error($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$sftp->setstat(
"$remote_file", 'mtime', time() );<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>check_ssh2_error($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(0);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
check_ssh2_error($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub get {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $remote_file
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $local_file
= shift or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 =
$self->get_ssh2_handle() or confess();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(1);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->scp_get(
"$remote_file", "$local_file" );<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(0);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
check_ssh2_error($ssh2);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>#-- Get a(nother) channel for this logon session<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal># NOTE: Class function, not an object method<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>sub _get_channel {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 = shift
or confess();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(1);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $chan =
$ssh2->channel();<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$ssh2->blocking(0);<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return $chan;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub check_ssh2_error {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>#-- be careful
here, we are not returning an error code,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span># but 'true' if
operation was successful<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $ssh2 = shift
or die;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return 1 unless
$ssh2->error;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my @errs =
$ssh2->error;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>cluck("Errors
from Net::SSH2: @errs") if @errs;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return undef;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>#-- this function allows automatic getters and setters<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal># based on what is in the %fields at the beginning of the
module<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>sub AUTOLOAD {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $self =
shift;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $type =
ref($self)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span> or confess
"$self is not an object";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $name =
$AUTOLOAD;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$name =~
s/.*://; # strip fully-qualified portion<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>my $field =
$name;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>$field =~
s/^(set_|get_)//;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>unless ( exists
$self->{_permitted}->{$field} ) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>confess
"Can't access `$name' for field '$field' in class $type";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>if ( $name =~
/^set_/ ) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>if
(@_) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
$self->{$field} = shift;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}
else {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
$self->{$field} = "";<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>} elsif ( $name
=~ /^get_/ ) {<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>return
$self->{$field};<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>}<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>1;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</div>
<div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'>Regards,<br>
Sean<br>
<br>
Sean Blanton, Ph.D.<br>
<br>
Connect: <a href="http://www.linkedin.com/in/seanblanton">http://www.linkedin.com/in/seanblanton</a><br>
<br>
<br>
<o:p></o:p></p>
<div>
<p class=MsoNormal>On Fri, Nov 6, 2009 at 4:33 PM, Young, Darren <<a
href="mailto:Darren.Young@chicagobooth.edu">Darren.Young@chicagobooth.edu</a>>
wrote:<o:p></o:p></p>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'>> That module has a lot of
known issues. I couldn't get it to work<br>
> consistently (win <-> Solaris). See <a href="http://perlmonks.org"
target="_blank">perlmonks.org</a>. I abandoned it for<br>
> Net::SSH2, and that only worked in limited ways.<o:p></o:p></p>
</div>
<p class=MsoNormal>Yea, I found all sorts of similar postings there.<o:p></o:p></p>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><br>
> I can send you my wrapper utils, but right now am on the train<o:p></o:p></p>
</div>
<p class=MsoNormal>Sure, if it works I'd love to take a look.<o:p></o:p></p>
<div>
<div>
<p class=MsoNormal><br>
_______________________________________________<br>
Chicago-talk mailing list<br>
<a href="mailto:Chicago-talk@pm.org">Chicago-talk@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/chicago-talk" target="_blank">http://mail.pm.org/mailman/listinfo/chicago-talk</a><o:p></o:p></p>
</div>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</div>
</div>
</div>
</div>
</body>
</html>