X hits on this document

PDF document

February 10, 2006 - page 174 / 238

558 views

0 shares

0 downloads

0 comments

174 / 238

162

APPENDIX B. THE PERL INTERFACE

sub new { my $obj = { }; return bless \$obj;

}

s u b d o m a i n _ c l o s e _ d o n e _ c exit 0; } b {

sub domain_up_cb { my $self = shift; my $domain = shift;

  • #

    Domain is up, the SEL has been read.

p r i n t " D o m a i n " , $ d o m a i n - > g e t _ n a m e ( ) $domain->close($self); ,

" is finished coming up!\n";

}

}

OpenIPMI::init();

$conh = Conh::new(); $uph = Uph::new();

  • #

    Only get the SEL from the local BMC, don’t do anything else.

@args = ("-noall", "-sel", "smi", "0"); $ d o m a i n _ i d = O p e n I P M I : : o p e n _ d o m a i n ( " t e s t 1 "

, \@args, $conh, $uph);

while (1) { O p e n I P M I : : w a i t _ i o ( 1 0 0 0 ) } ;

Unfortunately, the documentation for the Perl interface is in the file swig/OpenIPMI.i along with the sources. It will hopefully be here in the future.

Document info
Document views558
Page views558
Page last viewedSun Dec 04 23:42:59 UTC 2016
Pages238
Paragraphs8090
Words85809

Comments