X hits on this document

PDF document

February 10, 2006 - page 172 / 238

644 views

0 shares

0 downloads

0 comments

172 / 238

160

APPENDIX B. THE PERL INTERFACE

  • #

    ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR

    • #

      TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE

    • #

      USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#

  • #

    You should have received a copy of the GNU Lesser General Public

    • #

      License along with this program; if not, write to the Free

    • #

      Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#

use OpenIPMI;

{

package MC_Nameget; sub new { my $a = shift; my $b = \$a; return bless $b;

}

s u b m c _ c b my $self = shift; my $mc = shift; {

$ $ s e l f = $ m c - > g e t _ n a m e ( ) ;

}

package Eventh;

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

}

sub event_cb { my $self = shift; my $domain = shift; my $event = shift; my $mcid; my $name; my $val; my @data; my $dataref;

$mcid = $event->get_mc_id();

$ n a m e = M C _ N a m e g e t : : n e w ( " " ) ;

Document info
Document views644
Page views644
Page last viewedThu Dec 08 20:44:17 UTC 2016
Pages238
Paragraphs8090
Words85809

Comments