Skip to content

Commit

Permalink
Remove SENDCOM from make_ntc_bull
Browse files Browse the repository at this point in the history 
The use of SENDCOM was retired in global workflow. make_ntc_bull is
updated to match, and also the indentation is made uniform.

Refs NOAA-EMC/global-workflow#2479
  • Loading branch information
@WalterKolczynski-NOAA
WalterKolczynski-NOAA committed Apr 12, 2024
1 parent accaeed commit 02160b5
Showing 1 changed file with 156 additions and 175 deletions.
331 changes: 156 additions & 175 deletions ush/make_ntc_bull.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,13 +26,12 @@
#------------------------------------------------------

if ($ENV{job}) { $job=$ENV{job}; }
if ($ENV{SENDCOM}) { $SENDCOM=$ENV{SENDCOM}; }
if ($ENV{SENDDBN}) { $SENDDBN=$ENV{SENDDBN}; }
$NArgs = @ARGV;

if ($NArgs < 6) {
usage ();
exit;
usage ();
exit;
}

#
Expand All @@ -50,201 +49,183 @@


if ( ($Filename eq "") || ($OutputFilename eq "") ) {
usage ();
exit;
usage ();
exit;
}

#
# Create the file for TOC
#
if ( $NAME eq "plot" ) {
make_tocplot ();
}
elsif ($NAME eq "redb" ) {
make_tocredb ();
}
else {
make_tocbull ();
}
if ( $NAME eq "plot" ) {
make_tocplot ();
} elsif ($NAME eq "redb" ) {
make_tocredb ();
} else {
make_tocbull ();
}
#
#


sub usage () {
print "Usage: $0 <wmoheader> <Originator> <YYYYMMDDHH> <subheader|NONE> <inpath> <outpath>\n";
print "Usage: $0 <wmoheader> <Originator> <YYYYMMDDHH> <subheader|NONE> <inpath> <outpath>\n";
}

sub make_tocbull {

#
# Attach WMO header
# Get the bytecount of file to insert into the Bulletin Flag Field Seperator.
#

$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
$cho =~ s/\n//g;
$cho =~ s/<<@@/\r\r\n/g;
$cho =~ s/<<@/\r\r\n/g;
$cho =~ s/<<//g;
$cho =~ s/>//g;
$cho =~ s/\^//g;
$cho =~ s/\$//g;
$cho =~ s/\|/+/g;
$value = 40;
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
while ($ix == 0) {
$cho = substr($cho,$value);
$value = 38;
$cho =~ s/'1/\&\&/;
$cho =~ s/'0/\&\&/;
# print "cho is $cho";
($cho2,$cho) = split(/\&\&/,$cho);
($cho2,$cho3) = split(/\%/,$cho2);
# print "cho2 is $cho2";
$ByteCount = length($cho2);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($SENDCOM eq "YES") {
#
# Attach WMO header
# Get the bytecount of file to insert into the Bulletin Flag Field Seperator.
#
$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
$cho =~ s/\n//g;
$cho =~ s/<<@@/\r\r\n/g;
$cho =~ s/<<@/\r\r\n/g;
$cho =~ s/<<//g;
$cho =~ s/>//g;
$cho =~ s/\^//g;
$cho =~ s/\$//g;
$cho =~ s/\|/+/g;
$value = 40;
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
while ($ix == 0) {
$cho = substr($cho,$value);
$value = 38;
$cho =~ s/'1/\&\&/;
$cho =~ s/'0/\&\&/;
# print "cho is $cho";
($cho2,$cho) = split(/\&\&/,$cho);
($cho2,$cho3) = split(/\%/,$cho2);
# print "cho2 is $cho2";
$ByteCount = length($cho2);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($ByteCount > 50 ) {
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho2;
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho2;
} else {
$ix = 1;
}
else {
$ix = 1;
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# Modified 20051205 by wx11rp to ensure the current production machine is used.
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$job2=$job;
$subtype=$ORIGname;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# Modified 20051205 by wx11rp to ensure the current production machine is used.
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$job2=$job;
$subtype=$ORIGname;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}

close INFILE;
close OUTFILE;

print "$Filename -> $OutputFilename\n";
}
}

sub make_tocplot {
close INFILE;
close OUTFILE;

#
# Attach WMO header
# Get the bytecount of file to insert into the Bulletin Flag Field Seperator.
#
print "$Filename -> $OutputFilename\n";
}

$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
# $Outp="$OutputFilename$under$job";
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
while ($ix == 0) {
$cho =~ s/\$\$/\&\&/;
($cho2,$cho) = split(/\&\&/,$cho);
# $cho2 =~ s/@/ /g;
# $cho2 = $cho2 . " ";
$ByteCount = length($cho2);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($SENDCOM eq "YES") {
sub make_tocplot {
#
# Attach WMO header
# Get the bytecount of file to insert into the Bulletin Flag Field Seperator.
#
$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
# $Outp="$OutputFilename$under$job";
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
while ($ix == 0) {
$cho =~ s/\$\$/\&\&/;
($cho2,$cho) = split(/\&\&/,$cho);
# $cho2 =~ s/@/ /g;
# $cho2 = $cho2 . " ";
$ByteCount = length($cho2);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($ByteCount > 50 ) {
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho2;
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho2;
} else {
$ix = 1;
}
else {
$ix = 1;
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# 20051205 Modified by wx11rp to allow the script to run on any manchine labeled as the production machine
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$subtype=$DATEname;
$job2=$job;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# 20051205 Modified by wx11rp to allow the script to run on any manchine labeled as the production machine
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$subtype=$DATEname;
$job2=$job;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}

close INFILE;
close OUTFILE;

print "$Filename -> $OutputFilename\n";
}

close INFILE;
close OUTFILE;

print "$Filename -> $OutputFilename\n";
}
sub make_tocredb {
#
# Prepare the Redbook graphic for transmission to TOC by removing the AWIPS
# header and creating an NTC header. Get the Bytecount of the file to
# insert into the Bulletin Flag Field Seperator.
#
$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
$cho = substr($cho,24);
$ByteCount = length($cho);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($ByteCount > 50 ) {
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho;
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# 20051205 Modified by wx11rp to allow the script to run on any manchine labeled as the production machine
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$subtype=$DATEname;
$job2=$job;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}

#
# Prepare the Redbook graphic for transmission to TOC by removing the AWIPS
# header and creating an NTC header. Get the Bytecount of the file to
# insert into the Bulletin Flag Field Seperator.
#
close INFILE;
close OUTFILE;

$ix = 0;
$under = "_";
open (INFILE, $Filename) or die "Cannot open $Filename";

while ($cho=<INFILE>) {
$rec = $rec . $cho;
}
$cho = $rec;
$Outp="$OutputFilename";
open(OUTFILE, ">$Outp") or die "Cannot open $OutputFilename for output.";
$cho = substr($cho,24);
$ByteCount = length($cho);
print " length is $ByteCount ";
$BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
if ($SENDCOM eq "YES") {
if ($ByteCount > 50 ) {
print OUTFILE "$BulletinFlagFieldSep\n";
print OUTFILE $cho;

}
}
close OUTFILE;
if ($SENDDBN eq "YES" ) {
# 20051205 Modified by wx11rp to allow the script to run on any manchine labeled as the production machine
# $dbn_alert="/gpfs/w/nco/dbnet/bin/dbn_alert";
$dbn_alert=$ENV{'DBNROOT'} . "/bin/dbn_alert";
$type="GRIB_LOW";
$subtype=$DATEname;
$job2=$job;
$file_path=$Outp;
@command = ($dbn_alert, $type, $subtype, $job2, $file_path);
if (system (@command) != 0) {
print "Error alerting: @command \n";
}
}

close INFILE;
close OUTFILE;

print "$Filename -> $OutputFilename\n";
print "$Filename -> $OutputFilename\n";
}

0 comments on commit 02160b5

Please sign in to comment.