Shell Programming and Scripting

Set up gcc environment - 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)
Note (probably harmless): No library found for -lgmp
Note (probably harmless): No library found for -lkernel32
Note (probably harmless): No library found for -luser32
Note (probably harmless): No library found for -lgdi32
Note (probably harmless): No library found for -lwinspool
Note (probably harmless): No library found for -lcomdlg32
Note (probably harmless): No library found for -ladvapi32
Note (probably harmless): No library found for -lshell32
Note (probably harmless): No library found for -lole32
Note (probably harmless): No library found for -loleaut32
Note (probably harmless): No library found for -lnetapi32
Note (probably harmless): No library found for -luuid
Note (probably harmless): No library found for -lws2_32
Note (probably harmless): No library found for -lmpr
Note (probably harmless): No library found for -lwinmm
Note (probably harmless): No library found for -lversion
Note (probably harmless): No library found for -lodbc32
Note (probably harmless): No library found for -lodbccp32
Note (probably harmless): No library found for -lmsvcrt
YAML not installed, make dist will not override metafile at Makefile.pl line 20.

Writing Makefile for Math::BigInt::GMP

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

cp lib/Math/BigInt/GMP.pm blib\lib\Math\BigInt\GMP.pm
        C:\Perl\bin\perl.exe C:\Perl\lib\ExtUtils\xsubpp  -typemap C:\Perl\lib\E
xtUtils\typemap -typemap typemap  GMP.xs > GMP.xsc && C:\Perl\bin\perl.exe -MExt
Utils::Command -e mv GMP.xsc GMP.c
        gcc -c    -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DUS
E_SITECUSTOMIZE -DPRIVLIB_LAST_IN_INC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SY
S -DUSE_PERLIO -DPERL_MSVCRT_READFIX -DHASATTRIBUTE -fno-strict-aliasing -mms-bi
tfields -O2    -DVERSION=\"1.24\"  -DXS_VERSION=\"1.24\"  "-IC:\Perl\lib\CORE"
 GMP.c
gcc: no input files
NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code '0x1'
Stop.

perl -MCPAN -e "install Crypt::Random"

Set up gcc environment - 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)
Going to read C:\Perl\cpan\Metadata
Warning: Found only 0 objects in C:\Perl\cpan\Metadata
Fetching with LWP:
  http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz
LWP failed with code[501] message[Protocol scheme '>>My Proxy setting here<<' is
 not supported]
Fetching with LWP:
  http://cpan.perl.org/authors/01mailrc.txt.gz
LWP failed with code[501] message[Protocol scheme '>>My Proxy setting here<<' is
 not supported]
No external ftp command available


I would like to connect to one of the following sites to get 'authors/01mailrc.t
xt.gz':

http://cpan.uwinnipeg.ca/PPMPackages/10xx/

The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm
line 39, <GEN0> line 1.

The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.

use Net::SSH::Perl::SSH1 ;

$scon = Net::SSH::Perl->new ("com123.mynetwork.mydomain.com");
$scon->login("user123","pass123");
print "looking around ...\n";
($output,$errors,$exit) = $scon->cmd("ls -l");
print $output;

Can't set socket non-blocking: Bad file descriptor at C:/Perl/site/lib/Net/SSH/P
erl.pm line 217.

#!/opt/local/bin/perl
#
# checkDiskspace.pl: See if any partitions are greater than a percentage and notify
#
use strict;
use warnings;

use Net::SSH::Perl;
use Math::BigInt::GMP;  # Don't forget this!

$| = 1;

my $alert_percent = 75;
my $server = 'com123.mynetwork.mydomain.com';
my $username = 'user123';
my $password = 'pass123';


# However you wanna notify yourself (like email)
sub alert_notify {
    my $message = shift;
    print "STUB: $message\n";
}

# Log into server
print "Creating ssh object... ";
my $ssh = Net::SSH::Perl->new($server); # Error check this
print "done\n";
print "Logging into server... ";
$ssh->login($username, $password); # Error check this
print "done\n";

# Check df
my $command = "df";
print "Running command ($command)... ";
my ($stdout, $stderr, $exit) = $ssh->cmd($command); # Check output
print "done\n";

# Find percentage
foreach my $df_line (split(/\n/, $stdout)) {
    # If disk space usage percent > $alert_percent, notify
    if ($df_line =~ /\s+(\d+)%\s+(\/.*)/ && $1 >= $alert_percent) {
        alert_notify ("[$server] device $2 at $1 percent!");
    }
}

Creating ssh object... Can't set socket non-blocking: Bad file descriptor at C:/
Perl/site/lib/Net/SSH/Perl.pm line 217.

use strict;
use warnings;

use Net::SSH::Perl;

my $server = 'alpha12z';
my $user = 'user123';
my $pwd = 'pass123';

my $ssh = Net::SSH::Perl->new($server);

$ssh-> login($user, $pwd);
my ($out, $err, $exit) = $ssh-> cmd("ls");

defined($sock->blocking(0))
 or die "Can't set socket non-blocking:  $!";

$ssh = Net::SSH::Perl->new("com123.mynetwork.mydomain.com",(protocol=>'2',port=>'22',debug=>'true'));

channel 1: open confirm rwindow 0 rmax 32768

($output,$errors,$exit) = $scon->cmd('ls > /tmp/file.out',"\n");

($output, $errors, $exit) = $scon->cmd('ls');