(file) Return to moreconfigure.pl CVS log (file) (dir) Up to [Development] / JSOC / Attic

Diff for /JSOC/Attic/moreconfigure.pl between version 1.7 and 1.8

version 1.7, 2009/09/28 21:36:08 version 1.8, 2009/10/13 19:22:37
Line 1 
Line 1 
 #!/usr/bin/perl -w #!/usr/bin/perl -w
  
 # Determine which compilers are installed; then set make variables to indicate that # Determine which compilers are installed; then set make variables to indicate that
   # Also, set DEFAULT values for Stanford-specific (if running at Stanford) make variables.
   # To override the DEFAULT Stanford values, create a config.local file.
   
   use Sys::Hostname;
  
 use constant ICCMAJOR => 9; use constant ICCMAJOR => 9;
 use constant ICCMINOR => 0; use constant ICCMINOR => 0;
Line 124  if (defined($outfile))
Line 128  if (defined($outfile))
         print OUTFILE "JSOC_AUTOFCOMPILER = gfortran\n";         print OUTFILE "JSOC_AUTOFCOMPILER = gfortran\n";
     }     }
  
       # Set DEFAULT values for Stanford-specific (if running at Stanford) make variables.
       if (-e "suflag.txt")
       {
          my($hostname);
          my($machtype);
          my($line);
   
          if (open(SUFLAG, "<suflag.txt"))
          {
             # first figure out what type of Stanford machine this script is running on
             $hostname = hostname();
   
             if ($hostname =~ /j1/)
             {
                $machtype = "j1";
             }
             elsif ($hostname =~ /d02/)
             {
                $machtype = "d02";
             }
             elsif ($hostname =~ /hmidb/)
             {
                $machtype = "dbserver";
             }
             elsif ($hostname =~ /cl1n0/)
             {
                $machtype = "cluster";
             }
             elsif ($hostname =~ /dcs/)
             {
                $machtype = "dcs";
             }
   
             if (defined($machtype))
             {
                print OUTFILE "MACHTYPE = $machtype\n";
             }
   
             while (defined($line = <SUFLAG>))
             {
                chomp($line);
                if ($line !~ /^#/ && $line =~ /\S+/)
                {
                   print OUTFILE "$line\n";
                }
             }
   
             close(SUFLAG);
          }
       }
   
     close(OUTFILE);     close(OUTFILE);
 } }
  

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
Karen Tian
 Powered by
ViewCVS 0.9.4