pxelator/bin/smclp.pl

#!/usr/bin/perl

use strict;
use warnings;

# Dell's DRAC SM-CLP

use Data::Dump qw/dump/;

use Net::OpenSSH;
use Expect;

my $debug = 0;
my $timeout = 5;

my ( $uri, $command, $path ) = @ARGV;
die "usage: $0 login:passwd\@host show /system1\n" unless $uri && $command;

my $ssh = Net::OpenSSH->new( $uri );
my ( $pty, $pid ) = $ssh->open2pty;
my $expect = Expect->init($pty);
$expect->raw_pty(1);
$expect->log_user(1) if $debug;

$expect->expect( $timeout, '$' );
$expect->send( "smclp\n" );

$expect->expect( $timeout, '>' );

my $data;

sub smclp {
        my ( $command, $path ) = @_;

        warn "smclp $command $path\n" if $debug;

        $expect->send( "$command $path\n" );

        $expect->expect( $timeout, '>' );

        my $got = $expect->before;

        my $section;

        foreach ( split(/\r\n/, $got ) ) {
                if ( m{(/.*):} ) {
                        $path = $1;
                } elsif ( m{^\s{2}(\w+):} ) {
                        $section = $1;
                } elsif ( m{^\s{4}(.+)} ) {
                        if ( $section eq 'Properties' ) {
                                my ( $k, $v ) = split(/\s+=\s+/,$1,2);
                                $data->{$path}->{$section}->{$k} = $v;
                        } else {
                                push @{ $data->{$path}->{$section} }, $1;
                        }
                } else {
                        print "# IGNORE [$_]\n" if $debug;
                }
        }

        warn "# data = ",dump $data;
}

smclp $command => $path;

1	dpavlin	465	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			# Dell's DRAC SM-CLP
7
8			use Data::Dump qw/dump/;
9
10			use Net::OpenSSH;
11			use Expect;
12
13			my $debug = 0;
14			my $timeout = 5;
15
16			my ( $uri, $command, $path ) = @ARGV;
17			die "usage: $0 login:passwd\@host show /system1\n" unless $uri && $command;
18
19			my $ssh = Net::OpenSSH->new( $uri );
20			my ( $pty, $pid ) = $ssh->open2pty;
21			my $expect = Expect->init($pty);
22			$expect->raw_pty(1);
23			$expect->log_user(1) if $debug;
24
25			$expect->expect( $timeout, '$' );
26			$expect->send( "smclp\n" );
27
28			$expect->expect( $timeout, '>' );
29
30			my $data;
31
32			sub smclp {
33			my ( $command, $path ) = @_;
34
35			warn "smclp $command $path\n" if $debug;
36
37			$expect->send( "$command $path\n" );
38
39			$expect->expect( $timeout, '>' );
40
41			my $got = $expect->before;
42
43			my $section;
44
45			foreach ( split(/\r\n/, $got ) ) {
46			if ( m{(/.*):} ) {
47			$path = $1;
48			} elsif ( m{^\s{2}(\w+):} ) {
49			$section = $1;
50			} elsif ( m{^\s{4}(.+)} ) {
51			if ( $section eq 'Properties' ) {
52			my ( $k, $v ) = split(/\s+=\s+/,$1,2);
53			$data->{$path}->{$section}->{$k} = $v;
54			} else {
55			push @{ $data->{$path}->{$section} }, $1;
56			}
57			} else {
58			print "# IGNORE [$_]\n" if $debug;
59			}
60			}
61
62			warn "# data = ",dump $data;
63			}
64
65			smclp $command => $path;
66