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 arta  1.3 else
18           {
19               print STDERR "Invalid make_jsoc.pl path; bailing!\n";
20               exit(1);
21           }

22 arta  1.2 
23           chdir($wd);
24           

25 arta  1.1 # make clean 
26           # make -j 4 
27           
28           if (-e "suflag.txt")
29           {
30               system("make all dsds");
31           }
32           else
33           {
34               system("make");
35           }
36           
37           system("date");