diff options
| author | Oliver Tappe | 2008-03-11 16:21:50 +0100 |
|---|---|---|
| committer | Oliver Tappe | 2008-03-11 16:21:50 +0100 |
| commit | 058b3f0803a6ed2829e8cf827bafdfeddedde5f7 (patch) | |
| tree | a1206dba132e9ebf1e7ff5408e9fc0ad97fc94c9 /lib/OpenSLX/Utils.pm | |
| parent | Optimization for dnbd2 settings ... (diff) | |
| download | core-058b3f0803a6ed2829e8cf827bafdfeddedde5f7.tar.gz core-058b3f0803a6ed2829e8cf827bafdfeddedde5f7.tar.xz core-058b3f0803a6ed2829e8cf827bafdfeddedde5f7.zip | |
* made hostIs64Bit() available as util function
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1615 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
| -rw-r--r-- | lib/OpenSLX/Utils.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 22e2ebbc..9d8b4599 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -33,6 +33,7 @@ $VERSION = 1.01; mergeHash getFQDN readPassword + hostIs64Bit ); ################################################################################ @@ -318,4 +319,10 @@ sub readPassword return $term->readline($prompt); } +sub hostIs64Bit +{ + my $arch = qx{uname -m}; + return $arch =~ m[64]; +} + 1; |