Check-in Number:
|
3536 | |
Date: |
2003-Sep-02 14:39:20 (local)
2003-Sep-02 12:39:20 (UTC) |
User: | rse |
Branch: | |
Comment: |
provide architecture and os also separately and use attach os version directly |
Tickets: |
|
Inspections: |
|
Files: |
|
ossp-pkg/snmpdx/snmpdx 1.4 -> 1.5
--- 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});
}
## _________________________________________________________________________
|
|