From: nwf <nwf@cs.jhu.edu>
Date: Mon, 3 Aug 2009 04:12:40 +0000 (-0400)
Subject: Improve bottag.pl to generate only MMF on blank lines
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=2e613a1bc99bb316999e7a77eacf4baefde87ce5;p=instirc

Improve bottag.pl to generate only MMF on blank lines

Ignore-this: 85c6430aa4bf90b279541488e59102dc

darcs-hash:20090803041240-4d648-65ac67215c4adbc0ccab6f54c96cc7a4d751b3b6.gz
---

diff --git a/bottag.pl b/bottag.pl
index 8132c4d..2c41e1c 100644
--- a/bottag.pl
+++ b/bottag.pl
@@ -1,3 +1,5 @@
+use strict;
+
 use Instance::Definitions qw( %known_types
                     @debug_code_chars
                     $instance_huffman_table1
@@ -12,19 +14,23 @@ my $hc = Instance::HuffmanCoder->new($mc, $instance_huffman_table1);
 while(my $text = <>) {
   chomp $text;
 
-  my $enc = $hc->encode($text);
-  my $tlv = $mc->tlv_wrap( $known_types{'InstanceLabelHuffman1'}, $enc);
-
   my @tlvs = ( );
 
-  push @tlvs, $tlv;
+  if ($text !~ /^\s*$/) {
+    my $enc = $hc->encode($text);
+    my $tlv = $mc->tlv_wrap( $known_types{'InstanceLabelHuffman1'}, $enc);
+
+    push @tlvs, $tlv;
+  }
 
-  $enc = $mc->tencode(3);
-  $tlv = $mc->tlv_wrap( $known_types{'MiscMessageFlags'}, $enc);
+  {
+    my $enc = $mc->tencode(3);
+    my $tlv = $mc->tlv_wrap( $known_types{'MiscMessageFlags'}, $enc);
 
-  push @tlvs, $tlv;
+    push @tlvs, $tlv;
+  }
 
-  my $mesg = $mc->tlvs_to_message(\@tlvs) . $mesg_suffix;
+  my $mesg = $mc->tlvs_to_message(\@tlvs) ;
 
   print $text, ":", $mesg, "\n";
 }