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