#! /usr/bin/perl

my( @lines ) = `ssh daq02 "ps -utrd"`;
foreach( @lines ) {
    chop;
    if ( /.*\d\d:\d\d:\d\d\s*ttcvi-seq.*/ ) {  # ttcvi-seq already running!
	printf("0\n");
	exit;
    }
}

printf("1\n");  # ttcvi-seq not running!

#EOF
