#!/usr/bin/env perl

if($#ARGV != 1) { die "Wrong number of arguments in channel.pl.";}

$group    = @ARGV[0];
$channel  = @ARGV[1];

# $group   = "hlt";
# $channel = "jm_hlt1015";

$top     = "/data/FNAL_Ntuple/cmsjet/hlt_2e33_Hidas01Sep2001";

$ntupdir = "$top"."/"."$group"."/"."$channel";

$ntuplist = "chains/$channel".".list";
open (NTPLIS, "$ntuplist") || die " can't open $ntuplist";

$chkumac = "chains/$channel".".kumac";
open (KUMAC, ">$chkumac") || die " can't open $ntuplist";

while ($line = <NTPLIS>)
{
  print KUMAC "nt/chain $channel ../links/$channel/$line";
}