#!/usr/local/bin/perl -w
#
# mocpro_level0.pl

# mocness tow data file processing routine - level0 
# November 4, 1997  rcg
# November 14, 1997 rcg Change output message to say displayed by.
# March 23, 1999.  CHange script location to be /data/cashjian.  rcg
#
# Sets up level 0 for MOCNESS CTD data object.

$version="v1.22/Mar. 23, 1999";
#some definitions
# top level data directories
$script_loc="/data/cashjian";   # script location dir
$i_am_level=0;
$script_name="mocpro_level1.pl";           
$fieldnames_level[0]="/data/cashjian/fieldnames_level0";
$fieldnames_level[1]="/data/cashjian/fieldnames_level1";
$fieldnames_level[2]="/data/cashjian/fieldnames_level2";
$fieldnames_level[3]="/data/cashjian/fieldnames_level3";

print STDOUT ("#Displayed by $0, $version\n");

# headers - 3 o/p by level0 Read from files

for ($i=$i_am_level; $i <= $#fieldnames_level; $i=$i+1) {
	open FIELDNAMES, $fieldnames_level[$i] or 
	   die "#Could not get $0 field names from $fieldnames_level[$i], $!";
		@fieldnames=<FIELDNAMES>;
	close FIELDNAMES;
	chomp (@fieldnames);
	foreach $variable (@fieldnames) {
		print STDOUT 
			"$variable\t" unless (index $variable, "#") >= 0;
	}
	print STDOUT "\n";
}
print STDOUT 
	("MOCNESS_.25\t(",$script_loc,"/",$script_name," MOC.25 pro)\n",
	 "MOCNESS_1\t(",$script_loc,"/",$script_name," MOC1 pro)\n",
	 "MOCNESS_10\t(",$script_loc,"/",$script_name," MOC10 pro)\n");

exit 0;

#-----------------------------------------------
sub sendmessage {

#Send a message to the user.
#The message sent will be in the strings $_[0] and $_[1]

my ( @args, $mailfile, $message0, $message1);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

$message0=$_[0];
$message1=$_[1];
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
print "#Message from $0\n";
print "# Date of message: $year/$mon/$mday $hour:$min\n";
print ("# $message0\n");
print ("# $message1\n");
return 0;
}