Index: ossp-pkg/snmpdx/snmpdx RCS File: /v/ossp/cvs/ossp-pkg/snmpdx/Attic/snmpdx,v rcsdiff -q -kk '-r1.4' '-r1.5' -u '/v/ossp/cvs/ossp-pkg/snmpdx/Attic/snmpdx,v' 2>/dev/null --- snmpdx 2003/09/02 12:35:20 1.4 +++ snmpdx 2003/09/02 12:39:20 1.5 @@ -254,10 +254,19 @@ return; } +sub arch ($) { + my ($self) = @_; + return $self->{-machine}; +} + +sub os ($) { + my ($self) = @_; + return sprintf("%s%s", $self->{-system}, $self->{-release}); +} + sub id ($) { my ($self) = @_; - return sprintf("%s-%s-%s", - $self->{-machine}, $self->{-system}, $self->{-release}); + return sprintf("%s-%s%s", $self->{-machine}, $self->{-system}, $self->{-release}); } ## _________________________________________________________________________