#!/usr/bin/perl -w
# Debug SFTP problem
# Client site can be accessed, files listed, but any
# attempt to scp_get() the file results in an error.
#
#    -22 [LIBSSH2_ERROR_CHANNEL_REQUEST_DENIED]: 
#    Unable to complete request for channel-process-startup
# 

# ===============================
# Packages
# ===============================
    use Net::SSH2;
    use Net::SFTP;
    use Fcntl ':mode';    # Access mode functions


# ===============================
# SFTP Access Information
# ===============================
    my $sftpHost = "XXXXXXXX";             # Client SFTP Site
    my $sftpRemoteDir = "XXXXXXXX";        # Client's Dir
    my %sftpOptions =
    (
           debug =>  1,
            user => 'XXXXXXXX',            # Username
        password => 'XXXXXXXX',            # Password
            port => '9922',                # Nonstandard port.
        ssh_args => { port => '9922' },    # SSH Arguments
     interactive =>  1,
#%          cipher => 'none',
    );


# ===============================
# Create SSH2 Object
# ===============================
    my $ssh2   = Net::SSH2->new();
    $ssh2->debug(1);        # Talk to me!


# ===============================
# Establish SSH2 Connection
# ===============================
    printf("# === ESTABLISH CONNECTION: %s\n", $sftpHost);
    if ($ssh2->connect($sftpHost, $sftpOptions{port}))
    {
        print("Connected (port=%s)\n", $sftpOptions{port});
    }
    else
    {
        die("Can't connect (port=%s)\n", $sftpOptions{port});
    }


# ===============================
# Authenticate SSH2 Connection
# ===============================
    printf("# === AUTHENTICATE CONNECTION: %s\n", $sftpOptions{user});
    if ($ssh2->auth(username => $sftpOptions{user},
                    password => $sftpOptions{password} ))
    {
        print("Authenticated\n");
    }
    else
    {
        die("Can't authenticate");
    }


# ===============================
# Create SFTP SubObject
# ===============================
    printf("# === CREATE SFTP SUBOBJECT\n");

    my $sftp = $ssh2->sftp;


# ===============================
# List Available Files on Remote Site
# ===============================
    my $dirListREF;
    my %dirList;

    $dirListREF = $sftp->opendir($sftpRemoteDir);    
    printf("# ===         LS: %s\n", $sftp->error);
    while (my $item = $dirListREF->read)
    {
        my %fileStat;
        my $myStatKey;

        printf("==>: %s\n", $item->{name});
        %fileStat = $sftp->stat($sftpRemoteDir . "/" . $item->{name});
        foreach $myStatKey ('mode','size','uid','gid','atime','mtime')
        {
            if ($myStatKey eq "mode")
            {
                if (S_IFMT($fileStat{$myStatKey}) & S_IFDIR)
                {
                    printf("\tFILE: %s=%s\n", $myStatKey, "DIR");
                }
                else
                {
                    printf("\tFILE: %s=%s\n", $myStatKey, "---");

                        # Add file to list
                    $dirList{$item->{name}} = 1;
                }
            }
            elsif (($myStatKey eq "atime")    ||
                   ($myStatKey eq "mtime"))
            {
                my $myStatTime;

                my $mySecond;
                my $myMinute;
                my $myHour;
                my $myDay;
                my $myMonth;
                my $myYear;

                ($mySecond,$myMinute,$myHour,$myDay,$myMonth,$myYear) =
                        localtime($fileStat{$myStatKey});

                $myStatTime = sprintf("%04d%02d%02d %02d:%02d:%02d",
                            ($myYear  + 1900),    # Year  (4-digit)
                            ($myMonth + 1),       # Month (zero-relative)
                             $myDay,              # Day   (1-relative)
                             $myHour,             # Hour
                             $myMinute,           # Minute
                             $mySecond);          # Second

                printf("\tFILE: %s=%s\n",
                    $myStatKey,
                    $myStatTime);
            }
            else
            {
                printf("\tFILE: %s=%s\n",
                    defined($myStatKey)?$myStatKey:"<UNDEFINED>",
                    defined($fileStat{$myStatKey})?$fileStat{$myStatKey}:"<UNDEFINED>");
            }
        }
        
    }


# ===============================
# Retrieve Available Files
# ===============================
    my $localDir = "C:\\Temp";
    foreach $myFile (sort(keys(%dirList)))
    {
        my $rc; 

        printf("# %20.20s: ================================\n", $myFile);
        printf("# scp_get(%s,%s)\n", $myFile, $localDir . "\\$myFile");

        $rc=$ssh2->scp_get($myFile, $localDir . "\\$myFile");
        printf("# rc=%s\n", defined($rc)?$rc:"<UNDEFINED>");
    }


# ===============================
# Clean up and Exit
# ===============================
    $ssh2->disconnect();
    printf("# ===      CLOSE: %s\n", $sftp->error);

    exit(0);