|
@@ -32,8 +32,8 @@ sub stamp {
|
32
|
32
|
}
|
33
|
33
|
|
34
|
34
|
my $q = CGI->new;
|
35
|
|
-my $msg = ( defined $q->param('msg') ? $q->param('msg') : '' );
|
36
|
|
-my $tag = ( defined $q->param('tag') ? $q->param('tag') : '-none-' );
|
|
35
|
+my $msg = ( defined $q->param('msg') ? $q->param('msg') : '-' );
|
|
36
|
+my $tag = ( defined $q->param('tag') ? $q->param('tag') : '-' );
|
37
|
37
|
|
38
|
38
|
my $message = sprintf("Time: %s; Origin: %s; Tag: %s; Message: %s\n",
|
39
|
39
|
&stamp(time),
|