JSOC/make_jsoc.pl - view

Return to make_jsoc.pl CVS log

Up to [Development] / JSOC

File: [Development] / JSOC / make_jsoc.pl (download)
Revision: 1.4, Fri Feb 15 21:14:37 2008 UTC (15 years, 3 months ago) by arta
Branch: MAIN
CVS Tags: Ver_6-1, Ver_6-0, Ver_5-9, Ver_5-8, Ver_5-7, Ver_5-6, Ver_5-5, Ver_5-3, Ver_5-2, Ver_5-14, Ver_5-13, Ver_5-12, Ver_5-11, Ver_5-10, Ver_5-1, Ver_5-0, Ver_4-7, Ver_4-6, Ver_4-5, Ver_4-4, Ver_4-3, Ver_4-2, Ver_4-1, NewTree01_cp09_JSOC, NewTree01_cp08_JSOC, NetDRMS_Ver_9-9, NetDRMS_Ver_6-1, NetDRMS_Ver_6-0, NetDRMS_Ver_2-7, NetDRMS_Ver_2-6, NetDRMS_Ver_2-5, NetDRMS_Ver_2-4, NetDRMS_Ver_2-3, NetDRMS_Ver_2-2, NetDRMS_Ver_2-1, NetDRMS_Ver_2-0b1, NetDRMS_Ver_2-0b, NetDRMS_Ver_2-0a2, NetDRMS_Ver_2-0a1, NetDRMS_Ver_2-0a, NetDRMS_Ver_2-0, NetDRMS_Ver_1-1, NetDRMS_Ver_1-0, NetDRMS_Ver_0-9, NetDRMS_Ver_0-8
Changes since 1.3: +4 -1 lines

Fix script path name

#!/usr/bin/perl -w 

# run this on each machine to be used.
#    n00 - for linux_ia32 machines such as n00, ..., n11, etc.
#    n12 - for linux_x86_64 machines

use Cwd qw(realpath);

my($scriptpath) = realpath($0);
print STDOUT "make of JSOC $scriptpath\n";
system("date");

my($wd);
$wd = $scriptpath;

if ($wd =~ /(.+)\/\S+$/)
{
    $wd = $1;
}
else
{
    print STDERR "Invalid make_jsoc.pl path; bailing!\n";
    exit(1);
}

chdir($wd);

# make clean 
# make -j 4 

if (-e "suflag.txt")
{
    system("make all dsds");
}
else
{
    system("make");
}

system("date");

Karen Tian