blob: 7d06abd76ed576b6a35ce6ed25d2d165265e1141 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/local/bin/perl
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $FML: __template.pm,v 1.5 2001/04/03 09:45:39 fukachan Exp $
#
while (<>) {
if (/message-id/i) {
my $time = time;
s/\d+/$time.$$/g;
}
print ;
}
exit 0;
|
