#######################################################################
# This script looks for output of dbtape, dbtape_steer and
# reorganize string with tape and sequences for stagein command format.
# V.E.Kuznetsov Mar 10, 1998.
#######################################################################
 BEGIN {
    print "#######################################################################"
    print "# This is automatic NQS script, author V.E.Kuznetsov"
    print "#######################################################################"
    print "#"
    print "# @$ -lt 100000\n#\n# @$ -me\n#\n# @$\n#"
    print "#!/bin/csh"
    print "#"
    print " setenv LINUX   /star3/valya/Linux"
    print " setenv CDSERV  /hepdb/cdnomad"
    print " setenv STARSRC /star4/STAR_FZ/98/"DATE1"-"DATE2""
    print " mkdir $STARSRC"
    print " cd    $STARSRC"
    print " setenv STARSRCOLD /star3/valya/nomad_star/packages/star"
    print " cp    $STARSRCOLD/noise.data             $STARSRC/noise.data"
    print " cp    $STARSRCOLD/pedestals.data         $STARSRC/pedestals.data"
    print " cp    $STARSRCOLD/planes.data            $STARSRC/planes.data"
    print " cp    $STARSRCOLD/production98/simainprod98.exe $STARSRC/simainprod98"
#   print "#beg# "i+1" is the first sequence for this period of time"
 }
 END {
    print "\n#"
    print "\n#end# "i" sequencies produced\n"
    print "\nexit"
 }
{
 ORS=""
 if($2) link = $2
 split(link,a,".")
 split(a[1],tape,"Y")
 if(i==0) {
    print "\n /usr/local/bin/stagein  -V "a[1]" "
    n=tape[2]
 }
 i++
 if(tape[2]>n) {
    j = 0
    print "\n /usr/local/bin/stagein  -V "a[1]" "
    n=tape[2]
 }
 if(j==0) {ORS=""; print "-q "a[2]""}
 if(j && j<7) printf ",%s", a[2]
 j++
 if(j>=7) { 
    j=0
    print "\n /usr/local/bin/stagein  -V "a[1]" "
 }
} 












#######################################################################
# This script automatically generate .NQS job with mail notification.
# V.E.Kuznetsov Apr., 1998.
#######################################################################
BEGIN {ibeg=i;}
END {
  iend=i; 
  print "#######################################################################"
  print "# This is automatic NQS script, author V.E.Kuznetsov"
  print "#######################################################################"
  print "#"
  print " ls *.output* > mail.ok"
  print " ls *.output* | awk \'{print \"tail -1 \"$1\"\"}\' | /bin/csh | awk \'{if($0==\" RZEND. called for NTUPLE\") print \" ok\"}\' >> mail.ok"
  print "#"
  print " /bin/ls -al"
  print "#"
  print " echo \'#\\!/bin/csh\'              > ff.csh"
  print " echo \'foreach I (*.2track.fz)\' >> ff.csh"
  print " echo \'  if(!(-z $I)) then\'     >> ff.csh"
  print " echo \'  ls -la $I\'             >> ff.csh"
  print " echo \'  endif\'                 >> ff.csh"
  print " echo \'end\'                     >> ff.csh"
  print " chmod a+x ff.csh"
  print " ff.csh | awk \'BEGIN{ORS=\"\"; print \"/star3/valya/Linux/bin/nomread_offline\"} END{print \" -o "DATE1"-"DATE2".fz >&/dev/null \\n\"} {ORS=\"\"; print \" -f \"$9\"\"}\' | /bin/csh"
  print "#/bin/rm -f ff.csh"
  print "#"
  print " /bin/rm -f RhoAndX0.dat ff.csh fort.* nu*.fz pedestals.data planes.data simainprod98 noise.data"
  print " /bin/ls -l | awk \'{if($5==0) print \"/bin/rm -f \"$9\"\"}\' | /bin/csh"
  print " gzip -9 *.hbk* *.fz noise.* *.output*"
  print "#"
  print " /bin/rm -f mail.txt"
  print " echo \" Job "DATE1"-"DATE2" is finished \" > mail.txt"
  print " cat mail.txt mail.ok > mailmessage"
  print " mail -s \" job "DATE1"-"DATE2" \" kve@axnd01.cern.ch < mailmessage"
  print " mail -s \" job "DATE1"-"DATE2" \" jukka.kokkonen@cern.ch < mailmessage"
  print " /bin/rm -f mail.txt mailmessage"
  print "#"
}
{
 if($1=="/usr/local/bin/stagein" && $4=="-q") {
   print "#\n"$0" -l al -F F -h shift52 -p nomad_ana -L 28800 -s 2000 "$3".al."i+1""
   print " tail -1 /star3/STAR_FZ/98/muon.txt | awk \'{print \"stageout -V Y00639 -q \"$3+i+1\" -h shift52 -s -F F -l al -L 28800 mu.\"$3+i+1\"\"}\'"
   print " tail -1 /star3/STAR_FZ/98/muon.txt | awk \'{print \" echo \"Y00639 "DATE1"-"DATE2" "$3+i+1"\" >> /star3/STAR_FZ/98/muon.txt}\'"
   print " $LINUX/bin/nomread_offline -f "$3".al."i+1" -t STAR-MU -o mu"i+1".fz -n 100000 -d 0 >& /dev/null"
   print " $STARSRC/simainprod98  -i mu"i+1".fz -n 200 >& /dev/null"
   print " cp noise.data noise."$3".data"i+1""
   print "#gzip -9 mu"$3".fz noise."$3".data"
   print " $LINUX/bin/nomread_offline  -f "$3".al."i+1" -t STAR-NU -o nu"i+1".fz -n 100000 -d 0 >& /dev/null"
   print " $STARSRC/simainprod98  -i nu"i+1".fz -e 50000 -tm "$3".nu"i+1".fz -T STAR-NU >& "$3".output"i+1""
   print " mv star.hbk "$3".hbk"i+1""
   print " /usr/local/bin/stageclr -c -V "$3" -h shift52 -q "$5""
   print " /bin/ls -l "$3".al."i+1" | awk \'{split($11,a,\".\"); print \"/usr/local/bin/stageclr -V "$3" -h shift52 -q \"a[2]\"\"}\' | /bin/csh"
   i++
 } else { 
   if($1=="/usr/local/bin/stagein" && !$4) print "#"
   else print $0
 }
}