#!/usr/bin/perl
use strict;
use Net::OpenSSH;

my $confDir = '/opt/deviceConfig';

if ($#ARGV < 2) {
    die "Error: Insufficient command line arguments."
}

my $hostName=$ARGV[0];
my $userName=$ARGV[1];
my $passwd=$ARGV[2];
if ( $ARGV[3] ) { $confDir = "$confDir/$ARGV[3]" ; }
if (! -e $confDir) {
    mkdir($confDir) or die "Can't create $confDir:$!\n";
}

my $ssh = Net::OpenSSH->new($hostName, user => $userName, password => $passwd) or die "Error: Cannot connect to $hostName";
$ssh->scp_get('/config.ini', "$confDir/config-$hostName.ini") or die "Error: Unable to retrieve config.ini: " . $ssh->error;