ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/setarchitecture.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/setarchitecture.pm (file contents):
Revision 1.1 by williamc, Mon Mar 1 10:36:21 1999 UTC vs.
Revision 1.6 by williamc, Mon Aug 28 08:35:17 2000 UTC

# Line 1 | Line 1
1 – #!/usr/local/bin/perl5
2 – #
1   # simply set the architecture variable based on uname
2   #
3  
4   package setarchitecture;
5 + require 5.001;
6   require Exporter;
7   @ISA = qw(Exporter);
8   @EXPORT = qw(setarch);
# Line 12 | Line 11 | require Exporter;
11   sub setarch {
12   $uname=`uname -a`;
13   ($OSname, $hostname, $OSversion, @rest) = split / /, $uname;
14 + #
15 + # SunOS -
16 + #
17 + if ( $OSname=~SunOS ) {
18 +        $OSversion=~s/^(.\..)\..*/\1/; #Retain only the first two version digits
19 + }
20 + #
21 + # Linux -
22 + #
23 + if ( $OSname=~Linux ) {
24 +        $OSversion=~s/^(.\..)\..*/\1/; #Retain only the first two version digits
25 + }
26 +
27   # simply set to OS type and version
28 + if ( ! defined $ENV{SCRAM_ARCH} ) {
29   $ENV{SCRAM_ARCH}="${OSname}__${OSversion}";
30 < print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
30 > }
31 > #print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
32   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines