#!/usr/bin/perl -w

#use it like this: 
#
#neb-tail neb://ipp015.0/gpc1/magictest.20100127/MD04/skycell.101/MD04.skycell.101.dif.27980.log
#
# or 
# neb-tail gpc1/magictest.20100127/MD04/skycell.101/MD04.skycell.101.dif.27980.log
#

$file=$ARGV[0];
   	

@nebitems=`neb-locate --path --server http://nebulous.mhpcc.ipp.ifa.hawaii.edu/nebulous --path $file 2>&1`;


if ($nebitems[0] =~ /no instances/) {
    print "no instances\n";
    
} 
else  {
    @tail=`tail -n 50 $nebitems[0]`;
    foreach $tail_item (@tail) {
	print $tail_item;
    }
}

	

