1 arta  1.1 #!/usr/bin/perl -w 
 2           
 3           # run this on each machine to be used.
 4           #    n00 - for linux_ia32 machines such as n00, ..., n11, etc.
 5           #    n12 - for linux_x86_64 machines
 6           
 7           my($scriptpath) = $0;
 8           print STDOUT "make of JSOC $scriptpath\n";
 9           system("date");
10           

11 arta  1.2 my($wd);
12           $wd = $scriptpath;
13           if ($wd =~ /(.+)\/\S+$/)
14           {
15               $wd = $1;
16           }
17           
18           chdir($wd);
19           

20 arta  1.1 # make clean 
21           # make -j 4 
22           
23           if (-e "suflag.txt")
24           {
25               system("make all dsds");
26           }
27           else
28           {
29               system("make");
30           }
31           
32           system("date");