Changeset 38081
- Timestamp:
- Apr 2, 2015, 3:08:12 PM (11 years ago)
- Location:
- tags/ipp-mdpv3-20150326
- Files:
-
- 6 edited
-
ippScripts/scripts/sc_mk_stack_mdc.pl (modified) (1 diff)
-
ippScripts/scripts/sc_prepare_stack.pl (modified) (2 diffs)
-
ippScripts/scripts/sc_remote_exec.pl (modified) (5 diffs)
-
ippScripts/scripts/sc_remote_poll.pl (modified) (4 diffs)
-
ippScripts/scripts/sc_transfer_tool.pl (modified) (1 diff)
-
ippTasks/remote.pro (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
tags/ipp-mdpv3-20150326/ippScripts/scripts/sc_mk_stack_mdc.pl
r37833 r38081 9 9 10 10 my $remote_root = '/scratch3/watersc1/'; 11 $remote_root = '/lus/scratch/mehuber7/'; 11 12 12 13 my ($compmap_file); -
tags/ipp-mdpv3-20150326/ippScripts/scripts/sc_prepare_stack.pl
r38010 r38081 21 21 # my $remote_root = '/lustre/scratch1/turquoise/watersc1/ps1/'; # Far side destination base location 22 22 my $remote_root = '/scratch3/watersc1/'; # Far side destination base location 23 $remote_root = '/lus/scratch/mehuber7/'; 24 23 25 my $remote_hostname = "LANL/Mustang"; # Name of the remote node. 26 $remote_hostname = "UH/Cray"; 24 27 my $threads_req = 4; # How many threads are we going to use? 25 my $have_warps = 0; # Do we have a copy of the warp if we don't find one there?28 my $have_warps = 1; # Do we have a copy of the warp if we don't find one there? 26 29 27 30 my $fail_state = "prep_fail"; … … 210 213 $ppstack_command .= " -F PSPHOT.OUTPUT PSPHOT.OUT.CMF.MEF -F PSPHOT.BACKMDL PSPHOT.BACKMDL.MEF "; 211 214 $ppstack_command .= " -F SOURCE.PLOT.MOMENTS SOURCE.PLOT.SKY.MOMENTS -F SOURCE.PLOT.PSFMODEL SOURCE.PLOT.SKY.PSFMODEL "; 212 $ppstack_command .= " -F SOURCE.PLOT.APRESID SOURCE.PLOT.SKY.APRESID -R PPSTACK.OUTPUT FITS.TYPE COMP_STACK "; 213 $ppstack_command .= " -R PPSTACK.OUTPUT.VARIANCE FITS.TYPE COMP_STACK -R PPSTACK.UNCONV FITS.TYPE COMP_STACK "; 214 $ppstack_command .= " -R PPSTACK.UNCONV.VARIANCE FITS.TYPE COMP_STACK"; 215 $ppstack_command .= " -F SOURCE.PLOT.APRESID SOURCE.PLOT.SKY.APRESID "; 216 ## large stacks should not be compressed, this is bad hardcoding 217 #-R PPSTACK.OUTPUT FITS.TYPE COMP_STACK "; 218 #$ppstack_command .= " -R PPSTACK.OUTPUT.VARIANCE FITS.TYPE COMP_STACK -R PPSTACK.UNCONV FITS.TYPE COMP_STACK "; 219 #$ppstack_command .= " -R PPSTACK.UNCONV.VARIANCE FITS.TYPE COMP_STACK"; 220 $ppstack_command .= " -F PPSTACK.OUTPUT PPSTACK.OUTPUT.NOCOMP -F PPSTACK.OUTPUT.VARIANCE PPSTACK.OUTPUT.VARIANCE.NOCOMP "; 221 $ppstack_command .= " -F PPSTACK.OUTPUT.EXPWT PPSTACK.OUTPUT.EXPWT.NOCOMP -F PPSTACK.OUTPUT.EXP PPSTACK.OUTPUT.EXP.NOCOMP "; 222 $ppstack_command .= " -F PPSTACK.UNCONV PPSTACK.UNCONV.NOCOMP -F PPSTACK.UNCONV.VARIANCE PPSTACK.UNCONV.VARIANCE.NOCOMP "; 223 $ppstack_command .= " -F PPSTACK.UNCONV.EXPWT PPSTACK.UNCONV.EXPWT.NOCOMP -F PPSTACK.UNCONV.EXP PPSTACK.UNCONV.EXP.NOCOMP "; 224 ## 215 225 $ppstack_command .= " -tracedest ${remote_outroot}.trace -log ${remote_outroot}.log "; 216 226 $ppstack_command .= " -threads $threads_req "; -
tags/ipp-mdpv3-20150326/ippScripts/scripts/sc_remote_exec.pl
r37833 r38081 16 16 # Hard coded values 17 17 my $DMZ_HOST = 'wtrw'; 18 $DMZ_HOST = '128.171.123.18'; 19 18 20 my @SEC_HOSTS= ('mu-fe1','mu-fe2','mu-fe3' 19 21 # ,'mu-fe4' 20 22 ); 21 23 my $SEC_HOST = $SEC_HOSTS[int(rand(@SEC_HOSTS))]; # 'mu-fe'; 24 $SEC_HOST = ''; 25 22 26 my $IPP_PATH = '/turquoise/usr/projects/cosmo/mswarren/ipp/'; 27 $IPP_PATH = '/home/mehuber7/src/'; 28 23 29 my $remote_root = '/scratch3/watersc1/'; 30 $remote_root = '/lus/scratch/mehuber7/'; 24 31 25 32 # tools … … 111 118 # Run real command 112 119 my (undef,$remote_command) = &uri_convert($uri_command); 113 my $ssh_exec_stdout = &ssh_exec_command(" msub -V $remote_command");120 my $ssh_exec_stdout = &ssh_exec_command("sbatch $remote_command"); ##"msub -V $remote_command"); 114 121 if ($#{ $ssh_exec_stdout } != -1) { # Parse the output 115 $job_id = ${ $ssh_exec_stdout }[0]; 116 chomp($job_id); 122 my $line = ${ $ssh_exec_stdout }[0]; 123 chomp($line); 124 my @line_split = split /\s+/, $line; 125 $job_id = $line_split[-1]; 117 126 $job_id =~ s/\s+//g; 118 127 } … … 141 150 my $file = shift; 142 151 my $destination = shift; 143 my $cmd = "$scp $file ${DMZ_HOST}:${SEC_HOST}:${destination}"; 152 my $cmd; 153 if ($SEC_HOST ne '') { 154 $cmd = "$scp $file ${DMZ_HOST}:${SEC_HOST}:${destination}"; 155 } 156 else { 157 $cmd = "$scp $file ${DMZ_HOST}:${destination}"; 158 } 144 159 145 160 my $directory = dirname($destination); … … 157 172 my $destination = shift; 158 173 my $file = shift; 159 160 my $cmd = "$scp ${DMZ_HOST}:${SEC_HOST}:${destination} $file "; 174 my $cmd; 175 if ($SEC_HOST ne '') { 176 $cmd = "$scp $file ${DMZ_HOST}:${SEC_HOST}:${destination}"; 177 } 178 else { 179 $cmd = "$scp $file ${DMZ_HOST}:${destination}"; 180 } 161 181 162 182 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 170 190 sub ssh_exec_command { 171 191 my $cmd = shift; 172 $cmd = "$ssh -n $DMZ_HOST ssh ${SEC_HOST} $cmd"; 192 if ($SEC_HOST ne '') { 193 $cmd = "$ssh -n $DMZ_HOST ssh ${SEC_HOST} $cmd"; 194 } 195 else { 196 $cmd = "$ssh -n $DMZ_HOST $cmd"; 197 } 198 173 199 print "EXEC: $cmd\n"; 174 200 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = -
tags/ipp-mdpv3-20150326/ippScripts/scripts/sc_remote_poll.pl
r37833 r38081 29 29 # Hard coded values 30 30 my $DMZ_HOST = 'wtrw'; 31 $DMZ_HOST = '128.171.123.18'; 31 32 my @SEC_HOSTS= ('mu-fe1','mu-fe2','mu-fe3' 32 #,'mu-fe4'33 ,'mu-fe4' 33 34 ); 34 35 my $SEC_HOST = $SEC_HOSTS[int(rand(@SEC_HOSTS))]; # 'mu-fe'; 36 $SEC_HOST = ''; 35 37 my $IPP_PATH = '/turquoise/usr/projects/cosmo/mswarren/ipp/'; 38 $IPP_PATH = '/home/mehuber7/src/'; 36 39 my $remote_root = '/scratch3/watersc1/'; 40 $remote_root = '/lus/scratch/mehuber7/'; 37 41 38 42 # tools … … 351 355 my $file = shift; 352 356 my $destination = shift; 353 my $cmd = "$scp $file ${DMZ_HOST}:${SEC_HOST}:${destination}"; 357 my $cmd; 358 if ($SEC_HOST ne '') { 359 $cmd = "$scp $file ${DMZ_HOST}:${SEC_HOST}:${destination}"; 360 } 361 else { 362 $cmd = "$scp $file ${DMZ_HOST}:${destination}"; 363 } 354 364 355 365 my $directory = dirname($destination); … … 368 378 my $file = shift; 369 379 370 my $cmd = "$scp ${DMZ_HOST}:${SEC_HOST}:${destination} $file "; 380 my $cmd; 381 if ($SEC_HOST ne '') { 382 $cmd = "$scp ${DMZ_HOST}:${SEC_HOST}:${destination} $file "; 383 } 384 else { 385 $cmd = "$scp ${DMZ_HOST}:${destination} $file "; 386 } 371 387 372 388 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 380 396 sub ssh_exec_command { 381 397 my $cmd = shift; 382 $cmd = "$ssh -n $DMZ_HOST ssh ${SEC_HOST} $cmd"; 398 if ($SEC_HOST ne '') { 399 $cmd = "$ssh -n $DMZ_HOST ssh ${SEC_HOST} $cmd"; 400 } 401 else { 402 $cmd = "$ssh -n $DMZ_HOST $cmd"; 403 } 383 404 print "EXEC: $cmd\n"; 384 405 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = -
tags/ipp-mdpv3-20150326/ippScripts/scripts/sc_transfer_tool.pl
r37833 r38081 11 11 12 12 my $scp_cmd = "/usr/projects/cosmo/amd6100/bin/scp"; 13 $scp_cmd = '/usr/bin/scp'; 13 14 my $ssh_cmd = "/usr/projects/cosmo/amd6100/bin/ssh"; 15 $ssh_cmd = '/usr/bin/ssh'; 14 16 15 17 my $remote_root = '/lustre/scratch1/turquoise/watersc1/ps1/'; 16 $remote_root = '/scratch3/watersc1/'; 18 # $remote_root = '/scratch3/watersc1/'; 19 $remote_root = '/lus/scratch/mehuber7/'; 17 20 18 21 #my $local_raw = "${remote_root}/tmp/"; -
tags/ipp-mdpv3-20150326/ippTasks/remote.pro
r37835 r38081 22 22 23 23 list STAGES 24 chip25 camera24 # chip 25 # camera 26 26 # warp 27 27 stack 28 staticsky28 # staticsky 29 29 end 30 30 … … 121 121 122 122 # min entry limit? 123 $run = remotetool -definebyquery -label $label -stage $stage -path_base neb://@HOST@.0/remote/$label -limit 500123 $run = remotetool -definebyquery -label $label -stage $stage -path_base neb://@HOST@.0/remote/$label -limit 200 124 124 if ($DB:n == 0) 125 125 option DEFAULT … … 156 156 periods -exec 900 157 157 periods -timeout 30 158 active true158 active false 159 159 npending 1 160 160 … … 293 293 end 294 294 if ("$STAGE" == "staticsky") 295 $command = sc_prepare_staticsky.pl --camera GPC1 --sky_id $STAGE_ID --remote_id $REMOTE_ID --path_base $outroot - dbname $DBNAME295 $command = sc_prepare_staticsky.pl --camera GPC1 --sky_id $STAGE_ID --remote_id $REMOTE_ID --path_base $outroot --dbname $DBNAME 296 296 end 297 297
Note:
See TracChangeset
for help on using the changeset viewer.
