ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JSOC/make_jsoc.pl
Revision: 1.4
Committed: Fri Feb 15 21:14:37 2008 UTC (15 years, 7 months ago) by arta
Content type: text/plain
Branch: MAIN
CVS Tags: Ver_6-0, Ver_6-1, Ver_5-6, NetDRMS_Ver_2-0b, NetDRMS_Ver_2-0a, NetDRMS_Ver_1-1, NetDRMS_Ver_1-0, NetDRMS_Ver_2-2, NetDRMS_Ver_2-3, NetDRMS_Ver_2-0, NetDRMS_Ver_2-1, NetDRMS_Ver_2-6, NetDRMS_Ver_2-7, NetDRMS_Ver_2-4, NetDRMS_Ver_2-5, NewTree01_cp08_JSOC, Ver_4-6, Ver_4-7, Ver_4-4, Ver_4-5, Ver_4-2, Ver_4-3, Ver_4-1, NetDRMS_Ver_2-0b1, Ver_5-3, Ver_5-2, Ver_5-1, Ver_5-0, Ver_5-7, Ver_5-5, Ver_5-9, Ver_5-8, NetDRMS_Ver_6-0, NetDRMS_Ver_6-1, NetDRMS_Ver_0-8, NetDRMS_Ver_0-9, Ver_5-14, Ver_5-13, Ver_5-12, Ver_5-11, Ver_5-10, NetDRMS_Ver_2-0a2, NetDRMS_Ver_2-0a1, NetDRMS_Ver_9-9, NewTree01_cp09_JSOC
Changes since 1.3: +4 -1 lines
Log Message:
Fix script path name

File Contents

# User Rev Content
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");