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 arta  1.4 use Cwd qw(realpath);
 8           
 9           my($scriptpath) = realpath($0);

10 arta  1.1 print STDOUT "make of JSOC $scriptpath\n";
11           system("date");
12           

13 arta  1.2 my($wd);
14           $wd = $scriptpath;

15 arta  1.4 

16 arta  1.2 if ($wd =~ /(.+)\/\S+$/)
17           {
18               $wd = $1;
19           }

20 arta  1.3 else
21           {
22               print STDERR "Invalid make_jsoc.pl path; bailing!\n";
23               exit(1);
24           }

25 arta  1.2 
26           chdir($wd);
27           

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