#!/usr/bin/env tclshexe
package require LDASJob

#-- Hard-coded parameter
set manager dev

#-- Check whether user specified all needed command-line arguments
if { $argc != 3 } {
    puts "Usage:    frame2ilwd <infile> <channel> <outfile>"
    puts "Example:  frame2ilwd H-657968401.F H0:PEM-LVEA_SEISX myout.ilwd"
    exit 1
}

#-- Run the LDAS job
LJrun job1 -manager $manager {
    concatFrameData
    -returnprotocol http://daq
    -outputformat {ilwd ascii}
    -framequery { {} {} %FILE($1) {} Adc($2) }
}
if $LJerror {
    puts "LDAS job error:"
    puts $job1(error)
    exit 3
}

#-- Retrieve the output
set url [lindex $job1(outputs) 0]
set gotfile [LJcopy $url $3]
puts "Retrieved $gotfile"