Changeset 29672 for trunk/pstamp/scripts/pstamp_request_file

Timestamp:

Nov 4, 2010, 2:17:15 PM (16 years ago)

Author:

bills

Message:

protect against troublesome comments

File:

• trunk/pstamp/scripts/pstamp_request_file (modified) (1 diff)

trunk/pstamp/scripts/pstamp_request_file

@@ -271 +271 @@
             exit 1;
         }
-        $comment = "null" if !$comment;
+        if ($comment) {
+            if ($comment =~ /#/) {
+                print STDERR "WARNING '#' character removed from comment.\n";
+                $comment =~ s/#/ /;
+            }
+            if (length($comment) > 63) {
+                print STDERR "WARNING comment too long truncating to 63 characters.\n";
+                $comment = substr($comment, 0, 63);
+            }
+        } else {
+            $comment = "null";
+        }
         my @vals = split /$sep/, $spec;
         my $nvals = @vals;