For better parseability, content will never be zero-length or '-none-'.

cgi-bin/htlog/htlog.cgi

 }
 
 my $q = CGI->new;
-my $msg = ( defined $q->param('msg')    ? $q->param('msg')  : '' );
-my $tag = ( defined $q->param('tag')    ? $q->param('tag')  : '-none-' );
+my $msg = ( defined $q->param('msg')    ? $q->param('msg')  : '-' );
+my $tag = ( defined $q->param('tag')    ? $q->param('tag')  : '-' );
 
 my $message = sprintf("Time: %s; Origin: %s; Tag: %s; Message: %s\n",
     &stamp(time),